; Ý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-,Ç,Ç,Ä°,Ý,Åž,Þ,Ãœ,Ü,ı,ý,ÅŸ,þ,Ç,Ç,ç,ç,ÄŸ,ð,ÅŸ,þ,ü,ü,ı,ý,ö,ö,Ö,Ö,Ä,Ð)