Something

on $*:TEXT:/^[!@.]set../Si:#:{
  if ($nick ison #poke.staff) { 
    if ($2 == %pcworld) { .notice $nick $2 is already set | halt }
    if ($chan == #poke.staff) {   
      set %pcworld $2
      set %scout $3
      set %pcnick $nick
      set %pctime $ctime
    }
    if ($chan == #poke.staff) {
      msg #poke 14The PC World has been changed by7 %pcnick 14type  7!world 14or 7!pcw 14to see it.
    } 
  }
}
on $*:TEXT:/^!(world|pcw) */Si:#: {
  if ($chan == #poke) {
    if (%pcworld == $null) notice $nick 14Sorry, but there is no world set.
    elseif ($nick !isreg #poke) {
      inc %pccount
      notice $nick 7 %pcworld 14is the current PC world on7 #poke 14last set by7 %pcnick 14and scouted7 $duration($calc($ctime - %pctime ),2) 14ago by7 %scout $+ . 14used7 %pccount 14times, type 7!suggest (world)14 if you know a better one. The last world was %pclast $+ . Enjoy!
    }
  }
}

on $*:TEXT:/^@(world|pcw) */Si:#: {
  if (($chan == #poke) && ($nick isop #poke.staff))  {
    if (%pcworld == $null) notice $nick 14Sorry, but there is no world set.
    inc %pccount
    msg $chan 7 %pcworld 14 is the current PC world on7 $chan 14last set by7 %pcnick 14and scouted7 $duration($calc($ctime - %pctime ),2) 14ago by7 %scout $+ .14used7 %pccount 14times.
  }
}

on *:TEXT:!suggest*:#: {
  if ($2 == $null) { halt }
  if ($chan == #poke) {
    if ($2 !isnum 1-138) { .notice $nick only world numbers will be excepted. Sorry, but this has been logged. | msg #poke.staff $nick is abusing suggest with 14[7 $2 14] $+ . Please take action. | halt }
    if ($nick !isreg #poke) {
      if (%pcworld == $2) {
        .notice $nick This world is already active!
      }
      else {
        msg #poke.staff $nick has suggested $2 and would really like you to check it ;)
        notice $nick sent suggestion of [ $2 ] to staff. Please be patient and do not flame as it may take sometime to be reviewed.
      }
    }
  }