Ok. First of all, I need you to type /auser 500 YOURNAME
Then, /set %chanset #YOURCHANNEL
Then, edit the YOURNAME and YOURFREINDSNAME part inside the script.
Enjoy.
;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:#:{
if ($chan != %ChanSet) { halt }
if ($nick == YOURFREINDSNAME) { .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• }
if ($nick == 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:.admincommands:%chanset: {
.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:.commands:%chanset: {
.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•
}
on 500:text:*.Kick *:*:{
if ($chan != %ChanSet) { halt }
if (/ isin $2-) { halt }
if ($ isin $2-) { halt }
cs kick $chan $2- 15,18•7•8•7•15,1(4 $3- 15)7,1•8•7•8•
}
on 500:text:*.Ban *:*:{
if ($chan != %ChanSet) { halt }
if (/ isin $2-) { halt }
if ($ isin $2-) { halt }
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•
}
on text:*.Invite *:*:{
if ($chan != %ChanSet) { halt }
if (/ isin $2-) { halt }
if ($ isin $2-) { halt }
.notice $2- 15,18•7•8•7•15,1(4 $nick has invited you, saying $3- 15)7,1•8•7•8•
}
on 500:text:*.Op *:*:{
if ($chan != %ChanSet) { halt }
if (/ isin $2-) { halt }
if ($ isin $2-) { halt }
cs op $chan $2-
}
on 500:text:*.aop *:*:{
if ($chan != %ChanSet) { halt }
if (/ isin $2-) { halt }
if ($ isin $2-) { halt }
cs aop $chan add $2-
}
on 500:text:*.sop *:*:{
if ($chan != %ChanSet) { halt }
if (/ isin $2-) { halt }
if ($ isin $2-) { halt }
cs sop $chan add $2-
}
on 500:text:*.vop *:*:{
if ($chan != %ChanSet) { halt }
if (/ isin $2-) { halt }
if ($ isin $2-) { halt }
cs vop $chan add $2-
}
on 500:text:*.hop *:*:{
if ($chan != %ChanSet) { halt }
if (/ isin $2-) { halt }
if ($ isin $2-) { halt }
cs hop $chan add $2-
}
on *:text:*.RandNumber *:*:{
if ($chan != %ChanSet) { halt }
if (/ isin $2-) { halt }
if ($ isin $2-) { halt }
if (Yes == %generating) { halt }
randnumber $1-
set %generating Yes
}
On *:text:*.amsg *:*:{
if ($chan != %ChanSet) { halt }
if (/ isin $2-) { halt }
if ($ isin $2-) { halt }
amsg $1-
}
on 500:text:*.Auser *:*:{
if ($chan != %ChanSet) { halt }
if (/ isin $2-) { halt }
if ($ isin $2-) { halt }
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• }
}
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•
.timer 1 5 set %Generating No
}
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
}
;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
This is almost so horribly written that i want to comment back with a better..working version of it. Matter of fact i might edit this comment later...
-edit-
Oh nevermind. Too horribly written. I did get this before I got bored though...
;Most of this is pointless, I just feel like being a dick and besting a newb.
;Aliases
alias admin {
auser $1 500
}
alias n {
.notice $strip($1) $2-
}
alias m {
msg $strip($1) $2-
}
;The works
on *:load: {
if (!%AC) { set %AC $$?="What is the channel you want to run this in?" }
if (!%BAdmin) { set %BAdmin $$?="What's your nick?" }
echo -s You have to set this one little step up..
Type /admin [Admin nick Here]
}
on 500:join:%AC: {
if ($nick == %BAdmin) { n $nick Welcome, owner. You can view commands with .Commands (will PRIVMSG you with the list). | halt }
}