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