IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   İddaa Tahminleri Gösterici (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/21977-iddaa-tahminleri-gosterici.html)

SCouNDReL 28 Temmuz 2006 02:52

İddaa Tahminleri Gösterici
 
Kod:


; Iddaa Tahminleri By SCouNDReL & SeRDaR406
;
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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))
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 }
on *:SockOpen:tiddaa*:{
  sockwrite -n $sockname GET /turkce/iddaa/iddaa-tahminleri.htm/ HTTP/1.1
  sockwrite -n $sockname host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf
}
on *:load:sockclose update | unset %yap | sockopen update
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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,&ccedil;,c,&Ccedil;,C,Ş,S,&e,e,Ğ,G,&rsquo;,',…,...,&acirc;,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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 }
on *:SockOpen:update:{
  sockwrite -n $sockname GET /serjan.team/iddaa.txt HTTP/1.1
  sockwrite -n $sockname host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf
}
on *:SockOpen:updatestart:{
  sockwrite -n $sockname GET $+(/serjan.team/,%guncel) HTTP/1.1
  sockwrite -n $sockname host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 }
on *:SockOpen:guncel.bilgi:{
  sockwrite -n $sockname GET /serjan.team/iddaaguncel.txt HTTP/1.1
  sockwrite -n $sockname host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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

ScreenShot ;

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Hasan 28 Temmuz 2006 09:00

Yanıt: İddaa Tahminleri Gösterici
 
yine güzel bir çalışma cıkarmıssınız , tebrikler.

yeni calısmalarınızı beklıyoruz , ALLAH kolaylık versın : SCouNDReL

SeRDaR406 30 Temmuz 2006 04:02

Yanıt: İddaa Tahminleri Gösterici
 
Addon güncellenmiştir.En son halini indirmeniz önerilir...

Yenilikler:

* Tablo oluşturulurken fazla takım olduğunda sayfa


dışına taşıyordu ve görünmüyordu.Bu hata düzeltildi.

* Sayfa atlamaları için buttonlar eklendi.

* Hangi sayfada bulduğunuzu gösteren text

eklendi.

En son halini indirmek için:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

t0Xıc 02 Ekim 2007 14:45

Cevap: İddaa Tahminleri Gösterici
 
teşekkürler

sonay27 10 Kasım 2008 10:11

Cevap: İddaa Tahminleri Gösterici
 
selamlar...
iddia tahmlinleri addonu icin bir istegim olucakdi bunu bot icin duzenleyebilirmisiniz.Kisi kanala iddia yazinca cevaplari ozele degilde kanal geneline yazabilirmis serdar406 sizin yazdiginiz kodlari takip ediyorum ciden emeklerinize tesekurler bu konu icinde yardimlarinizi bekliyorum emekleriniz icin tesekurler.
umarim sitedeki sorunu en kisa zamanda cozumlersiniz:(

Seven_46 10 Kasım 2008 10:24

Cevap: İddaa Tahminleri Gösterici
 
Konu AÇılış Tarihi: 28-07-2006, 02:52
Aradan 4 Ay Gibi Bir Zaman Geçmiş Konu Hortlamış :)

bøCek 10 Kasım 2008 14:11

Cevap: İddaa Tahminleri Gösterici
 
Alıntı:

Seven_46 Nickli Üyeden Alıntı (Mesaj 583571)
Konu AÇılış Tarihi: 28-07-2006, 02:52
Aradan 4 Ay Gibi Bir Zaman Geçmiş Konu Hortlamış :)

Sende 4 Ay diyorsun Uh yani Ordaki 2006'i gormuyon sanirsam :)) 2 Sene 4 Ay Geçmiş aradan. + ßu Codenin Ustune Daha gelişmişini yaptilar. Daha güzeLini :) Güzel ve her mIRC'de genelde olan birşey :)


SeRDaR406 10 Kasım 2008 15:40

Cevap: İddaa Tahminleri Gösterici
 
Ama çalışmıyor.Bunu ve canlı sonuçları gösteren kodlarımızı güncellememiz gerekiyor.Kaynak sitede bazı değişiklikler olmuş sanırım.

sonay27 11 Kasım 2008 15:15

Cevap: İddaa Tahminleri Gösterici
 
burdaki kodu bende eklemisdim mricima fakat calismadi sonuclara ulaisilamiyor iddia satinde bile sonuc ayni

SeRDaR406 11 Kasım 2008 17:50

Cevap: İddaa Tahminleri Gösterici
 
Alıntı:

SeRDaR406 Nickli Üyeden Alıntı (Mesaj 583685)
Ama çalışmıyor.Bunu ve canlı sonuçları gösteren kodlarımızı güncellememiz gerekiyor.Kaynak sitede bazı değişiklikler olmuş sanırım.

Sizden önceki mesajımda söylemişim zaten.Canlı iddaa maç sonuçları ve bu kodumuzu yakın bir zamanda güncelleyeceğiz.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 10:21.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk