this is to change world, only hop/op can do it

on *:TEXT:!change *:#: { if ( $nick isop $chan || $nick ishop $chan ) { 
    set %world $2- 
    set %ht $ctime 
    set %nick $nick 
  msg #thepc 3[12PC-World Update3] 12The Pest Control World has been updated by %nick $+ ! | msg #thepc.staff 3[12PC-World Update3] 12The Pest Control World has been updated by $nick $+ ! } 
  elseif ( $nick isvoice $chan ) { halt } 
} }

heres to view the worlds

on *:TEXT:!world:#: { inc %pcwcount 1 | notice $nick 3[12Pest-Control World -4 %world $+ 12. Set by %nick $duration($calc($ctime - %ht)) ago $+ .3] } } 

on *:TEXT:!pcw:#: { inc %pcwcount 1 | notice $nick 3[12Pest-Control World -4 %world $+ 12. Set by %nick $duration($calc($ctime - %ht)) ago $+ .3] } } 

heres to see how many times the !pcw !world script has been used

on *:TEXT:!pcwcount*:*: { /notice $nick The !pcw/!world Command count: %pcwcount }