Really basic mIRC Bot.

on *:text:*:#:{
  if ($readini(voice.ini,$nick,$chan) == $address($nick,2)) {
    if ($strip($1) == !voice) { mode # +vvvvvv $iif(!$2,$nick,$2-) }
    if ($strip($1) == !devoice) { mode # -vvvvvv $iif(!$2,$nick,$2-) }
    if ($sctip($1) == !invite) { invite $2 # | msg # 14[4Inviting14] $2 }
  }
  elseif ($readini(op.ini,$nick,$chan) == $address($nick,2) ) {
    if ($strip($1) == !kick) { kick # $2 $3- }
    if ($strip($1) == !ban) { ban -k # $2 2 $iif(!$3,No reason,$3-) (From: $nick $+ ) }
    if ($strip($1) == !unban) { ban -r # }
    if ($strip($1) == !mode) { mode # $2 }
    if ($strip($1) == !invite) { invite $2 # | msg # Inviting $2 in # }
    if ($strip($1) == !topic) { topic # $2- (From: $nick $+ ) }
    if ($strip($1) == !op) { mode # +oooooo $iif(!$2,$nick,$2-) }
    if ($strip($1) == !deop) { mode # -oooooo $iif(!$2,$nick,$2-) }
  }
  elseif ($readini(master.ini,$nick,$chan) == $address($nick,2) ) {
    if ($strip($1) == !kick) { kick # $2 $3- }
    if ($strip($1) == !ban) { ban -k # $2 2 $iif(!$3,No reason,$3-) (From: $nick $+ ) }
    if ($strip($1) == !unban) { ban -r # }
    if ($strip($1) == !mode) { mode # $2 }
    if ($strip($1) == !invite) { invite $2 # | msg # Inviting $2 in # }
    if ($strip($1) == !topic) { topic # $2- (From: $nick $+ ) }
    if ($strip($1) == !op) { mode # +oooooo $iif(!$2,$nick,$2-) }
    if ($strip($1) == !deop) { mode # -oooooo $iif(!$2,$nick,$2-) }
    if ($strip($1) == !access) { checkaccess }
  }
  elseif ($readini(owner.ini,$nick,$chan) == $address($nick,2) ) {
    if ($strip($1) == !kick) { kick # $2 $3- }
    if ($strip($1) == !ban) { ban -k # $2 2 $iif(!$3,No reason,$3-) (From: $nick $+ ) }
    if ($strip($1) == !unban) { ban -r # }
    if ($strip($1) == !mode) { mode # $2 }
    if ($strip($1) == !invite) { invite $2 # | msg # Inviting $2 in # }
    if ($strip($1) == !topic) { topic # $2- (From: $nick $+ ) }
    if ($strip($1) == !op) { mode # +oooooo $iif(!$2,$nick,$2-) }
    if ($strip($1) == !deop) { mode # -oooooo $iif(!$2,$nick,$2-) }
    if ($strip($1) == !restart) { describe #Advice Restart Requested by $nick | .timer 1 2 exit -nr }
    if ($strip($1) == !global) { amsg 14[4Global Message14]: $2- }
    if ($strip($1) == !topicnews) { .topic # %topicl $2- %topicr | set %news $2- }
    if ($strip($1) == !cleartopicnews) { .topic # %topicl 4No news item atm %topicr | set %news No news item atm }
    if ($strip($1) == !botnews) { set %botnews $2- | msg # %cl $+ News Added $+ %cr }
    if ($strip($1) == !addstaff) { auser staff $address($nick,2) | msg # 14[4Staff14] ADD $2 Succesfull | mode # +v $2 }
    if ($strip($1) == !access) { checkaccess }
    else { return }
  }
}

on *:JOIN:#:{
  if ($readini(voice.ini,$nick,$chan) == $address($nick,2)) { mode # +v $nick }
  elseif ($readini(op.ini,$nick,$chan) == $address($nick,2)) { mode # +o $nick }
  elseif ($readini(sop.ini,$nick,$chan) == $address($nick,2)) { mode # +o $nick }
  elseif ($readini(master.ini,$nick,$chan) == $address($nick,2)) { mode # +o $nick }
  elseif ($readini(owner.ini,$nick,$chan) == $address($nick,2)) { mode # +o $nick }
  else { .notice $nick Welcome on # $nick $+ . | .notice $nick 14[4Bot News14]: %botnews }
}

alias checkaccess {
  if ($readini(voice.ini,$nick,$chan) == $address($nick,2)) { msg # 14[4Access14] $2 is level: Voice }
  if ($readini(op.ini,$nick,$chan) == $address($nick,2)) { msg # 14[4Access14] $2 is level: Op }
  if ($readini(sop.ini,$nick,$chan) == $address($nick,2)) { msg # 14[4Access14] $2 is level: Sop }
  if ($readini(master.ini,$nick,$chan) == $address($nick,2)) { msg # 14[4Access14] $2 is level: Master }
  if ($readini(owner.ini,$nick,$chan) == $address($nick,2)) { msg # 14[4Access14] $2 is level: Owner }
  else { msg # 14[4Access14] $2 is Not on the access list }
}

menu nicklist {
  $iif($me isop $chan,User List)
  .Add
  ..Voice: writeini voice.ini $1 # $address($1,2) | echo -a 4 $1 added to Voice list for #  | mode # +v $$1 | notice $$1 you just got added to my auto voice list in #
  ..Op: writeini op.ini $1 # $address($1,2) | echo -a 4 $1 added to Op list for # | mode # +o $$1 | notice $$1 you just got added to my auto op list in #
  ..Sop: writeini sop.ini $1 # $address($1,2) | echo -a 4 $1 added to Sop (Super OP) list for #  | mode # +v $$1 | notice $$1 you just got added to my auto voice list in #
  ..Master: writeini master.ini $1 # $address($1,2) | echo -a 4 $1 added to Master list for # | mode # +o $$1 | notice $$1 you just got added to my auto op list in #
  ..Owner: writeini owner.ini $1 # $address($1,2) | echo -a 4 $1 added to Owner list! | mode # +o $$1 | notice $$1 You just got added to my Owner list!
  .Del
  ..Voice: remini voice.ini $1 # $address($1,2) | echo -a 4 $1 removed from my Voice list for # | mode $chan -v $$1 | notice $$1 you just got deleted from my auto voice list in #
  ..Op: remini op.ini $1 # $address($1,2) | echo -a 4 $1 removed from my Op list for # | mode $chan -o $$1 | notice $$1 you just got deleted from my auto op list in #
  ..Sop: writeini sop.ini $1 # $address($1,2) | echo -a 4 $1 removed from my Sop list for #  | mode # -v $$1 | notice $$1 you just got added to my auto voice list in #
  ..Master: writeini master.ini $1 # $address($1,2) | echo -a 4 $1 removed from my Master list for # | mode # -o $$1 | notice $$1 you just got added to my auto op list in #
  ..Owner: writeini owner.ini $1 # $address($1,2) | echo -a 4 $1 removed from my Owner list | mode # -o $$1 | notice $$1 you just got added to my Owner list!
}