var %katilanlar

on *:TEXT:!katil:#A:{

  if ($istok(%katilanlar, $nick, 32)) {
    msg #A $nick, zaten çekilişe katıldınız.
  }
  else {
    %katilanlar = %katilanlar $nick $+ " "
    msg #A Çekilişe katıldın: $nick
  }

}

on *:TEXT:!sonuç:#A:{

  var %katilanlarArray = $remove(%katilanlar, )

  var %katilanSayisi = $numtok(%katilanlarArray, 32)

  if (%katilanSayisi == 0) {

    msg #A Çekilişe kimse katılmamış. 

  }

  else {

    var %secilenIndex = $rand(1, %katilanSayisi)

    var %secilenNick = $gettok(%katilanlarArray, %secilenIndex, 32)

    msg #A Çekiliş Sonucu: %secilenNick $+ " çekilişe katılanlar arasından seçildi!"

    ; Çekilişe katılan listeyi sıfırla
    %katilanlar = 
  }

}