Something

on $*:TEXT:/^[!@](pcw|world|setworld)/Si:#: {
  if ($2 == $null) {
    if ($readini(PC.ini,$chan,World) != $null) {
      var %duration = $duration($calc($ctime - $readini(PC.ini,$chan,Time))), %nick = $readini(PC.ini,$chan,Nick), $&
        %world = $readini(PC.ini,$chan,World), %inc = $readini(PC.ini,$chan,Inc)
      writeini -n PC.ini $chan Inc $calc(%inc + 1)
      .notice $nick $c2(») $+ $c1(]|[ World:) $c2(%world) $c1(]|[ By:) $c2(%nick) $c1(]|[) $c2(%duration ago) $c1(]|[ Count:) $c2($bytes(%inc,db)) $c1(]|[) $+ $c2(«)
    }
  }
  elseif ($nick isop $chan || $address($nick,2) == $address($me,2)) && ($2 != $null) {
    if ($2 == set && $3 isnum) {
      writeini -n PC.ini $chan Nick $nick
      writeini -n PC.ini $chan Time $ctime
      writeini -n PC.ini $chan World $3
      $iif($readini(PC.ini,$chan,Inc) == $null,writeini PC.ini $chan Inc 1)
      msg $chan $c1(The world has been changed by) $c2($nick) $+ $c1(! Type) $c2(!pcw) $c1(to see the current world!)
    }
    elseif ($right($1,-1) == setworld && $2 isnum) {
      writeini -n PC.ini $chan Nick $nick
      writeini -n PC.ini $chan Time $ctime
      writeini -n PC.ini $chan World $2
      $iif($readini(PC.ini,$chan,Inc) == $null,writeini PC.ini $chan Inc 1)
      msg $chan $c1(The world has been changed by) $c2($nick) $+ $c1(! Type) $c2(!pcw) $c1(to see the current world!)
    }
    elseif ($2 == unset && $readini(PC.ini,$chan,World) != $null) {
      remini PC.ini $chan Nick
      remini PC.ini $chan Time
      remini PC.ini $chan World
      msg $chan $c1(The world has been unset by) $c2($nick) $+ $c1(.)
    }
  }
}