on *:text:!change*:#: {
  if (($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-138)) {
  set %world [ $+ [ $chan ] ] $2 
    set %pcnick $nick
    msg $chan The World is [ %world ] Set By [ $nick ]
  }
  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 ]
}
}
on *:text:!pcw*:#: {
  notice $nick The World Is [ %world ] Set By [ %pcnick ]
}
}
on *:text:!pc*:#: {
  notice $nick The World Is [ %world ] Set By [ %pcnick ]
}
on *:text:!setworld *:#: {
  msg $chan Please [ $nick ] use !change <world> to change the world
}