PHP- Kodu:
;(Yapýmcý) Product by Difuzyon ;E-Mail : difuzy0n@hotmail.com ;Tarih : 27/11/2010 ;Web : www.ircforumlari.net ;#kanal genelinde .bilgi yazarak komutlara ulaþabilirsiniz. ;Güncellenme Tarihi : 01/02/2011 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 www.bahisci.com 80 sockmark bankoaltust %iddaachan } on *:sockopen:bankoaltust:{ sockwrite -n $sockname GET /sanal-iddaa/kullanici-istatistikleri/alt-ust HTTP/1.1 sockwrite -n $sockname Host: www.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 www.bahisci.com 80 sockmark bankoiy %iddaachan } on *:sockopen:bankoiy:{ sockwrite -n $sockname GET /sanal-iddaa/kullanici-istatistikleri/iy-sonucu HTTP/1.1 sockwrite -n $sockname Host: www.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 www.bahisci.com 80 sockmark bankocifte %iddaachan } on *:sockopen:bankocifte:{ sockwrite -n $sockname GET /sanal-iddaa/kullanici-istatistikleri/cifte-sans HTTP/1.1 sockwrite -n $sockname Host: www.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 www.bahisci.com 80 sockmark bultenx %iddaachan } on *:sockopen:bultenx:{ sockwrite -n $sockname GET /iddaa/iddaa-programi/ HTTP/1.1 sockwrite -n $sockname Host: www.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 www.bahisci.com 80 sockmark bulten %iddaachan } } on *:sockopen:bulten:{ sockwrite -n $sockname GET /iddaa/iddaa-programi/ HTTP/1.1 sockwrite -n $sockname Host: www.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 www.bahisci.com 80 sockmark canli %iddaachan } on *:sockopen:canli:{ sockwrite -n $sockname GET /istatistik/canli-skorlar/live HTTP/1.1 sockwrite -n $sockname Host: www.bahisci.com $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 www.bahisci.com 80 sockmark banko %iddaachan } on *:sockopen:banko:{ sockwrite -n $sockname GET /sanal-iddaa/kullanici-istatistikleri/ HTTP/1.1 sockwrite -n $sockname Host: www.bahisci.com $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 www.bahisci.com 80 sockmark takim %iddaachan } on *:sockopen:takim:{ sockwrite -n $sockname GET $+(/istatistik/takim/,%takim,/) HTTP/1.1 sockwrite -n $sockname Host: www.bahisci.com $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 www.bahisci.com 80 sockmark kadro %iddaachan } on *:sockopen:kadro:{ sockwrite -n $sockname GET $+(/istatistik/takim/,%kadro,/oyuncular/) HTTP/1.1 sockwrite -n $sockname Host: www.bahisci.com $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, ) 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 } } }
Codesini yüklediðimde sadece .bilgi komutu çalýþýyor diðer bilgileri vermiyor. Eðer düzeltme imkânýnýz var ise çok mutlu mesut bahtiyar olacaðým.