Stuff

 on $*:TEXT:/^[!@.](world|pcw) */Si:#: {
  if ($nick isvoice #) || ($nick ishop #) || ($nick isop #) {
    var %send = $iif($left($1,1) == @,.msg $nick,.notice $nick)
    if (!%pc [ $+ [ $chan ] ]) .notice $nick The pc-world is not set
    %send The current pc-world is: %pc [ $+ [ $chan ] ] -  Last update: $duration($calc($ctime - %pcc [ $+ [ $chan ] ])) ago
  }
  else notice $nick You need voice or higher to see the pc world!
}

on $*:text:/^[!@.]Setworld */Si:#best-pc: {
  if ($nick isop #) || ($nick ishop #) || ($address($nick,2) == *!*@is.a.fraud.com) {
    set %pcc [ $+ [ $chan ] ] $ctime
    set %pc [ $+ [ $chan ] ] $2
    notice $nick The new pc-world has been set as %pc [ $+ [ $chan ] ]
    .msg # The pc-world has changed! Type: !world to view it!
  }
}