on $*:TEXT:/^[`!@.](leave feedback|leave comment|add comment|add feedback)/Si:#thepc.feedback:{
if ($nick !isreg #thepc) && ($nick ison #thepc) {
if (!$3-) {
if ($read(feedback.txt,w,* $+ $($+($nick,$chr(32),$address($nick,2))) $+ *)) && (%spammer [ $+ [ $nick ] ] == yes) {
notice $nick You have already left a comment with in the last 10 minutes
}
else {
notice $nick Please leave some comments, if you leave abuse expect a 4blacklist from #thepc channels
}
}
if ($3-) {
if ($read(feedback.txt,w,* $+ $($+($nick,$chr(32),$address($nick,2))) $+ *)) && (%spammer [ $+ [ $nick ] ] == yes) {
notice $nick You have already left a comment with in the last 10 minutes
}
else {
write feedback.txt $nick (Host: $address($nick,2) at Time: $time (GMT) Date: $date $+ ) COMMENTED: $3-
notice $nick Feedback added, You may add another comment in 10 minutes
set -u600 %spammer [ $+ [ $nick ] ] yes
}
}
}
}
on $*:TEXT:/^[`!@.]p(lay) feedback/Si:#thepc.feedback:{
if ($nick isop #thepc) || ($nick ishop #thepc) && ($nick ison #thepc) {
if (%protect == yes) {
notice $nick This command has been used already with in the minute, pls wait till min is over
}
else {
set -u60 %protect yes
set %playpls $iif(($left($1,1) == @),play #thepc.feedback,play $nick)
%playpls feedback.txt
}
}
}
on $*:TEXT:/^[`!@.]clear feedback/Si:#thepc.feedback:{
if ($nick isop #thepc) || ($nick ishop #thepc) {
write -c feedback.txt
msg $chan Feedback Database cleared
}
}
on $*:TEXT:/^[`!@.]feedback/Si:#thepc.feedback:{
set %playpls $iif(($left($1,1) == @),msg #thepc.feedback,notice $nick)
var %x = 1
while (%x <= $lines(feedback.txt)) {
var %o = $read(feedback.txt,w,* $+ $($+($2,$chr(32),$address($2,2))) $+ *, %x)) {
%playpls $iif(%o,%o,$null)
inc %x }
else { inc %x }
}
}