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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - !Puan nick (https://www.ircforumlari.net/mirc-scripting-sorunlari/434733-puan-nick.html)

Kod:

on *:text:*:#Turkiye:{

if $1 == !puan {

if ($2 == list) { top10 | goto t0p10 }

elseif !$read(puan.txt,w,$+(*,$2,*)) { msg $chan $2 puan listesinde yok }

if $2 == $me { msg # $+($nick,:) Benim puanmımı boşver, sen sohbetine bak. | goto t0p10 }

elseif ($2 == $nick && $read(puan.txt,w,$+(*,$2,*))) { msg $chan $read(puan.txt,$readn) puanın var | goto t0p10 }

}

if !$read(puan.txt,w,$+(*,$nick,*)) { write puan.txt $nick 100 | halt } 

else { 

var %dify $readn 

var %yeah = $calc($token($read(puan.txt,%dify),2,32) +1) 

write $+(-l,%dify) puan.txt $nick %yeah 

if %yeah == 1000 { mode $chan +v $nick | msg $chan Tebrikler $nick 1.000 puanın oldu }

}

:t0p10

}

alias top10 {

var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1

window -hn %cnk

filter -fwcteu 2 32 %e %cnk

msg #turkiye 7,17,1 14«15««7 Turkiye Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: 15»»14»

while %top10 <= %hit { msg #turkiye 12 $ord(%top10) $line(%cnk,%top10) | inc %top10 } 

window -c %cnk

}

arkadaşlar bu addon ile kanalda konuşmaya göre puan verilebilir.
ama !puan list yaptıgımda top10 listesini kanal genelinde çıkmıyor bunu kanala msg seklinde nasıl düzenleriz ?

Cevap: !Puan nick

Koddda herhangi bir problem görünmemekte. Doğru eklediğinden emin ol.

Kanal genelinde ;

!puan list yaptığımda..

[18:46] <fdmqo8> !puan list
[18:46] <Murat> ««« Turkiye Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: »»»
[18:46] <Murat> 1st dasdada 2600
[18:46] <Murat> 2nd aayineOcocuk 300
[18:46] <Murat> 3rd syuqf9 200
[18:46] <Murat> 4th fdmqo8 110
[18:46] <Murat> 5th
[18:46] <Murat> 6th
[18:46] <Murat> 7th
[18:46] <Murat> 8th
[18:46] <Murat> 9th
[18:46] <Murat> 10th

[18:45] <fdmqo8> !puan Murat
[18:45] <Murat> Murat puan listesinde yok
[18:45] <Murat> fdmqo8: Benim puanmımı boşver, sen sohbetine bak.

Kod:

on *:text:*:#KANAL:{

  if $1 == !puan {

    if ($2 == list) { top10 | goto t0p10 }

    elseif !$read(puan.txt,w,$+(*,$2,*)) { msg $chan $2 puan listesinde yok }

    if $2 == $me { msg # $+($nick,:) Benim puanmımı boşver, sen sohbetine bak. | goto t0p10 }

    elseif ($2 == $nick && $read(puan.txt,w,$+(*,$2,*))) { msg $chan $read(puan.txt,$readn) puanın var | goto t0p10 }

  }

  if !$read(puan.txt,w,$+(*,$nick,*)) { write puan.txt $nick 100 | halt } 

  else { 

    var %dify $readn 

    var %yeah = $calc($token($read(puan.txt,%dify),2,32) +1) 

    write $+(-l,%dify) puan.txt $nick %yeah 

    if %yeah == 1000 { mode $chan +v $nick | msg $chan Tebrikler $nick 1.000 puanın oldu }

  }

  :t0p10

}

alias top10 {

  var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1

  window -hn %cnk

  filter -fwcteu 2 32 %e %cnk

  msg # 7,17,1 14«15««7 Turkiye Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: 15»»14»

  while %top10 <= %hit { msg # 12 $ord(%top10) $line(%cnk,%top10) | inc %top10 } 

  window -c %cnk

}

Cevap: !Puan nick

bunu butun kanalar için nasil yapabiliriz?

Cevap: !Puan nick

Alıntı:

OperServ Nickli Üyeden Alıntı (Mesaj 1040960320)

bunu butun kanalar için nasil yapabiliriz?

on *:text:*:#KANAL,#kanal1,#kanal2#kanal3:{

sanirim bu sekilde coğaltirsan işini görecektir.

Cevap: !Puan nick

on *:text:*:#KANAL:{ Burdaki Kanal ı Sil Sadece # ßu kaLsın :)
on *:text:*:#:{ << Bu şekilde.

Cevap: !Puan nick

Alıntı:

Lucifer Nickli Üyeden Alıntı (Mesaj 1040954783)

Kod:

on *:text:*:#KANAL:{

  if $1 == !puan {

    if ($2 == list) { top10 | goto t0p10 }

    elseif !$read(puan.txt,w,$+(*,$2,*)) { msg $chan $2 puan listesinde yok }

    if $2 == $me { msg # $+($nick,:) Benim puanmımı boşver, sen sohbetine bak. | goto t0p10 }

    elseif ($2 == $nick && $read(puan.txt,w,$+(*,$2,*))) { msg $chan $read(puan.txt,$readn) puanın var | goto t0p10 }

  }

  if !$read(puan.txt,w,$+(*,$nick,*)) { write puan.txt $nick 100 | halt } 

  else { 

    var %dify $readn 

    var %yeah = $calc($token($read(puan.txt,%dify),2,32) +1) 

    write $+(-l,%dify) puan.txt $nick %yeah 

    if %yeah == 1000 { mode $chan +v $nick | msg $chan Tebrikler $nick 1.000 puanın oldu }

  }

  :t0p10

}

alias top10 {

  var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1

  window -hn %cnk

  filter -fwcteu 2 32 %e %cnk

  msg # 7,17,1 14«15««7 Turkiye Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: 15»»14»

  while %top10 <= %hit { msg # 12 $ord(%top10) $line(%cnk,%top10) | inc %top10 } 

  window -c %cnk

}

peki Alt Alta yerine yanyana yazılsa ve !puan , !puan list'e flood koruması yapılsa mesela 5 dakikada bir user kanalda yazabilse