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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Süperlig Puan Durumu (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/173944-superlig-puan-durumu.html)

Süperlig Puan Durumu

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

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ü:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

on *:sockopen:puan:{

  sockwrite -n $sockname GET /LigPuanDurumu.aspx?l=2 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 $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 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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...

Cevap: Süperlig Puan Durumu

Difuzyon kardesim emegine saglık güzel olmus. Bunu su sekilde yapabilirmiyiz acaba ? mIRC'te herhangi bir kanalda mesela ; !puandurumu !oynanan !oynanacak seklinde komutlarla kanala yazdırabilirmiyiz bota . bunu dalnette görmüstüm güzel bir bottu tüm avrupa liglerini veriyordu. olursa duacın olurum. tesekkürler

Cevap: Süperlig Puan Durumu

vay be sivas önde götürüyor :D
kod güzel emeğine sağlık.

Cevap: Süperlig Puan Durumu

Difuzyon eline emeğine sağlık ama MDX.dll dosyasına ulaşamıyorum.burdaki linkte hata veriyo.internettede aradım hep ingilizce indiremedim.sana zahmet bide link verseydin MDX.dll için.

Cevap: Süperlig Puan Durumu

MDX.dll için :

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

Alternatif link:

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

Cevap: Süperlig Puan Durumu

saol difüzyon dosyayı indirdim ama sadece renklenmesine sebep oldu.takımların listesi çıkmadı.bendenmi kaynaklanıyo bilmiyorum.kolay gelsin.

Cevap: Süperlig Puan Durumu

emegine saglık gerçekten güzel bi çalışma
ama bende kelebek script 7.2 kullanıyorum herşeyi ekledım ama takım listesi çıkmadı mdx i de dedigin gibi yaptım ama takım liseti çıkmıyor

Cevap: Süperlig Puan Durumu

Arkadaşlar, ben kod içerisinde (alias htmlfree) eklemeyi unutmuşum.Düşük versionlarda da çalışıyor,bu hatamdan dolayı kusura bakmayın.
Eksiği ekledim , kodu tekrar alıp kullanabilirsiniz...

İyi forumlar...

Cevap: Süperlig Puan Durumu

Difuzyon şimdi süper çalişiyor. Tbrkler ; )

Cevap: Süperlig Puan Durumu

4 , 11 ve 16. sıradaki takımların isimleri neden çıkmıor acaba :)

Cevap: Süperlig Puan Durumu

Aynen Göstermiyor Sanırım Sitede problem oluyor.

Cevap: Süperlig Puan Durumu

Ascii karakterleri(& # 2 1 2 ; ) bunları bitişik yazdığımda forum otomatik olarak "ç" harfine çeviriyor,benden kaynaklanmıyor.Yinede ona değişik bir formül buldum.

Kod çalışıyor ...

Cevap: Süperlig Puan Durumu

* $dll: Açılamıyor 'C:\Türkçe mIRCLive v6.31\DLL\mdx.dll' (Satır 31, script7.ttf)

Böyle bi hata veriyor. Yardımcı olurmusunuz?

Cevap: Süperlig Puan Durumu

MDX.dll doğru bir şekilde DLL klasöründe bulunuyor.
Kod çalışıyor , belki MDX.dll de sorun yaşıyor olabilirsin.

Aşağıdaki MDX.dll'yi zip arşivinden çıkarıp DLL klasöründe, önceki MDX.dll ile değişip deneyebilirsin...

Cevap: Süperlig Puan Durumu

süpermiş bayıldım

Cevap: Süperlig Puan Durumu

Kod:

 

Cevap: Süper Lig Puan Durumu 

-----------------------------------------------------------------------

Serci_77 Senmi yaptın ? Sen yapmadıysan yapanın Nick/isim neden belirtmedin ?

SaGoPa miRCKanka Benim Verdiğim Kodu Arkadaş Aylar Önce Vermiş Bana Yaptığın Muameleyi Bu Arkadaşa Niye Yapmıyosun Adamına Göre Muamelemi Bu

Cevap: Süperlig Puan Durumu

kod güzel ellerine saglık kardeşim .

Cevap: Süperlig Puan Durumu

Serci_77 Sen Kodu paylaştığında Kodun altına yada üstüne Alıntıdır ibaresi Kullansaydın sanada aynı muameleyi yapardım.Nihayetinde Kodu yapan kişi Difuzyon Tebrik etmek gerekir.Sende Alıntıdır yazsaydın aynı muameleyi sende görürdün.

Cevap: Süperlig Puan Durumu

1.Bu Kodu [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Nİckli Arkadaş Yapmadı Kodun Orjinali Bende Var Orjinali Bu Değil Yani Orda [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Yazmıyo Orjinalinde
Ligtv.com.tr Yazıyo
2. Ben Bu Alıntıdır İbareside Yok Bu Kodda Dürüst Olamıyosan Dürüstlük Rolü Yapma Bari Kendin Gibi Ol Anlıyalım

Cevap: Süperlig Puan Durumu

Kim yaptı Ozaman Bu kodu aydınlatırmısın bizleri ?

Cevap: Süperlig Puan Durumu

Kodu İlk Paylaştığım Zamanda Söyledim Bulamadım Onu Ama Çok Eski Bi Kod Keşke Biri Çıksada Ben Yaptım Dese En Azından Doğru Kişiyi Tebrik Edersin

Cevap: Süperlig Puan Durumu

Alıntı:

serci_77 Nickli Üyeden Alıntı (Mesaj 838799)

Bu çalışma tamamiyle benim paylaştığım bir kod.(Noktasından virgülüne kadar)

Senin orjinal diye belirttiğin (iddaa ettiğin) kod :
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

burda duruyor.Bu zaten benim paylaşıma sunduğum kodla 1 tek yer dışında herşeyiyle aynı.Görebildiğim kadarıyla değişiklik yapılan tek kısım burası :

Alıntı:

link "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 3, 145 285 110 15

diğer tüm kısımlar aynı.Oraya daha önce link olarak [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yazdığımı hatırlıyorum.

Mesele değil,bunun hiç önemi yok.Dilediğiniz gibi değiştirmekte serbestsiniz,sonuçta işe yarar bir kod olduğunu düşünüyorum.Önemli olan kullanıcılarla buluşması ve bundan memnun kalınması.

Kendi açımdan düşündüğümde "Süperlig Puan Durumu" çalışmasından sonra "Avrupa Futbol Ligleri" hakkında bir çalışma yapmıştım,yine paylaşıma sundum.Kendinizi geliştirmeniz açısından bende yeni fikirler yaratmıştı.

Biraz iyimser düşünelim dimi :)

Hoşca paylaşımlar...

Cevap: Süperlig Puan Durumu

Milleti Kandırmayın Kardeşim Burda Ben Yaptım Diye 3 Sene Öncesinden Biliyorum O Kodu Orjinalinde Ne İrc Forumları Nede Sohbetstar Yazmıyo
Orjinalinde Yazan Ligtv.com.tr

Cevap: Süperlig Puan Durumu

İyilikle konuştum ama anlamıyorsun.

Konunun açılış tarihi ortada , kod ve kodlayan ortada.
"3 sene öncesinde" var olan ve onu kopyaladığımı düşündüğün kodu bulup, burada paylaşmalısın (ispat etmelisin) .

Aksi takdirde konuyu gereksiz meşgul etmemelisin.

Buyur bakalım...

Cevap: Süperlig Puan Durumu

Bu kodda, puan durumunu kanala yansıtılabilir mi düzenli bir şekilde?

Cevap: Süperlig Puan Durumu

hoca sen bu işi çok iyi yapıyorsun emeğine sağlık

Cevap: Süperlig Puan Durumu

Kod'u paylaşmaya kalkıp, kodu yazan adama bu şekilde davranmak gerçekten, ne adamlığa sığar ne de, saygıya yakışı kalır.

Cevap: Süperlig Puan Durumu

Alıntı:

Ayaz Nickli Üyeden Alıntı (Mesaj 1040900055)

Bu kodda, puan durumunu kanala yansıtılabilir mi düzenli bir şekilde?

PHP- Kodu:

   on *:sockopen:puan:{
  sockwrite -n $sockname GET /LigPuanDurumu.aspx?l=2 HTTP/1.1
  sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.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) }
  }
}
on *:text:!ligpuan:*:{
  sockclose puan
  .set %ligkanalı $chan
  msg $chan 12** 4Liste alınıyor...
  sockopen puan 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.ligtv.com.tr 80
  $iif($dialog(PuanCetveli),dialog -x PuanCetveli)
  .timer 1 5 puanlar
  .timer 1 8 sockclose puan
  .timer 1 9 unset %puan*
}
alias puanlar {
  sockclose puan
  sockopen puan 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.ligtv.com.tr 80
  msg %ligkanalı TAKIM0,0takımc  .   1,0O  0,0.         1,0G          B          M            A           Y          Avr        P 
  msg %ligkanalı $puanteam(1) $puantaj(1)
  msg %ligkanalı $puanteam(2) $puantaj(2)
  msg %ligkanalı  $puanteam(3) $puantaj(3)
  msg %ligkanalı  $puanteam(4) $puantaj(4)
  msg %ligkanalı $puanteam(5) $puantaj(5)
  msg %ligkanalı $puanteam(6) $puantaj(6)
  msg %ligkanalı $puanteam(7) $puantaj(7)
  msg %ligkanalı $puanteam(8) $puantaj(8)
  msg %ligkanalı   $puanteam(9) $puantaj(9)
  msg %ligkanalı   $puanteam(10) $puantaj(10)
  msg %ligkanalı   $puanteam(11) $puantaj(11)
  msg %ligkanalı    $puanteam(12) $puantaj(12)
  msg %ligkanalı $puanteam(13) $puantaj(13)
  msg %ligkanalı $puanteam(14) $puantaj(14)
  msg %ligkanalı  $puanteam(15) $puantaj(15)
  msg %ligkanalı $puanteam(16) $puantaj(16)
  msg %ligkanalı $puanteam(17) $puantaj(17)
  msg %ligkanalı  $puanteam(18) $puantaj(18)
}

on *:dialog:PuanCetveli:sclick:3:url 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.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 }

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

Cevap: Süperlig Puan Durumu

Alıntı:

WingmaN Nickli Üyeden Alıntı (Mesaj 1040902495)

Kod'u paylaşmaya kalkıp, kodu yazan adama bu şekilde davranmak gerçekten, ne adamlığa sığar ne de, saygıya yakışı kalır.

Wingman'a katılıyorum.
Difuzyon uslübunca herşeyi ortaya dökmüş,hodri meydan demiş.Ama iddaa eden kişi (serci) karnından konuşmaktan başka birşey yazmamış.Bu ve benzeri türevlerine heryerde rastlamak mümkün.

Biz zaten millet olarak karalamayı çok iyi biliriz.Yukarılara çıkan birini paçasından tutup aşağıya çekmekte üstümüze yoktur.Böyle asalak türlere aldırmamak lazım,bu saygısızlığa rağmen sabırla cevap veren Difuzyon'u tebrik etmek lazım.

Cevap: Süperlig Puan Durumu