....K....

#world on
on 5:text:!setpcw*:#:{
  .mode $chan +i
  .set %PcwSetByNick $nick
  .set %PCWTime $ctime
  .set %world $2
  .timer 1 4 set %world $2- | msg $chan 14The new Pest Control world is 7[14 $+ %world $+ 7]14. The !pcw command is now offline to prevent flooding. The timer will continue to name the world for the next 2 minutes.
  .timer 1 5 disable #world
  .timer 1 15 msg $chan 14The new Pest Control world is 7[14 $+ %world $+ 7]14.
  .timer 1 30 msg $chan 14The new Pest Control world is 7[14 $+ %world $+ 7]14. 
  .timer 1 45 msg $chan 14The new Pest Control world is 7[14 $+ %world $+ 7]14. 
  .timer 1 60 msg $chan 14The new Pest Control world is 7[14 $+ %world $+ 7]14. 
  .timer 1 75 msg $chan 14The new Pest Control world is 7[14 $+ %world $+ 7]14. 
  .timer 1 90 msg $chan 14The new Pest Control world is 7[14 $+ %world $+ 7]14. 
  .timer 1 105 msg $chan 14The new Pest Control world is 7[14 $+ %world $+ 7]14. 
  .timer 1 120 msg $chan 14The new Pest Control world is 7[14 $+ %world $+ 7]14. 
  .timer 1 123 .enable #world 
  .timer 1 123 .mode $chan -i
  .timer 1 123 msg $chan 14The !pcw command is back up. Please do not spam this.
}
#world end

#world on
on *:text:!pcw:#:{ 
  inc %num 
  inc -u120 $+(%,cnt.,$nick) 
  if ($($+(%,cnt.,$nick),2) <= 3) { 
    notice $nick 7[14The current Pest Control world is 7[14 $+ %world $+ 7] [14Set by: %PcwSetByNick $+ 7] [14Set $replace($duration($calc($ctime - %PCWTime)),hrs,14 hours $+ $chr(44) $+ 7,mins,14 minutes $+ $chr(44) $+ 7,secs,14 seconds ago.7] [14Times used: %num 7]
  } 
  else { 
    ban -ku30 $chan 14 $+ $nick triggered the !pcw command 3 times in 120 seconds. This is flood.7 [14 $+ 30 Second ban7]14. | unset $+(%,cnt.,$nick)
  } 
}
#world end 

on 5:text:!pcwon:#:{ .enable #world | msg $chan 14The !pcw is now 3ON14. }
on 5:text:!pcwoff:#:{ .disable #world | msg $chan 14The !pcw is now 4OFF14. }