Routines
Prev: 39295 Up: Map Next: 39470
39389: Action: Touch
Touch the named object.
ActionTouch 39389 CALL Parser_ValidateDirectObject Return if the command does not name a single object.
39392 RET C
39393 CP 2 Jump to ActionTouch_Step1 when the command names at least 2 nouns.
39395 JR NC,ActionTouch_Step1
39397 LD HL,25644 Print "Please be more specific." and start a new line.
39400 JR ActionTouch_Loop2
ActionTouch_Loop1 39402 LD HL,32080 Print "It has no apparent effect." and start a new line.
ActionTouch_Loop2 39405 CALL PrintStringAndANewline
39408 RET Return.
ActionTouch_Step1 39409 LD HL,35636 Jump to ActionTouch_Step3 unless the command matches the phrase at 35636 (A crystal rod. (3)).
39412 CALL Parser_AdvanceToSeparator
39415 JR NZ,ActionTouch_Step3
39417 LD A,3
39419 CALL IsObjectCarried
39422 JR Z,ActionTouch_Step2
39424 LD HL,31321 Print You're not carrying on the same line.
39427 CALL PrintString
39430 LD HL,30292 Print "a rod" and start a new line.
39433 JP ActionTouch_Loop2
ActionTouch_Step2 39436 LD A,23 Jump back to ActionTouch_Loop1 when A panel with a square plate to one side. (23) is not here or being carried.
39438 CALL IsObjectInCurrentRoom
39441 JP NZ,ActionTouch_Loop1
39444 LD BC,5888 Move A panel with a square plate to one side. (23) to nowhere (0).
39447 CALL UpdateObjectLocation
39450 LD BC,6167 Move The southern exit has a square plate to the side of it. (24) to The Mirrored Room. (23).
39453 CALL UpdateObjectLocation
39456 LD A,28 Open the south exit of The Mirrored Room. onto The Crystal Chamber..
39458 LD (35813),A
39461 LD HL,33288 Print "The panel slides back revealing an exit south." and start a new line.
39464 JP ActionTouch_Loop2
ActionTouch_Step3 39467 JP ActionTouch_Loop1 Continue at ActionTouch_Loop1 to say it has no effect.
Prev: 39295 Up: Map Next: 39470