on $*:TEXT:/^[!@](Pcw|World)/Si:#: {
  inc %Pc.Count
  if ($left($1,1) == @) && (($nick isop $chan) || ($nick ishop $chan)) {
    msg # 14World:07 $readini(PC.ini,PC,World) 14Set by:07 $readini(PC.ini,PC,Nick) 14When:07 $duration($calc($ctime - $readini(PC.ini,PC,Time)))) 14ago. Uses:07 %Pc.Count
  }
  else {
    .notice $nick 14World:07 $readini(PC.ini,PC,World) 14Set by:07 $readini(PC.ini,PC,Nick) 14When:07 $duration($calc($ctime - $readini(PC.ini,PC,Time)))) 14ago. Uses:07 %Pc.Count
  }
}
on $*:TEXT:/^[!@](SetWorld)/Si:#: {
  if ($2 isnum 2-138) {
    writeini -n PC.ini PC Last $readini(PC.ini,PC,World)
    writeini -n PC.ini PC World $2
    writeini -n PC.ini PC Nick $nick
    writeini -n PC.ini PC Time $ctime
    notice + $+ # 14New world:07 $readini(PC.ini,PC,World) 14Set by:07 $readini(PC.ini,PC,Nick) 14Last world:07 $readini(PC.ini,PC,Last)
  }
}