iddaa 2013

wItAmEn · 4 May 2013

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ı @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 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 @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" class="FooterContainer"> 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 }

iddaa 2013

wItAmEn

˙ʞǝɯǝןzı iɹɐןuɐןo ıuǝq ɹoʎüɹüʇsüʞ ..