Mine

on $*:TEXT:/^[!.]pcw|world/Si:#PC: {
  notice $nick 12[10«» 3Pest Control 10-3 $chan 10«»12] 12[10«» 2Novice - %nov 10«»12] 12[10«» 7Intermediate - %int 10«»12] 12[10«» 4Veteran - %vet 10«»12]
} 
on *:TEXT:!setnov *:#: {
  if ($ isin $2) { HALT }
  if ($nick !isreg $chan) {
    if (%nov == $2) {
      notice $nick 10Your setting a world that is already set!
    }
    else {
      set %nov $2
      msg $chan 12[10«» 3The 2 Novice3 World has been changed! !pcw to check 10«»12]
    }
  }
}
on *:TEXT:!setint *:#: {
  if ($ isin $2) { HALT }
  if ($nick !isreg $chan) {
    if (%vet == $2) {
      notice $nick 10Your setting a world that is already set!
    }
    else {
      set %int $2
    msg $chan  12[10«» 3The 7 Intermediate3 World has been changed! !pcw to check 10«»12]
    }
  }
}
on *:TEXT:!setvet *:#: {
  if ($ isin $2) { HALT }
  if ($nick !isreg $chan) {
    if (%vet == $2) {
      notice $nick 10Your setting a world that is already set!
    }
    else {
      set %vet $2
     msg $chan 12[10«» 3The 4 Veteran3 World has been changed! !pcw to check 10«»12]
    }
  }
}