on $*:TEXT:/^[!](active|activate)/Si:#test:{
  var %o = $iif($2,$2,$nick)
  if ($findtok(%active,%o,44)) {
    .notice $nick You are already active! 
    halt
  }
  else {
    set %active $addtok(%active,%o,44)
    .notice $nick You are now marked as Active along with $calc($gettok(%active,%o,44) - 1) other people $+($chr(40),$remove(%active,%o),$chr(41)) $+ .
  }
} 
on $*:TEXT:/^[!](deactive|deactivate)/Si:#test:{
  var %n = $iif($2,$2,$nick)
  var %p = $findtok(%active,$iif($2,$2,$nick),44)
  if (!$findtok(%active,%n,44)) {
    .notice $nick You aren't active! 
    halt
  }
  else {
    set %active $deltok(%active,%p,44)
    .notice $nick You are no longer marked as Active.
  }
} 
on *:PART:#luckypc,#luckypc.staff,#test:{
  var %k = $nick
  if ($findtok(%active,%k,44)) {
    var %p = $findtok(%active,$nick,44)
    set %active $deltok(%active,%p,44)
    msg #test $nick is no longer active.
  }
  else halt
}
on *:QUIT:{
  var %k = $nick
  if ($findtok(%active,%k,44)) {
    var %p = $findtok(%active,$nick,44)
    set %active $deltok(%active,%p,44)
    msg #test $nick is no longer active.
  }
  else halt
}
on *:JOIN:#luckypc.staff,#luckypc,#test:{
  if ($readini(luckypc.ini,n,wl,$nick)) { halt }
  .msg $nick Hello and Welcome To #LuckyPc! Please Pm One Of The Following In Runescape To Get An AutoVoice: %active $+ . You Have 5 Minutes- Thanks!
}