on $*:TEXT:/^[!@.]setworld../Si:#lunapc:{  
  if ($nick isop #lunapc) || ($nick ishop #lunapc) {  
    set %pcworld $2
    set %scout $3
    set %Pcnick $nick
    msg #lunapc 14,4-4,14-1,14The 4PC World1 has been changed by4 $nick 4 -14,4-
    msg #lunapc 14,4-4,14-1,14Type 4!World 1or 4!Pcw 1to see it. 4 -14,4-

  } 
}
on $*:TEXT:/^!(world|pcw) */Si:#: {
  if (%pcworld == $null) notice $nick 14Sorry, but there is no world set.
  elseif ($nick !isreg #lunapc) || ($nick isnonv #lunapc) {
    inc %pccount
    notice $nick  14,4-4,14-4,14 %pcworld 1is the recommended world on :4 #LunaPC1. 4 -14,4-
    notice $nick  14,4-4,14-1,14 Last set by :4 %pcnick 1and scouted by :4 %scout $+ 1. 4 -14,4-
    notice $nick  14,4-4,14-1,14 Used :4 %pccount 1times. 4 -14,4-
    notice $nick  14,4-4,14-1,14 Type :4!suggest (world) (reason)1 for a better world. 4 -14,4-
  }
}
on $*:TEXT:/^@(world|pcw) */Si:#: {
  if ($nick isop #lunapc) || ($nick ishop #lunapc) {
    if (%pcworld == $null) notice $nick 14Sorry, but there is no world set.
    inc %pccount
    msg $chan  14,4-4,14-4,14 %pcworld 1is the recommended world on :4 #LunaPC1. 4 -14,4-
    msg $chan  14,4-4,14-1,14 Last set by :4 %pcnick 1and scouted by :4 %scout $+ 1. 4 -14,4-
    msg $chan  14,4-4,14-1,14 Used :4 %pccount 1times. 4 -14,4-
    msg $chan  14,4-4,14-1,14 Type :4!suggest (world) (reason)1 for a better world. 4 -14,4-
  }
}