Mine

#pcw on
on *:TEXT:!setpcw*:#: {      
  if ($nick isop $chan) || ($nick ishop $chan) && ($2 isnum 2-140) { set %world $2 | unset %suggested | set %pcnick $nick | set %pctime $ctime |  
    notice $nick 11,1The new PCW is 0,1 $2 . 
    notice $nick 11,1Suggested Worlds 0,1CLEARED 
  msg $chan 11,1A new PCW has been set by %pcnick $+ , type in 0,1!world11,1 to view the new world. }
elseif ($nick !isop $chan) || ($nick !ishop $chan) { notice $nick 11,1 You can't do that. } }

on *:TEXT:!clearpcw*:#: { 
  if ($nick isop $chan) || ($nick ishop $chan) { set %world NONE SET | set %pcnick NONE SET | unset %pctime | unset %suggested 
    notice $nick 11,1All PCW Functions have successfully been cleared. 
  msg $chan 11,1 The Current PCW Functions and variables have just been cleared. }
else { notice $nick You need to be a channel operator to do that ! } } }

on *:TEXT:!suggest *:#:{ 
if ($2 isnum 2-140) { set %suggested 4World $2.1 Suggested by $nick . -------- $addtok(%suggested,$2,32)  | notice $nick 11,1 You have suggested World $2 } }

on *:TEXT:!viewsuggests*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    msg $nick 11,1The current suggested worlds are: 
    msg $nick %Suggested 
else { notice $nick You cannot do that. } } }

on *:TEXT:!clearsuggests*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { unset %suggested | notice $nick 11,1Suggested Worlds 0,1CLEARED }
else { notice $nick You cannot do that. } }

on $*:TEXT:/!(pcw|world)/Si:#: {
  if ($nick !isreg $chan) { notice $nick 11,1The current Pest Control World is0,1 %world $+ . 11,1 The Pest Control World was set by4,1 %pcnick $+ 11,1 exactly9,1 $duration($calc($ctime - %pctime )) 11,1ago. }
elseif ($nick isreg $chan) { notice $nick 11,1You must be voiced or higher to do that. } } }
#pcw end