mIRC Admin Script

;;; Admin Script :: Made by XenoX
;;; Copyright Begin: July 2004
;;; Version: 1.0

on *:TEXT:admin *:#: {
  if (!$exists(bot.users.txt)) { 
    fopen -n bot.users bot.users.txt 
  } 

  if ($read(bot.users.txt, w, $address($nick,2)) != $NULL) {
    if ($2 == topic) {
      topic $chan $3-
    }
    elseif ($2 == mode) {
      mode $chan $3
    }
    elseif ($2 == voice) {
      mode $chan +v $3
    }
    elseif ($2 == devoice) {
      mode $chan -v $3
    }
    elseif ($2 == op) {
      mode $chan +o $3
    }
    elseif ($2 == deop) {
      mode $chan -o $3
    }
    elseif ($2 == kick) {
      if ($3 isop $chan) {
        notice $nick You can't kick $3 because he is an operator.
      }
      else {
        kick $chan $3 Kicked by: $nick
      }
    }
    elseif ($2 == invite) {
      invite $3 $chan
    }
    elseif ($2 == ban) {
      if ($3 isop $chan) {
        notice $nick You can't ban $3 because he is an operator.
      }
      else {
        ban -k $chan $3 2 Banned by: $nick
      }
    }
    elseif ($2 == unban) {
      ban -r $chan $3 2
    }
    elseif ($2 == join) {
      join $3
    }
    elseif ($2 == part) {
      part $3
    }
    elseif ($2 == addad) {
      set %bot.ad $3-
      notice $nick Ad added.
    }
    elseif ($2 == ad) {
      amsg %bot.ad
    }
    elseif ($2 == adduser) {
      if ($read(bot.users.txt, w, $address($3,2)) == $NULL) {
        write bot.users.txt $address($3,2)
        notice $nick Added user.
      }
      else {
        notice $nick That user allready exists.
      }
    }
    elseif ($2 == deluser) {
      if ($read(bot.users.txt, w, $address($3,2)) != $NULL) {
        write -ds $+ $ifmatch bot.users.txt
        notice $nick Deleted user.
      }
      else {
        notice $nick That user doesn't exist.
      }
    }
    else {
      notice $nick I don't have such command.
    }
  }
  else {
    notice $nick Who are you? Are you my admin?
  }
}

;;; Admin Script :: Made by XenoX
;;; Copyright Begin: July 2004
;;; Version: 1.0
 
on *:TEXT:admin *:#: {
  if (!$exists(bot.users.txt)) { 
    fopen -n bot.users bot.users.txt 
  } 
 
  if ($read(bot.users.txt, w, $address($nick,2)) != $NULL) {
    if ($2 == topic) {
      topic $chan $3-
    }
    elseif ($2 == mode) {
      mode $chan $3
    }
    elseif ($2 == voice) {
      mode $chan +v $3
    }
    elseif ($2 == devoice) {
      mode $chan -v $3
    }
    elseif ($2 == op) {
      mode $chan +o $3
    }
    elseif ($2 == deop) {
      mode $chan -o $3
    }
    elseif ($2 == kick) {
      if ($3 isop $chan) {
        notice $nick You can't kick $3 because he is an operator.
      }
      else {
        kick $chan $3 Kicked by: $nick
      }
    }
    elseif ($2 == invite) {
      invite $3 $chan
    }
    elseif ($2 == ban) {
      if ($3 isop $chan) {
        notice $nick You can't ban $3 because he is an operator.
      }
      else {
        ban -k $chan $3 2 Banned by: $nick
      }
    }
    elseif ($2 == unban) {
      ban -r $chan $3 2
    }
    elseif ($2 == join) {
      join $3
    }
    elseif ($2 == part) {
      part $3
    }
    elseif ($2 == addad) {
      set %bot.ad $3-
      notice $nick Ad added.
    }
    elseif ($2 == ad) {
      amsg %bot.ad
    }
    elseif ($2 == adduser) {
      if ($read(bot.users.txt, w, $address($3,2)) == $NULL) {
        write bot.users.txt $address($3,2)
        notice $nick Added user.
      }
      else {
        notice $nick That user allready exists.
      }
    }
    elseif ($2 == deluser) {
      if ($read(bot.users.txt, w, $address($3,2)) != $NULL) {
        write -ds $+ $ifmatch bot.users.txt
        notice $nick Deleted user.
      }
      else {
        notice $nick That user doesn't exist.
      }
    }
    else {
      notice $nick I don't have such command.
    }
  }
  else {
    notice $nick Who are you? Are you my admin?
  }
}