Kod: Kodu kopyalamak için üzerine çift tıklayın!
if $2 = privmsg && *#sohbetli* iswm $3 {
if $istok(irc.SohbetLi.Org chanserv OperServ SohbetLi-DUYURU Eglence Nickserv SohbetLi Nomercy,$gettok($remove($1,:),1,33),32) { return }
if !geveze* iswm $4- { top10 | goto t0p10 }
elseif !$read(puan/sohbet.txt,w,$+(*,$5,*)) { sockwrite -nt nomercy privmsg #SohbetLi $3 $5 puan listesinde yok }
; elseif ($2 == $me) { goto t0p10 }
elseif ($5 == $gettok($remove($1,:),1,33) && $read(puan/sohbet.txt,w,$+(*,$5,*))) { sockwrite -nt nomercy privmsg #SohbetLi $3 $read(puan/sohbet.txt,$readn) puanı var | goto t0p10 }
}
değiştirilmesi gereken yerlerleri değiştirdim sanırım bu puan sistemi !puan nick şeklinde çalışıyor. eğer öyle ise bu şekilde çalışması lazım(kodu denemedim). tek yapman gereken botun if $2 == Privmsg yazan kısmını bulup, hemen üstüne yukarıdaki yamayı yapıştırmak, aşağıdaki alias'ları da bence alias kısmına yapıştır.
Not: sock sistemde $me çalışmadığı için pasifleştirdim eğer aktif olmasını istiyorsan ; karakterini silip, $2 == $me yazan yeri de
$5 == botun ismini yazmalısın.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias renkle { if $istok(1 2 3 ,$1,32) { sockwrite -nt nomercy privmsg #SohbetLi 4 $+ $1 $+ )4 $2 2---> Satır :4 $3 } | else { sockwrite -nt nomercy privmsg #SohbetLi $1 $+ )2 $2 ---> Satır :5 $3 } }
alias top10 {
var %cnk = @dify, %hit = 10, %e = puan/sohbet.txt, %top10 = 1
window -hn %cnk
filter -fwcteu 2 32 %e %cnk
sockwrite -nt nomercy privmsg #SohbetLi 5 ***4 #SohbetLi 2Kanalı Günün Gevezeleri 5 ***
sockwrite -nt nomercy privmsg #SohbetLi 3-
sockwrite -nt nomercy privmsg #SohbetLi 5SohbetLi ORG 3[2NoMercy Puan Sistemi3]
while %top10 <= %hit { renkle %top10 $line(%cnk,%top10) | inc %top10 }
window -c %cnk
}