on $*:TEXT:/^[!.](pkw|pw)/Si:#:{ if ($chan == #PC) { HALT }
inc %pcwused 1
notice $nick 7The Pking World for $chan is currently 4 9[4 $readini(pcw.ini,worlds,$chan) 9] 7set by 1 $readini(pcws.ini,Chansetter,$chan) 7approximately 1 $duration($calc($ctime - %pcwTime $chan)) 7 ago. }
on $*:TEXT:/^[!@.]set(pkw|pw)/Si:#:{ if ($nick isop $chan) {
writeini pcw.ini Worlds $chan $2-
set %pcwTime $ctime $chan
writeini pcws.ini ChanSetter $chan $nick
msg $chan 7The Pking World has been changed to4 9[4 $2- 9] 7by 1 $nick $+ .
}
}
on $*:TEXT:/^[!@.](wsuggest|suggest)/Si:#:{ if ($readini(pcw.ini,$chan,sscript) == on) {
/writeini suggested.ini $chan $2 $calc($readini(suggested.ini,$2,suggested) + 1)
if ($readini(nicksuggested.ini,suggestppl,$nick)) { notice $nick You have allready suggested! } { HALT }
/timer10 1 300 /remini suggested.ini $chan $2 $calc($readini(suggestd.ini,$2,suggested) - 1)
if ($readini(suggested.ini,$2,suggested) >= 15) {
/remove suggested.ini
/remove nicksuggested.ini
writeini pcw.ini Worlds $chan $2
msg $chan The world has been changed to %world $+
halt
}
else {
/writeini nicksuggested.ini SuggestPpl $nick 1 | notice $nick Thank you for suggesting!
}
}
}
on *:TEXT:!view*:#:{ if ($readini(suggest.ini,$2,suggested) == $null) { notice $nick $2 has not been suggested! | halt }
notice $nick $readini(suggested.ini,$2,suggested)
}
on *:TEXT:!pkin*:#:{ if ($nick !isreg $chan) || ($readini(click.ini,click,$address($nick,2)) == staff) || ($readini(click.ini,click,$address($nick,2)) == admin) {
if (*on* iswm $2) { writeini pcw.ini $chan sscript on | msg $chan Suggest script now on. | halt }
if (*off* iswm $2) { remini pcw.ini $chan sscript | msg $chan Suggest script now off. | halt }
}
}
on *:TEXT:!used*:#:{ notice $nick The !pcw command has been used %pcwused times. }