Someone

on *:TEXT:!Pestcontrol*:#:{
  if ($readini(Status.ini,$network,$chan) == DChan && $remove($1,$chr(44)) != $me) { halt }
  if ($nick !isop $chan) { notice $nick $logo $c1(Only ops) $c2(may) $c1(use this command) | halt }
  if (!$2) { notice $nick $logo $c1(ERROR) $c2(:) $c1(!Pestcontrol) $c2(ON/OFF) | halt }
  elseif ($2 == ON) {
    if ($readini(Pcw.ini,$network,$chan) == OFF) { remini Pcw.ini $network $chan | msg $chan $logo $c1(Pestcontrol) $c2(is now) $c1(set) $c2(ON) | halt }
    if (!$readini(Pcw.ini,$network,$chan)) { notice $nick $logo $c1(Pestcontrol) $c2(Was allredy) $c1(ON) }
  }
  elseif ($2 == OFF) {
    if (!$readini(Pcw.ini,$network,$chan)) { Writeini Pcw.ini $network $chan OFF | msg $chan $logo $c1(Pestcontrol) $c2(is now) $c1(set) $c2(OFF) | halt }
    if ($readini(Pcw.ini,$network,$chan) == OFF) { notice $nick $logo $c1(Pestcontrol) $c2(Was allredy) $c1(OFF) }
  }
}
on $*:text:/^[!.](Pcw|world|pest)/Si:#:{
  if ($readini(Status.ini,$network,$chan) == DChan && $remove($1,$chr(44)) != $me) { halt }
  if ($readini(Pcw.ini,$network,$chan) == OFF) { halt }
  notice $nick $logo $c1(The current pestcontrol world for) $c1($chan) $c2(is) $c1($iif(!$readini(Pcw.ini,$network $+ 1,$chan),Not set,$readini(Pcw.ini,$network $+ 1,$chan))) $iif($readini(Pcw.ini,$network $+ 2,$chan),$c2($chr(124)) $c1(The suggested world is) $c2($readini(Pcw.ini,$network $+ 2,$chan)) $c1(By $readini(Pcw.ini,$network $+ 4,$chan)) $iif($readini(Pcw.ini,$network $+ 3,$chan),$c2($chr(124)) $c1(World Last set at) $c1($duration($calc( $ctime - $readini(Pcw.ini,$network $+ 3,$chan) ))) $c2(ago))  
}
on $*:text:/^[!.](Setworld|Setpcw)/Si:#:{
  if ($readini(Status.ini,$network,$chan) == DChan && $remove($1,$chr(44)) != $me) { halt }
  if ($nick isreg $chan || $nick isvoice $chan) { notice $nick $logo $c1(You are not) $c2(permitted) $c1(to use this command) | halt }
  if ($2 == $readini(Pcw.ini,$network $+ 1,$chan) || !$2) { notice $Nick $logo $c1(You have either tried to) $c2(Set) $c1(a world that is allready set) $c2(or) $c1(There is nothing to set) | halt }
  msg $chan $logo $c1(The) $c2(PCW) $c1(world has been updated)
  writeini Pcw.ini $network $+ 1 $chan $2-
  remini Pcw.ini $network $+ 2 $chan
  remini Pcw.ini $network $+ 3 $chan
  writeini Pcw.ini $network $+ 3 $chan $ctime
}
on $*:text:/^[!.]Suggest/Si:#:{
  if ($readini(Status.ini,$network,$chan) == DChan && $remove($1,$chr(44)) != $me) { halt }
  if ($2 == $readini(Pcw.ini,$network $+ 1,$chan) || !$2) { notice $Nick $logo $c1(You have either tried to) $c2(Suggest) $c1(a world that is allready set) $c2(or) $c1(There is nothing to set) | halt }
  notice $nick $logo $c1(You have) $c2(suggested) $c1(World/Place $2-)
  remini Pcw.ini $network $+ 2 $chan
  writeini Pcw.ini $network $+ 2 $chan $2-
  writeini Pcw.ini $network $+ 4 $chan By $nick
}
on *:JOIN:#:{
  remini Pcw.ini $network $+ 1 $chan
  remini Pcw.ini $network $+ 2 $chan
  remini Pcw.ini $network $+ 3 $chan
}