rem push.agt rem push commands rem main computer rem reset console page to 1 if player pushes 0 command push any setvariableto [choice] 0 [ANYON] nountovariable [choice] variableequals [choice] 0 setvariableto [console page] 1 end_command rem get Cconsole input **** command push any atlocation [control room] flagon [cconsole on] variableequals [choice] 0 setvariableto [console page] 1 rem main menu redirectto read console end_command command push any atlocation [control room] flagon [cconsole on] variableequals [console page] 1 variableequals [choice] 1 setvariableto [console page] 11 rem life support detail redirectto read console end_command command push any atlocation [control room] flagon [cconsole on] variableequals [console page] 1 variableequals [choice] 2 setvariableto [console page] 12 rem computer detail redirectto read console end_command command push any atlocation [control room] flagon [cconsole on] variableequals [console page] 1 variableequals [choice] 3 countergt [in skip space] 0 BLANKLINE printmessage "NAVIGATION LOCKED WHILE IN SKIP-SPACE." BLANKLINE DONEWITHTURN END_COMMAND command push any atlocation [control room] flagon [cconsole on] variableequals [console page] 1 variableequals [choice] 3 setvariableto [console page] 13 rem navigation detail redirectto read console end_command command push any atlocation [control room] flagon [cconsole on] variableequals [console page] 1 variableequals [choice] 4 setvariableto [console page] 14 rem radio detail redirectto read console end_command rem navigation commands command push any atlocation [control room] flagon [cconsole on] variableequals [console page] 13 variableequals [choice] 1 setvariableto [console page] 131 rem enter course normal space redirectto read console end_command command push any atlocation [control room] flagon [cconsole on] variableequals [console page] 13 variableequals [choice] 2 setvariableto [console page] 132 rem enter course skip space redirectto read console end_command command push any atlocation [control room] flagon [cconsole on] variableequals [console page] 13 variableequals [choice] 3 setvariableto [console page] 133 rem enter distance redirectto read console end_command command push any atlocation [control room] flagon [cconsole on] variableequals [console page] 13 variableequals [choice] 4 setvariableto [console page] 134 rem move redirectto read console end_command rem radio commands command push any atlocation [control room] flagon [cconsole on] variableequals [console page] 14 variableequals [choice] 1 setvariableto [console page] 141 rem turn radio on redirectto read console end_command command push any atlocation [control room] flagon [cconsole on] variableequals [console page] 14 variableequals [choice] 2 setvariableto [console page] 142 rem turn radio off redirectto read console end_command command push any atlocation [control room] flagon [cconsole on] variableequals [console page] 14 variableequals [choice] 3 setvariableto [console page] 143 rem read radio messages redirectto read console end_command rem mining console command push any atlocation [mining control] flagon [mconsole on] variableequals [choice] 0 setvariableto [console page] 1 redirectto read console end_command command push any atlocation [mining control] flagon [mconsole on] variableequals [console page] 1 variableequals [choice] 1 SETVARIABLETO [CONSOLE PAGE] 11 turnflagon [long scan] redirectto read console end_command command push any atlocation [mining control] flagon [mconsole on] variableequals [console page] 1 variableequals [choice] 2 SETVARIABLETO [CONSOLE PAGE] 12 turnflagon [short scan] redirectto read console end_command command push any atlocation [mining control] flagon [mconsole on] variableequals [console page] 1 variableequals [choice] 3 SETVARIABLETO [CONSOLE PAGE] 13 turnflagon [start mining] redirectto read console end_command rem reading console command push any atlocation [quarters] flagon [rconsole on] variableequals [choice] 1 putincurrentroom [chart] redirectto read console end_command rem kitchen console command push any atlocation [kitchen] flagon [kconsole on] variableequals [choice] 1 turnflagon [make meal] end_command command push any atlocation [kitchen] flagon [make meal] issomewhere [meal] printmessage "Don't get greedy." turnflagoff [make meal] donewithturn end_command command push any atlocation [kitchen] flagon [make meal] somethinginside [microwave] turnflagoff [make meal] printmessage "Action aborted - Oven must be empty before starting!" donewithturn end_command command push any atlocation [kitchen] flagon [make meal] isopen [microwave] closeit [microwave] printmessage "The door on the microwave swings shut." end_command command push any atlocation [kitchen] flagon [make meal] printmessage "Working - Please wait" lockit [microwave] donewithturn end_command rem moving outside ship command push hatch atlocation [access hatch] not iswearing [suit] or isopen [suit] printmessage You should really be wearing a sealed EVA-Suit before you try this! end_printmessage donewithturn end_command command push hatch atlocation [access hatch] countergt [in skip space] 0 printmessage Systems Interlock will not allow hatch to open while in Skip-Space!. end_printmessage donewithturn end_command command push hatch atlocation [access hatch] flagon [at alien marker] flagoff [Ship destroyed] variableequals [alien distance] 0 changepassageway [exit] [outside w/alien] end_command command push hatch atlocation [access hatch] flagon [at alien marker] variablegt [alien distance] 0 or flagon [Ship destroyed] changepassageway [exit] [outside] end_command command push hatch atlocation [access hatch] flagon [at asteroid marker] flagoff [asteroid destroyed] variableequals [alien distance] 0 changepassageway [exit] [outside w/asteroid] end_command command push hatch atlocation [access hatch] flagon [at asteroid marker] variablegt [alien distance] 0 or flagon [asteroid destroyed] changepassageway [exit] [outside] end_command command push hatch atlocation [access hatch] flagon [at home marker] changepassageway [exit] [shuttle] end_command command push hatch atlocation [access hatch] flagon [at refinery marker] changepassageway [exit] [mining shuttle] end_command REM BOXES.AGT command push boxes nounpresent nounisnumber [boxes 4] isnowhere [bucket] putincurrentroom [bucket] end_command command push boxes nounpresent nounisnumber [boxes 2] isnowhere [evac bag] putincurrentroom [evac bag] end_command