rendered paste body;##########################################################
;#####bxi`s auth/user system(gamesurge) #bxi########
;##########################################################
on *:TEXT:@*:%my.chan: {
set %auth.nick $nick
set %auth.command $1-
whois $nick
}
raw 330:*: {
set %auth.user $3
if (%auth_ban == 1 ) {
set %auth.level $null
set %auth.level $readini(data.ini,users,%auth.user)
if (!%auth.level) {
set %auth.level 0
}
if (%auth.level >= %b.auth_level) {
msg %my.chan %skin.start Ban %skin.mid $3 $+ ( $+ %auth.nick $+ ) has equal or greater access, you cannot ban them %skin.end
set %auth_ban 0
}
elseif (%auth.level < %b.auth_level) {
msg chanserv %my.chan ban %auth.nick %auth.b_msg
msg %my.chan %skin.start Ban %skin.mid $3 $+ ( $+ %auth.nick $+ ) has been Banned Reason:5 %auth.k_msg %skin.end
set %auth_ban 0
}
}
if (%auth_kick == 1) {
set %auth.level $null
set %auth.level $readini(data.ini,users,%auth.user)
if (!%auth.level) {
set %auth.level 0
}
if (%auth.level >= %k.auth_level) {
msg %my.chan %skin.start Kick %skin.mid $3 $+ ( $+ %auth.nick $+ ) has equal or greater access, you cannot kick them %skin.end
set %auth_kick 0
}
elseif (%auth.level < %k.auth_level) {
msg chanserv %my.chan kick %auth.nick %auth.k_msg
msg %my.chan %skin.start Kick %skin.mid $3 $+ ( $+ %auth.nick $+ ) has been kicked Reason:5 %auth.k_msg %skin.end
set %auth_kick 0
}
}
elseif (%auth_add.user == 1) {
writeini data.ini users %auth.user %auth_add.level
msg %my.chan %skin.start User(s) %skin.mid $3 $+ ( $+ %auth.nick $+ ) has been added with access %auth_add.level %skin.end
set %auth_add.user 0
}
elseif (%auth_del.user == 1) {
set %auth.level $readini(data.ini,users,%auth.user)
if (%auth.level >= %auth_del.level) {
msg %my.chan %skin.start User(s) %skin.mid $3 $+ ( $+ %auth.nick $+ ) has not been deleted, your access is to low %skin.end
set %auth_del.user 0
}
else {
writeini data.ini users %auth.user 0
msg %my.chan %skin.start User(s) %skin.mid $3 $+ ( $+ %auth.nick $+ ) has been removed %skin.end
set %auth_del.user 0
}
}
elseif (%auth_axs.status == 1) {
set %auth_axs.status 0
set %auth.level $null
set %auth.level $readini(data.ini,users,%auth.user)
if (!%auth.level) {
set %auth.level 0
}
msg %my.chan %skin.start User(s) %skin.mid %auth_axs.nick2 $+ ( $+ %auth.user $+ ) has %auth.level access to Me 0(6 $+ $me $+ 0,1) %skin.end
}
elseif (%auth_clvl.user == 1) {
set %auth_clvl.user 0
set %auth.level $null
set %auth.level $readini(data.ini,users,%auth.user)
if (!%auth.level) {
set %auth.level 0
}
if (%auth.level < %auth_clvl.level2) && (%auth.level > 0) {
writeini data.ini users %auth.user %auth_clvl.level
msg %my.chan %skin.start User(s) %skin.mid %auth.nick $+ ( $+ %auth.user $+ ) now has %auth_clvl.level access to Me 0(6 $+ $me $+ 0,1) %skin.end
}
elseif (%auth.level >= %auth_clvl.level2) {
msg %my.chan %skin.start User(s) %skin.mid %auth.nick $+ ( $+ %auth.user $+ ) has equal or greater access to Me 0(6 $+ $me $+ 0.1) - 4Permission Denied %skin.end
}
else {
msg %my.chan %skin.start User(s) %skin.mid %auth.nick $+ ( $+ %auth.user $+ ) does not have access to Me 0(6 $+ $me $+ 0,1) %skin.end
}
}
else {
unset %auth.level
set %auth.level $readini(data.ini,users,%auth.user)
if (%auth_join.status = 1) {
if (%auth.level >= 500) {
msg %my.chan %skin.start User(s) %skin.mid %auth.nick is owner of me $+ 0(6 $+ $me $+ 0,1) %skin.end
unset %auth.level
}
set %auth_join.status 0
halt
}
auth_commands %auth.command
}
}
on *:JOIN:%my.chan:{
unset %auth.level
set %auth.nick $nick
set %auth_join.status 1
whois $nick
}
raw 401:*: {
set %auth.user Not Authed
}
on *:CONNECT:*:{
auto_channel
}
alias auth_commands {
if ($1 == @add) {
if ($2 == quote) && (%auth.level >= 498) {
write quotes.txt $3-
msg %my.chan %skin.start Quote %skin.mid 14" $+ $3- $+ "15 added to quotes %skin.end
}
if ($2 == user) {
if ($4 >= %auth.level) {
msg $my.chan %skin.start User(s) %skin.mid You do not have $4 access to add someone %skin.end
halt
}
if (!$3) || (!$4) { msg %my.chan %skin.start User(s) %skin.mid Incorrect Syntax, @add user <user> <level> %skin.end | halt }
set %auth_add.user 1
set %auth_add.nick %auth.nick
set %auth.nick $3
set %auth_add.level $4
whois %auth.nick
}
if ($2 == idle) && (%auth.level >= 400) {
set %auto.chan_lines $lines("auto_channels.txt")
set %auto_channel_done 1
while (%auto_channel_done <= %auto.chan_lines) {
set %current_check $read(auto_channels.txt,%auto_channel_done)
if (%current_check == $3) {
set %auto_channel.there 1
msg %my.chan %skin.start Channel(s) %skin.mid $3 is already being auto idled %skin.end
halt
}
inc %auto_channel_done
}
if ($3 == #bxi) { halt }
write auto_channels.txt $3
join $3
msg %my.chan %skin.start Channel(s) %skin.mid $3 added to auto idle list %skin.end
}
}
if ($1 == @chans) {
unset %total_channels
set %auto.chan_lines $lines("auto_channels.txt")
set %auto_channel_done 1
while (%auto_channel_done <= %auto.chan_lines) {
set %total_channels %total_channels $read(auto_channels.txt,%auto_channel_done)
inc %auto_channel_done
}
msg %my.chan %skin.start Channel(s) %skin.mid Auto Idle Channel(s): %total_channels %skin.end
}
if ($1 == @a) {
if ($2) {
set %auth_axs.status 1
set %auth_axs.nick %auth.nick
set %auth_axs.nick2 $2
whois $2
}
else {
msg %my.chan %skin.start User(s) %skin.mid %auth.nick has %auth.level access to Me 0(6 $+ $me $+ 0,1) %skin.end
}
}
if ($1 == @set) && (%auth.level == 500) {
if ($2 == bxi) {
if ($3) {
set %bxi_status $3-
msg %my.chan %skin.start bxi %skin.mid bxi's Status set to $3- %skin.end
}
}
}
if ($1 == @clvl) {
if ($3 >= %auth.level) {
msg %my.chan %skin.start User(s) %skin.mid You do not have $3 access to clvl someone %skin.end
halt
}
set %auth_clvl.user 1
set %auth_clvl.nick %auth.nick
set %auth.nick $2
set %auth_clvl.level $3
set %auth_clvl.level2 %auth.level
whois $2
}
;#############################################
if ($1 == @k) && (%auth.level >= 200) {
if ($2) {
set %auth_kick 1
set %auth.nick $2
set %auth.k_msg $3-
set %k.auth_level %auth.level
whois $2
}
else {
msg %my.chan %skin.start Kick %skin.mid Incorrect Syntax, @k <nick> <reason>(optional) %skin.end
}
}
if ($1 == @b) && (%auth.level >= 200) {
if ($2) {
set %auth_ban 1
set %auth.nick $2
if ($3) {
set %auth.b_msg $3-
}
set %b.auth_level %auth.level
whois $2
}
else {
msg %my.chan %skin.start Ban %skin.mid Incorrect Syntax, @b <nick> <reason>(optional) %skin.end
}
}
if ($1 == @v && (%auth.level >= 200) {
if ($2) {
msg %my.chan $2 has been +v in $chan $chan $+($chan,.)
}
else {
cs %my.chan voice $2-
}
}
if ($1 == @op) && (%auth.level >= 200) {
if ($2) {
msg %my.chan $2 is already oped in $chan $+($chan,.)
}
else {
cs %my.chan op $2-
}
}
if ($1 == @addop) && (%auth.level >= 200) {
if ($2) {
msg %my.chan $2 has been added to $chan userlist $+($chan,.)
}
else {
cs %my.chan addop $2-
}
}
if ($1 == @deop) && (%auth.level >= 200) {
if ($2) {
msg %my.chan $2 has been -o in $chan $+($chan,.)
}
else {
cs %my.chan deop $2-
}
}
if ($1 == @devoice) && (%auth.level >= 200) {
if ($2) {
msg %my.chan $2 has been -v in $chan $+($chan,.)
}
else {
cs %my.chan devoice $2-
}
}if ($1 == @deuser && (%auth.level >= 200) {
if ($2) {
msg %my.chan $2 has been removed from $chan userlist $chan $+($chan,.)
}
else {
cs %my.chan deluser $2-
}
}
if ($1 == @users) {
set %auth_users $lines(data.ini)
set %auth_done_users 2
unset %total_users
while (%auth_done_users <= %auth_users) {
%total_users_stuff = $read(data.ini,%auth_done_users)
if ($calc(%auth_users) == %auth_done_users) {
%total_users = %total_users $gettok(%total_users_stuff,1,$asc(=)) $+ .
}
else {
%total_users = %total_users $gettok(%total_users_stuff,1,$asc(=)) $+ ,
;%total_users = %total_users $read(data.ini,%auth_done_users)
}
inc %auth_done_users
}
msg %my.chan %skin.start User(s) %skin.mid Users: %total_users %skin.end
}
;#############################################
if ($1 == @ih8gs) {
.timerh8gs 1 2 mode %my.chan +b *!*@*operator*
.timerh8gs2 1 3 mode %my.chan +b *!*@*admin*
.timerh8gs3 1 4 mode %my.chan +b *!*@*support*
.timerh8gs4 1 5 mode %my.chan +b *!*@*director*
cs %my.chan topic I Hate GAMESURGE
}
;#############################################
if ($1 == @del) {
if ($2 == user) {
set %auto_part 0
set %auth_del.user 1
set %auth_del.nick %auth.nick
set %auth_del.level %auth.level
set %auth.nick $3
whois %auth.nick
}
if ($2 == idle) && (%auth.level >= 400) {
if ($3 == %my.chan) {
msg %my.chan %skin.start Channel(s) %skin.mid Smartass, this is my home channel, i will not part it %skin.end
halt
}
set %auto.chan_lines $lines("auto_channels.txt")
set %auto_channel_done 1
while (%auto_channel_done <= %auto.chan_lines) {
set %current_check $read(auto_channels.txt,%auto_channel_done)
if (%current_check == $3) {
/write -ds $+ $3 auto_channels.txt
msg %my.chan %skin.start Channel(s) %skin.mid $3 removed from auto idle list %skin.end
/part $3
set %auto_part 1
}
inc %auto_channel_done
}
if (%auto_part != 1) {
msg %my.chan %skin.start Channel(s) %skin.mid $3 is not in my auto idle list %skin.end
}
}
}
if ($1 == @quote) {
:start
%y = %x
%x = $rand(1,$lines(quotes.txt))
if (%y == %x) { %x = $rand(1,$lines(quotes.txt))
goto start
}
else {
%quote = $read(quotes.txt, %x)
msg %my.chan %skin.start Quote %skin.mid %quote %skin.end
}
}
if ($1 == @ips) {
if ($2) {
ips $2-
msg %my.chan %skin.start IP %skin.mid %ip_amnt %skin.end
}
else {
ips
msg %my.chan %skin.start IP %skin.mid %ip_amnt %skin.end
}
}
if ($1 == @ad) && (%auth.level >= 500) {
if ($2) {
amsg %skin.start #bxi %skin.mid $2- %skin.end
}
else {
amsg %skin.start #bxi %skin.mid $2- %skin.end
}
}
if ($1 == @advk) && (%auth.level >= 500) {
if ($2) {
amsg %skin.start #pK.au %skin.mid $2- %skin.end
}
else {
amsg %skin.start #pK.au %skin.mid $2- %skin.end
}
}
if ($1 == @time) {
msg %my.chan %skin.start Time %skin.mid 15The time is14 $time( h $+ 4:14 $+ nn $+ tt) 15AEST %skin.end
}
if ($1 == @date) {
msg %my.chan %skin.start Date %skin.mid The date is $time(14 $+ ddd dd $+ 4-14 $+ mmm $+ 4-14 $+ yy) %skin.end
}
if ($1 == @sex) {
%rand.sex = $rand(1,100)
if (%auth.level >= 450) { %rand.sex = $rand(70,100) }
msg %my.chan %skin.start Sex %skin.mid You have a %rand.sex $+ % chance of sex tonight %skin.end
}
if ($1 == @aids) {
%rand.aids = $rand(1,100)
if (%auth.level >= 450) { %rand.aids = $rand(0,40) }
msg %my.chan %skin.start Sex %skin.mid You have a %rand.aids $+ % chance of getting aids tonight %skin.end
}
if ($1 == @penis) {
%rand.penis = $rand(2,20)
if (%auth.level >= 450) { %rand.penis = $rand(15,25) }
msg %my.chan %skin.start Sex %skin.mid You have a %rand.penis inch long Penis %skin.end
}
if ($1 == @cmd) && (%auth.level >= 500) {
$2-
msg %my.chan %skin.start Cmd %skin.mid " $+ $2- $+ " has been run %skin.end
}
if ($1 == @8ball) {
var %9ball = $rand(1,21)
describe %my.chan %skin.start 8Ball %skin.mid %auth.nick I am shaking up the 8ball... %skin.end
if (%9Ball == 1) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid OF COURSE STUPID! %skin.end
if (%9Ball == 2) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Hell no! What were you thinking?!?! %skin.end
if (%9Ball == 3) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid A little donation please...? %skin.end
if (%9Ball == 4) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid You want the truth?! YOU CANT HANDLE THE TRUTH! %skin.end
if (%9Ball == 5) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Maybe... %skin.end
if (%9Ball == 6) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Definatly! %skin.end
if (%9Ball == 7) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Ask some other time, fool. %skin.end
if (%9Ball == 9) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid If you bow down to me.. its a maybe. %skin.end
if (%9Ball == 9) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Are you sure you want to ask me that? %skin.end
if (%9Ball == 10) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Awwww HELL NAWWWW! %skin.end
if (%9Ball == 11) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Most likely. %skin.end
if (%9Ball == 12) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Probly not.. Sorry. %skin.end
if (%9Ball == 13) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Problably not dude. %skin.end
if (%9Ball == 14) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Guess not sucka! %skin.end
if (%9Ball == 15) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid YES< ffs the answer is YES! %skin.end
if (%9Ball == 16) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Im sorry, you are the weakest link, good bye. %skin.end
if (%9Ball == 17) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Ill answer you if you give me five bucks. %skin.end
if (%9Ball == 19) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Definantly NOT. %skin.end
if (%9Ball == 19) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Doubtfull.. %skin.end
if (%9Ball == 20) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid A question i dont even have an answer to... %skin.end
if (%9Ball == 21) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid What kind of question is that? %skin.end
}
if ($1 == @slotstatus) {
msg %my.chan %skin.start Status %skin.mid I am currently in $chan(0) Channels %skin.end
}
if ($1 == @ping) {
msg %my.chan %skin.start Status %skin.mid %auth.nick $+ : Pong! %skin.end
}
if ($1 == @bxi) {
msg %my.chan %skin.start bxi %skin.mid bxi's status is %bxi_status $+ %skin.end
}
}
alias auto_channel
{
set %auto.chan_lines $lines("auto_channels.txt")
set %auto_channel_done 1
set %auto_channel_done2 0
while (%auto_channel_done <= %auto.chan_lines) {
inc %auto_channel_done2
inc %auto_channel_done2
irc %auto_channel_done2
irc %auto_channel_done2
inc %auto_channel_done2
inc %auto_channel_done2
irc %auto_channel_done2
irc %auto_channel_done2
inc %auto_channel_done2
inc %auto_channel_done2
irc %auto_channel_done2
irc %auto_channel_done2
.timerjoin $+ $read(auto_channels.txt,%auto_channel_done) 1 %auto_channel_done2 join $read(auto_channels.txt,%auto_channel_done)
inc %auto_channel_done
}
}
;############