#IF (!@czd_scripts) {#ALIAS csver {#EC;#EC Cosmo Drazi Scripts;#IF (@czd_scripts) {#FORALL {@czd_scripts} {#IF (%mod(%ismember(%i,@czd_scripts),2)) {#ECHOPROMPT %i v} {#ECHOPROMPT %i;#EC}}} {#EC No scripts are currently loaded.}};#VAR czd_scripts {AllyManager|1.2}} {#ADDITEM czd_scripts {AllyManager|1.2}};#ALIAS ally {#IF (%1 = restore) {#t- ally-manager;#t- ffa-manager;#t- ffa-allies;#t+ allies;unally all;unenemy all;#IF (@allylist) {#LOOP 1,%if(%numitems(@allylist)>20,20,%numitems(@allylist)) {ally %item(@allylist,%i)}};#IF (@enemylist) {#LOOP 1,%if(%numitems(@enemylist)>20,20,%numitems(@enemylist)) {enemy %item(@enemylist,%i)}};#t+ ally-manager} {#IF (%ismember(%proper(%1),@enemylist)) {unenemy %1};#VA temp {%proper(%1)};#t- ally-manager;#IF (%numitems(@allylist) > 19) {#IF (!%ismember(%proper(%1),@allylist) | %ismember(%proper(%1),@allylist) > 20) {unally %item(@allylist,20);#EC %item(@allylist,20) forced into standby allies list.}};#IF (!%ismember(%proper(%1),@allylist) | %ismember(%proper(%1),@allylist) > 20) {ally %1} {#EC %proper(%1) moved to head of allies list.};#var allylist {%dups(%additem(@allylist,@temp))};#t+ ally-manager}} {ally-manager};#ALIAS enemy {#IF (%1 = restore) {#t- ally-manager;#t- ffa-manager;#t- ffa-allies;#t+ allies;unally all;unenemy all;#IF (@allylist) {#LOOP 1,%if(%numitems(@allylist)>20,20,%numitems(@allylist)) {ally %item(@allylist,%i)}};#IF (@enemylist) {#LOOP 1,%if(%numitems(@enemylist)>20,20,%numitems(@enemylist)) {enemy %item(@enemylist,%i)}};#t+ ally-manager} {#IF (%ismember(%proper(%1),@allylist)) {unally %1};#VA temp {%proper(%1)};#t- ally-manager;#IF (%numitems(@enemylist) > 19) {#IF (!%ismember(%proper(%1),@enemylist) | %ismember(%proper(%1),@enemylist) > 20) {unenemy %item(@enemylist,20);#EC %item(@enemylist,20) forced into standby enemies list.}};#IF (!%ismember(%proper(%1),@enemylist) | %ismember(%proper(%1),@enemylist) > 20) {enemy %1} {#EC %proper(%1) moved to head of enemies list.};#var enemylist {%dups(%additem(@enemylist,@temp))};#t+ ally-manager}} {ally-manager};#ALIAS unally {#t- ally-manager;#if (%1 = all) {unally all;#va allylist ""} {#IF (%ismember(%proper(%1),@allylist) < 21) {unally %1;#IF (%ismember(%proper(%1),@allylist)) {#IF (%item(@allylist,21)) {ally %item(@allylist,21)}}} {#EC %proper(%1) removed from standby allies list.};#delitem allylist {%proper(%1)}};#t+ ally-manager} {ally-manager};#ALIAS unenemy {#t- ally-manager;#if (%1 = all) {unenemy all;#va enemylist ""} {#IF (%ismember(%proper(%1),@enemylist) < 21) {unenemy %1;#IF (%ismember(%proper(%1),@enemylist)) {#IF (%item(@enemylist,21)) {enemy %item(@enemylist,21)}}} {#EC %proper(%1) removed from standby enemies list.};#delitem enemylist {%proper(%1)}};#t+ ally-manager} {ally-manager};#ALIAS allies {#t- ally-manager;allies;#IF (%numitems(@allylist) > 20) {#EC {Standby allies:};#LOOP 21,%numitems(@allylist) {#ECHOPROMPT {   %item(@allylist,%i)%if(%mod(%i-20,4)=0,%cr)}};#EC};#t+ ally-manager} {ally-manager};#ALIAS enemies {#t- ally-manager;enemies;#IF (%numitems(@enemylist) > 20) {#EC {Standby enemies:};#LOOP 21,%numitems(@enemylist) {#ECHOPROMPT {   %item(@enemylist,%i)%if(%mod(%i-20,4)=0,%cr)}};#EC};#t+ ally-manager} {ally-manager};#VAR allylist {} {_nodef} {allies};#VAR enemylist {} {_nodef} {allies};#VAR temp {};#TRIGGER {I don't recognize that name as one of an existing player.} {#IF (%ismember(@temp,@enemylist)) {#delitem enemylist {@temp};#IF (%numitems(@enemylist)>19)) {#t- ally-manager;enemy %item(@enemylist,20);#t+ ally-manager}};#IF (%ismember(@temp,@allylist)) {#delitem allylist {@temp};#IF (%numitems(@allylist>20)) {#t- ally-manager;ally %item(@allylist,20);#t+ ally-manager}}} {ally-manager} 517;#T+ allies;#T+ ally-manager;#EC;#EC {AllyManager v%item(@czd_scripts,%ismember(AllyManager,@czd_scripts)+1) successfully installed.};#EC;#EC {Refer to http://www.geocities.com/cosmo_drazi/achaea/allyman.html};#EC {   for setup and usage documentation.};#EC

    Source: geocities.com/southbeach/marina/4190/achaea/downloads

               ( geocities.com/southbeach/marina/4190/achaea)                   ( geocities.com/southbeach/marina/4190)                   ( geocities.com/southbeach/marina)                   ( geocities.com/southbeach)