Wheel of Time MUD

Code: Select all

#CLASS {AltTracker}
#ALIAS helpAltTracker {
	#SHOW {""}
	#SHOW {""}
	#SHOW {"-----Alt Tracker Commands-----"}
	#SHOW {""}
	#SHOW {"type altAdd <mainName> <altName> to add an alt name to character name file."}
	#SHOW {"--Example: type altAdd Austin Kirtha to add Kirtha to Austin's alt file."}
	#SHOW {""}
	#SHOW {"type altNames for a list of all current characters and alts on file."}
	#SHOW {""}
	#SHOW {"type whois <name> as normal, if that character has an alt you know it will display it."}
	#SHOW {""}
	#SHOW {"type altRemove <name> to remove a character name from the file."}
	#SHOW {""}
	}
#ALIAS altAdd {
	#IF (%ismember(%proper(%1),@altCharName)) {#SHOW {""}} {
			#ADDITEM altCharName %proper(%1)
			#VAR %concat("alt",%proper(%1)) {} {_nodef} "AltTracker|AltFiles"
			#SHOW {""}
			#ECHO {%proper(%1) was added to the main character file.}
			}
	#IF (%ismember(%proper(%2),@altCharAlt)) {
		#ECHO {%proper(%2) is already a listed alt of a main character.}
		} {#IF (%len(%2) > 1) {#ADDITEM altCharAlt %proper(%2)}
			#IF (%len(%2) > 1) {#ADDITEM %concat("alt",%proper(%1)) %proper(%2)}
			#IF (%len(%2) > 1) {#ECHO {%proper(%2) is now an alt of %proper(%1).}}
			}
	}
#ALIAS altNames {
	#SHOW {""}
	#SHOW {""}
	#FORALL @altCharName {
		#VAR altNameLoop {%concat(~@,alt,%i)}
		#SHOW {%i "--->" @altNameLoop}
		}
	}
#ALIAS altRemove {
	#SHOW {""}
	#IF (%ismember(%proper(%1),@altCharName)) {
		#DELITEM altCharName %proper(%1)
		#UNVAR %concat("alt",%proper(%1)) "AltTracker|AltFiles"
		#ECHO {%proper(%1) was removed from the main character file.}
		}
	#IF (%ismember(%proper(%1),@altCharAlt)) {
		#DELITEM altCharAlt %proper(%1)
		#ECHO {%proper(%1) was removed from the alt character file.}
		}
	#FORALL @altCharName {
		#DELITEM %concat("alt",%i) %proper(%1)
		#DELITEM %concat("alt",%i) %null
		}
	}
#ALIAS altWhois {
	#IF (%ismember(%proper(@altNameWhois),@altCharName)) {
		#VAR altNameWho %concat(~@,alt,@altNameWhois)
		#ALARM +1 {
			#SHOW {""}
			#ECHO {Known alts: @altNameWho}
			}
		}
	#IF (%ismember(%proper(@altNameWhois),@altCharAlt)) {
		altWhoMain
		}
	}
#ALIAS altWhoMain {
	#FORALL @altCharName {
		#ADDITEM altNameFind {%concat(~@,alt,%i)}
		#VAR altNameFindLiteral {%concat(~"~@,alt,%i~")}
		#IF (%ismember(%proper(@altNameWhois),@altNameFind)) {
			#ALARM +1 {
				#SHOW {""}
				#ECHO {%proper(@altNameWhois) is an alt of %remove("@alt",@altNameFindLiteral).}
				#VAR altNameFind {}
				}
			#ABORT 1
			}
		#DELITEM altNameFind {%concat(~@,alt,%i)}
		}
	}
#ONINPUT {whois &%waltNameWhois} {
	altWhois
	}
#VAR altNameLoop {}
#VAR altNameWho {}
#VAR altNameWhois {}
#VAR altNameFind {}
#VAR altNameFindLiteral {}
#CLASS 0
#CLASS {AltTracker|AltFiles}
#VAR altCharName {}
#VAR altCharAlt {}
#CLASS 0