Help Atama Sistemi ( Bot için )

on 5*:join:#help: { if $nick(#help,0,@) > 3 { .timer 1 1 kontrolet $nick $chan } }
alias kontrolet {
if ($1 != $me) && ($1 !isop $2) && ($1 !ishop $2) && ($1 !ison #helpers) {
if $1 isreg $2 {
var %oper 1
:basla
var %Hero = $nick(#help,$rand(1,$nick(#help,0,@)),@)
var %Kod = $nick(#help,$rand(1,$nick(#help,0,@)),@)
if $istok(muafnick muafnick2 muafnick3 ,%Kod,32) { goto basla }
if $istok(muafnick1 muafnick2 muafnick3 %Kod ,%Hero,32) { goto basla }
while %oper <= $lines(voicelist\operler.txt) {
if $1 == $read(voicelist\operler.txt,%oper) {
msg #helpers 12 $+ $1 4 Oper/Admin girişi yapıldı.!
}
inc %oper
}
msg #helpers 4 HELP KANALI GİRİş UYARISI; 5 $+ $1 , 2 rumuzu yardım bekliyor. 4 Atanan yardım görevlisi: 10 $+(%Kod,.)
msg #helpers 4 10 saniye icerisinde atanan nick yardım vermediği takdirde atanan 5 2. görevli: 10 $+(%Hero,.)
msg #helpers 2 $nickler(#help,0) , 4Atanan yardım görevlisi dışında kimse mudahale etmesin lütfen. | timer 1 1 millet | /flash
}
}
}
alias millet {
var %x = 1
var %y
while %x <= $nick(#helpers,0,@) {
if $istok(muafnick1 muafnick2 muafnick3 ,$nick(#helpers,%x),32) { goto atla }
%y = $addtok(%y,$nick(#helpers,%x),32)
:atla
inc %x }
msg #helpers %y $+ 4Online değilseniz #help kanalından part edin .
}
alias nickler {
var %i = 1, %t = $nick(#help,0)
while (%i <= %t) {
if !$regex($nick(#Help,%i).pnick,~|+) && ($nick(#Helper,%i) !isreg #Help) {
var %nickler $addtok(%nickler,$nick(#Help,%i),32)
}
inc %i
}
return $remove(%nickler,$me,Muafnick,Muafnick,Muafnick)
}