Something

on $*:TEXT:/^[!](active|activate)/Si:#test:{
  var %o = $nick
  if ($findtok(%active,%o,44)) {
    .notice $nick You are already active! 
    halt
  }
  else {
set %calcul8 $calc($gettok(%active,%o,44) - 1)
    set %active $addtok(%active,%o,44)
    .notice $nick You are now marked as Active along with %calcul8 other people  $+($chr(40),%active,$chr(41)) $+ .
  }
} 
on $*:TEXT:/^[!](deactive|deactivate)/Si:#test:{
  var %n = $nick
  var %p = $findtok(%active,$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:{
  .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!
}