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

– Haftalık bültendeki maçların kodlarını,ilk yarı-ikinci yarı sonuçları, maçların 1-0-2 oranlarını @iddaa penceresinde gösterir.
–/iddaa komutuyla veya sağ click yaptığınızda İddaa-Skor menüsünden tıklayarak çalıştırabilirsiniz.
– @iddaa 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(@iddaa),window -e @iddaa,clear @iddaa) | editbox @iddaa 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 @iddaa  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|span|span)) { if !$regex($regml(ixx,1),elapsed) { set %:/im.zmn $_tr($htmlfree(%i.s)) } | else set %:/im.zmn  4 $htmlfree(%i.s) }
  if (<td> isin %i.s) { set %:/im.tkm $_tr($remove($token(%i.s,1,47),<td>,<br)) - $_tr($remove($token(%i.s,2,47),>,<)) }
  if (<td> isin %i.s) {
    if (<span> isin %i.s) {
      if ("halfscore" !isin %i.s) { set %:/im.skor $remove(%i.s,<td><span>,</span>,</td>) }
      else set %:/im.skor $remove($token(%i.s,1,47),<td><span>,<)  15 $remove($token(%i.s,2,47),span><span>,<)
    }
    elseif (<span> 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><span>,<)  4 $remove($token(%i.s,2,47),span><span>,<)
    }
  }
  if (*<td>*,*</td>* iswm %i.s)  { set %:/im.oran $addtok(%:/im.oran,$htmlfree(%i.s),32) }
  if (</tr> isin %i.s) && (%:/im.oran != $null) { aline @iddaa  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"> isin %i.s) { aline @iddaa - | aline 10 @iddaa  2 Bülten Gösterimi Tamamlandı  3"ARA MAÇKODU" 2 veya  3"ARA TAKIMADI" 2 Yazarak Arama Yapabilirsiniz. }
}
on *:input:@iddaa:{
  if $1 == ARA {
    aline -p @iddaa ||  3Aranıyor. 1 ||
    if $fline(@iddaa,$+(*,$2,*),0) { aline -p @iddaa $fline(@iddaa,$+(*,$2,*),1).text }
    else { aline 2 @iddaa || 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-,Ç,Ç,Ä°,İ,Ş,Ş,Ãœ,Ü,ı,ı,ÅŸ,ş,Ç,Ç,ç,ç,ÄŸ,ğ,ÅŸ,ş,ü,ü,ı,ı,ö,ö,Ö,Ö,Ä,Ğ)


Kod Sahibi: Med Cezir