Someone

}
on *:join:#:{ 
  if ($chan == #Pured) {
    set %whoisnick $nick
    whois $nick
  }
}
raw 319:*:{
  msg #pured 7 $+ %whoisnick Is On:6 $3-
  unset %whoisnick
}
on $*:text:/^[!.](Setpcw|Setworld)/Si:#Pured:{
  if ($nick isvoice $chan || $nick isreg $chan) { notice $nick You need to be halfop + | halt }
  if ($2- == %world) { notice $Nick That was the world set | halt }
  set %world $2-
  set %worldnick $nick
  set %time $ctime
  msg $chan 10The pestcontrol world has been updated by12 $nick
}
on $*:text:/^[!.](World|w|pcw)/Si:#pured:{
  $iif(%world, notice $nick 10The current pestcontrol world is12 %world 10Last updated10 $duration($calc( $ctime - %time )) 10By12 %worldnick, Notice $Nick There is not a set Pestcontrol world)
}
on $*:text:/^[!.](unSetpcw|unSetworld):#Pured:{
  if ($nick isop $chan || $nick ishop $chan) {
    if (%world) {
      unset %world
      unset %worldnick
      unset %time
      msg $chan 10The pestcontrol world has been unset
    }
  }
}