;Read Introduction on how to set up.
;Admin Script
;If you have any problems with this. Send me a message/put something on my page.
;Some of the commands wont work on certain servers.
on *:JOIN:%ChanSet:{
if ($nick == YOURFREINDSNAME || YOURNAME) { .notice $nick 15,18•7•8•7•15,1(4Welcome, admin9 $nick 4, Type 9.AdminCommands4 for a list of commands you can use.15)7,1•8•7•8• }
.notice $nick 15,18•7•8•7•15,1(4Welcome to9 $chan 4,9 $nick 4Type 9.Commands 9to see the list of commands you can use.15)7,1•8•7•8•
}
on 500:text:*:*:{
if ($chan != %ChanSet || / isin $2- || $ isin $2-) return
else {
if ($1 == .sop) { cs sop $chan add $2- }
elseif ($1 == .aop) { cs aop $chan add $2- }
elseif ($1 == .op) { cs op $chan $2- }
elseif ($1 == .hop) { cs hop $chan add $2- }
elseif ($1 == .vop) { cs vop $chan add $2- }
elseif ($1 == .invite) { .notice $2- 15,18•7•8•7•15,1(4 $nick has invited you, saying $3- 15)7,1•8•7•8• }
elseif ($1 == .kick) { cs kick $chan $2- 15,18•7•8•7•15,1(4 $3- 15)7,1•8•7•8• }
elseif ($1 == .ban) { cs ban $chan $2 $3- | cs kick $chan $2 15,18•7•8•7•15,1(4 Banned for $3- minutes 15)7,1•8•7•8• }
elseif ($1 == .auser) { auser 500 $2 | msg $chan 15,18•7•8•7•15,1(4 $2 has been given access to my commands by $nick 15)7,1•8•7•8• }
elseif ($1 = .admincommands) { .notice $nick 15,18•7•8•7•15,1(4 So far, you can use .Auser [Name] , .Kick [Person] and .Ban [Person] [Time] Auser gives people access to these commands. .op-aop-sop-vop-hop 15)7,1•8•7•8• }
}
}
on *:text:*:*:{
if ($chan != %ChanSet || / isin $2- || $ isin $2-) return
else {
if ($1 == .randnumber && !%randnumber) { set -u5 %generating | randnumber $1- }
elseif ($1 == .amsg) { amsg $1- }
elseif ($1 == .commands) { .notice $nick 15,18•7•8•7•15,1(4 So far, you can use .invite [Invite someone] .RandNumber [Number] - To get a random number from 1 to [Number]. .Amsg - Sends a message to all servers the bot I am on. 15)7,1•8•7•8• }
}
}
alias randnumber {
set %randnumber $2-
.msg $chan 15,18•7•8•7•15,1(4Generating...15)7,1•8•7•8•
.timerrand 1 5 msg $chan 15,18•7•8•7•15,1(4Random Number from 1 to $2- =9 $r(1,%randnumber) 15)7,1•8•7•8•
}
alias amsg {
var %a = 1
while $scon(%a) {
var %b = $ifmatch, %c = 1
scid %b
while $chan(%c) { msg $chan(%c) 15,18•7•8•7•15,1(4 $nick :9 $$1- $+ 15)7,1•8•7•8• | inc %c }
inc %a
}
scid -r
}
untested