Oww My Nose

on $*:TEXT:/^[@!](pc)?world/Si:#pc:{
  if (%pcflood != 1) {
    .notice $nick The current pc world is %pcworld $+ . $chr(40) $+ set $duration($calc($ctime - %pctime)) ago $+ $chr(41) $&
      $+($chr(2),$chr(91),$chr(3),12,$chr(79),$chr(119),$chr(119),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(93),$chr(2))
    set -u5 %pcflood 1
  }
}
on $*:TEXT:/^[@!]set ?(pc)? ?world/Si:#pc:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    msg $chan The PC world has been changed to: $2
    set %pcworld $2-
    set %pctime $ctime
  }
}