on *:text:!joinscripton:#: {
if (%onjoinscript [ $+ [ $chan ] ] == on) { .notice $nick The on join script for $chan is already on }
if (%pestcontroloffon [ $+ [ $chan ] ] == on) { halt }
if (($nick isop $chan) || ($nick ishop $chan) || ($nick == aturner44)) {
set %onjoinscript [ $+ [ $chan ] ] on
.msg $chan The on join script for $chan is now on. }
}
on *:text:!joinscriptoff:#: {
if (%onjoinscript [ $+ [ $chan ] ] == off) { .notice $nick The on join script for $chan is already off }
if (%pestcontroloffon [ $+ [ $chan ] ] == off) { halt }
if (($nick isop $chan) || ($nick ishop $chan) || ($nick == aturner44)) {
set %onjoinscript [ $+ [ $chan ] ] on
.msg $chan The on join script for $chan is now off. }
}
on *:part:#: {
if ($address($nick,2) == $address($me,2)) { halt }
if ($nick == $me) { halt }
/notice $nick Thankyou for visiting $chan $+ , please come again.
}
on *:kick:#: {
/illegalcheck $1-
if ($knick == |God|Bot|) {
/remini chanlist.ini chans $chan null
inc %kickcounter [ $+ [ $chan ] ]
notice aturner44 I was kicked out of $chan by $nick $+ .
}
}
on *:invite:#: {
if (%kickcounter [ $+ [ $chan ] ] >= 5) { notice $nick Sorry $chan is blacklisted | HALT }
if (%kickcounter [ $+ [ $chan ] ] == $null) { set %kickcounter [ $+ [ $chan ] ] 0 }
join $chan
/msg $chan Hello i am |God|Bot| for my commands type !commands, i have been kicked %kickcounter [ $+ [ $chan ] ] $+ /5, i can be kicked $calc( 5 - %kickcounter [ $+ [ $chan ] ] ) more times.
}
on *:text:!blacklist*:#: {
/illegalcheck $1-
set %kickcounter [ $+ [ $2 ] ] 5
/notice eletric_god $+ $2 is now black listed.
}
on $*:TEXT:/^(!part|!gtfo|!leave)/Si:#: {
if ($nick isreg $chan || $nick isvoice $chan) { notice $nick Sorry $nick to make me leave you have to have op/half-op status. | halt }
if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $me) {
.msg $chan Goodbye $chan i enjoyed my stay, i was told to part by $nick $+ .
/part $chan
}
}
on *:text:*:?: {
.msg $nick Please dont PM me i am a bot, thankyou.
close -m $nick
}
on *:text:!channels:#: {
inc %served
var %x = 1
var %op = 0, %hop = 0, %voice = 0, %reg = 0
while ($me ison $chan(%x)) {
if ($me isop $chan(%x)) inc %op
if ($me ishop $chan(%x)) inc %hop
if ($me isvoice $chan(%x)) inc %voice
if ($me isreg $chan(%x)) inc %reg
inc %x
}
msg $chan I am in $calc(%x - 1) channel $+ (s) I'm op in %op of them. Im Halfop in %hop of them. Im Voice in %voice of them. Im Regular in %reg of them.
}