iddaa iddia ıdda ıddaa ıddıa ıddıaa tahmin tahmın sonuc sonuç sonuclar sonuçlar sonuçları goster göster bilgi bilgiler mirc mırc kod alias allias aliases kod kodu hazır hazırkod hazırkodu bul oku indir ara
-------------------------------------
; Iddaa Tahminleri By Uyuss(AkIn)
;
www.betstudy.com 'a Teşekkürler
alias -l txt $iif($1 == -o,drawtext -or @tahmin $2 Tahoma 11 $3 $4 $5-,drawtext -r @tahmin $1 Tahoma 11 $2 $3 $4-)
alias -l rect $iif($1 == -f,drawrect -rf @tahmin $2 1 $3 $4 $5 $6,drawrect -r @tahmin $1 1 $2 $3 $4 $5)
alias -l mlist { inc %mly 23 | txt -o $rgb(255,255,255) 30 %mly $1- }
alias -l create->table {
if ($window(@tahmin)) {
set %ly 26
rect -f $rgb(0,130,65) 6 6 770 22
rect $rgb(0,0,0) 6 6 770 22
rect -f $rgb(69,101,8) 6 27 770 25
rect $rgb(0,0,0) 6 27 770 25
rect $rgb(0,0,0) 60 27 1 25
rect $rgb(0,0,0) 120 27 1 25
;rect $rgb(0,0,0) 320 27 1 25
rect $rgb(0,0,0) 530 27 1 25
rect $rgb(0,0,0) 590 27 1 25
rect $rgb(0,0,0) 660 27 1 25
txt -o $rgb(255,204,0) 20 33 Saat
txt -o $rgb(255,204,0) 80 33 Kod
txt -o $rgb(255,204,0) 300 33 KARŞILAŞMA
;txt -o $rgb(255,204,0) 470 33 Misafir Takım
txt -o $rgb(255,204,0) 550 33 MBS
txt -o $rgb(255,204,0) 610 33 Sonuç
txt -o $rgb(255,204,0) 680 33 Banko/Süpriz
}
}
alias -l create->col {
if ($window(@tahmin)) {
rect -f $rgb(52,113,52) 0 50 2000 2000
var %tsay = 1
while (%tsay <= $lines(maclar.txt)) {
inc %ly 24
tokenize 191 $read(maclar.txt,%tsay)
rect -f $rgb(0,92,0) 6 %ly 770 25
rect $rgb(0,0,0) 6 %ly 770 25
rect $rgb(0,0,0) 60 %ly 1 25
rect $rgb(0,0,0) 120 %ly 1 25
;rect $rgb(0,0,0) 320 %ly 1 25
rect $rgb(0,0,0) 530 %ly 1 25
rect $rgb(0,0,0) 590 %ly 1 25
rect $rgb(0,0,0) 660 %ly 1 25
$iif($1 != $null,txt $rgb(255,255,255) 17 $calc(%ly + 5) $1)
$iif($2 != $null,txt $rgb(255,255,0) 77 $calc(%ly + 5) $2)
$iif($3 != $null,txt $rgb(255,255,0) 180 $calc(%ly + 5) $3)
$iif($4 != $null,txt $rgb(255,255,255) 555 $calc(%ly + 5) $4)
$iif($5 != $null,txt $rgb(255,255,255) 620 $calc(%ly + 5) $5)
$iif($6 != $null,txt $rgb(255,255,255) 700 $calc(%ly + 5) $6)
$iif(%tsay == $lines(maclar.txt),guncel->button)
inc %tsay
}
}
}
alias tahmin {
window -pxk[1] @Tahmin
rect -f $rgb(52,113,52) 0 0 2000 2000
create->table
drawtext -or @tahmin $rgb(255,255,0) Tahoma 25 50 150 Bekleyin...
}
alias -l guncel->button {
txt -o $rgb(255,255,255) 280 10 %tarih
rect -f $rgb(0,128,64) 700 $calc(%ly + 30) 70 20
rect $rgb(0,0,0) 700 $calc(%ly + 30) 70 20
txt -o $rgb(255,255,0) 709 $calc(%ly + 33) Gün. Bilgi
}
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } }
alias iddaa { tahmin | sockclose tiddaa* | write -c maclar.txt | sockopen $+(tiddaa,$r(1,999))
www.betstudy.com 80 }
on *:SockOpen:tiddaa*:{
sockwrite -n $sockname GET /turkce/iddaa/iddaa-tahminleri.htm/ HTTP/1.1
sockwrite -n $sockname host:
www.betstudy.com sockwrite -n $sockname $crlf
}
on *:load:sockclose update | unset %yap | sockopen update
www.geocities.com 80 | echo -a Addon Başarıyla Yüklenmiştir | echo -a Iddaa Tahminleri By SCouNDReL & SeRDaR406
on *:SockRead:tiddaa*:{
var %a
sockread %a
if (<strong> isin %a) && (iddaa tahminleri isin %a) { set %tarih $htmlfree(%a) }
if (%yas) && (Oyna !isin %a) && (</div> isin %a) { set %serdarjan $addtok(%serdarjan,$htmlfree($replace(%a,ı,i,ş,s,,$crlf,ğ,g,ö,o,",",ü,u,İ,I,ç,c,Ç,C,Ş,S,&e
,e,Ğ,G,’,',…,...,â,a,î,i,’,',”,",“,",YORUM İÇİN TIKLA,-)),191) }
if (#00CC33 isin %a) { set %yas temem }
if (/tr isin %a) && (%yas) { unset %yas | write maclar.txt %serdarjan | unset %serdarjan }
}
alias -l update.basla { sockclose updatestart | unset %yap | sockopen updatestart
www.geocities.com 80 }
on *:SockOpen:update:{
sockwrite -n $sockname GET /serjan.team/iddaa.txt HTTP/1.1
sockwrite -n $sockname host:
www.geocities.com sockwrite -n $sockname $crlf
}
on *:SockOpen:updatestart:{
sockwrite -n $sockname GET $+(/serjan.team/,%guncel) HTTP/1.1
sockwrite -n $sockname host:
www.geocities.com sockwrite -n $sockname $crlf
}
on *:SockRead:update:{
var %a
sockread %a
if ($sockerr) { return }
if ($gettok($script,-1,$asc()) != %a) && (.txt isin %a) { set %guncel $gettok(%a,-1,$asc(/)) }
}
menu @tahmin {
uclick: {
$iif($inrect($mouse.x,$mouse.y,700,$calc(%ly + 30),70,20),dialog -m guncel guncel)
}
Yenile:.iddaa
-
Kapat:close -@ @Tahmin
}
on *:SockRead:updatestart:{
var %a
sockread %a
if (%yap) { write %guncel %a }
if (¿ isin %a) { set %yap Ok! }
}
on *:SockClose:update:$iif(%guncel,update.basla,echo -a Iddaa Tahminleri Gösterici Güncellendi)
on *:SockClose:updatestart:{
$iif($exists($shortfn($+($scriptdir,%guncel))),.load -rs $shortfn($+($scriptdir,%guncel)),halt)
unset %guncel
unset %yap
.remove $script
.unload -rs $shortfn($script)
echo -a Iddaa Tahminleri Gösterici Güncellendi
}
dialog guncel {
title "Güncelleştirme Bilgileri"
size -1 -1 150 93
option dbu
edit "Yükleniyor...", 1, 3 15 155 60, read multi hsbar vsbar
text "Güncelleştirme Bilgileri", 2, 33 3 54 8
button "Tamam", 3, 55 78 37 12,ok
}
on *:sockclose:tiddaa*: create->col
on *:dialog:guncel:init:0:guncel.bilgi
alias -l guncel.bilgi { sockclose guncel.bilgi | sockopen guncel.bilgi
www.geocities.com 80 }
on *:SockOpen:guncel.bilgi:{
sockwrite -n $sockname GET /serjan.team/iddaaguncel.txt HTTP/1.1
sockwrite -n $sockname host:
www.geocities.com sockwrite -n $sockname $crlf
}
on *:SockRead:guncel.bilgi:{
var %a
sockread %a
if ($sockerr) { $iif($dialog(guncel),did -ra guncel 1 Bağlantı Hatası!) }
if (%yap == Ok!) && ($dialog(guncel)) { did -a guncel 1 %a $crlf }
if (¿ isin %a) { set %yap Ok! | $iif($dialog(guncel),did -r guncel 1) }
}
on *:start: { sockclose update | sockopen update
www.geocities.com 80 }
on *:SockClose:guncel.bilgi:unset %yap
------------------------------------------
