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
}