on *:TEXT:!setpcw*:#: {
if ($nick isop $chan || $nick ishop $chan) {
.hadd -m PCW $+($chan,Current) $2
.msg $chan The current PCW has been set to $2 by $nick $+ !
}
}
on *:TEXT:!pcw:#: {
if ($hget(PCW,$+($chan,Current)) != $chr(32)) {
/notice $nick $+ The current PCW for $chan is $+ $hget(PCW,$+($chan,Current))
}
}
on *:TEXT:!suggest*:#: {
.hadd -m PCW $+($chan,Suggested) $2
.hadd -m PCW $+($chan,Suggestedby) $nick
.msg $chan $+ $nick Has suggested $+ $2
.hinc -m PCW $+($chan,$nick,Sug)
}
on *:TEXT:!setsuggest*:#: {
if ($nick isop $chan || $nick ishop $chan || $address($nick,4) isin $hget(PCW,$+($chan,Allowed))) {
.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 $+ $calc($hget(PCW,$+($chan,$nick,Sug)) + 0) $+ Scouts! and $+ $calc($hget(PCW,$+($chan,$nick,Good)) + 0) $+ of them were set by an op/hop!
}
on *:TEXT:!pcwallow*:#: {
if ($nick isop $chan || $nick ishop $chan) {
if ($address($2,4) isin $hget(PCW,$+($chan,Allowed))) {
.notice $nick $+ $2 was found in the PCW allow list already!
halt
}
.hadd -m PCW $+($chan,Allowed) $hget(PCW,$+($chan,Allowed)) $address($2,4)
.notice $nick $+ $2 ( $+ $address($nick,4) $+ ) was added to the allow list for setting the PCW type !pcwremove $2 to undo this
}
}
on *:TEXT:!pcwremove*:#: {
if ($nick isop $chan || $nick ishop $chan) {
if ($address($2,4) isin $hget(PCW,$+($chan,Allowed))) {
.hadd -m PCW $+($chan,Allowed) $remove($hget(PCW,$+($chan,Allowed)),$address($2,4))
.notice $nick $+ $2 ( $+ $address($nick,4) $+ ) was removed from the the allow list for setting the PCW type !pcwallow $2 to undo this
}
else {
.notice $nick $+ $2 was NOT found in the PCW allow list!
halt
}
}
}