IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

S.a arkadaşlar .

Difuzyon un yazdığı bir iddaa botunu buldum bot çalışıyor fakat bilgileri çekmiyor. Yani yalnız

.bilgi yazınca bilgiyi veriyor diğer hiç bir komut çalışmıyor. Yardımcı olabilecek arkadaş varmı ?
Kod:
;(Yapımcı) Product by Difuzyon ;E-Mail : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ;Tarih : 27/11/2010 ;Web  : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ;#kanal genelinde .bilgi yazarak komutlara ulaşabilirsiniz. ;Güncellenme Tarihi : 01/02/2011 alias golkral {   .remove golkral.txt   sockclose golkral   sockopen golkral [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80   sockmark golkral %iddaachan } on *:sockopen:golkral:{   sockwrite -n $sockname GET /default.aspx?pageID=821 HTTP/1.1   sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80   sockmark bankoaltust %iddaachan } on *:sockopen:bankoaltust:{   sockwrite -n $sockname GET /sanal-iddaa/kullanici-istatistikleri/alt-ust HTTP/1.1   sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80   sockmark bankoiy %iddaachan } on *:sockopen:bankoiy:{   sockwrite -n $sockname GET /sanal-iddaa/kullanici-istatistikleri/iy-sonucu HTTP/1.1   sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80   sockmark bankocifte %iddaachan } on *:sockopen:bankocifte:{   sockwrite -n $sockname GET /sanal-iddaa/kullanici-istatistikleri/cifte-sans HTTP/1.1   sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80   sockmark bultenx %iddaachan } on *:sockopen:bultenx:{   sockwrite -n $sockname GET /iddaa/iddaa-programi/ HTTP/1.1   sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80     sockmark bulten %iddaachan   } } on *:sockopen:bulten:{   sockwrite -n $sockname GET /iddaa/iddaa-programi/ HTTP/1.1   sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80   sockmark canli %iddaachan } on *:sockopen:canli:{   sockwrite -n $sockname GET /istatistik/canli-skorlar/live HTTP/1.1   sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $str($crlf,2) } on *:sockread:canli:{   sockread %dify   ;write caps.txt %dify   if $regex(%dify,/(<\/td>|<\/tr>|<h3 title=")/g) {      write -n canli.txt $htmlfree($regsubex($regsubex($replace(%dify,Ã¸,o,Ã¼,ü,Ã--,ì,Ã‘,Ñ,Ã±,ñ,ÅŸ,ş,Ã£,ã,Ã©,è,Ä±,ı,Ã‡,Ç,ÄŸ,Ãª,ê,Ã�,Á,ğ,Ã¡,ì,Ä°,İ,Ã§,ç,Ã¶,ö,Ã¦,æ,Ã«,e,Ã³,ò,Ã–,Ö,Äƒ,ã,Ã…,A,h3 title=,>10<,</h3>,$lf,</span>,$+($chr(160),07),<td class="col3">,$+($chr(160),01),</a></td>,$chr(160),</a></strong>,$chr(160),<td class="col1">,04,<td title="iddaa kodu" class="col2"></td>,$+($str($chr(160),5),01)),/<\/tr>/g,$lf),/\t/g,$null))   }   elseif $regex(%dify,sideholder) {     play $sock($sockname).mark canli.txt 1000      sockclose canli    } }   alias superlig {   .remove puan.txt   sockclose puan   sockopen puan proje.hurriyet.com.tr 80   sockmark puan %iddaachan } on *:sockopen:puan:{   sockwrite -n $sockname GET /spor/DisplaySporNew.aspx?ligID=24 HTTP/1.1   sockwrite -n $sockname Host: proje.hurriyet.com.tr $str($crlf,2) } on *:sockread:puan:{   sockread %dify   if $regex(%dify,/bgcolor='#FFFFFF' style='text-indent/i) {     write -n puan.txt $regsubex($htmlfree($regsubex(%dify,/(height='20')/g,$+(>,$replace(\1,\1,$lf),<))),/2011/,$+(2011,$lf))   }   if $regex(%dify,/en çok okunan spor haberleri/i) { play $sock($sockname).mark puan.txt | sockclose puan } }   alias banko1X2 {   .remove banko.txt   sockclose banko   sockopen banko [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80   sockmark banko %iddaachan } on *:sockopen:banko:{   sockwrite -n $sockname GET /sanal-iddaa/kullanici-istatistikleri/ HTTP/1.1   sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $str($crlf,2) } on *:sockread:banko:{   sockread %dify   if $regex(%dify,/(<\/td>|<\/tr>)/g) {      write -n banko.txt $replace($htmlfree($regsubex($regsubex(%dify,/<\/tr>/g,$lf),/\t/g,$chr(160))),Ã¼,ü,,Ãœ,Ü,Å�,Ş,Ã‡,Ç,ÄŸ,ğ,Ãª,ê,Ã�,Á,ÅŸ,ş,Ä±,ı,Ã‡,Ç,ÄŸ,ğ,Ä°,İ,Ã§,ç,Ã¶,ö,Ã¦,æ)   }   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),6) (2)   | play $sock($sockname).mark banko.txt 1000 | sockclose banko } }  alias takim {   if !$1- { msg %iddaachan Takim ismi girmediniz | return }   .remove takim.txt   set -e %takim $replace($1-,ş,s,Ş,s,ı,i,ö,o,Ö,o,ç,c,Ç,c,ğ,g,Ğ,g,ü,u,Ü,u,$chr(32),-)    sockclose takim   sockopen takim [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80   sockmark takim %iddaachan } on *:sockopen:takim:{   sockwrite -n $sockname GET $+(/istatistik/takim/,%takim,/) HTTP/1.1   sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $str($crlf,2) } on *:sockread:takim:{   sockread %dify   if $regex(%dify,/You have an error in your/) { msg %iddaachan Veriye erişilemiyor. (Takım ismini yanlış girmiş olabilirsiniz) | sockclose takim | goto finish }   if $regex(%dify,/(<h3>|<dd>|Oynad|ralama|Resmi|Kurulu|GENEL |<\/td>)/ig) {     write takim.txt $replace($regsubex($htmlfree(%dify),/\t/g,$null),Galibiyet,Galibiyet 14(İçSaha-DışSaha-Tümü),Ä°,İ,$chr(58),$+($chr(58),03))   }   if $regex(%dify,/div class="banner/) {      play $sock($sockname).mark takim.txt 1000      sockclose takim   }   :finish }  alias kadro {   if !$1- { msg %iddaachan Takim ismi girmediniz | return }   .remove Akadro.txt   .remove bkadro.txt   set -e %kadro $replace($1-,ş,s,Ş,s,ı,i,ö,o,Ö,o,ç,c,Ç,c,ğ,g,Ğ,g,ü,u,Ü,u,$chr(32),-)    sockclose kadro   sockopen kadro [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80   sockmark kadro %iddaachan } on *:sockopen:kadro:{   sockwrite -n $sockname GET $+(/istatistik/takim/,%kadro,/oyuncular/) HTTP/1.1   sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $str($crlf,2) } on *:sockread:kadro:{   sockread %dify            if $regex(%dify,/(Kaleci|Defans|Ortasaha|Forvet|vertical-align.middle.padding-left.3px|text-align.left.padding-left.3px|<td class="center"|<\/tr>)/g) {     write -n bkadro.txt $htmlfree($replace($remove(%dify,$chr(9)),</td>,$str($chr(160),2),</tr>,$lf,Ä°,İ,Ã¼,ü,Ã§,ç,Ä±,ı,ÅŸ,ş,Ã¶,ö,Ã¼,ü,Ã‡,Ç,ÄŸ,ğ,Ãœ,Ü,Å�,Ş,Ã©,ê,Ã¡,â,Å¡,s,Ã–,Ü,Ãœ,Ü,Å�,Ş,Ã‡,Ç,ÄŸ,ğ,Ãª,ê,Ã�,Á))   }   if $regex(%dify,/Lig .statistikleri/i) {      filter -ffg bkadro.txt Akadro.txt ^\w      msg $sock($sockname).mark 5İsim Soyisim  3[Yaş]  6 Mevkii 4  ÜLKE  10 Oyn.Maç  [Gol] SarıKart KırmızıKart     play $sock($sockname).mark Akadro.txt 1000      sockclose kadro   } }   alias premier {   .remove premier.txt   sockclose premier   sockopen premier proje.hurriyet.com.tr 80   sockmark premier %iddaachan } on *:sockopen:premier:{   sockwrite -n $sockname GET /spor/DisplaySporNew.aspx?ligID=1 HTTP/1.1   sockwrite -n $sockname Host: proje.hurriyet.com.tr $str($crlf,2) } on *:sockread:premier:{   sockread %dify   if $regex(%dify,/bgcolor='#FFFFFF' style='text-indent/i) {     write -n premier.txt $regsubex($htmlfree($regsubex(%dify,/(height='20')/g,$+(>,$replace(\1,\1,$lf),<))),/2011/,$+(2011,$lf))   }   if $regex(%dify,/en çok okunan spor haberleri/i) { play $sock($sockname).mark premier.txt | sockclose premier } } alias ligue1 {   .remove ligue.txt   sockclose ligue   sockopen ligue proje.hurriyet.com.tr 80   sockmark ligue %iddaachan } on *:sockopen:ligue:{   sockwrite -n $sockname GET /spor/DisplaySporNew.aspx?ligID=2 HTTP/1.1   sockwrite -n $sockname Host: proje.hurriyet.com.tr $str($crlf,2) } on *:sockread:ligue:{   sockread %dify   if $regex(%dify,/bgcolor='#FFFFFF' style='text-indent/i) {     write -n ligue.txt $regsubex($htmlfree($regsubex(%dify,/(height='20')/g,$+(>,$replace(\1,\1,$lf),<))),/2011/,$+(2011,$lf))   }   if $regex(%dify,/en çok okunan spor haberleri/i) { play $sock($sockname).mark ligue.txt | sockclose ligue } } alias bundesliga {   .remove bundesliga.txt   sockclose bundesliga   sockopen bundesliga proje.hurriyet.com.tr 80   sockmark bundesliga %iddaachan } on *:sockopen:bundesliga:{   sockwrite -n $sockname GET /spor/DisplaySporNew.aspx?ligID=3 HTTP/1.1   sockwrite -n $sockname Host: proje.hurriyet.com.tr $str($crlf,2) } on *:sockread:bundesliga:{   sockread %dify   if $regex(%dify,/bgcolor='#FFFFFF' style='text-indent/i) {     write -n bundesliga.txt $regsubex($htmlfree($regsubex(%dify,/(height='20')/g,$+(>,$replace(\1,\1,$lf),<))),/2011/,$+(2011,$lf))   }   if $regex(%dify,/en çok okunan spor haberleri/i) { play $sock($sockname).mark bundesliga.txt | sockclose bundesliga } } alias seriea {   .remove serie.txt   sockclose serie   sockopen serie proje.hurriyet.com.tr 80   sockmark serie %iddaachan } on *:sockopen:serie:{   sockwrite -n $sockname GET /spor/DisplaySporNew.aspx?ligID=4 HTTP/1.1   sockwrite -n $sockname Host: proje.hurriyet.com.tr $str($crlf,2) } on *:sockread:serie:{   sockread %dify   if $regex(%dify,/bgcolor='#FFFFFF' style='text-indent/i) {     write -n serie.txt $regsubex($htmlfree($regsubex(%dify,/(height='20')/g,$+(>,$replace(\1,\1,$lf),<))),/2011/,$+(2011,$lf))   }   if $regex(%dify,/en çok okunan spor haberleri/i) { play $sock($sockname).mark serie.txt | sockclose serie } } alias laliga {   .remove liga.txt   sockclose liga   sockopen liga proje.hurriyet.com.tr 80   sockmark liga %iddaachan } on *:sockopen:liga:{   sockwrite -n $sockname GET /spor/DisplaySporNew.aspx?ligID=5 HTTP/1.1   sockwrite -n $sockname Host: proje.hurriyet.com.tr $str($crlf,2) } on *:sockread:liga:{   sockread %dify   if $regex(%dify,/bgcolor='#FFFFFF' style='text-indent/i) {     write -n liga.txt $regsubex($htmlfree($regsubex(%dify,/(height='20')/g,$+(>,$replace(\1,\1,$lf),<))),/2011/,$+(2011,$lf))   }   if $regex(%dify,/en çok okunan spor haberleri/i) { play $sock($sockname).mark liga.txt | sockclose liga } } alias bankasya {   .remove bankasya.txt   sockclose bankasya   sockopen bankasya proje.hurriyet.com.tr 80   sockmark bankasya %iddaachan } on *:sockopen:bankasya:{   sockwrite -n $sockname GET /spor/DisplaySporNew.aspx?ligID=6 HTTP/1.1   sockwrite -n $sockname Host: proje.hurriyet.com.tr $str($crlf,2) } on *:sockread:bankasya:{   sockread %dify   if $regex(%dify,/bgcolor='#FFFFFF' style='text-indent/i) {     write -n bankasya.txt $regsubex($htmlfree($regsubex(%dify,/(height='20')/g,$+(>,$replace(\1,\1,$lf),<))),/2011/,$+(2011,$lf))   }   if $regex(%dify,/en çok okunan spor haberleri/i) { play $sock($sockname).mark bankasya.txt | sockclose bankasya } } ; # KANAL İSMİNİ BU SATIRDA DEĞİŞTİREBİLİRSİNİZ. on $*:text:/[!\.](bilgi|tumbulten|canli|tumsonuc|bulten|superlig|alt-ust|sonuc|golkral|banko1X2|bankoaltust|bankoiy|bankocifte|takim .+|kadro .+|premier|ligue1|bundesliga|laliga|bankasya|seriea)/iS:#:{   if $play(1) || $sock(sonucx,1).status == active || $sock(canli,1).status == active || $sock(bankasya,1).status == active || $sock(bankocifte,1).status == active || $sock(bankoaltust,1).status == active || $sock(bankoiy,1).status == active || $sock(serie,1).status == active || $sock(liga,1).status == active || $sock(bundesliga,1).status == active || $sock(ligue,1).status == active || $sock(sonuc,1).status == active || $sock(premier,1).status == active || $sock(bultenx,1).status == active || $sock(bulten,1).status == active || $sock(puan,1).status == active || $sock(kadro,1).status == active || $sock(golkral,1).status == active || $sock(banko,1).status == active || $sock(takim,1).status == active {    }    else {      set -e %iddaachan $chan      if $regml(1) == bulten { set %bultentakim $replace($2-,ş,s,Ş,s,ı,i,ö,o,Ö,o,ç,c,Ç,c,ğ,g,Ğ,g,ü,u,Ü,u) }     if $regml(1) == sonuc { set %sonuctakim $replace($2-,ş,s,Ş,s,ı,i,ö,o,Ö,o,ç,c,Ç,c,ğ,g,Ğ,g,ü,u,Ü,u) }     $regml(1)   } } alias bilgi {   msg %iddaachan İddaa botu hakkında kullanım bilgileri:   .timer -m 1 500 msg %iddaachan .canli $str($chr(160),10) 14Devam eden karşılaşmalar hakkında [4Dakika1-7İddaa No1-Takımlar(skor)1] 14bilgilerini verir.    .timer -m 1 1200 msg %iddaachan .tumbulten $str($chr(160),3) 14Tüm İddaa bültenini 3[1Kod-Tarih-Takımlar-MBS 1 X 2 1&X 1&2 X&2 Alt Üst(oranlar)3]14 bilgisini listeler.   .timer -m 1 1550 msg %iddaachan .bulten takim 14Takima ait bulteni listeler   .timer -m 1 1900 msg %iddaachan .superlig $str($chr(160),9) 14Türkiye Spor Toto Süper Ligi puan durumunu listeler.   .timer -m 1 2600 msg %iddaachan .tumsonuc $str($chr(160),3) 14Sona eren karşılaşmaların 6[1İddaa No-Takımlar(skor)-İlk Yarı Sonucu6]14 bilgilerini verir.   .timer -m 1 3000 msg %iddaachan .sonuc takim 14Takima ait sonuclanan karşılaşma varsa listeler.   .timer -m 1 3300 msg %iddaachan .golkral $str($chr(160),8) 14Türkiye Spor Toto Süper Ligi 2Gol Krallığı14 listesini verir.   .timer -m 1 3800 msg %iddaachan .banko1X2 $str($chr(160),4) 14[1 X 2] Maç Sonucu sistemi üzerinden oynanmış bahis durumlarının yüzdelik oranını verir.   .timer -m 1 4200 msg %iddaachan .bankoaltust $chr(160) 14Alt/Üst sistemi üzerinden oynanmış bahis durumlarının yüzdelik oranını verir.     .timer -m 1 4700 msg %iddaachan .bankoiy $str($chr(160),7) 14[1 X 2 ] İlkyarı (İY) sonucu sistemi üzerinden oynanmış bahis durumlarının yüzdelik oranını verir.    .timer -m 1 5100 msg %iddaachan .bankocifte $str($chr(160),2) 14[1&X X&2 1&2 ] Maç sonucu sistemi üzerinden oynanmış bahis durumlarının yüzdelik oranını verir.    .timer -m 1 5900 msg %iddaachan .takim Takım 14Girilen takım hakkında bilgi ve karşılaşma istatistiklerini listeler.   .timer -m 1 6400 msg %iddaachan .kadro Takım 14Girilen takımın kadrosu\oyuncuları hakkında bilgi ve istatistikleri listeler     .timer -m 1 6900 msg %iddaachan .Premier $str($chr(160),5) 14 İngiltere Premier League puan durumunu listeler.   .timer -m 1 7300 msg %iddaachan .Ligue1 $str($chr(160),7) 14 Fransa Ligue 1 puan durumunu listeler.   .timer -m 1 8000 msg %iddaachan .Bundesliga $chr(160) 14Almanya Bundesliga 1 puan durumunu listeler.   .timer -m 1 8700 msg %iddaachan .SerieA $str($chr(160),7) 14 İtalya Serie A puan durumunu listeler.   .timer -m 1 9400 msg %iddaachan .LaLiga $str($chr(160),7) 14 İspanya La Liga puan durumunu listeler.   .timer -m 1 10000 msg %iddaachan .BankAsya $str($chr(160),3) 14Türkiye Bank Asya 1. Ligi puan durumunu listeler. } alias htmlfree {   var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$chr(32),%x), %x = $remove(%x,&nbsp;)      return %x }      alias sonuc {   if %sonuctakim {     .remove sonuc.txt     sockclose sonuc     sockopen sonuc canlimacsonuclari.hurriyet.com.tr 80     sockmark sonuc %iddaachan   } } on *:sockopen:sonuc:{   sockwrite -n $sockname GET /macsonuclari.aspx HTTP/1.1   sockwrite -n $sockname Host: canlimacsonuclari.hurriyet.com.tr $str($crlf,2) } on *:sockread:sonuc:{   if ($sockerr) { msg %iddaachan Veri alımında hata oluştu. | halt }   else {     var %dify     sockread %dify     if $regex(%dify,/sona erdi/i) {       write -n sonuc.txt $htmlfree($regsubex($regsubex($replace(%dify,Ä°,İ,Ã¼,ü,Ã§,ç,Ä±,ı,ÅŸ,ş,Ã¶,ö),/(<td colspan="7" height="1">|İY)/g,$lf),/<td width="40" align="center" bgcolor="#ff9900">/g,$+($chr(32),14[İlk Yarı]01,$chr(32))))     }     if $regex(%dify,/SCRIPT LANGUAGE="JAVASCRIPT" type="text\/javascript"/i) {        if $read(sonuc.txt,w,$+(*,%sonuctakim,*)) { msg %iddaachan $read(sonuc.txt,$readn) }       else { msg %iddaachan Sonuç bulunmuyor }       sockclose sonuc      }   } }  alias tumsonuc {   .remove tumsonuc.txt   sockclose sonucx   sockopen sonucx canlimacsonuclari.hurriyet.com.tr 80   sockmark sonucx %iddaachan } on *:sockopen:sonucx:{   sockwrite -n $sockname GET /macsonuclari.aspx HTTP/1.1   sockwrite -n $sockname Host: canlimacsonuclari.hurriyet.com.tr $str($crlf,2) } on *:sockread:sonucx:{   if ($sockerr) { msg %iddaachan Veri alımında hata oluştu. | halt }   else {     var %dify     sockread %dify     if $regex(%dify,/sona erdi/i) {       write -n tumsonuc.txt $htmlfree($regsubex($regsubex($replace(%dify,Ä°,İ,Ã¼,ü,Ã§,ç,Ä±,ı,ÅŸ,ş,Ã¶,ö),/(<td colspan="7" height="1">|İY)/g,$lf),/<td width="40" align="center" bgcolor="#ff9900">/g,$+($chr(32),14[İlk Yarı]01,$chr(32))))     }     if $regex(%dify,/SCRIPT LANGUAGE="JAVASCRIPT" type="text\/javascript"/i) {        play $sock($sockname).mark tumsonuc.txt 1000        sockclose sonucx      }   } }