(Yapýmcý) Product by Difuzyon
;E-Mail : difuzy0n@hotmail.com Site: www.turkirc.com
Kod:
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 [<,,$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)),/| /g,$+($chr(160),02)),/ | /g,$+(,10)),/ | /g,$+(,04)),/ | /g,$+(,07)),/ | /g,$+($chr(160),14Alt1][14Üst01,$chr(160))),/ | /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)),/ | /g,$+($chr(160),02)),/ | /g,$+(,10)),/ | /g,$+(,04)),/ | /g,$+(,07)),/ | /g,$+($chr(160),14Alt1][14Üst01,$chr(160))),/ | /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)
}
on *:sockread:canli:{
sockread %dify
if $regex(%dify,/(<\/td>|<\/tr>|,$+($chr(160),01), | ,$chr(160),,$chr(160),,04, | | ,$+($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 bahisci.com 80
sockmark banko %iddaachan
}
on *:sockopen:banko:{
sockwrite -n $sockname GET /sanal-bahis/kullanici-istatistikleri/ HTTP/1.1
sockwrite -n $sockname Host: 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 bahisci.com 80
sockmark takim %iddaachan
}
on *:sockopen:takim:{
sockwrite -n $sockname GET $+(/istatistik/takim/,%takim,/) HTTP/1.1
sockwrite -n $sockname Host: 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,/(||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 bahisci.com 80
sockmark kadro %iddaachan
}
on *:sockopen:kadro:{
sockwrite -n $sockname GET $+(/istatistik/takim/,%kadro,/oyuncular/) HTTP/1.1
sockwrite -n $sockname Host: 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|| )/g) {
write -n bkadro.txt $htmlfree($replace($remove(%dify,$chr(9)), | ,$str($chr(160),2),,$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 }
}
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 {
notice $nick Sýrada bekleyen $&
çalýþmanýn sona ermesini bekleyiniz..
}
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.
.timer -m 1 10600 msg %iddaachan 14Product by 5Difuzyon
}
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,Ä°,Ý,ü,ü,ç,ç,ı,ý,ÅŸ,þ,ö,ö),/(|ÝY)/g,$lf),/ | /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,Ä°,Ý,ü,ü,ç,ç,ı,ý,ÅŸ,þ,ö,ö),/( | |ÝY)/g,$lf),/ | /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
}
}
}
|