on !*:join:#help
on !*:join:#help: { if $nick(#helpteam,0,@) > 2 { .timer 1 1 kontrolet $nick $chan } }
alias kontrolet {
  if $1 isreg $2 {
    :basla
    var %n = $nick(#helpteam,$rand(1,$nick(#helpteam,0,@)),@)
    if $istok(muafnick muafnick ,%n,32) { goto basla }
    msg #helpteam $1 rumuzu yardım bekliyor. Atanan helper:4 $+(%n,.) | timer 1 1 millet 
  }
}
alias millet {
  var %x = $nick(#helpteam,0,@)
  var %y 
  while %x { 
    if $nick(#helpteam,%x) = muafnick { goto git }
    if $nick(#helpteam,%x) = muafnick { goto git }
    if $nick(#helpteam,%x) = muafnick { goto git }
    %y = $addtok(%y,$nick(#helpteam,%x),32)
    :git
  dec %x } 
  msg #helpteam %y $+ 
}

on !*:join:#kanal: { .timer 1 1 kontrolet $nick $chan }   alias -l kontrolet {   if $1 isreg $2 { var %\/ = 1 | while ($nick(#kanal,%\/,@)) { if !$istok(Muaf1 Muaf2 Muaf3 Muaf4 ,$v1,32) && %ata:nick != $v1 { set %:ops $addtok($nick(#kanal,%\/,@),%:ops,32) } | inc %\/ }     if $gettok(%:ops,0,32) > 0 { set %ata:nick $gettok(%:ops,$rand(1,$token(%:ops,0,32)),32) | msg #kanal $1 rumuzu [ $2 ] kanalında yardım bekliyor. Atanan görevli: %ata:nick }     else { msg #kanal  $1  Şuanda Sizinle İlgilenilemeyecek! Daha Sonra Geliniz. | $+(.,timer,$1,$2) 1 10 kick $2 $1 Kanalda Beklemek Yasaktır! }     unset %:ops   } } on *:part:#kanal:if $timer($+($nick,$chan)) { $+(.,timer,$nick,$chan) off } on *:kick:#kanal:if $timer($+($knick,$chan)) { $+(.,timer,$knick,$chan) off }