nick list garen

on *:TEXT:!addme*:#: {
  if ($isupper($left($regsubex($nick,/(^([^a-z]+))/ig,),1)) == $true) {
    set %nicklist $addtok(%nicklist,$nick,44)
    msg $chan Added $nick to the nick list
  }
}
on *:text:!remove*:#: {
  if (!$2) { msg $chan $nick $+ , Try !remove <nick> }
  else { set %nicklist $remtok(%nicklist,$2,44) | msg $chan Added $2 to the nick list }
}
on *:text:!list:#: {
  msg $chan Nicks: $replace(%nicklist,$chr(44),$chr(44) $+ $chr(32))
}
on *:join:#: {
if ($isupper($left($regsubex($nick,/(^([^a-z]+))/ig,),1)) == $true) {
    set %nicklist $addtok(%nicklist,$nick,44)
    msg $chan Added $nick to the nick list
  }
}