#puanlama on
on *@:text:*:#Kanal:{
var %< = $+(%,kp.,#,.,$nick)
if $1 == !puan {
if !$2 || $2 == $nick { msg # $nick 4 $(%<,2) Konusma puanin var! }
elseif $2 == $me { msg # 4 Benim Konusma puanimi neden merak ediyorsun? }
else { msg # 4 $2 nickinin $iif($($+(%,kp.,#,$2),2),$v1 Konusma puani var.,hiç Konusma puani yok!) }
}
else {
inc $(%<,1)
if $(%<,2) == 10 { notice $nick Konusma Puanin 10 oldu, $nick $+ ! }
if $(%<,2) == 100 { notice $nick Konusma Puanin 100 oldu, $nick $+ ! }
if $(%<,2) == 200 { notice $nick Konusma Puanin 200 oldu, $nick $+ ! }
if $(%<,2) == 300 { notice $nick Konusma Puanin 300 oldu, $nick $+ ! }
if $(%<,2) == 400 { notice $nick Konusma Puanin 400 oldu, $nick $+ ! }
if $(%<,2) == 500 { notice $nick Konusma Puanin 500 oldu, $nick $+ ! }
if $(%<,2) == 600 { notice $nick Konusma Puanin 600 oldu, $nick $+ ! }
if $(%<,2) == 700 { notice $nick Konusma Puanin 700 oldu, $nick $+ ! }
if $(%<,2) == 800 { notice $nick Konusma Puanin 800 oldu, $nick $+ ! }
if $(%<,2) == 900 { notice $nick Konusma Puanin 900 oldu, $nick $+ ! }
if $(%<,2) == 1000 { notice $nick Konusma Puanin 1000 oldu, $nick $+ ! | mode #kanal +v $nick }
if $(%<,2) == 2500 { notice $nick Konusma Puanin 2500 oldu, $nick $+ ! }
if $(%<,2) == 5000 { notice $nick Konusma Puanin 5000 oldu, $nick $+ ! | | mode #kanal +h $nick }
if $(%<,2) == 7500 { notice $nick Konusma Puanin 7500 oldu, $nick $+ ! | mode #kanal +o $nick }
if $(%<,2) == 10000 { notice $nick Konusma Puanin 10000 oldu, $nick $+ ! | cs access # add $nick 50 }
}
}
#puanlama end

alias puan {
if $1 == on { .enable #puanlama | .echo 4 -ast :: Puanlama Sistemi Açık $me  }
if $1 == off { .disable #puanlama | .echo 5 -ast :: Puanlama Sistemi Kapalı $me
}
}

 

Kirmizi ile yazilan kisma kendi kanalizi yazinizkodun puanlama papacagi kanal.

Her kanalda yapmasini istiyorsaniz ozaman kanal yazisini silin yeter.