; ANY PROBLEMS CONTACT `UNKNOWN ON #PUGZILLA
on *:START:{ server irc.gamesurge.net }
on *:CONNECT:{ as auth spxhost2 #sparx }
on *:TEXT:*:#:{
if ($chan == $bot.chan) {
inc -u [ $+ [ $flood.time ] ] %spam. [ $+ [ $nick ] ]
if (%spam. [ $+ [ $nick ] ] > $flood.limit) {
inc %times. [ $+ [ $nick ] ]
if (%times. [ $+ [ $nick ] ] == 1) {
notice $nick $flood.nmsg
}
elseif (%times. [ $+ [ $nick ] ] == 2) {
kick # $nick $flood.kmsg
}
elseif (%times. [ $+ [ $nick ] ] == 3) {
unset $v1
cs $chan tb $wildsite $flood.btime $flood.bmsg
}
}
if (($left($1,1) == $trigger) && ($ulevel == 10)) {
if ($1 == $+($trigger,nick)) {
if (!$2) { notice $nick Invalid Syntax: nick <nickname> }
else { nick $2 | notice $nick Done. }
}
if ($1 == $+($trigger,bind)) {
if (!$2 || !$3 || $2 == mode) {
notice $nick Invalid Syntax: bind <command> <text>
notice $nick You can also include $ $+ open $ $+ sep $ $+ clos
notice $nick These are openers, seperators, and closers that can be set with set.
notice $nick Note: When binding DO NOT include the trigger in the command name.
}
else {
writeini vars.ini binds $2 $3-
notice $nick < $+ $2 $+ > $3-
}
}
if ($1 == $+($trigger,unbind)) {
if (!$2) {
notice $nick Invalid Syntax: unbind <command>
notice $nick This will unbind a command.
}
else {
remini vars.ini binds $2
notice $nick Removed command $2 $+ .
}
}
if ($1 == $+($trigger,adduser)) {
if ($left($2,4) != *!*@) { notice $nick Invalid Syntax: Use $+($trigger,adduser) <Address of user in the *!*@host form> }
else { auser 10 $2 | notice $nick Added $2 to the user list. }
}
if ($1 == $+($trigger,deluser)) {
if ($left($2,4) != *!*@) { notice $nick Invalid Syntax: Use $+($trigger,deluser) <Address of user in the *!*@host form> }
else { ruser $2 | notice $nick Removed $2 from the user list. }
}
if ($1 == $+($trigger,help)) { notice $nick Commands: Bind, Unbind, Adduser, Deluser }
if ($1 == $+($trigger,set)) {
if (!$2) { notice $nick Please use set <flood,bad-word,join-part,trigger,bind,ads,chan> }
if ($2 == chan) {
if (!$3) { notice $nick Invalid Syntax: set chan <#chan>. Set's the channel the bot should respond to. }
else { writeini vars.ini settings chan $3 | notice $nick Bot channel is now $bot.chan }
}
if ($2 == flood) {
if (!$3) { notice $nick Please use set flood <time,limit,notice-message,kick-message,ban-message,ban-time> }
if ($3 == time) {
if (!$4) { notice $nick Flood time: The amount of time the flood limit of messages can be sent in. }
if ($4) {
if ($4 !isnum) { notice $nick Please provided a number for the flood time. }
else { writeini vars.ini flood time $4 | notice $nick Flood time is now set to $flood.time }
}
}
if ($3 == limit) {
if (!$4) { notice $nick Flood limit: The amount of messages that can be sent in the flood time. }
if ($4) {
if ($4 !isnum) { notice $nick Please provided a number for the flood limit. }
else { writeini vars.ini flood limit $4 | notice $nick Flood limit is now set to $flood.limit }
}
}
if ($3 == ban-time) {
if (!$4) { notice $nick Ban time: The time the user will be banned from the channel for a flood. Provide it as you would for ChanServ (1d, 2w, etc.) }
if ($4) { writeini vars.ini flood bantime $4 | notice $nick Ban Time is now set to $flood.btime }
}
if ($3 == notice-message) {
if (!$4) { notice $nick Notice Message: The message sent to the offending user when he has reached the flood limit. }
if ($4) { writeini vars.ini flood noticemsg $4 | notice $nick Notice message is now set to $flood.nmsg }
}
if ($3 == kick-message) {
if (!$4) { notice $nick Kick Message: The message sent to the offending user when he has reached the flood limit. }
if ($4) { writeini vars.ini flood kickmsg $4 | notice $nick Kick message is now set to $flood.kmsg }
}
if ($3 == ban-message) {
if (!$4) { notice $nick Ban Message: The message sent to the offending user when he has reached the flood limit. }
if ($4) { writeini vars.ini flood banmsg $4 | notice $nick Ban message is now set to $flood.bmsg }
}
}
if ($2 == bad-word) {
if (!$3) { notice $nick Please use set bad-word <list,action,msg,remword,level> }
if ($3 == list) {
if (!$4) { notice $nick Type $1- <word [word word]> to add a word to the list. | notice $nick Current list: $iif($word.list,$v1,None.) }
else {
var %x = 1, %t = $4-
while ($strip($gettok(%t,%x,32))) {
if ($istok($word.list,$v1,32)) { goto already | break }
else { inc %x }
}
writeini vars.ini wordfilter list $word.list $4- | notice $nick Added $4- to the bad word list.
goto finish
:already
notice $nick One or more of the words you provided are already on the list. Please try again without these words.
}
}
if ($3 == remword) {
if (!$4) { notice $nick Type $1- <word [word word]> to remove a word from the list. | notice $nick Current list: $iif($word.list,$v1,None.) }
elseif (!$remtok($word.list,$4,1,32)) {
remini vars.ini wordfilter list
}
else {
writeini vars.ini wordfilter list $remtok($word.list,$4,1,32)
}
notice $nick Removed $4 from the bad word list.
}
if ($3 == action) {
if (!$4) { notice $nick Bad-Word Action: This can be any command used by ChanServ (kick, ban, tb, etc.) used to punish the offending user. }
else { writeini vars.ini wordfilter action $4- | notice $nick Bad-Word Action is now set to $4- }
}
if ($3 == msg) {
if (!$4) { notice $nick Bad-Word Message: This is the message sent to the offending user. }
else { writeini vars.ini wordfilter msg $4- | notice $nick Bad-Word Message is now set to $4- }
}
if ($3 == level) {
if ($4 != none && $4 != voice && $4 != op) { notice $nick Bad-Word Level: This is the max level of user protected from the bad-word action (set to none, voice, or op). }
else { writeini vars.ini wordfilter level $4 | notice $nick Bad-Word Level is now set to $4 }
}
}
if ($2 == trigger) {
if ($len($3) != 1) { notice $nick Trigger: Change the trigger of your binds }
else { writeini vars.ini settings trigger $3 | notice $nick Trigger is now set to $trigger }
}
if ($2 == ads) {
if (!$3) { notice $nick Please use set ads <action,msg,www,level> }
if ($3 == action) {
if (!$4) { notice $nick Ads Action: This can be any command used by ChanServ (kick, ban, tb, etc.) used to punish the offending user. }
else { writeini vars.ini ads action $4- | notice $nick Ads Action is now set to $4- }
}
if ($3 == msg) {
if (!$4) { notice $nick Ads Message: This is the message sent to the offending user. }
else { writeini vars.ini ads msg $4- | notice $nick Ads Message is now set to $4- }
}
if ($3 == www) {
if (($4 != 0) && ($4 != 1)) { notice $nick Ads WWW (Websites): Kicks the user for sending a website. (Set to 0 or 1) }
else { writeini vars.ini ads www $4 | notice $nick Ads WWW (Websites) is now $iif($ads.www,on.,off.) }
}
if ($3 == level) {
if ($4 != none && $4 != voice && $4 != op) { notice $nick Ads Level: This is the max level of user protected from the ads action (set to none, voice, or op). }
else { writeini vars.ini ads level $4 | notice $nick Ads Level is now set to $4 }
}
}
if ($2 == join-part) {
if (!$3) { notice $nick Please use set jp <action,msg,level> }
if ($3 == action) {
if (!$4) { notice $nick Join-Part Action: This can be any command used by ChanServ (kick, ban, tb, etc.) used to punish the offending user. }
else { writeini vars.ini jp action $4- | notice $nick Join-Part Action is now set to $4- }
}
if ($3 == msg) {
if (!$4) { notice $nick Join-Part Message: This is the message sent to the offending user. }
else { writeini vars.ini jp msg $4- | notice $nick Join-Part Message is now set to $4- }
}
if ($3 == level) {
if ($4 != none && $4 != voice && $4 != op) { notice $nick Join-Part Level: This is the max level of user protected from the jp action (set to none, voice, or op). }
else { writeini vars.ini jp level $4 | notice $nick Join-Part Level is now set to $4 }
}
if ($3 == time) {
if ($4 !isnum) { notice $nick Join-Part Time: This is the time the user must idle the channel to avoid the punishment. (In seconds) }
else { writeini vars.ini jp time $4 | notice $nick Join-Part Time is now set to $4 }
}
}
if ($2 == bind) {
if (!$3) { notice $nick Please use bind <opener,seperator,closer,mode> }
if ($3 == opener) {
if (!$4) { notice $nick Invalid Syntax: Use opener <text> }
if ($4) { alias open return $4- | notice $nick Opener: $open }
}
if ($3 == closer) {
if (!$4) { notice $nick Invalid Syntax: Use closer <text> }
if ($4) { alias clos return $4- | notice $nick Closer: $clos }
}
if ($3 == seperator) {
if (!$4) { notice $nick Invalid Syntax: Use seperator <text> }
if ($4) { alias sep return $4- | notice $nick Seperator: $sep }
}
if ($3 == mode) {
if ($4 != msg && $4 != notice) { notice $nick Invalid Syntax: Use mode <msg,notice> }
if ($4) { writeini vars.ini binds mode $4 | notice $nick Bind Mode: $bind.mode }
}
}
}
}
if (($left($1,1) == $trigger) && ($bind.get($right($1,-1)))) {
if ($bind.mode == notice) {
notice $nick $bind.get($right($1,-1))
}
if ($bind.mode == msg) {
msg $chan $bind.get($right($1,-1))
}
goto finish
}
var %x = 1, %t = $1-
while ($strip($gettok(%t,%x,32))) {
if ($istok($word.list,$v1,32)) { goto bad-word | break }
else { inc %x }
}
if ((*www.*.* iswm $strip($1-)) && ($ads.www)) goto adfound
var %w = 1, %q = $1-
while ($gettok(%q,%w,32)) {
if ($left($strip($v1),1) == $chr(35)) { goto adfound | break }
else { inc %w }
}
goto finish
:adfound
if ($ads.level == voice) {
if ($nick isreg $chan) {
$ads.action $nick $ads.msg
}
}
elseif ($ads.level == op) {
if (($nick isvoice $chan) || ($nick isreg $chan)) {
if ($istok($ads.action,tb,32)) {
cs $chan $gettok($ads.action,1,32) $nick $gettok($ads.action,2,32) $ads.msg
}
cs $chan $ads.action $nick $ads.msg
}
}
elseif ($ads.level == none) {
if ($istok($ads.action,tb,32)) {
cs $chan $gettok($ads.action,1,32) $nick $gettok($ads.action,2,32) $ads.msg
}
cs $chan $ads.action $nick $ads.msg
}
goto finish
:bad-word
if ($word.level == voice) {
if ($nick isreg $chan) {
$word.action $nick $word.msg
}
}
elseif ($word.level == op) {
if (($nick isvoice $chan) || ($nick isreg $chan)) {
if ($istok($word.action,tb,32)) {
cs $chan $gettok($word.action,1,32) $nick $gettok($word.action,2,32) $word.msg
}
cs $chan $word.action $nick $word.msg
}
}
elseif ($word.level == none) {
if ($istok($word.action,tb,32)) {
cs $chan $gettok($word.action,1,32) $nick $gettok($word.action,2,32) $word.msg
}
cs $chan $word.action $nick $word.msg
}
:finish
}
}
on *:JOIN:$bot.chan:{
set %join. [ $+ [ $wildsite ] ] $time
}
on *:PART:$bot.chan:{
if ($calc($ctime($time) - $ctime(%join. [ $+ [ $wildsite ] ])) < $jp.time) {
$jp.action $wildsite $jp.msg
}
}
alias bot.chan {
return $readini(vars.ini,settings,chan)
}
alias flood.time {
return $readini(vars.ini,flood,time)
}
alias flood.btime {
return $readini(vars.ini,flood,bantime)
}
alias flood.limit {
return $readini(vars.ini,flood,limit)
}
alias flood.nmsg {
return $readini(vars.ini,flood,noticemsg)
}
alias flood.kmsg {
return $readini(vars.ini,flood,kickmsg)
}
alias flood.bmsg {
return $readini(vars.ini,flood,banmsg)
}
alias word.list {
return $readini(vars.ini,wordfilter,list)
}
alias word.action {
return $readini(vars.ini,wordfilter,action)
}
alias word.msg {
return $readini(vars.ini,wordfilter,msg)
}
alias word.level {
return $readini(vars.ini,wordfilter,level)
}
alias ads.action {
return $readini(vars.ini,ads,action)
}
alias ads.msg {
return $readini(vars.ini,ads,msg)
}
alias ads.level {
return $readini(vars.ini,ads,level)
}
alias ads.www {
return $readini(vars.ini,ads,www)
}
alias bind.mode {
return $readini(vars.ini,binds,mode)
}
alias bind.get {
return $readini(vars.ini,binds,$1)
}
alias trigger {
return $readini(vars.ini,settings,trigger)
}
alias jp.action {
return $readini(vars.ini,ads,action)
}
alias jp.msg {
return $readini(vars.ini,ads,msg)
}
alias jp.level {
return $readini(vars.ini,ads,level)
}
alias jp.time {
return $readini(vars.ini,ads,time)
}
------------------------------------------------------
make a var file
------------------------
[flood]
time=10000000000000000000000000000
limit=10000000000000000000000000000
noticemsg=You've been warned for spamming.
bantime=10min
kickmsg=You've been kicked for spamming.
banmsg=You've been banned for $flood.btime for spamming.
[settings]
trigger=.
chan=#spx
[wordfilter]
level=op
action=k
msg=Out with your foul mouth!
list=fuck
[ads]
level=op
action=k
msg=Please stop advertising.
www=1
[jp]
action=tb 20min
msg=Stay here or stay out!
time=300
[binds]
noob=Noooooooobie Crisp!
mode=msg