S.a Arkadslar Çok Ugrastım ama Beceremedım Aşagıdakı Kodu Sockete Çevirmek istiyorum sürekli hata verdi Coder arkadaslarımız yardımcı olursa cok sevınırım tşkler simdiden kolay gelsın..
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias renkle { if $istok(1 2 3 ,$1,32) { msg #SohbetLi 4 $+ $1 $+ )4 $2 2---> Satır :4 $3 } | else { msg #SohbetLi $1 $+ )2 $2 ---> Satır :5 $3 } }
on *:text:*:#SohbetLi:{
if $istok(irc.SohbetLi.Org chanserv OperServ SohbetLi-DUYURU Eglence Nickserv SohbetLi Nomercy,$nick,32) { return }
if !geveze* iswm $1- { { top10 | goto t0p10 }
elseif !$read(puan/sohbet.txt,w,$+(*,$2,*)) { msg #SohbetLi $chan $2 puan listesinde yok }
elseif ($2 == $me) { msg #SohbetLi | goto t0p10 }
elseif ($2 == $nick && $read(puan/sohbet.txt,w,$+(*,$2,*))) { msg #SohbetLi $chan $read(puan/sohbet.txt,$readn) puanı var | goto t0p10 }
}
alias top10 {
var %cnk = @dify, %hit = 10, %e = puan/sohbet.txt, %top10 = 1
window -hn %cnk
filter -fwcteu 2 32 %e %cnk
msg #SohbetLi 5 ***4 #SohbetLi 2Kanalı Günün Gevezeleri 5 ***
msg #SohbetLi 3-
msg #SohbetLi 5SohbetLi ORG 3[2NoMercy Puan Sistemi3]
while %top10 <= %hit { renkle %top10 $line(%cnk,%top10) | inc %top10 }
window -c %cnk
}