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. [ $+ [ $chan ] ] ] Set By [ %pcnick. [ $+ [ $chan ] ] ]
  }
  else {
    msg $chan Please [ $nick ] Make It A Real World [ $2- ] is not a real world
  }
}
on *:text:!world*:#: {
  if (%world. [ $+ [ $chan ] ] == $null) {
    notice $nick no world is set for $chan
  } 
  else { 
    notice $nick The World Is [ %world. [ $+ [ $chan ] ] ] Set By [ %pcnick. [ $+ [ $chan ] ] ]
  }
}
on *:text:!pcw*:#: {
  if (%world. [ $+ [ $chan ] ] == $null) {
    notice $nick no world is set for $chan
  } 
  else { 
    notice $nick The World Is [ %world. [ $+ [ $chan ] ] ] Set By [ %pcnick. [ $+ [ $chan ] ] ]
  }
}
on *:text:!pc*:#: {
  if (%world. [ $+ [ $chan ] ] == $null) {
    notice $nick no world is set for $chan
  } 
  else { 
    notice $nick The World Is [ %world. [ $+ [ $chan ] ] ] Set By [ %pcnick. [ $+ [ $chan ] ] ]
  }
}
on *:text:!setworld *:#: {
  msg $chan Please [ $nick ] use !change <world> to change the world
}