REM ANY.AGT REM FIRST TURN ACTIONS COMMAND ANY FLAGOFF [first] turnflagon [life status red] setvariableto [navigation] [red] turnflagon [core status] end_command command any flagoff [first] turnflagon [in ship] turnflagon [hull breach 1] turnflagon [hull breach 2] turnflagon [hull breach 3] setvariableto [bad cell charge] 75 setvariableto [good cell charge] 50 setvariableto [shunt 1] [shunt at NORMAL] setvariableto [shunt 2] [shunt at SKIP] end_command COMMAND ANY FLAGOFF [first] randomvariable [home marker] 8999 addtovariable [home marker] 1000 randomvariable [alien marker] 8999 addtovariable [alien marker] 1000 addvariables [marker] [alien marker] randomvariable [asteroid marker] 8999 addtovariable [asteroid marker] 1000 randomvariable [refinery marker] 8999 addtovariable [refinery marker] 1000 end_command COMMAND ANY FLAGOFF [first] or flagon [new vector] turnflagoff [new vector] randomvariable [alien vector] 8999 addtovariable [alien vector] 1000 randomvariable [alien distance] 100 addtovariable [alien distance] 25 end_command COMMAND ANY FLAGOFF [first] turnflagon [klaxon] turnflagon [arm broken] turnflagon [headache] turnflagon [at alien marker] end_command COMMAND ANY FLAGOFF [first] turnflagon [first] setvariableto [patches] 20 setvariableto [suit supply] 10 setvariableto [bag supply] 10 setvariableto [air supply] 100 setvariableto [cylinder supply] 5 end_command command any newlife turnflagon [in ship] turnflagoff [in alien ship] turncounteroff [arm condition] flagon [arm broken] turncounteron [arm condition] end_command COMMAND ANY flagon [in ship] FLAGOn [KLAXON] flagoff [asleep] PRINTMESSAGE "The ship is filled with the sound of alarm klaxons." end_command REM ACCUMULATOR CHARGE ACTIONS command any variablelt [good cell charge] 100 addtovariable [good cell charge] 1 end_command command any variablegt [bad cell charge] 0 subtractfromvariable [bad cell charge] 1 end_command rem check for using suit or evac bag command any turnflagoff [using suit] iswearing [suit] isclosed [suit] turnflagon [using suit] end_command command any turnflagoff [using bag] iswearing [evac bag] isclosed [evac bag] turnflagon [using bag] end_command rem air supply automatic actions command any flagon [life status red] flagoff [hull breach 1] flagoff [hull breach 2] flagoff [hull breach 3] turnflagoff [life status red] turnflagon [life status yellow] plusscore 25 end_command command any flagon [life status yellow] variablegt [air supply] 25 turnflagoff [life status yellow] turnflagon [life status green] end_command command any flagoff [life status green] counterequals [air toggle] 0 turncounteron [air toggle] end_command command any flagon [life status yellow] counterequals [air toggle] 10 subtractfromvariable [air supply] 1 turncounteroff [air toggle] end_command command any flagon [life status red] counterequals [air toggle] 2 subtractfromvariable [air supply] 1 turncounteroff [air toggle] end_command command any flagoff [life status green] flagoff [using suit] flagoff [using bag] variableequals [air supply] 90 or variableequals [air supply] 80 or variableequals [air supply] 70 or variableequals [air supply] 60 printmessage "You feel discomfort in your ears, You yawn and it goes away." end_command command any flagoff [life status green] flagoff [using suit] flagoff [using bag] variableequals [air supply] 50 or variableequals [air supply] 40 or variableequals [air supply] 30 printmessage You are having trouble breathing, the air seems to be getting thinner. end_printmessage end_command command any flagoff [life status green] flagoff [using suit] flagoff [using bag] variablelt [air supply] 20 variablegt [air supply] 15 printmessage You are having trouble breathing, the air seems to be getting thinner. end_printmessage end_command command any flagoff [using suit] flagoff [using bag] variablelt [air supply] 15 printmessage "You are now gasping for air." COUNTEREQUALS [BLACKOUT] 0 TURNcounteron [blackout] end_command command any counterequals [blackout] 25 setvariableto [air supply] 0 end_command command any flagon [using suit] or flagon [using bag] countergt [blackout] 0 turncounteroff [blackout] end_command command any flagoff [using suit] flagoff [using bag] variableequals [air supply] 0 printmessage "You feel yourself blacking out from lack of oxygen." killplayer donewithturn end_command command any flagon [using suit] counterequals [suit counter] 0 turncounteron [suit counter] end_command command any flagon [using suit] flagoff [suit fixed] subtractfromvariable [suit supply] 5 end_command command any flagon [using suit] counterequals [suit counter] 3 subtractfromvariable [suit supply] 1 turncounteroff [suit counter] end_command command any flagon [using suit] printmessage "EVA air supply - #VAR[suit supply]#%" variablelt [suit supply] 15 printmessage "You are now gasping for air." end_command command any flagon [using suit] variableequals [suit supply] 0 printmessage "You feel yourself blacking out from lack of oxygen." killplayer donewithturn end_command command any flagon [using bag] counterequals [bag counter] 0 turncounteron [bag counter] end_command command any flagon [using bag] flagoff [bag fixed] subtractfromvariable [bag supply] 1 end_command command any flagon [using bag] counterequals [bag counter] 3 subtractfromvariable [bag supply] 1 turncounteroff [bag counter] end_command command any flagon [using bag] variablelt [bag supply] 5 printmessage "You are now gasping for air." end_command command any flagon [using bag] variableequals [bag supply] 0 printmessage "You feel yourself blacking out from lack of oxygen." killplayer donewithturn end_command command any iswearing [evac bag] verbisdirection printmessage "You cannot move while inside the Evac-Bag" donewithturn end_command rem suit actions command any isopen [cylinder] variablegt [cylinder supply] 0 subtractfromvariable [cylinder supply] 1 addtovariable [air supply] 10 atlocation [eva storage area] printmessage You are almost knocked over by the blast of air from the cylinder. end_printmessage end_command command any isopen [cylinder] variableequals [cylinder supply] 0 flagoff [cylinder dead] turnflagon [cylinder dead] atlocation [eva storage area] printmessage "The flow of air from the cylinder quickly fades, then stops." end_command rem whistles in rooms with hole in wall command any atlocation [sd storage cells] flagon [hull breach 1] putincurrentroom [wall hole] printmessage [whistle] end_command command any atlocation [ns south area] flagon [hull breach 2] putincurrentroom [wall hole] printmessage [whistle] end_command command any atlocation [se hold] flagon [hull breach 3] putincurrentroom [wall hole] printmessage [whistle] end_command message [whistle] You distinctly hear a high pitched whistling. end_message rem adjust power levels **** command any turnflagoff [normal good charge] turnflagoff [normal bad charge] turnflagoff [skip good charge] turnflagoff [skip bad charge] turnflagon [normal offline] turnflagon [skip offline] setvariableto [skip power] 0 setvariableto [normal power] 0 end_command command any variableequals [shunt 1] [shunt at skip] turnflagon [skip good charge] turnflagoff [skip offline] addvariables [skip power] [good cell charge] end_command command any variableequals [shunt 1] [shunt at normal] turnflagon [normal good charge] turnflagoff [normal offline] addvariables [normal power] [good cell charge] end_command command any variableequals [shunt 2] [shunt at skip] turnflagon [skip bad charge] turnflagoff [skip offline] addvariables [skip power] [bad cell charge] end_command command any variableequals [shunt 2] [shunt at normal] turnflagon [normal bad charge] turnflagoff [normal offline] addvariables [normal power] [bad cell charge] end_command command any flagon [skip bad charge] variablegt [skip power] 0 subtractfromvariable [skip power] 5 end_command command any flagon [normal bad charge] variablegt [normal power] 0 subtractfromvariable [normal power] 5 end_command rem move ship command any flagon [move ship] flagon [SKIP COURSE] variableequals [Navigation] [red] printmessage There is a surge of power from the engines. You feel a weird twisting sensation as your ship folds into Skip-Space. There is a moment of quiet. A violent lurch throws you against the wall. You feel a weird twisting sensation as your ship folds back into Normal Space. Congratulations - You have managed to wander off into unknown territory. The Skip-Drive on your ship has self-destructed. You are now totally lost. Eventually you run out of supplies and perish. end_printmessage turnflagoff [move ship] killplayer donewithturn end_command command any flagon [move ship] flagon [skip COURSE] setvariableto [console page] 1 setvariableto [marker] 0 printmessage There is a surge of power from the engines. You feel a weird twisting sensation as your ship folds into Skip-Space. end_message turncounteron [in skip space] turnflagoff [move ship] donewithturn end_command command any counterequals [in skip space] 25 turncounteroff [in skip space] addvariables [marker] [vector] printmessage You feel a weird twisting sensation as your ship folds back into Normal Space. end_message donewithturn end_command rem move in normal space command any flagon [move ship] flagon [normal COURSE] printmessage There is a surge of power from the engines. end_message end_command command any flagon [move ship] flagon [normal COURSE] flagoff [good course] randomvariable [alien distance] 200 addtovariable [alien distance] 25 randomvariable [alien vector] 8999 addtovariable [alien vector] 1000 end_command command any flagon [move ship] flagon [normal COURSE] flagon [good course] flagoff [good distance] variablelt [distance] 0 randomvariable [alien vector] 8999 addtovariable [alien vector] 1000 setvariableto [alien distance] 0 subtractvariables [alien distance] [distance] end_command command any flagon [move ship] flagon [normal COURSE] flagon [good course] flagoff [good distance] variablegt [distance] 0 setvariableto [alien distance] 0 addvariables [alien distance] [distance] end_command command any flagon [move ship] flagon [normal COURSE] flagon [good course] flagon [good distance] setvariableto [alien distance] 0 turnflagon [message 4] end_command command any flagon [move ship] flagon [normal COURSE] VariableEquals [shunt 1] [shunt at normal] subtractfromvariable [good cell charge] 50 variablelt [good cell charge] 0 setvariableto [good cell charge] 0 end_command command any flagon [move ship] flagon [normal COURSE] VariableEquals [shunt 2] [shunt at normal] subtractfromvariable [bad cell charge] 50 variablelt [bad cell charge] 0 setvariableto [bad cell charge] 0 end_command command any flagon [move ship] flagon [skip COURSE] VariableEquals [shunt 1] [shunt at skip] subtractfromvariable [good cell charge] 50 variablelt [good cell charge] 0 setvariableto [good cell charge] 0 end_command command any flagon [move ship] flagon [skip COURSE] VariableEquals [shunt 2] [shunt at skip] subtractfromvariable [bad cell charge] 50 variablelt [bad cell charge] 0 setvariableto [bad cell charge] 0 end_command command any flagon [move ship] setvariableto [console page] 1 turnflagoff [move ship] end_command rem turn consoles off if not in room command any turnflagoff [cconsole on] atlocation [control room] ison [cconsole] turnflagon [cconsole on] end_command command any turnflagoff [mconsole on] atlocation [mining control] ison [mconsole] flagon [mconsole status] turnflagon [mconsole on] variableequals [console page] 0 setvariableto [console page] 1 end_command command any turnflagoff [kconsole on] atlocation [kitchen] ison [kconsole] flagon [kconsole status] turnflagon [kconsole on] end_command command any turnflagoff [rconsole on] atlocation [quarters] ison [rconsole] flagon [rconsole status] turnflagon [rconsole on] end_command command any turnflagoff [dconsole on] atlocation [in bed] ison [dconsole] flagon [dconsole status] turnflagon [dconsole on] end_command rem ovoid drying out command any flagoff [in ship] not islocated [egg] [evac bag] flagon [alien alive] counterequals [egg drying] 0 turncounteron [egg drying] end_command command any flagoff [in ship] PRESENT [evac bag] isopen [evac bag] or variableequals [bag supply] 0 flagon [alien alive] counterequals [egg drying] 0 turncounteron [egg drying] end_command command any countergt [egg drying] 0 flagon [in ship] turncounteroff [egg drying] end_command command any countergt [egg drying] 0 islocated [egg] [evac bag] isclosed [evac bag] variablegt [bag supply] 0 turncounteroff [egg drying] end_command command any issomewhere [egg] countergt [egg drying] 10 turncounteroff [egg drying] turnflagoff [alien alive] end_command command any flagon [in ship] present [egg] counterequals [hatching] 0 turncounteron [hatching] end_command rem ovoid hatching command any counterequals [hatching] 35 turncounteroff [hatching] swaplocations [starfish] [egg] present [egg] printmessage The ovoid suddenly splits wide open. Shards disintegrate quickly leaving a small quivering mass lying where the ovoid used to be. end_printmessage end_command command any issomewhere [starfish] counterequals [hunger] 0 turncounteron [hunger] end_command command any countergt [hunger] 15 present [starfish] printmessage "The starfish is emitting a high pitched rasping sound." end_command command any countergt [hunger] 35 present [starfish] removefromgroup [starfish] printmessage "The high pitched rasping sound is getting weaker." end_command command any counterequals [hunger] 40 present [starfish] printmessage The starfish stops making the high pitched rasping sound. In fact the starfish stops doing everything. Oh dear, it seems to have died. The body quickly crumbles into dust. end_printmessage end_command command any counterequals [hunger] 40 destroy [starfish] turncounteroff [hunger] end_command command any countergt [hunger] 15 present [starfish] present [sludge] sendtoroom [starfish] [sludge] present [starfish] printmessage The starfish stops keening, jumps to the bucket and quickly buries itself into the sludge where it roots around happily. end_printmessage end_command command any countergt [hunger] 0 present [starfish] together [starfish] [sludge] turncounteroff [hunger] end_command command any present [starfish] counterlt [hunger] 15 present [motes] printmessage The starfish gleefully chases the dust motes around the room. end_printmessage end_command rem alien movement command any atlocationgt [al19] atlocationlt [al71] flagoff [alien destroyed] not inroom [wounded alien] chance 10 putincurrentroom [wounded alien] printmessage "A large alien slowly drags itself into the room!." end_command command any inroom [wounded alien] flagoff [two hits] chance 25 destroy [wounded alien] printmessage The large alien ignores you as it slowly drags itself out of the room!. end_printmessage end_command rem zap unprotected chips command any atlocation [sd storage cells] present [chip static 1] islocated [chip static 1] [chip tray] isopen [chip tray] turnflagon [chip zapped 1] end_command command any atlocation [sd storage cells] present [chip static 1] not islocated [chip static 1] [chip tray] turnflagon [chip zapped 1] end_command command any atlocation [sd storage cells] present [chip static 2] islocated [chip static 2] [chip tray] isopen [chip tray] turnflagon [chip zapped 2] end_command command any atlocation [sd storage cells] present [chip static 2] not islocated [chip static 2] [chip tray] turnflagon [chip zapped 2] end_command command any atlocation [sd storage cells] present [chip static 3] islocated [chip static 3] [chip tray] isopen [chip tray] turnflagon [chip zapped 3] end_command command any atlocation [sd storage cells] present [chip static 3] not islocated [chip static 3] [chip tray] turnflagon [chip zapped 3] end_command rem adjust navigation status due to zapped chips command any setvariableto [navigation] [yellow] flagon [chip zapped 1] or flagon [chip zapped 2] or flagon [chip zapped 3] setvariableto [navigation] [red] end_command command any not islocated [chip static 3] [circuit card 1] or not islocated [chip static 1] [circuit card 2] or not islocated [chip static 2] [circuit card 3] setvariableto [navigation] [red] end_command rem prevent movement if sludge on floor command any verbisdirection inroom [sludge] not islocated [sludge] [bucket] chance 50 printmessage "You slip and slide on the sludge, unable to move." donewithturn end_command rem mining console command any turnflagon [at alien marker] comparevariables [marker] [alien marker] or comparevariables [alien marker] [marker] turnflagoff [at alien marker] end_command command any turnflagon [at home marker] comparevariables [marker] [home marker] or comparevariables [home marker] [marker] turnflagoff [at home marker] end_command command any turnflagon [at asteroid marker] comparevariables [marker] [asteroid marker] or comparevariables [asteroid marker] [marker] turnflagoff [at asteroid marker] end_command command any turnflagon [at Refinery marker] comparevariables [marker] [Refinery marker] or comparevariables [Refinery marker] [marker] turnflagoff [at Refinery marker] end_command rem outside ship - set flag command any turnflagon [in ship] atlocationgt [spider tube] atlocationlt [shuttle] turnflagoff [in ship] end_command command any flagoff [in ship] iscarrying [flashlight] printmessage "The flashlight explodes in the vacuum of space!" printmessage "Small bits of sharp plastic tear a hole in your EVA-SUIT!!" turnflagoff [suit fixed] sendtoroom [eva hole] [suit] destroy [flashlight] end_command command any islocated [dead spot] [suit] swaplocations [dead spot] [spotlight] end_command command any issomewhere [spotlight] not islocated [spotlight] [suit] swaplocations [dead spot] [spotlight] not islocated [spotlight] [suit] end_command rem sickbay actions COMMAND ANY FLAGOn [headache] flagoff [asleep] PRINTMESSAGE "You have a splitting headache." end_command command any countergt [arm condition] 0 counterlt [arm condition] 30 printmessage "Your arm hurts" end_command command any countergt [arm condition] 30 counterlt [arm condition] 55 printmessage "Your arm really hurts!" end_command command any countergt [ARM Condition] 55 printmessage "Your arm hurts so much, you feel like screaming!!" countergt [ARM Condition] 60 printmessage Suddenly everything fades to black and you feel yourself falling into a deep pit where the only thing that exists is excruciating pain. Mercifully you pass out. end_printmessage killplayer end_command COMMAND ANY ATLOCATION [in BED] FLAGON [ARM BROKEN] PRINTMESSAGE Before you can settle comfortably onto the bed, you hear the hiss of a hypo spray and you quickly fade into unconsciousness. end_printmessage timepasses turnflagoff [arm broken] turncounteroff [arm condition] turnflagon [asleep] turncounteron [sleeping] donewithturn end_command COMMAND ANY FLAGON [ASLEEP] COUNTERLT [SLEEPING] 7 PRINTMESSAGE "You slumber away..." donewithturn end_command command any flagon [asleep] counterequals [sleeping] 7 turnflagoff [asleep] turncounteroff [sleeping] PLUSSCORE 25 printmessage You awaken, you feel slightly groggy but there is no more pain in your arm. end_printmessage end_command command any atlocation [mining shuttle] flagoff [mining completed] printmessage You board the shuttle to rest and relax. The local refinery is disappointed that you have no ore to process. After several days rest, you return to your ship to continue your adventure. end_printmessage end_command command any atlocation [mining shuttle] flagon [mining completed] turnflagon [refining completed] turnflagoff [mining completed] printmessage You board the shuttle to rest and relax. The local refinery unloads your cargo and processes the ore. Again you have managed to find enough to restock your ship. After several days rest, you return to your ship to continue your adventure. end_printmessage end_command command any atlocation [shuttle] printmessage As you board the shuttle to return home you realize the long voyage is over. Your discoveries have amazed Scientists all over the planet. end_printmessage end_command command any atlocation [shuttle] iscarrying [starfish] printmessage You are rewarded for finding a alien life form. end_printmessage end_command command any atlocation [shuttle] iscarrying [gadget] printmessage You are rewarded for finding alien technology. end_printmessage end_command command any atlocation [shuttle] flagoff [ship destroyed] plusscore 50 printmessage Using the co-ordinates provided by you, a salvage team is able to recover the alien ship. The salvage award allows you to retire wealthy beyond your dreams. end_printmessage end_command command any atlocation [shuttle] flagon [ship destroyed] minusscore 50 printmessage Using the co-ordinates provided by you, a salvage team attempts to recover the alien ship. Unfortunately you destroyed it. end_printmessage end_command command any atlocation [shuttle] flagon [mining completed] plusscore 50 printmessage The raw ore from your mining operations successfully pays your past debts. end_printmessage end_command command any atlocation [shuttle] flagon [refining completed] plusscore 50 printmessage The processed ore from your mining operations successfully pays your past debts. You even have enough left over to restock your ship. end_printmessage end_command command any counterequals [need to eat] 0 turnsgt 100 turncounteron [need to eat] end_command command any countergt [need to eat] 50 printmessage "You are feeling hungry." countergt [need to eat] 60 printmessage "You are feeling ravenous!" countergt [need to eat] 75 printmessage "You are feeling faint with hunger!!" counterequals [need to eat] 100 printmessage "You slip into a hunger induced comma!!!" killplayer end_command command any flagon [make meal] counterequals [meal timer] 0 turncounteron [meal timer] end_command command any flagon [make meal] atlocation [kitchen] printmessage "Tick..." end_command command any flagon [make meal] countergt [meal timer] 4 turncounteroff [meal timer] turnflagoff [make meal] sendtoroom [meal] [microwave] unlockit [microwave] atlocation [kitchen] printmessage "DING!" end_command REM spider actions REM make ball into spider command any atlocation [computer room] isopen [panel 4] present [ball] not iscarrying [ball] Destroy [ball] sendtoroom [spider] [panel 4] printmessage The silver ball quivers, the eight strands unravel, unfold and form eight legs. The legs flex and lift a smaller ball into the air. You see before you a silvery spider. It seems to be waiting. end_printmessage end_command COMMAND ANY ATLOCATION [COMPUTER ROOM] ISLOCATED [ball] [ACCESS HOLE] PRINTMESSAGE [silver ball gone] destroy [ball] sendtoroom [spider] [spider tube] turncounteron [wait for spider] turnflagoff [spider direction] end_command message [silver ball gone] The silver ball rolls into the hole and out of sight. end_message COMMAND ANY atlocation [Cubby Hole] islocated [ball] [access hole 2] PRINTMESSAGE [silver ball gone] destroy [ball] sendtoroom [spider] [spider tube] turncounteron [wait for spider] turnflagon [spider direction] end_command REM spider automatic movement command any counterequals [wait for spider] [spider walk] flagoff [spider direction] atlocation [Cubby Hole] somethinginside [spider] printmessage A silver spider crawls out of the access hole, drops a computer chip, and reenters the hole. end_printmessage end_command command any counterequals [wait for spider] [spider walk] flagoff [spider direction] atlocation [Cubby Hole] NOT somethinginside [spider] printmessage A silver spider crawls out of the access hole, waits a moment, and reenters the hole. end_printmessage end_command REM at end of spider walk, drop a chip command any counterequals [wait for spider] [spider walk] islocated [chip rh1] [spider] sendtoroom [chip rh1] [Cubby Hole] end_command command any counterequals [wait for spider] [spider walk] islocated [chip rh2] [spider] sendtoroom [chip rh2] [Cubby Hole] end_command command any counterequals [wait for spider] [spider walk] islocated [chip rh3] [spider] sendtoroom [chip rh3] [Cubby Hole] end_command command any counterequals [wait for spider] [spider walk] islocated [chip rh4] [spider] sendtoroom [chip rh4] [Cubby Hole] end_command command any counterequals [wait for spider] [spider walk] islocated [dead chip 1] [spider] sendtoroom [dead chip 1] [Cubby Hole] end_command command any counterequals [wait for spider] [spider walk] islocated [dead chip 2] [spider] sendtoroom [dead chip 2] [Cubby Hole] end_command command any counterequals [wait for spider] [spider walk] islocated [dead chip 3] [spider] sendtoroom [dead chip 3] [Cubby Hole] end_command command any counterequals [wait for spider] [spider walk] islocated [dead chip 4] [spider] sendtoroom [dead chip 4] [Cubby Hole] end_command command any counterequals [wait for spider] [spider walk] islocated [chip static 1] [spider] sendtoroom [chip static 1] [Cubby Hole] end_command command any counterequals [wait for spider] [spider walk] islocated [chip static 2] [spider] sendtoroom [chip static 2] [Cubby Hole] end_command command any counterequals [wait for spider] [spider walk] islocated [chip static 3] [spider] sendtoroom [chip static 3] [Cubby Hole] end_command command any counterequals [wait for spider] [spider walk] islocated [zapped 1] [spider] sendtoroom [zapped 1] [Cubby Hole] end_command command any counterequals [wait for spider] [spider walk] islocated [zapped 2] [spider] sendtoroom [zapped 2] [Cubby Hole] end_command command any counterequals [wait for spider] [spider walk] islocated [zapped 3] [spider] sendtoroom [zapped 3] [Cubby Hole] end_command command any counterequals [wait for spider] [spider walk] flagon [spider direction] sendtoroom [spider] [PANEL 4] turncounteroff [wait for spider] atlocation [computer room] isopen [panel 4] printmessage A silver spider crawls out of the access hole and sits waiting on the panel. end_printmessage end_command command any counterequals [wait for spider] [spider walk] flagoff [spider direction] turncounteroff [wait for spider] turncounteron [wait for spider] toggleflag [spider direction] end_command REM have spider pick up a chip command any islocated [spider] [panel 4] TOGETHER [spider] [chip rh2] sendtoroom [chip rh2] [spider] [start spider walk] end_command command any islocated [spider] [panel 4] TOGETHER [spider] [chip 78] destroy [chip 78] sendtoroom [dead chip 1] [spider] turnflagon [kconsole status] [start spider walk] end_command command any islocated [spider] [panel 4] TOGETHER [spider] [chip rh3] sendtoroom [chip rh3] [spider] [start spider walk] end_command command any islocated [spider] [panel 4] TOGETHER [spider] [chip 56] destroy [chip 56] sendtoroom [dead chip 2] [spider] turnflagon [mconsole status] [start spider walk] end_command command any islocated [spider] [panel 4] TOGETHER [spider] [chip 21] destroy [chip 21] turnflagon [rconsole status] sendtoroom [dead chip 3] [spider] [start spider walk] end_command command any islocated [spider] [panel 4] TOGETHER [spider] [chip rh1] sendtoroom [chip rh1] [spider] [start spider walk] end_command command any islocated [spider] [panel 4] TOGETHER [spider] [chip 94] destroy [chip 94] turnflagon [dconsole status] sendtoroom [dead chip 4] [spider] [start spider walk] end_command command any islocated [spider] [panel 4] TOGETHER [spider] [chip static 1] sendtoroom [chip static 1] [spider] [start spider walk] end_command command any islocated [spider] [panel 4] TOGETHER [spider] [chip static 2] sendtoroom [chip static 2] [spider] [start spider walk] end_command command any islocated [spider] [panel 4] TOGETHER [spider] [chip static 3] sendtoroom [chip static 3] [spider] [start spider walk] end_command command any islocated [spider] [panel 4] TOGETHER [spider] [dead chip 1] sendtoroom [dead chip 1] [spider] [start spider walk] end_command command any islocated [spider] [panel 4] TOGETHER [spider] [chip rh4] sendtoroom [chip rh4] [spider] [start spider walk] end_command command any islocated [spider] [panel 4] TOGETHER [spider] [dead chip 2] sendtoroom [dead chip 2] [spider] [start spider walk] end_command command any islocated [spider] [panel 4] TOGETHER [spider] [dead chip 3] sendtoroom [dead chip 3] [spider] [start spider walk] end_command command any islocated [spider] [panel 4] TOGETHER [spider] [dead chip 4] sendtoroom [dead chip 4] [spider] [start spider walk] end_command command any islocated [spider] [panel 4] TOGETHER [spider] [zapped 1] sendtoroom [zapped 1] [spider] [start spider walk] end_command command any islocated [spider] [panel 4] TOGETHER [spider] [zapped 2] sendtoroom [zapped 2] [spider] [start spider walk] end_command command any islocated [spider] [panel 4] TOGETHER [spider] [zapped 3] sendtoroom [zapped 3] [spider] [start spider walk] end_command message [spider grabs chip] The spider picks up a chip and disappears into the access hole. end_message REM evac bag open outside command any flagoff [in ship] not atlocation [nursery] present [evac bag] isopen [evac bag] printmessage The Evacuation Bag quickly deflates. end_printmessage setvariableto [bag supply] 0 end_command REM Dust Bunnies Actions command any iswearing [suit] present [motes] destroy [motes] printmessage The air filtration system of the EVA-Suit sucks up the dust motes. end_printmessage end_command command any iswearing [evac bag] present [motes] destroy [motes] printmessage The air filtration system of the Emergency Bag sucks up the dust motes. end_printmessage end_command command any present [motes] present [starfish] counterlt 15 [hunger] printmessage The tiny starfish leaps joyfully after the dust motes. end_printmessage end_command command any together [starfish] [vial] isopen [vial] printmessage The starfish jumps down, grabs the open vial and quickly gobbles up all of the pills. It suddenly convulses and dies. Oh dear! end_printmessage destroy [starfish] end_command