Routines
Prev: 36118 Up: Map Next: 36229
36138: Game Loop
Used by the routines at HandlerMatchVerb and GameStart.
One turn: turn-based threats, scenic checks, a command, then the matching verb.
Run any turn-based threats.
GameLoop 36138 CALL HandlerTurnBasedEvents Call HandlerTurnBasedEvents.
Walk the scenic-event rooms for the plasma-shell warning.
36141 LD HL,25124 HL=Table_ScenicEventLocations.
36144 LD BC,8 BC=0008.
Test whether the player is standing in this scenic room.
GameLoop_Loop1 36147 LD A,(25123) Fetch the current room.
36150 CPIR Search the scenic-event rooms for it.
36152 JR NZ,GameLoop_Step1 Jump to GameLoop_Step1 if the player is not in a scenic room.
36154 PUSH HL Keep the scenic search while the warning is printed.
36155 PUSH BC
Print " An alien soldier has appeared. He fires a plasma gun at you.".
36156 LD HL,30801 HL=Messaging_AnAlienSoldierHasAppearedHeFiresAPlasma.
36159 CALL PrintStringAndANewline Call PrintStringAndANewline.
Give the plasma shell one chance in 20 of hitting.
36162 LD A,20 A=20.
36164 CALL GenerateRandomNumber Call GenerateRandomNumber.
36167 JR Z,HandlerPlasmaShell Jump to HandlerPlasmaShell if the shell hits.
Print "But he missed.".
36169 LD HL,30863 HL=Messaging_ButHeMissed.
36172 CALL PrintStringAndANewline Call PrintStringAndANewline.
36175 POP BC Restore the scenic-room search.
36176 POP HL
36177 XOR A See whether another scenic room is still to be checked.
36178 OR C
36179 JR NZ,GameLoop_Loop1 Jump to GameLoop_Loop1 to check the next scenic room.
Read a command and turn it into vocabulary tokens.
GameLoop_Step1 36181 CALL Handler_UserInput Call Handler_UserInput.
Continue with Action: Type when the first word is "Y".
36184 LD A,(25233) Fetch the first word of the command.
36187 CP 89 Jump to GameLoop_Step3 when Y (89) was not pressed.
36189 JR NZ,GameLoop_Step3
GameLoop_Step2 36191 LD HL,39295 Continue at HandlerMatchVerb_Step2 to run Action: Type.
36194 JP HandlerMatchVerb_Step2
Ensure every named object is present here.
GameLoop_Step3 36197 XOR A Start the synonym scan with a clear result.
36198 LD HL,25233 Point at the command's word tokens.
36201 LD B,10 A command has at most 10 word tokens.
GameLoop_Loop2 36203 LD A,(HL) Read the next word token.
36204 CP 255 Jump to HandlerMatchVerb when the command has no more words (255).
36206 JR Z,HandlerMatchVerb
36208 EXX Look that token up in the noun list without losing the token pointer.
36209 LD HL,34920
36212 LD BC,(25288)
36216 CPIR
36218 JR NZ,GameLoop_Step4 Jump to GameLoop_Step4 if this token is not a noun.
36220 CALL Parser_ResolvePhrase Call Parser_ResolvePhrase.
36223 JR C,GameLoop Jump back to GameLoop when the carry flag is set.
GameLoop_Step4 36225 EXX Bring the token pointer back.
36226 INC HL Move on to the next word token.
36227 DJNZ GameLoop_Loop2 Jump to GameLoop_Loop2 for the remaining words of the command.
View the equivalent code in;
Prev: 36118 Up: Map Next: 36229