Mine

on *:TEXT:!pcc*:#PC,#PCStaff:{
  if ($nick isreg $chan) { halt } 
  msg $nick !pc on/off
  msg $nick !setnov For The Novice (40+) World
  msg $nick !setint For The Intermediate (70+) World
  msg $nick !setvet For The Vetran (100+) World
  msg $nick /ctcp $me World to msg #pc the PCW
}
on *:TEXT:!pc on:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Morbid) {
    if (%pcon == off) {
      set %pcon on
      set %nov N/A
      set %int N/A
      set %vet N/A
      notice $nick 14Pest Control Scripts are now3 Enabled 14for7 $chan $+ 14.
    }
    else {
      notice $nick 14Pest Control Scripts are already 3on 14for7 $chan $+ 14.
    }
  }
}
on *:TEXT:!pc off:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Morbid) {
    if (%pcon == on) {
      set %pcon off
      notice $nick 14Pest Control Scripts are now4 Disabled 14for7 $chan $+ 14.
    }
    else {
      notice $nick 14Pest Control Scripts are already 4off 14for7 $chan $+ 14.
    }
  }
}
on $*:TEXT:/^[!.](pcw|world)/Si:#:{
  if (%pcon == on) {
    notice $nick 7[«» 14Official World - 0788 «»] 7[«» 2Novice (40+) - %nov 7«»] 7[«» Intermediate (70+) - %int «»] 7[7«» 4Veteran (100+) - %vet 7«»]
  }
} 

on *:TEXT:!setnov *:#: {
  if ($nick !isreg $chan) {
    if ($2 == %nov ) {
      notice $nick 14Your setting a world that is already set!
    }
    else {
      if (%pcon == on) {
        set %nov $2
        msg #PC 14The 2Novice (40+)14 world has ben set to02 %nov $+ 14.
      }
    }
  }
}
on *:TEXT:!setint *:#: {
  if ($nick !isreg $chan) {
    if (%int == $2) {
      notice $nick 14Your setting a world that is already set!
    }
    else {
      if (%pcon == on) {
        set %int $2
        msg #PC 14The 7Intermediate (70+)14 world has ben set to07 %int $+ 14.
      }
    }
  }
}
on *:TEXT:!setvet *:#: {
  if ($nick !isreg $chan) {
    if (%vet == $2) {
      notice $nick 14Your setting a world that is already set!
    }
    else {
      if (%pcon == on) {
        set %vet $2
        msg #PC 14The 4Vetran (100+)14 world has ben set to04 %vet $+ 14.
      }
    }
  }
}
on $*:TEXT:/^[!](suggest?(40|70|100)+)/Si:#:{
  if (!$2) || ($2 !isnum 2-144) { halt }
  if (40 isin $1) msg #pcstaff 7 $nick 14Suggested2 $2 14for the 2Novice (40+) 14World
  if (70 isin $1) msg #pcstaff 7 $nick Suggested7 $2 14for the 7Intermediate (70+) 14World
  if (100 isin $1) msg #pcstaff 7 $nick 14Suggested4 $2 14for the 4Vetran (100+) 14World
}
on $*:TEXT:/^[!](suggest) ((40|70|100)+)/Si:#:{
  if (!$3) || ($3 !isnum 2-144) { halt }
  if (40 isin $2) msg #pcstaff 7 $nick 14Suggested2 $3 14for the 2Novice (40+) 14World
  if (70 isin $2) msg #pcstaff 7 $nick 14Suggested7 $3 14for the 7Intermediate (70+) 14World
  if (100 isin $2) msg #pcstaff 7 $nick 14Suggested4 $3 14for the 4Vetran (100+) 14World
}
ctcp *:WORLD:*: { 
  if ($nick isreg $chan) || (%pcon == off) { halt } 
  msg #PC 7[«» 14Official World - 0788 «»] 7[«» 2Novice (40+) - %nov 7«»] 7[«» 7Intermediate (70+) - %int «»7] 7[7«» 4Veteran (100+) - %vet 7«»]
}