##################################################################################################
########################### 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 ###################################################################