Someone

on *:JOIN:#elites_lobby:{
  set -u5 %nick. [ $+ [ $r(0,$str(9,20)) ] ] $nick
  whois $nick
}
raw 319:*:{ 
  if ($var(%nick.*)) { 
    msg #elites.staff %nick has just joined #elites_lobby. He is on $gettok($3-,0,32) or more channels which include: $replace($remove($3-,$chr(64),$chr(37),$chr(43)),$chr(32),$+($chr(44),$chr(32)))
  }
}
on *:TEXT:!setpcw *:#:{
  if ($chan == #elites.staff) && ($nick isop $chan) && ($2 isnum 1-159) {
    set %pcw.world $2
    set %pcw.nick $nick
    set %pcw.time $time(h:nn TT) on $date
    msg #pc_elites The Pest Control world has just been updated by $nick $+ !! (type !pcw to view it)
  }
  elseif ($chan != #elites.staff) notice $nick This command is only usable in #elites.staff
  elseif ($nick !isop $chan) notice $nick Op only command.
  elseif ($2 !isnum 1-159) Error, syntax: !setpcw 1-159
}
on $*:TEXT:/^[!@`.]p(est)?c(ontrol)?w(orld)?/Si:#:{
  if ($chan == #pc_elites) || ($chan == #elites.staff) && ($nick !isreg $chan) && (%pcw.world) {
    notice $nick The current Pest Control world is: %pcw.world $+ . [Set by %pcw.nick at %pcw.time $+ ]
  }
  elseif ($nick isreg $chan) notice $nick You must be voice(+v) or higher to use this command.
  elseif ($chan == #elites_lobby) notice $nick This command is only usable on #pc_elites and #elites.staff
  elseif (!%pcw.world) notice $nick No Pest Control world currently set.
}
on $*:TEXT:/^[!@`.](del|unset)p(est)?c(ontrol)?w(orld)?/Si:#:{
  if ($chan == #elites.staff) && ($nick isop $chan) {
    unset %pcw.*
    msg #pc_elites $nick just removed the current Pest Control world settings.
  }
  else notice $nick $iif($nick !isop $chan,You are not authorised to use this command.)
}
on *:TEXT:!grats*:#:{ /msg $chan 6:D\-< 4¤11.12¡9*4°9*12¡11.4¤6 Woo! Congrats on 7  $2-    $nick  !!4¤11.12¡9*4°9*12¡11.4¤ 6 :D/-< }
}