Kahkaha

Bayıldım

Cool

Kızgın

Mahcup

Öğretici

Şaşkın

Suskun

Tatlı

Üzgün

Süper

Süperlig Puan Durumu

Ana Sayfa » internet » IRC » Süperlig Puan Durumu
Süperlig Puan Durumu

Kaynak: www.ligtv.com.tr

Hayatımızın önemli bir yerini teşkil eden Futbolda gözlerimiz sürekli puan durumunu arar.mIRC’de de artık bunu görebileceğiz.TURKCELL Süper Lig Puan Durumu’nu tablo halinde gösteren kodda MDX.dll kullanımı sayesinde biraz daha göze hoş gelmesini sağlamaya çalıştım.

Şayet mIRC’inizde MDX.dll yoksa ” DLL/Stüdyo/Tema vs vs ” bölümünde mevcut.Ordan indirip mIRC’inizin ana klasöründe DDL isminde bir klasör açıp MDX.dll ‘yi o klasöre eklemesiniz.

Görüntü:

 

Kod:
on *:sockopen:puan:{
  sockwrite -n $sockname GET /LigPuanDurumu.aspx?l=2 HTTP/1.1
  sockwrite -n $sockname Host: www.ligtv.com.tr $+ $crlf $+ $crlf
  sockwrite -n $sockname $clrf
}
on *:sockread:puan:{
  if ($sockerr) { echo 4 -a Veri alımında Hata oluştu... | halt }
  else {   
    var %difi 
    sockread %difi 
    if (*LblSiraNo* iswm %difi) { %puans = $addtok(%puans ~,$htmlfree(%difi),126) }
    if (*PuanTablosu_ctl*LinkTakim* iswm %difi) { %puant = $addtok(%puant,$replace($htmlfree(%difi),Å?,ş,$+($chr(38),#231,$chr(59)),ç,Ä°,İ,$+($chr(38),#252,$chr(59)),ü,Ä?,ğ,Ş,Ş),126) }
    if (*LblOynadigi* iswm %difi) { %puano = $addtok(%puano ~,$htmlfree(%difi),126) }
    if (*LblGalibiyet* iswm %difi) { %puang = $addtok(%puang ~,$htmlfree(%difi),126) }
    if (*LblBeraberlik* iswm %difi) { %puanb = $addtok(%puanb ~,$htmlfree(%difi),126) }
    if (*LblMalubiyet* iswm %difi) { %puanm = $addtok(%puanm ~,$htmlfree(%difi),126) }
    if (*LblAttigi* iswm %difi) { %puana = $addtok(%puana ~,$htmlfree(%difi),126) }
    if (*LblYedigi* iswm %difi) { %puany = $addtok(%puany ~,$htmlfree(%difi),126) }
    if (*LblAveraj* iswm %difi) { %puanavr = $addtok(%puanavr ~,$htmlfree(%difi),126) }
    if (*PuanTablosu_*LblPuan* iswm %difi) { %puanp = $addtok(%puanp ~,$htmlfree(%difi),126) }
  }
}
alias ligpuan {
  echo -a 12** 4Liste alınıyor...
  sockopen puan www.ligtv.com.tr 80
  $iif($dialog(PuanCetveli),dialog -x PuanCetveli)
  .timer 1 4 puancetveli
  .timer 1 5 sockclose puan
  .timer 1 7 unset %puan*
}
alias mdx { return $dll(DLL\mdx.dll,$1,$2-) }
alias puancetveli { dialog -md PuanCetveli PuanCetveli }
dialog PuanCetveli {
  title "Süper Lig Puan Cetveli"
  size -1 -1 405 305 
  text "" 4, 10 37 90 20
  text "" 5, 10 50 90 20
  text "" 6, 10 63 90 20
  text "" 7, 10 76 90 20
  text "" 8, 10 89 90 20
  text "" 9, 10 102 90 20
  text "" 10, 10 115 90 20
  text "" 11, 10 128 90 20
  text "" 12, 10 141 90 20
  text "" 13, 10 154 90 20
  text "" 14, 10 167 90 20
  text "" 15, 10 180 90 20
  text "" 16, 10 193 90 20
  text "" 17, 10 206 90 20
  text "" 18, 10 219 90 20
  text "" 19, 10 232 90 20
  text "" 20, 10 245 90 20
  text "" 21, 10 258 90 20
  text "" 22, 100 37 294 20
  text "" 23, 100 50 294 20
  text "" 24, 100 63 294 20
  text "" 25, 100 76 294 20
  text "" 26, 100 89 294 20
  text "" 27, 100 102 294 20
  text "" 28, 100 115 294 20
  text "" 29, 100 128 294 20
  text "" 30, 100 141 294 20
  text "" 31, 100 154 294 20
  text "" 32, 100 167 294 20
  text "" 33, 100 180 294 20
  text "" 34, 100 193 294 20
  text "" 35, 100 206 294 20
  text "" 36, 100 219 294 20
  text "" 37, 100 232 294 20
  text "" 38, 100 245 294 20
  text "" 39, 100 258 294 20
  box "     TAKIM            O           G          B          M            A           Y          Avr        P ", 2, 9 23 388 256 
  link "www.IRCForumlari.net", 3, 145 285 110 15
}
on *:dialog:PuanCetveli:init:*: {
  mdx SetMircVersion $version 
  mdx MarkDialog $dname 
  mdx SetDialog $dname bgcolor $rgb(230,230,50) 
  mdx SetColor $dname 2 background $rgb(30,230,220) 
  mdx SetColor $dname 8,9,10,11,12,13,14,15,16,17,18,24,25,26,27,28,29,30,31,32,33,34,35,36 text $rgb(188,85,0) 
  mdx SetColor $dname 4,5,22,23 text $rgb(0,120,255)
  mdx SetColor $dname 6,7,24,25 text $rgb(250,20,180)
  mdx SetColor $dname 19,20,21,37,38,39 text $rgb(255,0,0) 
  mdx SetFont $dname 2 +b Turkish 12 750 Arial
  did -a PuanCetveli 4 $puanteam(1)
  did -a PuanCetveli 22 $puantaj(1)
  did -a PuanCetveli 5 $puanteam(2)
  did -a PuanCetveli 23 $puantaj(2)
  did -a PuanCetveli 6 $puanteam(3)
  did -a PuanCetveli 24 $puantaj(3)
  did -a PuanCetveli 7 $puanteam(4)
  did -a PuanCetveli 25 $puantaj(4)
  did -a PuanCetveli 8 $puanteam(5)
  did -a PuanCetveli 26 $puantaj(5)
  did -a PuanCetveli 9 $puanteam(6)
  did -a PuanCetveli 27 $puantaj(6)
  did -a PuanCetveli 10 $puanteam(7)
  did -a PuanCetveli 28 $puantaj(7)
  did -a PuanCetveli 11 $puanteam(8)
  did -a PuanCetveli 29 $puantaj(8)
  did -a PuanCetveli 12 $puanteam(9)
  did -a PuanCetveli 30 $puantaj(9)
  did -a PuanCetveli 13 $puanteam(10)
  did -a PuanCetveli 31 $puantaj(10)
  did -a PuanCetveli 14 $puanteam(11)
  did -a PuanCetveli 32 $puantaj(11)
  did -a PuanCetveli 15 $puanteam(12)
  did -a PuanCetveli 33 $puantaj(12)
  did -a PuanCetveli 16 $puanteam(13)
  did -a PuanCetveli 34 $puantaj(13)
  did -a PuanCetveli 17 $puanteam(14)
  did -a PuanCetveli 35 $puantaj(14)
  did -a PuanCetveli 18 $puanteam(15)
  did -a PuanCetveli 36 $puantaj(15)
  did -a PuanCetveli 19 $puanteam(16)
  did -a PuanCetveli 37 $puantaj(16)
  did -a PuanCetveli 20 $puanteam(17)
  did -a PuanCetveli 38 $puantaj(17)
  did -a PuanCetveli 21 $puanteam(18)
  did -a PuanCetveli 39 $puantaj(18)
}
on *:dialog:PuanCetveli:sclick:3:url www.ircforumlari.net 
alias puantaj {
  return  $+($token(%puano,$1,126),$chr(9),$token(%puang,$1,126),$chr(9),$token(%puanb,$1,126),$chr(9),$token(%puanm,$1,126),$chr(9),$token(%puana,$1,126),$chr(9),$token(%puany,$1,126),$chr(9),$token(%puanavr,$1,126),$chr(9),$token(%puanp,$1,126))
}
alias puanteam {
  return $+($remove($token(%puans,$1,126),$chr(32)),.) $token(%puant,$1,126)
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}

Kodu remote kısmına ekliyorsunuz.
Kullanımı : /ligpuan

İşinize yaraması dileğiyle , hoşca paylaşımlar

Süperlig Puan Durumu - Yorumlar

YORUMLARINIZI PAYLAŞIN

 

Yapılan Yorumlar

BENZER İÇERİKLERİlginizi çekebilecek diğer içerikler

irc invex komutu

irc invex komutu 17 Ocak 2011

irc notify kullanımı

irc notify kullanımı 17 Ocak 2011

SOSYAL MEDYADA BİZSitemizin sosyal medya hesapları

RASTGELE İÇERİKLER

Web Sohbet Güncellendi Çocuklarda oyun ve spor Cennette Huriler Varmış Kara Gözlü Çekçantaca Aşk ve Dost Saç dökülmesini önlemek için ne yapmalıyız? ZEYNEP BENİ BEKLE

FACEBOOK'TA BİZ

Hoşgeldiniz

kelebek.gen.tr – kelebek mirc - Tüm Hakları Saklıdır