zMUD/cMUD Hyperspace Calculation

#ALIAS calculate {#var calcplanet {%-1};#t+ autocalc;showplanet @calcplanet}
#TRIGGER {^You use the datapad to lookup the information.} {#gag} {autocalc} 517
#TRIGGER {^--Planet Data: -------------------------------} {#gag} {autocalc} 517
#TRIGGER {^Planet (%*)~: (%*)} {#gag} {autocalc} 517
#TRIGGER {^Starsystem: (%*)} {#gag;#var calcvar %additem(%1, @calcvar)} {autocalc} 517
#TRIGGER {^Governed By: (%*)} {#gag} {autocalc} 517
#TRIGGER {^Wood: (%*) Stone: (%*) Metal: (%*)} {#gag} {autocalc} 517
#TRIGGER {^Coordinates: (%n) (%n) (%n)} {#gag;#var calcvar %additem(%1, @calcvar);#var calcvar %additem(%2, @calcvar);#var calcvar %additem(%3, @calcvar)} {autocalc} 517
#TRIGGER {^Tax Rate: (%*)} {#gag} {autocalc} 517
#TRIGGER {^Population: (%*)} {#gag} {autocalc} 517
#TRIGGER {^Morale: (%*)} {#gag} {autocalc} 517
#TRIGGER {^Crime Rating: (%*)} {#gag} {autocalc} 517
#TRIGGER {^Orbital Defense: (%*)} {#gag} {autocalc} 517
#TRIGGER {^Garrison Rating: (%*)} {#gag} {autocalc} 517
#TRIGGER {^Tourism Rating: (%*)} {#gag} {autocalc} 517
#TRIGGER {^Use ~'SHOWPLANET ~<planet~> RESOURCES~' for current resources.$} {#gag;#if (%numitems(@calcvar)==5) {#echo %item(@calcvar, 1) found - System '%item(@calcvar, 2)' %item(@calcvar, 3) %item(@calcvar, 4) %item(@calcvar, 5);~calculate ~'%item(@calcvar, 2)~' [%item(@calcvar, 3) + 500] %item(@calcvar, 4) %item(@calcvar, 5);#t- autocalc} {#echo Error, %item(@calcvar, 1) not found.;#t- autocalc}} {autocalc} 517
#TRIGGER {^Planet: (%*)} {#gag;#var calcvar "";#if (%lower(%1)==%lower(@calcplanet)) {#var calcvar %additem(%1, @calcvar)}} {autocalc} 517