Iddaa 2010/2011 MIRC

alias golkral {
  .remove golkral.txt
  sockclose golkral
  sockopen golkral www.tff.org 80
  sockmark golkral %iddaachan
}

on *:sockopen:golkral:{
  sockwrite -n $sockname GET /default.aspx?pageID=821 HTTP/1.1
  sockwrite -n $sockname Host: www.tff.org $str($crlf,2)
}
on *:sockread:golkral:{
  sockread %dify
  if $regex(%dify,/rptGolKralligi_ctl/i) {
    write -n golkral.txt $htmlfree($replace(%dify,GolSayisi,$+(>,$chr(160),]04<),kisiID,>05<,kulupID,>10 [<,</span></b>,$lf))
  }
  if $regex(%dify,/align="left" valign="top" style="padding-right. 10px"/) {
    play $sock($sockname).mark golkral.txt 1000 
    .timerdify 1 11 play stop
    sockclose golkral 
  } 
}
alias bankoaltust {
  .remove bankoaltust.txt
  sockclose bankoaltust
  sockopen bankoaltust bahisci.com 80
  sockmark bankoaltust %iddaachan
}

on *:sockopen:bankoaltust:{
  sockwrite -n $sockname GET /sanal-bahis/kullanici-istatistikleri/alt-ust HTTP/1.1
  sockwrite -n $sockname Host: bahisci.com $str($crlf,2)
}
on *:sockread:bankoaltust:{
  sockread %dify
  if $regex(%dify,/(<\/td>|<\/tr>)/g) { 
    write -n bankoaltust.txt $replace($htmlfree($regsubex($regsubex(%dify,/<\/tr>/g,$lf),/\t/g,$chr(160))),ü,ü,ÅŸ,ş,ı,ı,Ç,Ç,ÄŸ,ğ,Ä°,İ,ç,ç,ö,ö,æ,æ,Ö,Ö,Ã…,A)
  }
  elseif $regex(%dify,sideholder) { msg $sock($sockname).mark   $str($chr(160),8) [3TAKIM(1) - TAKIM(2)1] $str($chr(160),6) (7Bahis Sayısı1) $str($chr(160),4) (Alt) $str($chr(160),6) (Üst) | play $sock($sockname).mark bankoaltust.txt 1000 | sockclose bankoaltust }
}

alias bankoiy {
  .remove bankoiy.txt
  sockclose bankoiy
  sockopen bankoiy bahisci.com 80
  sockmark bankoiy %iddaachan
}

on *:sockopen:bankoiy:{
  sockwrite -n $sockname GET /sanal-bahis/kullanici-istatistikleri/iy-sonucu HTTP/1.1
  sockwrite -n $sockname Host: bahisci.com $str($crlf,2)
}
on *:sockread:bankoiy:{
  sockread %dify
  if $regex(%dify,/(<\/td>|<\/tr>)/g) { 
    write -n bankoiy.txt $replace($htmlfree($regsubex($regsubex(%dify,/<\/tr>/g,$lf),/\t/g,$chr(160))),ü,ü,ÅŸ,ş,ı,ı,Ç,Ç,ÄŸ,ğ,Ä°,İ,ç,ç,ö,ö,æ,æ,Ö,Ö,Ã…,A)
  }
  elseif $regex(%dify,sideholder) { msg $sock($sockname).mark   $str($chr(160),8) [3TAKIM(1) - TAKIM(2)1] $str($chr(160),6) (7Bahis Sayısı1) $str($chr(160),4) (1) $str($chr(160),6) (X) $str($chr(160),4) (2) | play $sock($sockname).mark bankoiy.txt 1000 | sockclose bankoiy }
}

alias bankocifte {
  .remove bankocifte.txt
  sockclose bankocifte
  sockopen bankocifte bahisci.com 80
  sockmark bankocifte %iddaachan
}

on *:sockopen:bankocifte:{
  sockwrite -n $sockname GET /sanal-bahis/kullanici-istatistikleri/cifte-sans HTTP/1.1
  sockwrite -n $sockname Host: bahisci.com $str($crlf,2)
}
on *:sockread:bankocifte:{
  sockread %dify
  if $regex(%dify,/(<\/td>|<\/tr>)/g) { 
    write -n bankocifte.txt $replace($htmlfree($regsubex($regsubex(%dify,/<\/tr>/g,$lf),/\t/g,$chr(160))),ü,ü,ÅŸ,ş,ı,ı,Ç,Ç,ÄŸ,ğ,Ä°,İ,ç,ç,ö,ö,æ,æ,Ö,Ö,Ã…,A)
  }
  elseif $regex(%dify,sideholder) { msg $sock($sockname).mark   $str($chr(160),8) [3TAKIM(1) - TAKIM(2)1] $str($chr(160),6) (7Bahis Sayısı1) $str($chr(160),4) (1&X) $str($chr(160),6) (X&2) $str($chr(160),4) (1&2) | play $sock($sockname).mark bankocifte.txt 1000 | sockclose bankocifte }
}


alias tumbulten {
  .remove bultenx.txt
  sockclose bultenx
  sockopen bultenx bahisci.com 80
  sockmark bultenx %iddaachan
}

on *:sockopen:bultenx:{
  sockwrite -n $sockname GET /iddaa/iddaa-programi/ HTTP/1.1
  sockwrite -n $sockname Host: bahisci.com $str($crlf,2)
}
on *:sockread:bultenx:{
  sockread %dify
  if $regex(%dify,/(<\/td>|<\/tr>)/g) { 
    write -n bultenx.txt $replace($htmlfree($regsubex($regsubex($regsubex($regsubex($regsubex($regsubex($regsubex($regsubex($regsubex(%dify,/<\/a><\/td>/g,$+(,01)),/<td title="iddaa ma.+tarihi">/g,$+($chr(160),02)),/<td title="iddaa kodu">/g,$+(,10)),/<td title="Lig .+tatisti.+">/g,$+(,04)),/<td class="col5">/g,$+(,07)),/<td class="col6">/g,$+($chr(160),14Alt1][14Üst01,$chr(160))),/<td>/g,$chr(160)),/<\/tr>/g,$lf),/\t/g,$null)),ü,ü,ÅŸ,ş,ı,ı,Ç,Ç,ÄŸ,ğ,Ä°,İ,ç,ç,ö,ö,æ,æ,Ö,Ö,Ã…,A,é,è)
  }
  elseif $regex(%dify,sideholder) {
    msg $sock($sockname).mark  10Kod $str($chr(160),4) 02Tarih $str($chr(160),5) 04Lig $str($chr(160),6) 07Maçlar $str($chr(160),5) 01MBS $str($chr(160),2) 1 $str($chr(160),2) X $str($chr(160),2) 2 $str($chr(160),2) 1&X $str($chr(160),2) 1&2 $str($chr(160),2) X&2  $str($chr(160),7) 14Alt $str($chr(160),5) Üst 
    play $sock($sockname).mark bultenx.txt 1000 
    sockclose bultenx
  }
}



alias bulten {
  if %bultentakim {
    .remove bulten.txt
    sockclose bulten
    sockopen bulten bahisci.com 80
    sockmark bulten %iddaachan
  }
}

on *:sockopen:bulten:{
  sockwrite -n $sockname GET /iddaa/iddaa-programi/ HTTP/1.1
  sockwrite -n $sockname Host: bahisci.com $str($crlf,2)
}
on *:sockread:bulten:{
  sockread %dify
  if $regex(%dify,/(<\/td>|<\/tr>)/g) { 
    write -n bulten.txt $replace($htmlfree($regsubex($regsubex($regsubex($regsubex($regsubex($regsubex($regsubex($regsubex($regsubex(%dify,/<\/a><\/td>/g,$+(,01)),/<td title="iddaa ma.+tarihi">/g,$+($chr(160),02)),/<td title="iddaa kodu">/g,$+(,10)),/<td title="Lig .+tatisti.+">/g,$+(,04)),/<td class="col5">/g,$+(,07)),/<td class="col6">/g,$+($chr(160),14Alt1][14Üst01,$chr(160))),/<td>/g,$chr(160)),/<\/tr>/g,$lf),/\t/g,$null)),ü,ü,ÅŸ,ş,ı,ı,Ç,Ç,ÄŸ,ğ,Ä°,İ,ç,ç,ö,ö,æ,æ,Ö,Ö,Ã…,A,é,è)
  }
  elseif $regex(%dify,sideholder) {
    msg $sock($sockname).mark  10Kod $str($chr(160),4) 02Tarih $str($chr(160),5) 04Lig $str($chr(160),6) 07Maçlar $str($chr(160),5) 01MBS $str($chr(160),2) 1 $str($chr(160),2) X $str($chr(160),2) 2 $str($chr(160),2) 1&X $str($chr(160),2) 1&2 $str($chr(160),2) X&2  $str($chr(160),7) 14Alt $str($chr(160),5) Üst 
    if $read(bulten.txt,w,$+(*,%bultentakim,*)) { 
      msg %iddaachan $read(bulten.txt,$readn)
    }
    else { msg %iddaachan Takima ait bulten bulunmuyor }
    sockclose bulten
  }
}


alias canli {
  .remove canli.txt
  sockclose canli
  sockopen canli bahisci.com 80
  sockmark canli %iddaachan
}

on *:sockopen:canli:{
  sockwrite -n $sockname GET /istatistik/canli-skorlar/live HTTP/1.1
  sockwrite -n $sockname Host: bahisci.com $str($crlf,2)
}