alias World {
  set %World $1
} 

on $*:TEXT:/^[+.](ni)?world/Si:#parko: { if $me ishop #Parko || ($me isop #parko) { notice $nick 12The current world is0[12 $+ %World $+ 0] } }

on *:TEXT:!setworld*:#: { if ($me ishop $chan) || ($address($nick,2) == $address($me,2)) { world $2- } { msg $chan 12World is $2-  } }