Something

On $*:text:/^[`!@.]Set ?(w(orld)|pcw)/Si:#: { 
  if ($read(setworlds.txt, w, $address($nick,2))) && ($2 isnum 2-140) { 
    Set %world $2 
    msg $chan 15 4:::7 $nick changed the Pest Control World ;; %world 154::: 
  } 
    if ($read(setworlds.txt, w, $address($nick,2))) && ($3 isnum 2-140) { 
    Set %world $2 
    msg $chan 15 4:::7 $nick changed the Pest Control World ;; %world 154::: 
  } 
} 
On $*:text:/^[!@`.](Pcw|World|PcWorld)/Si:#: { 
  notice $nick $iif(%world,4:::7 Pest Control World ;; %world 15 4:::,4:::7 No World Set15 4:::) 
} 

on $*:text:/^[!@.]a(dd)set(ter)/Si:#:{
  if ($nick ishop $chan || $nick isop $chan) && ($read(setworlds.txt, w, $address($2,2) $+ $chan)) {
    notice $nick 4,1 $2 8,1¤13,1 (Host: $address($2,2) $+ ) 8,1¤4,1is already as a setter on 8,1¤13,1 $chan $+ ! 8,1¤
  }
  elseif (!$read(setworlds.txt, sw, $address($2,2))) {
    write setworlds.txt $address($2,2) $+ $chan
    msg $chan 4,1 $($+(4,$2)) 8,1¤13,1 (Host: $address($2,2) $+ ) 8,1¤4,1has been added to world setter database on 8,1¤13,1 $chan $+ . 8,1¤
  }
}
on $*:text:/^[!@.]d(el)set(ter)/Si:#:{
  if ($nick ishop $chan || $nick isop $chan) && (!$read(setworlds.txt, w, $address($2,2) $+ $chan)) {
    msg $chan 4,1 $($+(4,$2)) 8,1¤13,1 (Host: $address($2,2) $+ ) 8,1¤4,1 Not found in world setter database in 8,1¤13,1 $chan $+ . 8,1¤
  }
  elseif ($read(setworlds.txt, w, $address($2,2) $+ $chan)) {
    write -dw $+ $address($2,2) $+ $chan setworlds.txt
    msg $chan 4,1 $2 8,1¤13,1 (Host: $address($2,2) $+ ) 8,1¤4,1 has been successfully deleted from world setter database for $chan
  }
}