on *:TEXT:!change *:#:{ 
  if ( $nick isvoice # ) set %pctime $ctime 
  if ( $nick isvoice # ) set %pcnick $nick 
  if ( $nick isvoice # ) set %pcworld $2- 
  if ( $nick isvoice # ) msg #pc 14**[[7UPDATE14]]1 World Changed to 14[7 %pcworld 14]1 by 14[7 %pcnick 14]** 
  if ( $nick isreg # ) notice $nick You cannot change the world! 
  if ( $nick ishop # ) set %pctime $ctime 
  if ( $nick ishop # ) set %pcnick $nick 
  if ( $nick ishop # ) set %pcworld $2- 
  if ( $nick ishop # ) msg #pc 14**[[7UPDATE14]]1 World Changed to 14[7 %pcworld 14]1 by 14[7 %pcnick 14]** 
  if ( $nick isop # ) set %pctime $ctime 
  if ( $nick isop # ) set %pcnick $nick 
  if ( $nick isop # ) set %pcworld $2- 
  if ( $nick isop # ) msg #pc 14**[[7UPDATE14]]1 World Changed to 14[7 %pcworld 14]1 by 14[7 %pcnick 14]** 
} 
on *:TEXT:!pcw:#:{ 
  inc %pcused 
  notice $nick The current Pest Control World is:3 %pcworld set by3 %pcnick  $+($duration($calc($ctime - %pctime)),) ago. Command used3 %pcused times. 
  inc %restart 
  if (%restart >= 50) { 
    quit 50 MAX buffer limit, rebooting-self
    unset %restart 
    server 
  } 
} 
on *:TEXT:!world:#:{ 
  inc %pcused 
  notice $nick The current Pest Control World is:3 %pcworld set by3 %pcnick  $+($duration($calc($ctime - %pctime)),) ago. Command used3 %pcused times. 
}