IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

İddaa [Canlı Skor,Oynanmış Maçlar,Kodlar,Oranlar(1-0-X)]

Dün denk geldiğim bir siteden sonra, böyle bir kod hazırladım, başta yeni hazırladığım botuma eklemeyi düşünmüştüm, fakat haftalık bülten uzun olduğu için bunun kişisel kullanım için daha uygun olacağını düşündüm, o yüzdende bu şekilde paylaşıyorum.

- Haftalık bültendeki maçların kodlarını,ilk yarı-ikinci yarı sonuçları, maçların 1-0-2 oranlarını @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] penceresinde gösterir.
-/iddaa komutuyla veya sağ click yaptığınızda İddaa-Skor menüsünden tıklayarak çalıştırabilirsiniz.
- @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] penceresinde ARA [MaçKodu] veya ARA [TakımAdı] şeklinde aramak istediğiniz müsabakayı aratabilirsiniz.

Kod:

; İddaa

; Canlı Skor,Oynanmış Maçlar,Kodlar,Oranlar(1-0-X)

; By Umut (Med Cezir)
 

alias iddaa sockclose iddaala | sockopen iddaala m.skorer.com 80 | $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],clear @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) | editbox @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ARA | echo -a 3 Sonuçlar Alınıyor Lütfen Bekleyiniz. 

on *:sockopen:iddaala: {

  sockwrite -n $sockname GET / $+ Soccer/Iddaa.aspx HTTP/1.1 

  sockwrite -n $sockname host: m.skorer.com $+ $crlf $+ $crlf 

  sockwrite -n $sockname $crlf

}

on *:sockread:iddaala: {

  var %i.s | sockread %i.s

  ;echo -a %i.s

  if (<span style="float:left;"> isin %i.s) { set %:/ulke $_tr($htmlfree(%i.s)) }

  if (<span style="float:right;"> isin %i.s) { aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0,10 %:/ulke $str($chr(160),$calc(150 - $len(%:/ulke) - $len($htmlfree(%i.s)))) $htmlfree(%i.s) | unset %:/ulke }

  if $regex(%i.s,[0-9]{3}<br />$) { set %:/im.kod $htmlfree(%i.s) }

  if $regex(ixx,%i.s,/(span class="status"|span class="time"|span class="elapsed")) { if !$regex($regml(ixx,1),elapsed) { set %:/im.zmn $_tr($htmlfree(%i.s)) } | else set %:/im.zmn 4 $htmlfree(%i.s) }

  if (<td class="Event"> isin %i.s) { set %:/im.tkm $_tr($remove($token(%i.s,1,47),<td class="Event">,<br)) - $_tr($remove($token(%i.s,2,47),>,<)) }

  if (<td class="Score"> isin %i.s) {

    if (<span class="score"> isin %i.s) { 

      if ("halfscore" !isin %i.s) { set %:/im.skor $remove(%i.s,<td class="Score"><span class="score">,</span>,</td>) }

      else set %:/im.skor $remove($token(%i.s,1,47),<td class="Score"><span class="halfscore">,<) 15 $remove($token(%i.s,2,47),span><span class="score">,<)

    }

    elseif (<span class="livescore"> isin %i.s) { 

      if (halfscore !isin %i.s) { set %:/im.skor 4 $htmlfree(%i.s) }

      else set %:/im.skor $remove($token(%i.s,1,47),<td class="Score"><span class="halfscore">,<) 4 $remove($token(%i.s,2,47),span><span class="livescore">,<)

    }

  }

  if (*<td class="Bet">*,*</td>* iswm %i.s)  { set %:/im.oran $addtok(%:/im.oran,$htmlfree(%i.s),32) }

  if (</tr> isin %i.s) && (%:/im.oran != $null) { aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0,1 %:/im.kod 7 %:/im.zmn 3 %:/im.tkm 14 %:/im.skor $str($chr(160),10) 14 1-8 $token(%:/im.oran,1,32) 14 0-8 $token(%:/im.oran,2,32) 14 X-8 $token(%:/im.oran,3,32)  | unset %:/im.* }

  if (<div data-role="footer" class="FooterContainer"> isin %i.s) { aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] - | aline 10 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 2 Bülten Gösterimi Tamamlandı 3"ARA MAÇKODU"2 veya 3"ARA TAKIMADI"2 Yazarak Arama Yapabilirsiniz. }  

}

on *:input:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:{

  if $1 == ARA { 

    aline -p @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] || 3Aranıyor.1 ||

    if $fline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],$+(*,$2,*),0) { aline -p @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $fline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],$+(*,$2,*),1).text }

    else { aline 2 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] || Arama Sonucunda Eşleşme Elde Edilemedi. || }

  }

}

menu status,channel { 

  İddaa-Skor:/iddaa 

}

alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,$chr(9)) | return %x }

alias _tr return $replace($1-,Ã‡,Ç,Ä°,İ,Å,Ş,Ãœ,Ü,Ã„Â±,ı,Ã…Å¸,ş,Ãƒâ€¡,Ç,Ã§,ç,ÄŸ,ğ,ÅŸ,ş,Ã¼,ü,Ä±,ı,Ã¶,ö,Ã–,Ö,Ä,Ğ)

Dipnot Mesajı: Sayfa görünümü ekte verilmiştir.