on *:TEXT:!setworld *:#:{
 if ($nick == Gtahell) {
  set %world $2
  var %w = 0
  while (%w < $chan(0)) {
    inc %w 1
    msg $chan(%w) $nick has changed the pc world press !world to see it.
  }
}
on *:TEXT:!world:#:{
  /notice $Nick world is %world
}