on *:text:!setpcw*:#: {
  if (($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-138)) {
    set %world [ $+ [ $chan ] ] $2-
    set %time [ $+ [ $chan ] ] $ctime
    set %pcnick [ $+ [ $chan ] ] $nick
    msg $chan The Pest Control World has been changed! Type !pcw to view the world!
  }
  else {
    msg $chan Please [ $nick ] Make It A Real World [ $2- ] is not a real world
  }
}
on *:text:!world*:#: {
  notice $nick The World Is [ %world ] Set By [ %pcnick ] Set $calc($duration(($ctime - %time)) ago
}
}
on *:text:!pcw*:#: {
notice $nick The World Is [ %world ] Set By [ %pcnick ] $calc($duration($ctime - %time)) ago
}
}
on *:text:!pc*:#: {
notice $nick The World Is [ %world ] Set By [ %pcnick ] $calc($duratin($ctime - %time)) ago
}
on *:text:!setworld *:#: {
msg $chan Please [ $nick ] use !change <world> to change the world