Unnamed

on *:TEXT:@*:#bxi: {
  set %auth.nick $nick
  set %auth.command $1-
  whois $nick
}
raw 330:*: {
  set %auth.user $3
  if (%auth_add.user == 1) {
    writeini data.ini users %auth.user %auth_add.level
    msg #bxi %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 #bxi %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 #bxi %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 #bxi %skin.start User(s) %skin.mid %auth_axs.nick2 $+ ( $+ %auth.user $+ ) has %auth.level access to Me (4 $+ $me $+ 15) %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 #bxi %skin.start User(s) %skin.mid %auth.nick $+ ( $+ %auth.user $+ ) now has %auth_clvl.level access to Me (4 $+ $me $+ 15) %skin.end
    }
    elseif (%auth.level >= %auth_clvl.level2) {
      msg #bxi %skin.start User(s) %skin.mid %auth.nick $+ ( $+ %auth.user $+ ) has equal or greater access to Me (4 $+ $me $+ 15) - 4Permission Denied %skin.end
    }
    else {
      msg #bxi %skin.start User(s) %skin.mid %auth.nick $+ ( $+ %auth.user $+ ) does not have access to Me 0(6 $+ $me $+ 0) %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 #bxi %skin.start User(s) %skin.mid %auth.nick is owner of me  $+ 0(6 $+ $me $+ 0) %skin.end
        unset %auth.level
      }
      set %auth_join.status 0 
      halt 
    }
    auth_commands %auth.command
  }
on *:JOIN:#bxi:{
  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 >= 500) {
      write quotes.txt $3-
      msg #bxi %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 #bxi %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) {
      ;if ($left($3,1) != #) { msg #bxi %skin.start Channel(s) %skin.mid $3 is an incorrect channel %skin.end | halt }
      write auto_channels.txt $3
      join $3
      msg #bxi %skin.start Channel(s) %skin.mid $3 added to auto idle list %skin.end
    }
  }
  if ($1 == @set) && (%auth.level == 500) {
  ($2 == bxi) {
  if ($3) {
  set %bxi_status $3-
  msg #bxi %skin.start bxi %skin.mid bxi Status set to $3- %skin.end
  }
   }
    }
    if ($1 == @bxi) {
    msg #bxi %skin.start bxi %skin.mid bxi is %bxi_status $+  %skin.end
   }
    if ($1 == @commands) {
    msg #bxi %skin.start commands %skin.mid commands are: $3- %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 #bxi %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 #bxi %skin.start User(s) %skin.mid You 0(6 %auth.nick 0) have %auth.level access to Me 0(6 $+ $me $+ 0) %skin.end
    }
  }
  if ($1 == @b) && (%auth.level >= 200) {
  msg chanserv #bxi addban $2
  }
 if ($1 == @k) && (%auth.level >= 200) {
  msg chanserv #bxi kick $2
  }
  if ($1 == @clvl) {
    if ($3 >= %auth.level) {
      msg #bxi %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 == @del) {
    if ($2 == user) {
      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) {
      /write -ds $+ $3 auto_channels.txt
      msg #bxi %skin.start Channel(s) %skin.mid $3 removed from 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 #bxi %skin.start Quote %skin.mid %quote %skin.end
    }
  }
  if ($1 == @ips) {
    if ($2) {
      ips $2-
      msg #bxi %skin.start IP %skin.mid %ip_amnt %skin.end
    }
    else {
      ips
      msg #bxi %skin.start IP %skin.mid %ip_amnt %skin.end
    }
  }
  if ($1 == @advertise) && (%auth.level >= 350) {
    if ($2) {
      amsg %skin.start 14#bxi %skin.mid $2- %skin.end
    }
    else {
      amsg %skin.start 14#bxi %skin.mid $2-
    }
  }
  if ($1 == @advk) && (%auth.level >= 350) {
    if ($2) {
      amsg %skin.start #bxi %skin.mid
    }
    else {
      amsg %skin.start #bxi %skin.mid
    }
  }
  if ($1 == @time) { 
    msg #bxi %skin.start Time %skin.mid 15The time is14 $time( h $+ 4:14 $+ nn $+ tt) 15AEST %skin.end
  }
  if ($1 == @date) { 
    msg #bxi %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 #bxi %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 #bxi %skin.start aids %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 #bxi %skin.start penis %skin.mid You have a %rand.penis inch long Penis %skin.end
  }
  if ($1 == @cmd) && (%auth.level >= 500) {
    $2-
    msg #bxi %skin.start Cmd %skin.mid " $+ $2- $+ " has been run %skin.end
  }
  if ($1 == @8ball) {
    var %9ball = $rand(1,21)
    describe #bxi %skin.start 8Ball %skin.mid I am shaking up the 8ball... %skin.end
    if (%9Ball == 1) .timer 1 2 msg #bxi %skin.start 8Ball %skin.mid OF COURSE STUPID! %skin.end
    if (%9Ball == 2) .timer 1 2 msg #bxi %skin.start 8Ball %skin.mid Hell no! What were you thinking?!?! %skin.end
    if (%9Ball == 3) .timer 1 2 msg #bxi %skin.start 8Ball %skin.mid A little donation please...? %skin.end
    if (%9Ball == 4) .timer 1 2 msg #bxi %skin.start 8Ball %skin.mid You want the truth?! YOU CANT HANDLE THE TRUTH! %skin.end
    if (%9Ball == 5) .timer 1 2 msg #bxi %skin.start 8Ball %skin.mid Maybe... %skin.end
    if (%9Ball == 6) .timer 1 2 msg #bxi %skin.start 8Ball %skin.mid Definatly! %skin.end
    if (%9Ball == 7) .timer 1 2 msg #bxi %skin.start 8Ball %skin.mid Ask some other time, fool. %skin.end
    if (%9Ball == 9) .timer 1 2 msg #bxi %skin.start 8Ball %skin.mid If you bow down to me.. its a maybe. %skin.end
    if (%9Ball == 9) .timer 1 2 msg #bxi %skin.start 8Ball %skin.mid Are you sure you want to ask me that? %skin.end
    if (%9Ball == 10) .timer 1 2 msg #bxi %skin.start 8Ball %skin.mid Awwww HELL NAWWWW! %skin.end
    if (%9Ball == 11) .timer 1 2 msg #bxi %skin.start 8Ball %skin.mid Most likely. %skin.end
    if (%9Ball == 12) .timer 1 2 msg #bxi %skin.start 8Ball %skin.mid Probly not.. Sorry. %skin.end
    if (%9Ball == 13) .timer 1 2 msg #bxi %skin.start 8Ball %skin.mid Problably not dude. %skin.end
    if (%9Ball == 14) .timer 1 2 msg #bxi %skin.start 8Ball %skin.mid Guess not sucka! %skin.end
    if (%9Ball == 15) .timer 1 2 msg #bxi %skin.start 8Ball %skin.mid YES< ffs the answer is YES! %skin.end
    if (%9Ball == 16) .timer 1 2 msg #bxi %skin.start 8Ball %skin.mid Im sorry, you are the weakest link, good bye. %skin.end
    if (%9Ball == 17) .timer 1 2 msg #bxi %skin.start 8Ball %skin.mid Ill answer you if you give me five bucks. %skin.end
    if (%9Ball == 19) .timer 1 2 msg #bxi %skin.start 8Ball %skin.mid Definantly NOT. %skin.end
    if (%9Ball == 19) .timer 1 2 msg #bxi %skin.start 8Ball %skin.mid Doubtfull.. %skin.end
    if (%9Ball == 20) .timer 1 2 msg #bxi %skin.start 8Ball %skin.mid A question i dont even have an answer to... %skin.end
    if (%9Ball == 21) .timer 1 2 msg #bxi %skin.start 8Ball %skin.mid What kind of question is that? %skin.end
  }
  if ($1 == @slotstatus) {
    msg #bxi %skin.start Status %skin.mid I am currently in $chan(0) Channels %skin.end
  }
  if ($1 == @ping) {
    msg #bxi %skin.start Status %skin.mid %auth.nick $+ : Pong! %skin.end

  }
}

;#############
alias auto_channel {
  set %auto.chan_lines $lines("auto_channels.txt")
  set %auto_channel_done 1
  while (%auto_channel_done <= %auth.chan_lines) {
    join $read(auto_channels.txt,%auto_channel_done)
  }
}
;############