##################################################################################################
###########################  The                                ##################################
###########################      Ultimate                        #################################
###########################                TAOM                  #################################
###########################                      Member          #################################
###########################                            Checker   #################################
##################################################################################################

;--Files:
;-Leader: taomleaders.txt
;-Elite Member: taomelites.txt
;-Event Team: taomeventteam.txt
;-Member: taommembers.txt
;-Ally: taomallies.txt
;-Friend: taomfriends.txt

;--Copyright
;-TUTAOMMC Created & Scripted By Eragonj
;-Copyright 2006 All Rights Reserved
;-Last Update: Saturday, November 26, 2006

------------------------ The Join Checker -----------------------

on *:JOIN:#taom:{
  notice $nick 12Hello4 $nick $+ 12, and welcome to 4#TAOM12! Visit our forums at 4http://taomforums.co.nr12 or our website at4 http://thearmyofmordor.co.nr12. 12See my command lists with "4!menu12".
  set %greet.nick $nick | set %greet.chan $chan
  dogreetalias
  unset %greet.nick  
  if ($read(taommembers.txt,w,$nick)) {
    msg $chan 1|TAOM ID|1 -12 Nick:4 $nick 1- 12Class:4 TAOM Member 1-
  }
  else {
    if ($read(taomallies.txt,w,$nick)) {
      msg $chan 1|TAOM ID|1 -12 Nick:4 $nick 1- 12Class:4 TAOM Ally 1-
    }
    else {
      if ($read(taomfriends.txt,w,$nick)) {
        msg $chan 1|TAOM ID|1 -12 Nick:4 $nick 1- 12Class:4 TAOM Friend 1-
      }
      else {
        if ($read(taomleaders.txt,w,$nick)) {
          msg $chan 1|TAOM ID|1 -12 Nick:4 $nick 1- 12Class:4 TAOM Leader 1-
        }
        else {
          if ($read(taomelites.txt,w,$nick)) {
            msg $chan 1|TAOM ID|1 -12 Nick:4 $nick 1- 12Class:4 TAOM Elite Member 1-
          }
          else {
            if ($read(taomeventteam.txt,w,$nick)) {
              msg $chan 1|TAOM ID|1 -12 Nick:4 $nick 1- 12Class:4 TAOM Event Team 1-
            }
            else {
              if (!$read(taommembers.txt,w,$nick)) && (!$read(taomallies.txt,w,$nick)) && (!$read(taomfriends.txt,w,$nick)) {
                msg $chan 1|TAOM ID|1 -12 Nick:4 $nick 1- 12Class:4 N/A 1-
} } } } } } } }

alias dogreetalias {
  if (%personal.greet.lol. [ $+ [ %greet.nick ] ] == on) {
    msg %greet.chan 1[4 $+ %greet.nick $+ 1]7: %personal.greet [ $+ [ %greet.nick ] ]
  }
  else {
    if (%personal.greet.lol. [ $+ [ %greet.nick ] ] == $null) {
      notice %greet.nick Get A Greet! [ !taomg GREET ]
    }
    else {
      if (%personal.greet.lol. [ $+ [ %greet.nick ] ] == off) {
        notice %greet.nick Get A Greet! [ !taomg GREET ]
} } } }

------------------------ The Identify Checker ------------------

on *:text:!ID*:#:{
  if ($2 == $null) { msg $chan 4Error - $nick - Specify a User to Identify | halt
  }
  else {
    if ($nick !isvoice $chan && $nick !ishop $chan && $nick !isop $chan) {
      notice $nick You cannot use this command unless you are an Operator/Half-Operator/Voice.
      halt
    }
    else {
      if ($read(taommembers.txt,w,$2)) {
        msg $chan 12The nickname4 $2 12is identified as a4 TAOM Member 12.
      }
      else {
        if ($read(taomallies.txt,w,$2)) {
          msg $chan 12The nickname4 $2 12is identified as a4 TAOM Ally 12.
        }
        else {
          if ($read(taomfriends.txt,w,$2)) {
            msg $chan 12The nickname4 $2 12is identified as a4 TAOM Friend 12.
          }
          else {
            if ($read(taomleaders.txt,w,$2)) {
              msg $chan 12The nickname4 $2 12is identified as a4 TAOM Leader 12.
            }
            else {
              if ($read(taomelites.txt,w,$2)) {
                msg $chan 12The nickname4 $2 12is identified as a4 TAOM Elite Member 12.
              }
              else {
                if ($read(taomeventteam.txt,w,$2)) {
                  msg $chan 12The nickname4 $2 12is identified as a4 TAOM Event Team Member 12.
                }
                else {
                  if (!$read(taommembers.txt,w,$2)) && (!$read(taomallies.txt,w,$2)) && (!$read(taomfriends.txt,w,$2)) && (!$read(taomleaders.txt,w,$2)) && (!$read(taomelites.txt,w,$2)) && (!$read(taomeventteam.txt,w,$2)) {
                    msg $chan 12The nickname4 $2 12is 4not12 identified on any of the TAOM lists.
} } } } } } } } } }

------------------------ The Add Script ------------------------

on *:text:!addl*:#:{ if ($nick isop #TAOM) {
    if ($read(taomleaders.txt,w,$2)) { notice $nick Error - $2 is already in the file document TAOM Leaders | halt
    }
    else {
      set %add.lea $2
      write taomleaders.txt %add.lea
      notice $nick You have successfully added %add.lea to the TAOM Leader List.
} } }
on *:text:!adde*:#:{ if ($nick isop #TAOM) {
    if ($read(taomelites.txt,w,$2)) { notice $nick Error - $2 is already in the file document TAOM Elite Members | halt
    }
    else {
      set %add.eli $2
      write taomelites.txt %add.eli
      notice $nick You have successfully added %add.eli to the TAOM Elite Member List.
} } }
on *:text:!addt*:#:{ if ($nick isop #TAOM) {
    if ($read(taomeventteam.txt,w,$2)) { notice $nick Error - $2 is already in the file document TAOM Event Team | halt
    }
    else {
      set %add.et $2
      write taomeventteam.txt %add.et
      notice $nick You have successfully added %add.et to the TAOM Event Team List.
} } }
on *:text:!addm*:#:{ if ($nick isop #TAOM) {
    if ($read(taommembers.txt,w,$2)) { notice $nick Error - $2 is already in the file document TAOM Members | halt
    }
    else {
      set %add.mem $2
      write taommembers.txt %add.mem
      notice $nick You have successfully added %add.mem to the TAOM Member List.
} } }
on *:text:!adda*:#:{ if ($nick isop #TAOM) {
    if ($read(taomallies.txt,w,$2)) { notice $nick Error - $2 is already in the file document TAOM Allies | halt
    }
    else {
      set %add.ally $2
      write taomallies.txt %add.ally
      notice $nick You have successfully added %add.ally to the TAOM Ally List.
} } }
on *:text:!addf*:#:{ if ($nick isop #TAOM) {
    if ($read(taomfriends.txt,w,$2)) { notice $nick Error - $2 is already in the file document TAOM Friends | halt
    }
    else {
      set %add.fri $2
      write taomfriends.txt %add.fri
      notice $nick You have successfully added %add.fri to the TAOM Friend List.
} } }

------------------------ The Delete Script -----------------------

on *:text:!dell*:#:{ if ($nick isop #TAOM) {
    if (!$read(taomleaders.txt,w,$2)) { notice $nick Error - $2 is not in the file ducument TAOM Leader List | halt
    }
    else {
      set %del.lea $2
      /write -dw $+ $2 taomleaders.txt
      notice $nick You have successfully added %del.lea to the TAOM Leader List.
} } }
on *:text:!dele*:#:{ if ($nick isop #TAOM) {
    if (!$read(taomelites.txt,w,$2)) { notice $nick Error - $2 is not in the file ducument TAOM Elite Member List | halt
    }
    else {
      set %del.eli $2
      /write -dw $+ $2 taomelites.txt
      notice $nick You have successfully added %del.eli to the TAOM Elite Member List.
} } }
on *:text:!delt*:#:{ if ($nick isop #TAOM) {
    if (!$read(taomeventteam.txt,w,$2)) { notice $nick Error - $2 is not in the file document TAOM Event Team List | halt
    }
    else {
      set %del.et $2
      /write -dw $+ $2 taomeventteam.txt
      notice $nick You have successfully added %del.et to the TAOM Event Team List.
} } }
on *:text:!delm*:#:{ if ($nick isop #TAOM) {
    if (!$read(taommembers.txt,w,$2)) { notice $nick Error - $2 is not in the file ducument TAOM Member List
    }
    else { 
      if ($read(taommembers.txt,w,$2)) {
        /write -dw $+ $2 taommembers.txt
        notice $nick You have successfully removed $2 from the TAOM Member List.
} } } }
on *:text:!dela*:#:{ if ($nick isop #TAOM) {
    if (!$read(taomallies.txt,w,$2)) { notice $nick Error - $2 is not in the file ducument TAOM Ally List
    }
    else { 
      if ($read(taomallies.txt,w,$2)) {
        /write -dw $+ $2 taomallies.txt
        notice $nick You have successfully removed $2 from the TAOM Ally List.
} } } }
on *:text:!delf*:#:{ if ($nick isop #TAOM) {
    if (!$read(taomfriends.txt,w,$2)) { notice $nick Error - $2 is not in the file ducument TAOM Friends List
    }
    else { 
      if ($read(taomfriends.txt,w,$2)) {
        /write -dw $+ $2 taomfriends.txt
        notice $nick You have successfully removed $2 from the TAOM Friends List.
} } } }

################################################ END OF TUTAOMMC ###################################################################