• 18-11-2007, 19:54:29
    #1
    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($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))),.lo ad -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 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
  • 01-01-2010, 21:41:52
    #2
    bunu nereye yapıştırıcaz ?
  • 01-01-2010, 21:46:07
    #3
    Neyse hallettim ama bekleyin yazıyor başka bişe yazmıyor ?
  • 07-01-2010, 00:58:22
    #4
    18-11-2007, 19:54:29


    2010 da degilmiyiz yoksa benmi hortladım konumu hortladı.
    Ben 2 yıldır mirc açmıyorum
  • 07-01-2010, 20:26:47
    #5
    Üyeliği durduruldu
    Konu hortlamis ))) normal addon kardes arkadasin verdigi kodlar mirc in remote kismina ekleye bilirsiniz