; Iddaa Tahminleri By Sentius(Bekir ASLAN) 
; www.kolaymirc.org '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 Sentius 
on *:SockRead:tiddaa*:{ 
var %a 
sockread %a 
if ( isin %a) && (iddaa tahminleri isin %a) { set %tarih $htmlfree(%a) } 
if (%yas) && (Oyna !isin %a) && (
 
 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