Mine

On $*:text:/^[!@]Set?(world)/Si:#: { 
 if ($nick ishop $chan) || ($nick ishop $chan) && ($2 isnum 2-138) { 
 Set %world $2
 msg $chan 7 $nick changed Pest Control World ;; %world 
} 
 } 
 On $*:text:/^[!@](Pcw|World|PcWorld)/Si:#: { 
notice $nick Pest Control World %world 
}