Something

on $*:Text:/^[@!](setpcw|changepcw|change|spcw)/Si:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    set %pcw [ $+ [ $chan ] ] $2 
    set %setb [ $+ [ $chan ] ] $nick 
    msg $chan 7( ( 14Pest Control 7) )14 The current pest control world has been updated by7 $nick $+ 14. Type !pcw7/14!world14 to view the current updated world. 

  } 
} 

on *:Text:!pcw:#:{ 
  inc %used 
notice $nick 7 ( ( 14Pest Control7 ) )14 The current pcw is7 %pcw [ $+ [ $chan ] ] 14set by7 %setb [ $+ [ $chan ] ] $+ 14. This command has been used7 %used 14times $+ .  } 

on *:Text:!world:#:{ 
  inc %used 
notice $nick 7 ( ( 14Pest Control7 ) )14 The current pcw is7 %pcw [ $+ [ $chan ] ] 14set by7 %setb [ $+ [ $chan ] ] $+ 14. This command has been used7 %used 14times $+ .  }