Mirc’de Rastgele Voice Verme Aliası

[chain]

alias rasgele {
if $nick($active,0) < 3 { echo -a Kanalda üç kişi bile yok ne rasgelesi !!! | halt }
if $me !isop $chan { echo -a $me sen bir op ol ondan sonra voice dağıtırsın :) | halt }
var %rasgele $nick($active,$rand(1,$nick($active,0)))
if %rasgele !isreg $active { halt }
if %rasgele == $me { var %rasgele $nick($active,$rand(1,$nick($active,0))) }
if %rasgele !isreg $active { halt }
mode $active +v %rasgele
.var %sure $rand(99,300)
.timer -h 1 750 msg $active Benden rasgele voice kazandınız: %rasgele :) Voicenizin süresi: %sure saniye
.timer $+ %rasgele 1 %sure if %rasgele ison $active mode $active -v %rasgele $chr(124) if %rasgele ison $active msg $active Rasgele voicenizin süresi doldu: %rasgele
}