Canli Iddaa Plus Maç Sonuclari Botu

alias -l msend msg $remove($1,iddaa*) $htmlfree($2-)
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,$chr(9)) | return %x } 
alias isn { if ($2 isin $1) return $true }
on *:text:*:#: {
  if ($1 == !iddaa) {
    if (!$2) msg $nick 4Maç kodunu girmediniz!
    elseif ($2 isnum) {
      set %mcode $nick $2
      msg $nick 4,1Lütfen Bekleyiniz...
      sockclose $+(iddaa*,$nick)
      sockopen $+(iddaa*,$nick) www.iddaa.com 80
      sockmark $+(iddaa*,$nick) $2
    }
    else msg $nick 4Maç kodu yalnız sayılardan oluşmalıdır.
  }
  if ($1 == !idbilgi) msg $nick Bu kod,maç koduna göre maçın o anki canlı sonucu verir.(4BY SeRDaR406)
}
on *:sockopen:iddaa*: {
  if ($sockerr) msend $sockname 4Kaynak siteye bağlanamıyor.Daha sonra tekrar deneyiniz...! 
  else {
    var %s = sockwrite -n $sockname
    %s GET /iddaacom/Canli/canli_ct.asp HTTP/1.1
    %s Host: www.iddaa.com
    %s $crlf
  }
}
on *:sockread:iddaa*: {
  sockread %read
  if (MAC_ID isin %read) {
    set %mack $htmlfree(%read)
    if ($sock($sockname).mark == %mack) sockmark $sockname true
  }
  if (true isin $sock($sockname).mark) {
    if (onClick="td isin %read) {
      if ($sock($sockname).mark == true) { msend $sockname Ev sahibi Takım:  $+ $chr(32) $+ %read | sockmark $sockname true1 }
      elseif ($sock($sockname).mark == true1) msend $sockname Konuk Takım:  $+ $chr(32) $+ %read
    }
    if  (_ht isin %read) msend $sockname İlk Yarı Skoru:  $+ $chr(32) $+ %read
    if (_ft isin %read) msend $sockname Maç Skoru:  $+ $chr(32) $+ %read
    if (_dk isin %read) { 
      $iif(MS isin %read,msend $sockname Zaman:  $+ $chr(32) $+ Maç Sonu,msend $sockname Zaman:  $+ $chr(32) $+ %read)
      sockclose $sockname
    }
  }
  if (</table> isin %read) { msg $remove($sockname,iddaa*) 4Maç kodu hatalı(bulunamadı!) | sockclose $sockname }
}