on *:text:*follow me*:#troyl:{
; check if user is not warned yet
if ($nick isOP #) { return }
if !$istok(%fm.warned,$nick,32) {
; warning user
var %w $rand(1,5)
if (%w == 1) describe $chan @ $+ $nick -> rooBot No Self Promo! [warning]
elseif (%w == 2) describe $chan @ $+ $nick -> rooBot Hey! I can do this all day pal [warning]
elseif (%w == 3) describe $chan @ $+ $nick -> rooBot What are you on about? [stop self promoting] [warning]
elseif (%w == 4) describe $chan @ $+ $nick -> rooBot You're mistaken [stop self promoting] [warning]
elseif (%w == 5) describe $chan @ $+ $nick -> cmonBruh [stop self promoting] [warning]
msg $chan /timeout $nick 1 Self Promo [warning] [Automated By TroyBot]
; add user to %caps.warned, so we can check it later
set -e %fm.warned $addtok(%fm.warned,$nick,32)
; set timer to remove user from %caps.warned after 300s
.timer 1 120 /unset %fm.warned $nick
}
else {
; so user is already warned..
var %b $rand(1,5)
if (%b == 1) describe $chan @ $+ $nick -> I tried to warn you [stop self promoting]
elseif (%b == 2) describe $chan @ $+ $nick -> Maybe you should just sit out for a bit [stop self promoting]
elseif (%b == 3) describe $chan @ $+ $nick -> Come back in 5 minutes [stop self promoting]
elseif (%b == 4) describe $chan @ $+ $nick -> Ya, lets not do that. Enjoy your timeout [stop self promoting]
elseif (%b == 5) describe $chan @ $+ $nick -> I can do this all day buddy [stop self promoting]
msg $chan /timeout $nick 300 Self Promoting After Being Warned [Automated By TroyBot]
}
}