Something

on *:TEXT:!setpcw *:#: {
  if ($nick isop $chan || $nick ishop $chan) && ($2 isnum 1-144) {
    .hadd -m PCW $+($chan,Current) $2
    .hadd -m PCW $+($chan,Current) $nick
    .msg $chan The current PCW has been set to $2 by $nick $+ ! 
  }
}
on *:TEXT:!pcw:#: {
  if ($hget(PCW,$+($chan,Current))) {
    .notice $nick 1 $+ The current PCW for $chan is 12 $+ $hget(PCW,$+($chan,Current)) 1 $+ $iif($hget(PCW,$+($chan,Current)),set by12 $v1 $+ 1.)
  }
}
on *:TEXT:!suggest *:#: {
  .hadd -m PCW $+($chan,Suggested) $2
  .hadd -m PCW $+($chan,Suggestedby) $nick
  .msg $chan 1 $+ $nick Has suggested 12 $+ $2
  .hinc -m PCW $+($chan,$nick,Sug)
}
on *:TEXT:!setsuggest *:#: {
  if ($nick isop $chan || $nick ishop $chan) {
    .hadd -m PCW $+($chan,Current) $hget(PCW,$+($chan,Suggested))
    .msg $chan The current PCW has been set to $hget(PCW,$+($chan,Suggested)) by $nick $+ ! 
    .hinc -m PCW $+($chan,$hget(PCW,$+($chan,Suggestedby)),Good)
  }
}
on *:TEXT:!pcwstats:#: {
  .notice $nick You have 12 $+ $calc($hget(PCW,$+($chan,$nick,Sug)) + 0) 1 $+ Scouts! and $&
    12 $+ $calc($hget(PCW,$+($chan,$nick,Good)) + 0) 1 $+ of them were set by an op/hop!
}