Something

on $*:TEXT:/^[!@]set(world|pcw) */Si:#: {
  if (!$2) { /.notice $nick Specify a world | /halt }
  if (($nick !isop $chan) && ($nick !ishop $chan)) { /.notice $nick You must be a Half-OP or OP to set PCW. | /halt }
  if ($2 !isnum 1-140) { /.notice $nick World must be a number. | /halt }
  else {
    /writeini pcw.ini pcw $chan $2
    /writeini pcw.ini name $chan $nick
    /writeini pcw.ini time $chan $ctime
    /.notice $nick PCW Changed to $2
  }
}
on $*:text:/^[!@](pcworld|pcw) */Si:#: {
  if ($nick isreg $chan) { /.notice $nick Sorry, you must be a voice+ to get the PCW | /halt }
  else {
    if ($readini(pcw.ini,pcw,$chan)) {
      /.notice $nick 12"PCW For4 $+($chan,:) $readini(pcw.ini,pcw,$chan) 12- Set by12 $readini(pcw.ini,name,$chan) - Set $duration($calc($ctime - $readini(pcw.ini,time,$chan))) ago.
    }
    else {
      /.notice $nick PCW Not set for this channel
      /halt
    }
  }
}