| Med Cezir | 28 Kasım 2014 02:36 |
Cevap: Soccer V1.1 Futbol Canlı Maç Anlatımı ve İddaa Bilgi Botu
Telefondan bağlandığım için hemen atamadım, forumun azizliğine uğramış kod sanırım. Mod arkadaşlar ilgili kısımları düzeltirse sevinirim. Kod:
on *:Sockread:soccer~*: {
var %uA | sockread %uA
if ($sockerr) { sock.ua privmsg $soccer.chan Bağlantıda Hata Oluştu Daha Sonra Tekrar Deneyiniz. | return }
if $sockname == soccer~c-skorlar {
if (font-weight:bold; color:#FFFFFF isin %uA) { if $htmlfree(%uA) != $null { write c-skor.ua sock.ua privmsg $soccer.chan 1,10 Lig:15 $ifmatch } }
if (url(/smart/i/canli_sonuc/baslik_bck.png) repeat-x isin %uA) { write c-skor.ua sock.ua privmsg $soccer.chan $chr(160) }
if (width:15%; text-align:center; font-size:12px isin %uA) { set -e %c.skor:Durum $htmlfree(%uA) }
if (width:27%; text-align:left; font-size:12px; overflow:hidden isin %uA) { set -e %c.skor:Takim1 $htmlfree(%uA) }
if (width:10%; text-align:center; font-size:12px;'><a href= isin %uA) { set -e %c.skor:Skor $htmlfree(%uA) }
if (width:28%; text-align:right; font-size:12px; overflow:hidden isin %uA) { set -e %c.skor:Takim2 $htmlfree(%uA) }
if (width:20%; text-align:center; font-size:12px isin %uA) { write c-skor.ua sock.ua privmsg $soccer.chan 1,1 $iif($regex(%c.skor:Durum,'),3 %c.skor:Durum,$iif($regex(%c.skor:Durum,:),0 %c.skor:Durum,4 %c.skor:Durum)) 0,14Takim:1 %c.skor:Takim1 0Skor:8 %c.skor:Skor 0Takim:1 %c.skor:Takim2 0Tarih:1 $htmlfree(%uA) | unset %c.skor:* }
if (<div style='margin-top: 2px; width: 100%; height: 1px; background-color: #D1D1D1;'></div> isin %uA) {
var %s $lines(c-skor.ua)
if %s == 0 { sock.ua privmsg $soccer.chan 14,4 »º» 0Şuanda Oynanan Maç Bulunmuyor.14 «º« | return }
else sock.ua privmsg $soccer.chan 10Toplam 2 %s 10Satır Yansıtılacak.Tahmini Gösterme Süresi14 $calc(%s / $calc(1000 / $soccerzaman)) 10saniye dir. | .play -s c-skor.ua $soccerzaman
}
}
if $sockname == soccer~c-iddaa {
if (width:75%; margin-top:6px; color:#0F6210 isin %uA) { write c-iddaa.ua sock.ua privmsg $soccer.chan 1,10Tarih:0 $remove($_tr($htmlfree(%uA)),$(|)) }
if (width:62%; margin-top:8px; overflow:hidden; white-space: nowrap isin %uA) { set -e %uA/\cod $_tr($htmlfree(%uA)) }
if (width:15%; margin-top:8px; text-align:center isin %uA) { set -e %uA/\lig $_tr($htmlfree(%uA)) }
if (width:8%; margin-top:10px; text-align:center isin %uA) { write c-iddaa.ua sock.ua privmsg $soccer.chan 0,3 $token(%uA/\cod,1,32) 8 $token(%uA/\cod,2-,32) 1LİG:15 %uA/\lig | unset %uA/\* }
if (<div style="width:100%; height:1px; background-color:#bfbfbf"></div></div> isin %uA) {
var %i $lines(c-iddaa.ua)
if %i == 0 { sock.ua privmsg $soccer.chan 15,3 »º» 8İddaa Bülteninde Maç Bulunamadı.15 «º« | return }
else sock.ua privmsg $soccer.chan 10Toplam 2 %i 10Satır Yansıtılacak.Tahmini Gösterme Süresi14 $calc(%i / $calc(1000 / $soccerzaman)) 10saniye dir. | .play -s c-iddaa.ua $soccerzaman
}
}
if $sockname == soccer~lig-puan {
if (*new Array*"/futbol/superlig* iswm %uA) { sock.ua privmsg $soccer.chan 0,14 $remove($token(%uA,3,62),</strong) 8 $remove($token(%uA,6,62),</div) 5 $token($token(%uA,8,62),1,32) 1 $token($remove($token(%uA,8,62),</div),2-,32) 5 $token($token(%uA,10,62),1,32) 1 $token($remove($token(%uA,10,62),</div),2-,32) }
}
if $sockname == soccer~yayin-akisi {
if (margin-left:5px; margin-top: 2px; color: #FFFFFF; isin %uA) { sock.ua privmsg $soccer.chan $htmlfree(%uA) }
if (width:18%; margin-top:8px; isin %uA) { set -e %_:/y.sa $htmlfree(%uA) }
if (width:22%; margin-top:8px; isin %uA) { set -e %_:/y.knl $_tr($htmlfree(%uA)) }
if (width:60%; margin-top:8px; isin %uA) { sock.ua privmsg $soccer.chan 0,10«º«1 %_:/y.sa 0 »º» $str($chr(160),30) 10 %_:/y.knl - $_tr($htmlfree(%uA)) | unset %_:/y.* }
}
if $sockname == soccer~iddaa-bulten {
if (<td align=left><font color='#FFFFFF'><strong> isin %uA) { write i-bulten.ua sock.ua privmsg $soccer.chan 0,1 $(||) 3 $replace($htmlfree(%uA),$(|),$(-)) 0 $(||) }
;if (<td align=left><font color='#FFFFFF'><strong> isin %uA) { write i-bulten.ua sock.ua privmsg $soccer.chan 1,10 $(||) 0 $replace($htmlfree(%uA),$(|),$(-)) 1 $(||) }
if (position:relative;height:21px; isin %uA) { set -e %.//bt $htmlfree(%uA) }
if (*<td >*</td>* iswm %uA) && !$regex(%uA,(<strong>|<a)) { set -e %.//bo $instok(%.//bo,$htmlfree(%uA),0,32) }
if (<td bgcolor='#FFFFFF'><a href='javascript:;'><img src= isin %uA) {
;echo -s 1,8 $token(%.//bt,1,32) 3 $token(%.//bt,2-,32)
;write i-bulten.ua sock.ua privmsg $soccer.chan 1,8 $token(%.//bt,1,32) 3 $token(%.//bt,2-,32) 1,3 LiG 8 $tit(1) 0 MBS 8 $tit(2) 0 1 8 $tit(3) 0 0 8 $tit(4) 0 2 8 $tit(5) 0 ALTI 8 $tit(6) 0 ÜSTÜ 8 $tit(7) 0 1 8 $tit(8) 0 0 8 $tit(9) 0 2 8 $tit(10) 0 1-0 8 $tit(11) 0 1-2 8 $tit(12) 0 0-2 8 $tit(13)
write i-bulten.ua sock.ua privmsg $soccer.chan 1,3 $token(%.//bt,1,32) 8 $_tr($token(%.//bt,2-,32)) 3,8 LiG 5 $tit(1) 3 MBS 1 $tit(2) 14MS3 1 1 $tit(3) 3 0 1 $tit(4) 3 2 1 $tit(5) 3 ALTI 1 $tit(6) 3 ÜSTÜ 1 $tit(7) 14İY3 1 1 $tit(8) 3 0 1 $tit(9) 3 2 1 $tit(10) 14ÇŞ3 1-0 1 $tit(11) 3 1-2 1 $tit(12) 3 0-2 1 $tit(13)
unset %.//b*
}
if (<div style="margin-left:6px; margin-top:10px; width:810px; text-align:justify"> isin %uA) {
var %b $lines(i-bulten.ua)
if %b == 0 { sock.ua privmsg $soccer.chan 15,3 »º» 8İddaa Bülteninde Maç Bulunamadı.15 «º« | return }
else sock.ua privmsg $soccer.chan 10Toplam 2 %b 10Satır Yansıtılacak.Tahmini Gösterme Süresi14 $calc(%b / $calc(1000 / $soccerzaman)) 10saniye dir. | .play -s i-bulten.ua $soccerzaman
}
}
if $sockname == soccer~i-favori {
if (<td height="23" width="40" style='font-size:14px;font-weight:bold;color:#1f601f;'> isin %uA) { set -e %;://id.fav.kod $_tr($htmlfree(%uA)) }
if (<td style='font-size:13px;' width="280"> isin %ua) { set -e %;://id.fav.takim $_tr($htmlfree(%uA)) }
if (<td width="60"><font style="color:#1f601f;font-size:14px;font-weight:bold;"> isin %uA) { sock.ua privmsg $soccer.chan 0,3 %;://id.fav.kod 8 %;://id.fav.takim 1 $htmlfree(%uA) | unset %;://id.fav.* }
}
if $sockname == soccer~i-istatistik {
if (*<b>*</b>* iswm %ua) { set -e %//:i.ist.kod $htmlfree(%uA) }
if (<a class='iddaa-rows-style' isin %uA) { write i-istatistik.ua sock.ua privmsg $soccer.chan 1,10 %//:i.ist.kod 0 $_tr($htmlfree(%uA)) }
if (<div class="upper-rate"> isin %uA) { set -e %//:i.ist.oran $instok(%//:i.ist.oran,$iif($htmlfree(%uA) != $null,$v1,-),0,11) }
if (<div class="bottom-rate"> isin %uA) { set -e %//:i.ist.yuzde $instok(%//:i.ist.yuzde,$htmlfree(%uA),0,11) }
if !$regex(%uA,(<|>|[a-z-A-Z])|;) && $regex(%uA,[0-9]) { set -e %//:i.ist.toplam $instok(%//:i.ist.toplam,$htmlfree(%uA),0,11) }
if $regex(%uA,</td>) && ($token(%//:i.ist.toplam,0,11) >= 2) {
write i-istatistik.ua sock.ua privmsg $soccer.chan 5,1 MS-1 $ist.o(1) $ist.y(1) MS-X $ist.o(2) $ist.y(2) MS-2 $ist.o(3) $ist.y(3) ALT $ist.o(4) $ist.y(4) ÜST $ist.o(5) $ist.y(5) KG VAr $ist.o(6) $ist.y(6) KG YOK $ist.o(7) $ist.y(7) 1,14 Toplam 0 $token(%//:i.ist.toplam,1,11) 1 M-K% 0 $token(%//:i.ist.toplam,2,11)
write i-istatistik.ua sock.ua privmsg $soccer.chan -
unset %//:i.ist.*
}
if (<div class="footer-right-title"> isin %uA) {
var %s $lines(i-istatistik.ua)
if %s == 0 { sock.ua privmsg $soccer.chan 15,3 »º» 8İddaa Bülteninde Maç Bulunamadı.15 «º« | return }
else sock.ua privmsg $soccer.chan 10Toplam 2 %s 10Satır Yansıtılacak.Tahmini Gösterme Süresi14 $calc(%s / $calc(1000 / $soccerzaman)) 10saniye dir. | .play -s i-istatistik.ua $soccerzaman
}
}
}
;Canli Skorlar Güncelleme
alias mycanli sockclose mycanli | sockopen mycanli spor.mynet.com 80
on *:sockopen:mycanli: {
sockwrite -n $sockname GET /iddaa HTTP/1.1
sockwrite -n $sockname host: spor.mynet.com $+ $crlf $+ $crlf
sockwrite -n $sockname $crlf
}
on *:sockread:mycanli:{
var %al | sockread %al
if ($sockerr) { echo -s Skorlar alınırken hata oluştu. | return }
if $regex(%al,<div class="number">[0-9]{3}</div>) {
set -e %^:^m.skoral on
set -e %^:^m.kod $htmlfree(%al)
}
if %^:^m.skoral == on {
if (*<span>*</span> iswm %al) && (<div class="away"> !isin %al) { set -e %^:^m.takim1 10 $_tr($htmlfree(%al)) }
if (*<div class="away"><span>*</span>* iswm %al) { set -e %^:^m.takim2 10 $_tr($htmlfree(%al)) }
if (*<a href="/iddaa/canli-sonuclar/* iswm %al) { set -e %^:^m.skor 0 $htmlfree(%al) | inc %^:^m.aldi }
if (<span class="live"> isin %al) {
if !$hfind(macveri,$+(%^:^m.takim1,.,%^:^m.takim2,.,%^:^m.skor),1,W).data {
hadd -m macveri %^:^m.kod $+(%^:^m.takim1,.,%^:^m.takim2,.,%^:^m.skor)
sock.ua privmsg $soccer.chan 3,1 MaçKodu:7 %^:^m.kod 3Dakika:4 $htmlfree(%al) %^:^m.takim1 %^:^m.skor %^:^m.takim2
}
}
if (<div class="row"> isin %al) { unset %^:^m.* }
}
if (powered by isin %al) { sockclose $sockname | unset %%^:^m.* }
}
;---------\
;EVENTS >
;---------/
on *:start: {
echo -as *** $soccerfullname
echo -as ***
echo -as *** $soccerlogo
echo -as ***
echo -as *** 2 Written: By uMuT(Med Cezir)
echo -as ***
echo -as *** 3/soccerbot1 Komutuyla Bağlanır Servera.
}
on *:load:{
echo -as /*** Yükleme İşlemi Başarıyla Gerçekleştirildi.
echo -as /*** Ayarlarınızı Yaptıktan Sonra Botu Kullanabilirsiniz.
echo -as /***
echo -as /***
echo -as /*** Önemli Uyarı:
echo -as /*** 4 1- Botun çalışma mantığı tamamen kaynak sitelere socket mantığıyla bağlanarak, veri çekmek şeklindedir.
echo -as /*** Verilerin alındığı sitelerde meydana gelen değişikliklerden veya editörlerin yerine getirmediği bir işlem den Bot yapımcısına bir mesuliyet yüklenemez.
echo -as /*** 4 2- Soccer Bot un sunmuş olduğu tüm sayısal veriler, istatistikler ve tahminler sadece bilgilendirme amaçlıdır.
echo -as /*** Yer alan bilgiler ve doğrulukları tarafımca garanti edilmemekte olup, bu bilgiler belli bir getirinin sağlanmasına yönelik olarak verilmemektedir.
echo -as /*** Bu nedenle yer alan bilgilerdeki hatalardan, eksikliklerden ya da bu bilgilere dayanılarak yapılan işlemlerden doğacak her türlü maddi/manevi zararlardan
echo -as /*** Her ne şekilde olursa olsun üçüncü kişilerin uğrayabileceği her türlü zararlardan dolayı Bot Yapımcısı sorumlu tutulamaz.
}
|
