REM CCONSOLE.AGT rem CANNOT READ CONSOLE IF TURNED OFF COMMAND READ CONSOLE Nouninroom nounisoff PRINTMESSAGE "The console is turned off." setvariableto [console page] 1 donewithturn end_command rem show status of main console **** command read console atlocation [control room] blankline printmessage "Main Terminal - Status Active" blankline variableequals [console page] 0 setvariableto [console page] 1 end_command command read console atlocation [control room] turnflagon [CCONSOLE STATUS] flagoff [RCONSOLE STATUS] OR flagoff [DCONSOLE STATUS] OR flagoff [KCONSOLE STATUS] OR flagoff [MCONSOLE STATUS] TURNflagoff [CCONSOLE STATUS] END_COMMAND command READ CONSOLE atlocation [control room] flagon [CCONSOLE STATUS] turnflagon [computer green] end_command command READ CONSOLE atlocation [control room] variableequals [console page] 1 printmessage AREA STATUS end_printmessage end_command command READ CONSOLE atlocation [control room] variableequals [console page] 1 flagon [life status green] printmessage 1 Life support Green end_printmessage end_command command READ CONSOLE atlocation [control room] variableequals [console page] 1 flagon [life status yellow] printmessage 1 Life support Yellow end_printmessage end_command command READ CONSOLE atlocation [control room] variableequals [console page] 1 flagon [life status red] printmessage 1 Life support Red end_printmessage end_command command READ CONSOLE atlocation [control room] variableequals [console page] 1 flagon [Computer green] printmessage 2 Computer Green end_printmessage end_command command READ CONSOLE atlocation [control room] variableequals [console page] 1 flagoff [Computer green] printmessage 2 Computer Yellow end_printmessage end_command command READ CONSOLE atlocation [control room] variableequals [console page] 1 variableequals [Navigation] [yellow] printmessage 3 Navigation Yellow end_printmessage end_command command READ CONSOLE atlocation [control room] variableequals [console page] 1 variableequals [Navigation] [red] printmessage 3 Navigation Red end_printmessage end_command command READ CONSOLE atlocation [control room] variableequals [console page] 1 flagoff [RADIO ON] printmessage 4 Radio OFF end_printmessage end_command command READ CONSOLE atlocation [control room] variableequals [console page] 1 FLAGon [RADIO ON] flagoff [radio message] printmessage 4 Radio ON No Messages end_printmessage end_command command READ CONSOLE atlocation [control room] variableequals [console page] 1 FLAGOn [RADIO ON] flagon [radio message] printmessage 4 Radio ON 1 Message end_printmessage end_command command READ CONSOLE atlocation [control room] variableequals [console page] 1 printmessage 0 This Menu [press any] end_printmessage donewithturn end_command rem life support status **** command read console atlocation [control room] variableequals [console page] 11 flagon [life status red] printmessage LIFE SUPPORT STATUS Hull Breach RED end_printmessage end_command command read console atlocation [control room] variableequals [console page] 11 flagon [life status yellow] printmessage LIFE SUPPORT STATUS Nominal Yellow end_printmessage end_command command read console atlocation [control room] variableequals [console page] 11 flagon [life status green] printmessage LIFE SUPPORT STATUS Nominal Green end_printmessage end_command command read console atlocation [control room] variableequals [console page] 11 setvariableto [console page] 1 blankline printmessage Air Supply now at #VAR[air supply]#% end_printmessage donewithturn end_command rem computer status **** command read console atlocation [control room] variableequals [console page] 12 flagoff [computer green] printmessage COMPUTER STATUS Nominal Yellow System overload error - Subterminals deactivated. Attempting to re-establish interface. end_printmessage blankline setvariableto [console page] 1 donewithturn end_command command read console atlocation [control room] variableequals [console page] 12 flagon [computer green] printmessage COMPUTER STATUS Nominal Green Interface established - Subterminals activated. end_printmessage blankline setvariableto [console page] 1 donewithturn end_command rem navigation status **** command read console atlocation [control room] variableequals [console page] 13 printmessage NAVIGATION STATUS ACCUMULATORS POWER LEVEL end_printmessage end_command command read console atlocation [control room] variableequals [console page] 13 flagon [normal good charge] printmessage Normal Maneuvering Green Charging #VAR[normal power]#% end_printmessage end_command command read console atlocation [control room] variableequals [console page] 13 flagon [normal bad charge] printmessage Normal Maneuvering Green Discharging #VAR[normal power]#% end_printmessage end_command command read console atlocation [control room] variableequals [console page] 13 flagon [normal offline] printmessage Normal Maneuvering Green Offline #VAR[normal power]#% end_printmessage end_command command read console atlocation [control room] variableequals [console page] 13 variableequals [navigation] [red] flagon [skip good charge] printmessage Skip-Drive Red Charging #VAR[skip power]#% end_printmessage end_command command read console atlocation [control room] variableequals [console page] 13 variableequals [navigation] [red] flagon [skip offline] printmessage Skip-Drive Red Off-line #VAR[skip power]#% end_printmessage end_command command read console atlocation [control room] variableequals [console page] 13 variableequals [navigation] [red] flagon [skip bad charge] printmessage Skip-Drive Red Discharging #VAR[skip power]#% end_printmessage end_command command read console atlocation [control room] variableequals [console page] 13 variableequals [navigation] [yellow] flagon [skip good charge] printmessage Skip-Drive Green Charging #VAR[skip power]#% end_printmessage end_command command read console atlocation [control room] variableequals [console page] 13 variableequals [navigation] [yellow] flagon [skip bad charge] printmessage Skip-Drive Green Discharging #VAR[skip power]#% end_printmessage end_command command read console atlocation [control room] variableequals [console page] 13 variableequals [navigation] [yellow] flagoff [skip offline] printmessage Skip-Drive Green Off-line #VAR[skip power]#% end_printmessage end_command rem navigation menu **** command read console atlocation [control room] variableequals [console page] 13 printmessage NAVIGATION Now at Marker: #VAR[marker]# 1. Set Course - Normal Space 2. Set Course - Skip-Space 3. Set Distance 4. Execute Maneuver 0. Main Menu End_printmessage blankline donewithturn end_command rem navigation choice 1 **** command read console atlocation [control room] variableequals [console page] 131 turnflagon [NORMAL COURSE] turnflagoff [skip course] setvariableto [console page] 13 printmessage Navigation Enter Course as 'Vector NNNN'. end_printmessage donewithturn end_command rem navigation choice 2 **** command read console atlocation [control room] variableequals [console page] 132 turnflagoff [NORMAL COURSE] turnflagon [skip course] setvariableto [console page] 13 printmessage Navigation Enter Target Marker as 'Marker NNNN'. end_printmessage donewithturn end_command rem enter distance **** command read console atlocation [control room] variableequals [console page] 133 flagon [skip course] setvariableto [console page] 13 printmessage "Distance not required for Skip-Space Maneuver." donewithturn end_command command read console atlocation [control room] variableequals [console page] 133 flagoff [normal course] setvariableto [console page] 13 printmessage "Must set Course first." donewithturn end_command command read console atlocation [control room] variableequals [console page] 133 printmessage "Enter distance in AU as 'Distance NNN'." setvariableto [console page] 13 donewithturn end_command rem navigation - move ship **** command read console atlocation [control room] variableequals [console page] 134 turnflagon [move ship] flagoff [SKIP COURSE] flagoff [normal course] blankline printmessage "Action Aborted - No course has been set." blankline setvariableto [console page] 13 turnflagoff [move ship] donewithturn end_command command read console atlocation [control room] variableequals [console page] 134 flagon [SKIP COURSE] variablelt [skip power] 50 blankline printmessage "Action Aborted - Insufficient Power." blankline setvariableto [console page] 13 turnflagoff [move ship] donewithturn end_command command read console atlocation [control room] variableequals [console page] 134 flagon [normal COURSE] variablelt [normal power] 50 blankline printmessage "Action Aborted - Insufficient Power" blankline setvariableto [console page] 13 turnflagoff [move ship] donewithturn end_command command read console atlocation [control room] variableequals [console page] 134 blankline printmessage "Engine Sequence Initiated" blankline end_command rem radio actions **** command read console atlocation [control room] variableequals [console page] 14 printmessage RADIO 1. Turn Radio On 2. Turn Radio Off 3. Read Messages 0. Main Menu end_printmessage blankline donewithturn end_command command read console atlocation [control room] variableequals [console page] 141 flagoff [radio on] turnflagon [radio on] setvariableto [console page] 14 printmessage Static blares from the speakers in the room and then quickly fades to a soft murmur. end_printmessage blankline donewithturn end_command command read console atlocation [control room] variableequals [console page] 141 flagon [radio on] setvariableto [console page] 14 printmessage The radio is already on, in the background you can hear the low hiss of static coming from the speakers. end_printmessage blankline donewithturn end_command command read console atlocation [control room] variableequals [console page] 142 flagon [radio on] turnflagoff [radio on] setvariableto [console page] 14 printmessage The low background hiss from the speakers quickly fades away. end_printmessage blankline donewithturn end_command command read console atlocation [control room] variableequals [console page] 142 flagoff [radio on] setvariableto [console page] 14 printmessage Nothing happens end_printmessage blankline donewithturn end_command command read console atlocation [control room] variableequals [console page] 143 flagoff [radio on] setvariableto [console page] 14 printmessage Nothing happens end_printmessage blankline donewithturn end_command command read console atlocation [control room] variableequals [console page] 143 flagon [radio on] flagoff [radio message] setvariableto [console page] 14 printmessage There are no messages waiting to be read. end_printmessage blankline donewithturn end_command command read console atlocation [control room] variableequals [console page] 143 flagon [radio on] flagon [radio message] flagon [message 1] printmessage Greetings from Orbital Control! Always glad to have you visit us again. Standard procedures require downloading ships computer log. We will send a shuttle to you as soon as possible. Please be ready to disembark. end_printmessage blankline end_command command read console atlocation [control room] variableequals [console page] 143 flagon [radio on] flagon [radio message] flagon [message 2] rem found asteroid setvariableto [console page] 14 printmessage Log received and notated. Looks like you had a good trip Enjoy your stay. end_printmessage blankline donewithturn end_command command read console atlocation [control room] variableequals [console page] 143 flagon [radio on] flagon [radio message] flagon [message 3] rem poor trip no mining done setvariableto [console page] 14 printmessage Log received and notated. Looks like you had a disappointing trip, sorry to hear it. Enjoy your stay. end_printmessage blankline donewithturn end_command command read console atlocation [control room] variableequals [console page] 143 flagon [radio on] flagon [radio message] flagon [message 4] rem found alien ship setvariableto [console page] 14 printmessage Log received and notated. Please hold....... Circumstances require your immediate meeting with the Science Council! All information regarding this encounter must be presented. Prepare for immediate shuttle docking. end_printmessage blankline donewithturn end_command rem mining console COMMAND READ CONSOLE atlocation [mining control] flagoff [mconsole status] rem always off at start blankline printmessage "Subterminal #4 - Status Inactive" printmessage [overload] blankline donewithturn end_command COMMAND READ CONSOLE atlocation [mining control] blankline printmessage "Subterminal #4 - Status Active" blankline VARIABLEEQUALS [CONSOLE PAGE] 1 printmessage MINING CONTROL 1. Long Range Scan 2. Short Range Scan 3. Initiate Mining Sequence 0. This Menu [press any] end_printmessage donewithturn end_command command read console atlocation [mining control] flagon [long scan] SETVARIABLETO [CONSOLE PAGE] 1 blankline printmessage Initiating Long Range Scan . .. ... .... ..... ...... end_printmessage end_command command read console atlocation [mining control] flagon [long scan] flagoff [at alien marker] printmessage [no object] turnflagoff [long scan] donewithturn end_command command read console atlocation [mining control] flagon [long scan] flagon [at alien marker] flagon [ship destroyed] printmessage [no object] turnflagoff [long scan] donewithturn end_command command read console atlocation [mining control] flagon [long scan] flagon [at asteroid marker] flagon [asteroid destroyed] printmessage [no object] turnflagoff [long scan] donewithturn end_command command read console atlocation [mining control] flagon [long scan] flagon [at alien marker] variablelt [alien distance] 50 printmessage [no object] turnflagoff [long scan] donewithturn end_command command read console atlocation [mining control] flagon [long scan] flagon [at alien marker] printmessage Object Detected - Vector: #VAR[alien vector]# Range - #VAR[alien distance]# AU Mass - Unknown Configuration - Unknown Life Signs - Unknown end_printmessage turnflagoff [long scan] donewithturn end_command command read console atlocation [mining control] flagon [long scan] flagon [at asteroid marker] flagoff [found asteroid] printmessage [no object] turnflagoff [long scan] donewithturn end_command command read console atlocation [mining control] flagon [long scan] flagon [at asteroid marker] flagon [found asteroid] printmessage Object Detected - Vector: #VAR[alien vector]# Range - #VAR[alien distance]# AU Mass - Unknown Configuration - Unknown Life Signs - Unknown end_printmessage turnflagoff [long scan] donewithturn end_command command read console atlocation [mining control] flagon [long scan] flagon [at asteroid marker] printmessage Object Detected - Vector: #VAR[alien vector]# Range - #VAR[alien distance]# AU Mass - Unknown Configuration - Unknown Life Signs - Unknown end_printmessage turnflagoff [long scan] donewithturn end_command command read console atlocation [mining control] flagon [short scan] SETVARIABLETO [CONSOLE PAGE] 1 blankline printmessage Initiating Short Range Scan . .. ... .... ..... ...... end_printmessage end_command command read console atlocation [mining control] flagon [short scan] flagoff [at alien marker] flagoff [at asteroid marker] printmessage [no object] turnflagoff [short scan] donewithturn end_command command read console atlocation [mining control] flagon [short scan] flagon [at alien marker] flagon [ship destroyed] printmessage [no object] turnflagoff [short scan] donewithturn end_command command read console atlocation [mining control] flagon [short scan] flagon [at asteroid marker] flagon [asteroid destroyed] printmessage [no object] turnflagoff [short scan] donewithturn end_command command read console atlocation [mining control] flagon [short scan] flagon [at alien marker] variablegt [alien distance] 50 printmessage [no object] turnflagoff [short scan] donewithturn end_command command read console atlocation [mining control] flagon [short scan] flagon [at asteroid marker] flagon [found asteroid] variablegt [alien distance] 50 printmessage [no object] turnflagoff [short scan] donewithturn end_command message [no object] No Objects detected. end_message command read console atlocation [mining control] flagon [short scan] flagon [at alien marker] printmessage Object Detected - Vector: #VAR[alien vector]# Range - #VAR[alien distance]# AU Mass - 8.5E2 Kilotons Configuration - Unknown Life Signs - Present end_printmessage turnflagoff [short scan] donewithturn end_command command read console atlocation [mining control] flagon [short scan] flagon [at asteroid marker] printmessage Object Detected - Vector: #VAR[alien vector]# Range - #VAR[alien distance]# AU Mass - 189.2E7 Kilotons Configuration - Asteroid Life Signs - None end_printmessage turnflagoff [short scan] donewithturn end_command command read console atlocation [mining control] flagon [start mining] SETVARIABLETO [CONSOLE PAGE] 1 flagon [at alien marker] flagoff [ship destroyed] variableequals [alien distance] 0 printmessage MINING SEQUENCE STARTED A loud hum fills the ship as power flows to the massive cutting lasers. A blinding beam of light flashes out at the Alien Ship. It glows for several seconds as it absorbs the light, then finally explodes into nothingness. end_printmessage turnflagon [ship destroyed] turnflagoff [start mining] donewithturn end_command command read console atlocation [mining control] flagon [start mining] flagon [at asteroid marker] flagon [found asteroid] flagoff [asteroid destroyed] variableequals [alien distance] 0 turnflagon [message 3] rem good haul printmessage MINING SEQUENCE STARTED A loud hum fills the ship as power flows to the massive cutting lasers. A blinding beam of light flashes out at the Asteroid. It glows for several seconds as it absorbs the light, then finally shatters into smaller fragments. Tractor beams leap out and capture bits and pieces, guiding them into your holds. This continues for quite a while as the holds are slowly filled. end_printmessage turnflagon [asteroid destroyed] turnflagon [mining completed] turnflagoff [start mining] donewithturn end_command command read console atlocation [mining control] flagon [start mining] printmessage MINING SEQUENCE STARTED ERROR - Nothing within range. end_printmessage turnflagoff [start mining] donewithturn end_command REM READING console command READ CONSOLE atlocation [quarters] flagoff [rconsole status] rem always off at start blankline printmessage "Subterminal #1 - Status Inactive" printmessage [overload] BLANKLINE donewithturn end_command COMMAND READ CONSOLE atlocation [quarters] flagon [rconsole on] blankline printmessage "Subterminal #1 - Status Active" BLANKLINE printmessage READING CONSOLE 1. Star Charts [press any] end_printmessage end_command command read console atlocation [quarters] not inroom [chart] donewithturn end_command command read console atlocation [quarters] printmessage "Star Charts - Active" donewithturn end_command REM KITCHEN CONSOLE COMMAND READ CONSOLE atlocation [kitchen] ison [kconsole] flagoff [kconsole status] rem always off at start blankline printmessage "Subterminal #3 - Status Inactive" printmessage [overload] blankline donewithturn end_command COMMAND READ CONSOLE atlocation [kitchen] flagon [kconsole status] blankline printmessage "Subterminal #3 - Status Active" blankline printmessage KITCHEN CONSOLE Enter food order 1. Cook Meal [press any] end_printmessage donewithturn end_command REM DIAGNOSTIC CONSOLE COMMAND READ CONSOLE atlocation [in bed] ison [dconsole] flagoff [dconsole status] rem always off at start blankline printmessage "Subterminal #2 - Status Inactive" printmessage [overload] BLANKLINE donewithturn end_command COMMAND READ CONSOLE atlocation [in bed] flagon [dconsole status] rem always off at start BLANKLINE printmessage "Subterminal #2 - Status Active" BLANKLINE PRINTMESSAGE HEALTH LOG 4593.23 Diagnosis - Right Arm Broken Action - Sedation, Arm Fracture reduced, Antibiotics administered. Recommendation: Take it easy for a while. 4593.28 Diagnosis - Headache Action - None Recommendation: Take an aspirin. end_printmessage donewithturn end_command message [overload] System overload error - Access Unavailable. end_message REM READ CHARTS command read charts atlocation [quarters] flagon [rconsole on] present [chart] printmessage ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» º Planet: Lambda IV º º #VAR[home marker]# º º Orbit #57Q º º Frequency: 102.48Khz º ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ1/4 end_printmessage waitforreturn printmessage ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» º System: Rho-Tau-Phi º º #VAR[refinery marker]# º º Orbit #92K º º Frequency: 35.72Khz º ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ1/4 end_printmessage waitforreturn askquestion [pass] answeriscorrect not answeriswrong printmessage ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» º System: Sigma XX º º #VAR[asteroid marker]# º º Orbit # º º Frequency: º ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ1/4 end_printmessage donewithturn end_command command read charts atlocation [quarters] flagon [rconsole on] present [chart] donewithturn end_command QUESTION [pass] ENTER PASSWORD: ANSWER [pass] ROGADOLMINQX