IRCForumlarý - IRC ve mIRC Kullanýcýlarýnýn Buluþma Noktasý
  reklamver

Etiketlenen Kullanýcýlar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 25 Nisan 2011, 23:58   #1
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
kodu sock bota göre edit cekme




Selam Arkadaslar Cümleten ÝYi geceler, soyle bi sorunum var Düfizyon hocamýn yazdýgý bi kodu sock botta göre editlemek istiyorum fakat .canli yaziyorum kanalda o andaki maclarin sonucunu veriyor tekrar yazdigimda eski sonuclarida üstüne koyuyor bunu edit yapabilirmiyiz coder Arkadaslarimiza simdiden tesekkür ederüm kod bu:

;(Yapýmcý) Product by Difuzyon
;E-Mail :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.

;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|al t-ust|sonuc|golkral|banko1X2|bankoaltust|bankoiy|ban kocifte|takim .+|kadro .+|premier|ligue1|bundesliga|laliga|bankasya|serie a)/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,&nbsp
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.

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
}
}
}

 
Alýntý ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odalarý eglen sohbet reklamver
Cevapla

Etiketler
bota, cekme, edit, göre, kodu, sock


Konuyu Toplam 1 Üye okuyor. (0 Kayýtlý üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajýnýzý Deðiþtirme Yetkiniz Yok

BB code is Açýk
Smileler Açýk
[IMG] Kodlarý Açýk
HTML-Kodu Kapalý
Trackbacks are Kapalý
Pingbacks are Açýk
Refbacks are Açýk


Benzer Konular
Konu Konuyu Baþlatan Forum Cevaplar Son Mesaj
Güncel bu kodu socket bota nasýl cashmare mIRC Scripting Sorunlarý 1 30 Aralýk 2016 17:20
Bu Kodu nasýl Bota Eklerim Tinba mIRC Scripting Sorunlarý 6 12 Haziran 2013 21:01
Sock Bota Host Okuturmak moonman mIRC Scripting Sorunlarý 5 10 Kasým 2011 18:56
bota statustekileri sajoin kodu Emrax mIRC Scripting Hazýr Kodlar 5 23 Haziran 2010 10:12
istek kodu hakkýnda sock bot local mIRC Scripting Sorunlarý 6 18 Kasým 2007 02:33