Mine

on *:TEXT:!setpcw*:#:{ 
  elseif (%pestscript [ $+ [ $chan ] ] != On) || ($2 !isnum 1-144) {
    /HALT
  }
  elseif (%pestscript [ $+ [ $chan ] ] == ON) && ($2 isnum 2-144) && ($nick !isreg $chan) && (%waittime [ $+ [ $chan ] ] > 0) {
    /notice $nick 14][2Please wait4 %waittime [ $+ [ $chan ] ] 2seconds before changing the world14][
    /halt
    /set %antiflood 3
    /dec %worldsets [ $+ [ $nick ] ] [ $+ [ $chan ] ] 1
    /dec -c %antiflood 1
  }
  elseif (*setpcwn* iswm $1) && (%pestscript [ $+ [ $chan ] ] == ON) && ($2 isnum 2-144) && ($nick !isreg $chan) && (%waittime [ $+ [ $chan ] ] <= 0) {
    /inc %worldsets [ $+ [ $nick ] ] [ $+ [ $chan ] ] 1
    /msg $chan 14][2The Novice World for4 $chan 2has been changed to4 $2 2by4 $nick $+ 14][
    /set %pcworldn [ $+ [ $chan ] ] $2
    /set %pcsettern [ $+ [ $chan ] ] $nick 
    /set %waittime [ $+ [ $chan ] ] 90
    /set %antiflood 3
    /dec -c %antiflood 1
    /dec -c %waittime [ $+ [ $chan ] ] 1
    /timer6969 [ $+ [ $chan  ] ] 0 300 [ $+ [ $chan ] ] /msg $chan 14][2Pest Control World:4 %pcworld [ $+ [ $chan  ] ] $+ 14][ 14][2World Set By:7 %pcsetter [ $+ [ $chan ] ] $+ 14][
  }
  elseif (*setpcwi* iswm $1) && (%pestscript [ $+ [ $chan ] ] == ON) && ($2 isnum 2-144) && ($nick !isreg $chan) && (%waittime [ $+ [ $chan ] ] <= 0) {
    /inc %worldsets [ $+ [ $nick ] ] [ $+ [ $chan ] ] 1
    /msg $chan 14][2The Intermediate World for4 $chan 2has been changed to4 $2 2by4 $nick $+ 14][
    /set %pcworldi [ $+ [ $chan ] ] $2
    /set %pcsetteri [ $+ [ $chan ] ] $nick 
    /set %waittime [ $+ [ $chan ] ] 90
    /set %antiflood 3
    /dec -c %antiflood 1
    /dec -c %waittime [ $+ [ $chan ] ] 1
    /timer6969 [ $+ [ $chan  ] ] 0 300 [ $+ [ $chan ] ] /msg $chan 14][2Novice World:4 %pcworldn [ $+ [ $chan ] ] 7-4 %pcsettern [ $+ [ $chan ] ] $+ 14][ 14][2Intermediate World:4 %pcworldi [ $+ [ $chan ] ] 7-4 %pcsetteri [ $+ [ $chan ] ] $+ 14][ 14][2Veteran World:4 %pcworldv [ $+ [ $chan ] ] 7-4 %pcsetterv [ $+ [ $chan ] ] $+ 14][
  }
  elseif (*setpcwv* iswm $1) && (%pestscript [ $+ [ $chan ] ] == ON) && ($2 isnum 2-144) && ($nick !isreg $chan) && (%waittime [ $+ [ $chan ] ] <= 0) {
    /inc %worldsets [ $+ [ $nick ] ] [ $+ [ $chan ] ] 1
    /msg $chan 14][2The Verteran World for4 $chan 2has been changed to4 $2 2by4 $nick $+ 14][
    /set %pcworldi [ $+ [ $chan ] ] $2
    /set %pcsetteri [ $+ [ $chan ] ] $nick 
    /set %waittime [ $+ [ $chan ] ] 90
    /set %antiflood 3
    /dec -c %antiflood 1
    /dec -c %waittime [ $+ [ $chan ] ] 1
    /timer6969 [ $+ [ $chan  ] ] 0 300 [ $+ [ $chan ] ] /msg $chan 14][2Novice World:4 %pcworldn [ $+ [ $chan ] ] 7-4 %pcsettern [ $+ [ $chan ] ] $+ 14][ 14][2Intermediate World:4 %pcworldi [ $+ [ $chan ] ] 7-4 %pcsetteri [ $+ [ $chan ] ] $+ 14][ 14][2Veteran World:4 %pcworldv [ $+ [ $chan ] ] 7-4 %pcsetterv [ $+ [ $chan ] ] $+ 14][
  }
  elseif (*setpcwa* iswm $1) && (%pestscript [ $+ [ $chan ] ] == ON) && ($2 isnum 2-144) && ($nick !isreg $chan) && (%waittime [ $+ [ $chan ] ] <= 0) {
    /inc %worldsets [ $+ [ $nick ] ] [ $+ [ $chan ] ] 1
    /msg $chan 14][2All the Worlds for4 $chan 2has been changed to4 $2 2by4 $nick $+ 14][
    /set %pcworldn [ $+ [ $chan ] ] $2
    /set %pcsettern [ $+ [ $chan ] ] $nick 
    /set %pcworldi [ $+ [ $chan ] ] $2
    /set %pcsetteri [ $+ [ $chan ] ] $nick 
    /set %pcworldv [ $+ [ $chan ] ] $2
    /set %pcsetterv [ $+ [ $chan ] ] $nick 
    /set %waittime [ $+ [ $chan ] ] 90
    /set %antiflood 3
    /dec -c %antiflood 1
    /dec -c %waittime [ $+ [ $chan ] ] 1
    /timer6969 [ $+ [ $chan  ] ] 0 300 [ $+ [ $chan ] ] /msg $chan 14][2Novice World:4 %pcworldn [ $+ [ $chan ] ] 7-4 %pcsettern [ $+ [ $chan ] ] $+ 14][ 14][2Intermediate World:4 %pcworldi [ $+ [ $chan ] ] 7-4 %pcsetteri [ $+ [ $chan ] ] $+ 14][ 14][2Veteran World:4 %pcworldv [ $+ [ $chan ] ] 7-4 %pcsetterv [ $+ [ $chan ] ] $+ 14][
  }
}