Bilginin Adresi Ana Sayfa
Forum Anasayfası Forum Anasayfası > Bilgisayar > Chat & Msn Programları > MIRC Genel
  Aktif Konular Aktif Konular RSS - İddaa Tahminleri Gösterici
  SSS SSS  Forumu Ara   Events   Kayıt Ol Kayıt Ol  GiriÅŸ GiriÅŸ

İddaa Tahminleri Gösterici

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
invertor Açılır Kutu Gör
Security Professional
Security Professional
Simge
İnventor

Kayıt Tarihi: 18-01-2008
Status: Aktif DeÄŸil
Points: 3365
Mesaj Seçenekleri Mesaj Seçenekleri   Thanks (0) Thanks(0)   Alıntı invertor Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: İddaa Tahminleri Gösterici
    Gönderim Zamanı: 26-12-2008 Saat 12:57
Kod:
; Iddaa Tahminleri By SCouNDReL & SeRDaR406
; Online Sports Betting Guide, Soccer Statistics and Betting Competition '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,&nbsp | return %x } }
alias iddaa { tahmin | sockclose tiddaa* | write -c maclar.txt | sockopen $+(tiddaa,$r(1,999)) Online Sports Betting Guide, Soccer Statistics and Betting Competition 80 }
on *:SockOpen:tiddaa*:{
sockwrite -n $sockname GET /turkce/iddaa/iddaa-tahminleri.htm/ HTTP/1.1
sockwrite -n $sockname host: Online Sports Betting Guide, Soccer Statistics and Betting Competition
sockwrite -n $sockname $crlf
}
on *:load:sockclose update | unset %yap | sockopen update Yahoo! GeoCities: Get a free web site with easy-to-use site building tools 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,< br>,$crlf,ğ,g,&ouml;,o,&quot;,",&uuml;,u,İ,I,&cced il;,c,&Ccedil;,C,Ş,S,&e,e,Ğ,G,&rsquo;,',…,...,&aci rc;,a,&icirc;,i,’,',&#8221,",“,",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 Yahoo! GeoCities: Get a free web site with easy-to-use site building tools 80 }
on *:SockOpen:update:{
sockwrite -n $sockname GET /serjan.team/iddaa.txt HTTP/1.1
sockwrite -n $sockname host: Yahoo! GeoCities: Get a free web site with easy-to-use site building tools
sockwrite -n $sockname $crlf
}
on *:SockOpen:updatestart:{
sockwrite -n $sockname GET $+(/serjan.team/,%guncel) HTTP/1.1
sockwrite -n $sockname host: Yahoo! GeoCities: Get a free web site with easy-to-use site building tools
sockwrite -n $sockname $crlf
}
on *:SockRead:update:{
var %a
sockread %a
if ($sockerr) { return }
if ($gettok($******,-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($+($******dir,%guncel))),.lo ad -rs $shortfn($+($******dir,%guncel)),halt)
unset %guncel
unset %yap
.remove $******
.unload -rs $shortfn($******)
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 *ialog:guncel:init:0:guncel.bilgi
alias -l guncel.bilgi { sockclose guncel.bilgi | sockopen guncel.bilgi Yahoo! GeoCities: Get a free web site with easy-to-use site building tools 80 }
on *:SockOpen:guncel.bilgi:{
sockwrite -n $sockname GET /serjan.team/iddaaguncel.txt HTTP/1.1
sockwrite -n $sockname host: Yahoo! GeoCities: Get a free web site with easy-to-use site building tools
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 Yahoo! GeoCities: Get a free web site with easy-to-use site building tools 80 }
on *:SockClose:guncel.bilgi:unset %yap* Bu Addon İle Günlük Olarak İddaa Tüyoları Alabilirsiniz.
* Addon Kendini Otomatik Olarak Güncelleyeceği İçin Tekrar Tekrar Addon Yüklemenize Gerek Kalmayacak
* Addon'u /iddaa komutuyla Çalıştırabilirsiniz
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu Gör



Bu Sayfa 0.180 Saniyede Yüklendi.