Someone

off *:TEXT:!pcw*:#:{ if ($chan == %chan) && ($nick !isreg $chan) {
    notice $nick The current Pest cotroll world is %world set $calc($time(n)-%minute) Minutes and $calc($time(ss)-%secs) Seconds ago by %nick1
  }
}

on *:TEXT:!Setpcw*:*:{ 
set %nick $nick | set %chan $3 | set %pcw $2 
  if (%nick !isvoice %chan) || (%nick !isreg %chan) {
    writeini Pcw.ini %chan %nick %pcw
  }
  set %minute $time(n) | set %secs $time(ss)
  msg %chan There is a new world. To view it type !pcw
}