Add User script for IRC

on *:text:$adduser *:#:{ 
  if ($2) && ($3 == DJ) || ($3 == voice) || ($3 == master) || ($3 == banned) || ($3 == owner) && ($readini(db.ini,$chan,$address($nick,2)) == owner) || ($readini(db.ini,$chan,$address($nick,2)) == master) && (!$readini(db.ini,$chan,$address($2,2))) {  
    writeini db.ini $chan $address($2,2) $3 
    notice $nick You made $2 $3 on #
    $3 $2
    halt
  } 
  if ($readini(db.ini,$chan,$address($2,2))) && ($2) && ($3 == op) || ($3 == voice) || ($3 == master) || ($3 == banned) || ($3 == owner) {
    notice $nick $2 is already on level  $+ 1 $+ $readini(db.ini,$chan,$address($2,2)) $+  $+  on $chan 
    halt
  }
  if ($3 != owner) && ($3 != master) && ($3 != banned) && ($3 != voice) && ($3 != op) { notice $nick Invalid UserLevel. }
}
on *:text:$deluser *:#:{ 
  if ($readini(db.ini,$chan,$address($nick,2)) == owner) || ($readini(gusers.ini,add,$address($nick,2)) == Global Owner) || ($readini(db.ini,$chan,$address($nick,2)) == master) && ($readini(db.ini,$chan,$address($2,2))) {
    remini db.ini $chan $address($2,2)) 
    notice $nick Removed $address($2,2) From userlist. | HALT
  }
  if ($readini(db.ini,$chan,$address($nick,2)) == owner) || ($readini(gusers.ini,add,$address($nick,2)) == Global Owner) || ($readini(db.ini,$chan,$address($nick,2)) == master) && (!$readini(db.ini,$chan,$address($2,2))) {
    notice $nick $2 ( $+ $address($2,2) $+ ) is not in my userlist 
  }
}  
on *:text:$delhost *:#:{
  if ($readini(db.ini,$chan,$address($nick,2)) == owner) || ($readini(gusers.ini,add,$address($nick,2)) == Global Owner) || ($readini(db.ini,$chan,$address($nick,2)) == master) && ($readini(db.ini,$chan,$2)) {
    remini db.ini $chan $2 
    notice $nick Removed $2 from userlist.
    halt 
  }
  if ($readini(db.ini,$chan,$address($nick,2)) == owner) || ($readini(gusers.ini,add,$address($nick,2)) == Global Owner) || ($readini(db.ini,$chan,$address($nick,2)) == master) && (!$readini(db.ini,$chan,$2)) {
    notice $nick $2 is not in my userlist.
    halt 
  }
}
on *:text:$addhost *:#:{ 
  if ($readini(db.ini,$chan,$address($nick,2)) == owner) || ($readini(gusers.ini,add,$address($nick,2)) == Global Owner) || ($readini(db.ini,$chan,$address($nick,2)) == master) && (!$readini(db.ini,$chan,$2)) {
    writeini db.ini $chan $2 $3 
    notice $nick added $2 to userlist, level: $3
    halt 
  }
  if ($readini(db.ini,$chan,$address($nick,2)) == owner) || ($readini(gusers.ini,add,$address($nick,2)) == Global Owner) || ($readini(db.ini,$chan,$address($nick,2)) == master) && ($readini(db.ini,$chan,$2)) {
    notice $nick $2 is already on my userlist.
    halt 
  }
}
alias op { mode $chan +o $$1 }
alias voice { mode $chan +v $$1 }
alias owner { mode $chan +ov $$1 }
alias master { mode $chan +ov $$1 }
alias Global $+ Master { mode $chan +ov $$1 }
alias Global $+ Owner { mode $chan +ov $$1 }
alias Global $+ Op { mode $chan +o $$1 }
alias Global $+ Ban { mode $chan -o+b $$1 $address($$1,2) | kick $chan $$1 You are GLOBALLY BANNED! }
alias banned { mode $chan -o+b $$1 $address($$1,2) | kick $chan $$1 You are BANNED from this channel! }
on *:join:#:{ 
  if ($readini(db.ini,$chan,$address($nick,2)) == op) { mode $chan +o $nick | msg $chan 9..:: 4Channel Operator Detected. Welcome back $nick 9::.. }
  if ($readini(db.ini,$chan,$wildsite) == voice) { mode $chan +v $nick | msg $chan 9..:: 4Channel Voice Detected. Welcome back $nick 9::.. }
  if ($readini(db.ini,$chan,$wildsite) == master) { mode $chan +o $nick | msg $chan 9..:: 4Channel Master Detected. Welcome back $nick 9::.. }
  if ($readini(db.ini,$chan,$wildsite) == owner) { mode $chan +o $nick | msg $chan 9..:: 4Channel Owner Detected. Welcome back $nick 9::.. }
  if ($readini(db.ini,$chan,$wildsite) == banned) { mode $chan +b $address($nick,2) | kick $chan $nick You are BANNED from this channel }
  if ($readini(gusers.ini,add,$address($nick,2)) == Global Owner) { mode $chan +ov $nick | msg $chan 9..:: 4Bot Owner $nick has arrived.9::.. }
  if ($readini(gusers.ini,add,$address($nick,2)) == Service Admin) { mode $chan +ov $nick | msg $chan 9..:: 4Bot Service Admin ( $nick ) has arrived.9::.. }
  if ($readini(gusers.ini,add,$address($nick,2)) == Global op) { mode $chan +o $nick | msg $chan 9..:: 4Global Operator $nick has arrived.9::.. }
  if ($readini(gusers.ini,add,$address($nick,2)) == Global voice) { mode $chan +v $nick | msg $chan 9..:: 4Global Voice $nick has arrived.9::.. }
  if (%autoop == ON} { msg $chan Auto Op is on Do not change channel modes or you will be banned by protection bot. }
  if ($readini(gusers.ini,add,$address($nick,2)) == Global banned) { mode $chan +b $address ($nick,2) | kick $chan $nick 9..:: 4You are GLOBALLY BANNED <1>9::.. }
  if (%autovoice == ON) { msg $chan Auto Voice is on! You get Voice NOW }
}
on *:text:$whoami:#:{ 
  var %chanlev = 0, %globlev = 0
  if ($readini(db.ini,$chan,$address($nick,2))) var %chanlev = $ifmatch
  if ($readini(gusers.ini,add,$address($nick,2))) var %globlev = $ifmatch
  notice $nick Your Level on $chan : %chanlev
  notice $nick Your Global Level: %globlev
}
on *:text:$broadcast *:#: {
  if ($readini(gusers.ini,add,$address($nick,2)) == Global Owner) || if ($readini(db.ini,$chan,$address($nick,2)) == owner) || ($readini(db.ini,$chan,$address($nick,2)) == master) {  amsg (Broadcast): $2- }
  if ($readini(db.ini,$chan,$address($nick,2)) != owner) && ($readini(db.ini,$chan,$address($nick,2)) != master) { notice $nick You Have not Access to this command, only owner and master! }
}
on *:text:$whois *:#: { 
  var %chanlev = 0, %globlev = 0
  if ($readini(db.ini,$chan,$address($2,2))) var %chanlev = $ifmatch
  if ($readini(gusers.ini,add,$address($2,2))) var %globlev = $ifmatch
  notice $nick $2 's Level on $chan : %chanlev
  notice $nick $2 's Global Level: %globlev
}
on *:text:$help:#: {
  var %var, %level = $iif($readini(DB.ini,$chan,$address($nick,2)),$ifmatch,regular), %numlev = $replace(%level,Global Owner,7,Global Master,6,Global Op,5,Owner,4,Master,3,op,2,voice,1,regular,0)
  if (%numlev >= 4) var %var = $addtok(%var,$!op^$!deop^$!adduser nick/ident owner/master/op/voice/ban^$!voice^$!devoice^$!ban^$!unban^$!kick^$!kickban^$!broadcast^$!mute^$!unmute,94) 
  if (%numlev >= 3) var %var = $addtok(%var,$!op^$!deop^^$!voice^$!devoice^$!ban^$!unban^$!kick^$!kickban,94) 
  if (%numlev >= 2) var %var = $addtok(%var,$!op^$!deop^^$!voice^$!devoice^$!kick,94)) 
  if (%numlev >= 1) var %var = $addtok(%var,$!voice^$!devoice^$!whoami^$!whois,94)) 
  if (%numlev == 0) var %var = $addtok(%var,None,94) 
  notice $nick Welcome to my help system! Your user level: %level  -  Commands available to you: $replace(%var,$chr(94),$chr(44) $+ $chr(32))
}
on *:text:$giveop:#: {
  if ($readini(gusers.ini,add,$address($nick,2)) == Global Owner) ||  if ($readini(db.ini,$chan,$address($nick,2)) == owner) || ($readini(db.ini,$chan,$address($nick,2)) == master) || ($readini(db.ini,$chan,$address($nick,2)) == op) {
    mode $chan +o $nick 
  }
}
on *:text:$givevoice:#: {
  if ($readini(gusers.ini,add,$address($nick,2)) == Global Owner) ||  if ($readini(db.ini,$chan,$address($nick,2)) == owner) || ($readini(db.ini,$chan,$address($nick,2)) == master) || ($readini(db.ini,$chan,$address($nick,2)) == op) || ($readini(db.ini,$chan,$address($nick,2)) == voice) {
    mode $chan $str(+v,$0) $nick 
  }
}
on *:text:$takeop:#: {
  if ($readini(gusers.ini,add,$address($nick,2)) == Global Owner) ||  if ($readini(db.ini,$chan,$address($nick,2)) == owner) || ($readini(db.ini,$chan,$address($nick,2)) == master) || ($readini(db.ini,$chan,$address($nick,2)) == op) {
    mode $chan -o $nick 
  }
}
on *:text:$takevoice:#: {
  if ($readini(gusers.ini,add,$address($nick,2)) == Global Owner) ||  if ($readini(db.ini,$chan,$address($nick,2)) == owner) || ($readini(db.ini,$chan,$address($nick,2)) == master) ||  if ($readini(db.ini,$chan,$address($nick,2)) == op) || ($readini(db.ini,$chan,$address($nick,2)) == voice) {
    mode $chan $str(-v,$0) $nick