Someone

ON $*:TEXT:/[!@.](Change40|Change70|Change100)/Si:#Xtreme:{
  if ($3 != $null) { halt }
  if (!$2) {
    notice $nick 12Error:14 $1 World12.
    halt
  }
  if (($nick isop #Xtreme || $nick ishop #Xtreme || $nick isvoice #Xtreme || $address($nick,2) == $address($me,2)) && ($2 isnum 2-144)) {
    writeini PCW.ini $chan World40 $2
    writeini PCW.ini $chan World70 $2
    writeini PCW.ini $chan World100 $2
    writeini PCW.ini $chan Nick $nick
    writeini PCW.ini $chan Time $CTime
    msg $chan 12The Pest Control world has been updated by:14 $nick 5-12 Type 14!PCW12 to view it.
    halt
  }
  if ($nick isvoice $chan || $nick isreg $chan) {
    notice $nick 12You must be Halfop or Op to use this command.
    halt
  }
  if ($2 >= 139) {
    notice $nick 12The world must be Between14 1 12and14 14412.
    halt
  }
  else {
    notice $nick 12A Pest Control world must be a number.

  }
}
ON $*:TEXT:/!(PCW|World|PestWorld|PC)/Si:#Xtreme:{ 
  if ($readini(PCW.ini,$chan,World) == $null) { 
    notice $nick 12There is no set world.
    halt
  }
  if ($chan == $chan) {
    writeini PCW.ini $chan Users $calc($readini(PCW.ini,$chan,Users) + 1)
    notice $nick 5]14|5[14 40+ 12World:14 $readini(PCW.ini,$chan,World40) 5]14|5[14 70+ 12World:14 $readini(PCW.ini,$chan,World70) 5]14|5[14 100+ 12World:14 $readini(PCW.ini,$chan,World100) 5]14|5[12 Set14 $duration($calc($CTime - $readini(PCW.ini,$chan,Time))) 12ago 5]14|5[12 Count:14 $readini(PCW.ini,$chan,Users) 5]14|5[
    halt
  }
}
ON $*:TEXT:/@(PCW|World|PestWorld|PC)/Si:#Xtreme:{ 
  if ($nick isop #Xtreme) || ($nick ishop #Xtreme) || ($nick isvoice #Xtreme) {
    if ($readini(PCW.ini,$chan,World) == $null) { 
      notice $nick 12There is no set world.
      halt
    }
    if ($chan == $chan) {
      writeini PCW.ini $chan Users $calc($readini(PCW.ini,$chan,Users) + 1)
      notice $nick 5]14|5[14 40+ 12World:14 $readini(PCW.ini,$chan,World40) 5]14|5[14 70+ 12World:14 $readini(PCW.ini,$chan,World70) 5]14|5[14 100+ 12World:14 $readini(PCW.ini,$chan,World100) 5]14|5[12 Set14 $duration($calc($CTime - $readini(PCW.ini,$chan,Time))) 12ago 5]14|5[12 Count:14 $readini(PCW.ini,$chan,Users) 5]14|5[
      halt
    }
  }