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