on $*:TEXT:/^(!setpcw|!setworld)/Si:#:{
  if ($nick isop $chan || $nick ishop $chan || $nick == Daryl|) {
    writeini -n world.ini pcw $chan pcw
    $iif($2 != $null,writeini -n world.ini pc $chan $2,writeini -n world.ini pc $chan No world set)
    writeini -n world.ini time $chan $ctime
    .msg $chan 4The 5pc world4 has been updated by5 $nick
  }
}

on $*:TEXT:/^(!pcw|!world)/Si:#:{
  if ($readini(world.ini,n,pcw,$chan)) {
    notice $nick 4The current 2pestcontrol4 world is2 $readini(world.ini,n,pc,$chan) 4set2 $duration($calc($ctime - $readini(world.ini,n,time,$chan))) 4ago. 
  }
}