Routines
Prev: 38900 Up: Map Next: 39192
38911: Turn: Gate The Message
Used by the routines at ActionBurn, Action_OpenTheGoblinsDoor, Event_TestTheOpenFlag, Event_TheBarrel, Event_ARandomHalf and Event_CloseTheHole.
Gates the message. The caller continues only when the message gate and the message-suppressed flag are both set.
Turn_GateTheMessage 38911 PUSH BC Read *46842.
38912 LD BC,(46842)
38916 LD A,C Jump to Turn_GateTheMessage_Return if the message gate and the message-suppressed flag are both set.
38917 AND B
38918 JR NZ,Turn_GateTheMessage_Return
38920 POP BC
Turn_GateTheMessage_Return 38921 POP BC Restore BC from the stack.
38922 RET Return.
38923 NOP Try count for this turn. Turn_GateTheMessage_ClearTheTryCount clears it, Turn_StepTheScriptPointer_CountAnotherTry adds one, and Turn_GateTheMessage_TestTheTryCount stops at 6.
38924 NOP Workspace byte. Action_None_StoreTheDarkFlag writes whether the location is dark.
38925 NOP Result of ObjectFirstLocation, written at 39407 and read at 39499.
This entry point is used by the routine at TurnAdvanceTheOtherCharacters.
Turn_GateTheMessage_0 38926 CALL Action_None Call Action_None, the empty action, before the special objects are walked.
38929 LD IY,51915 Point IY at the special-object records.
Turn_GateTheMessage_ClearTheTryCount 38933 XOR A Clear the try count.
38934 LD (38923),A
38937 LD A,(IY+0) Read the special-object id.
38940 CP 255 Jump to Turn_GateTheMessage_ClearTheCharacterWhoseTurn at the end of the special-object records.
38942 JP Z,Turn_GateTheMessage_ClearTheCharacterWhoseTurn
38945 CP 0 Jump to Turn_GateTheMessage_StepThePointerOnBySevenBytes if this special-object id is zero.
38947 JP Z,Turn_GateTheMessage_StepThePointerOnBySevenBytes
38950 LD (46826),A Update *CurrentCharacter.
38953 CALL ObjectFirstLocation Call ObjectFirstLocation to get object first location.
38956 LD (46860),IX Update *Pointer_CurrentCharacter.
38960 LD (46838),A Update *46838.
38963 SUB A Clear the time-of-day flag at NightDay.
38964 LD (46850),A Update *NightDay.
38967 LD A,(IY+0) Read the special-object id.
38970 PUSH IY Save IY and point it at 0 - "You".
38972 LD IY,49435
38976 CALL Condition_SwapAndRetest Call Condition_SwapAndRetest to swap the objects and test visibility again.
38979 POP IY Jump to Turn_GateTheMessage_TestIfInside if Condition_SwapAndRetest did not find the object visible.
38981 JR Z,Turn_GateTheMessage_TestIfInside
Test the flag.
38983 LD A,(38924) Jump to Turn_GateTheMessage_TestIfInside if *38924 is 2.
38986 CP 2
38988 JR Z,Turn_GateTheMessage_TestIfInside
38990 LD A,1 Write 1 (day) to *NightDay.
38992 LD (46850),A
Test the flag.
38995 LD A,(38924) Jump to Turn_GateTheMessage_TestIfInside if *38924 is not 1.
38998 CP 1
39000 JR NZ,Turn_GateTheMessage_TestIfInside
39002 INC A Count on from the turn phase.
39003 LD (38924),A Store the result at 38924.
Say "you{5} hear a noise".
39006 LD HL,45095 Point HL at the message and call PrintMessage.
39009 CALL PrintMessage
39012 SUB A Clear the time-of-day flag at NightDay.
39013 LD (46850),A Update *NightDay.
Turn_GateTheMessage_TestIfInside 39016 LD A,255 Jump to ActionClimb if this object is inside another object.
39018 CP (IX+1)
39021 JP NZ,ActionClimb
This entry point is used by the routine at ActionClimb.
Turn_GateTheMessage_1 39024 LD IX,(46860) Read *Pointer_CurrentCharacter.
39028 CALL Inglish_KeepTheCharacterSlot Call Inglish_KeepTheCharacterSlot to keep the character slot.
39031 LD A,0 Take zero, and jump to Turn_GateTheMessage_StoreTheSlotFlag unless Inglish_KeepTheCharacterSlot found this character's slot.
39033 JR NZ,Turn_GateTheMessage_StoreTheSlotFlag
39035 INC A Count on from zero.
Turn_GateTheMessage_StoreTheSlotFlag 39036 LD (46836),A Store the slot flag at 46836.
This entry point is used by the routine at Turn_StepTheScriptPointer.
Turn_GateTheMessage_ReadTheScriptPointer 39039 LD L,(IY+2) Read the low byte of the script pointer.
39042 LD H,(IY+3) Read the high byte of the script pointer.
This entry point is used by the routine at Turn_StepTheScriptPointer.
Test the flag.
Turn_GateTheMessage_TestTheTryCount 39045 LD A,(38923) Jump to Turn_GateTheMessage_StepThePointerOnBySevenBytes if the try count is 6.
39048 CP 6
39050 JR Z,Turn_GateTheMessage_StepThePointerOnBySevenBytes
39052 LD A,(HL) Read the next script byte.
39053 LD DE,4 The next field is 4 bytes on.
39056 PUSH HL Point IX at this script byte.
39057 POP IX
39059 AND 15 Jump to Turn_GateTheMessage_TakeThePointer if the low nibble of the script byte is not below 5.
39061 CP 5
39063 JR NC,Turn_GateTheMessage_TakeThePointer
Test the flag.
39065 LD A,(46836) Jump to Turn_GateTheMessage_TestTheEntryKind if *46836 is not 1.
39068 CP 1
39070 JR NZ,Turn_GateTheMessage_TestTheEntryKind
39072 BIT 6,(HL) Jump to Turn_GateTheMessage_TestTheEntryKind if bit 6 of the script byte is set.
39074 JR NZ,Turn_GateTheMessage_TestTheEntryKind
39076 SUB A Clear the flag at 46836.
39077 LD (46836),A Store the result at 46836.
39080 INC A Set A to 1 for Inglish_SaveTheClauseAndAct.
39081 CALL Inglish_SaveTheClauseAndAct Call Inglish_SaveTheClauseAndAct to save the clause and act.
39084 JR Z,Turn_GateTheMessage_TestTheEntryKind Jump to Turn_GateTheMessage_TestTheEntryKind if Inglish_SaveTheClauseAndAct returned with the zero flag set.
Update the message gate.
39086 LD A,1 Hold messages back: set the message gate and the message-suppressed flag.
39088 LD (46842),A
39091 LD (46843),A
39094 LD HL,39169 Point HL at Turn_GateTheMessage_StepThePointerOnBySevenBytes, where the message routine should return.
39097 PUSH HL Jump to Turn_ApplyTheSavedMatch_TestTheNounPrintFlag to test the noun-print flag.
39098 PUSH IX
39100 JP Turn_ApplyTheSavedMatch_TestTheNounPrintFlag
Turn_GateTheMessage_TestTheEntryKind 39103 LD A,(HL) Jump to Turn_StepTheScriptPointer_StepTwoBytes if the low nibble of the script code is 4.
39104 AND 15
39106 CP 4
39108 JP Z,Turn_StepTheScriptPointer_StepTwoBytes
39111 JR C,Turn_StepTheScriptPointer_RunTheScriptEntry Jump to Turn_StepTheScriptPointer_RunTheScriptEntry if the low nibble of the script code is below 4.
39113 JR Turn_GateTheMessage_StepThePointerOnBySevenBytes Jump to Turn_GateTheMessage_StepThePointerOnBySevenBytes to step on to the next special object.
Turn_GateTheMessage_TakeThePointer 39115 CP 14 Jump to Turn_GateTheMessage_TakeTheCount if the low nibble of the script code is not 14.
39117 JR NZ,Turn_GateTheMessage_TakeTheCount
39119 LD E,(IX+1) Read the next byte of this script.
39122 LD (IY+2),E Store it as the low byte of the script pointer.
39125 LD E,(IX+2) Read the byte after that.
39128 LD (IY+3),E Store it as the high byte of the script pointer.
39131 JR Turn_GateTheMessage_ReadTheScriptPointer Jump back to Turn_GateTheMessage_ReadTheScriptPointer to read the script pointer.
Turn_GateTheMessage_TakeTheCount 39133 CP 12 Jump to Turn_GateTheMessage_PickAtRandom if the low nibble of the script code is not 12.
39135 JR NZ,Turn_GateTheMessage_PickAtRandom
39137 LD B,(IX+1) Read the next script byte into B.
39140 LD A,(IY+0) Read the special-object id.
39143 CALL Turn_UseASpecialObject Call Turn_UseASpecialObject to look the id up as a special object.
39146 JR Turn_GateTheMessage_ReadTheScriptPointer Jump back to Turn_GateTheMessage_ReadTheScriptPointer to read the script pointer.
Turn_GateTheMessage_PickAtRandom 39148 CP 15 Jump to Turn_GateTheMessage_TestForNoCode if this script code is not 15.
39150 JR NZ,Turn_GateTheMessage_TestForNoCode
39152 CALL Turn_PickAScriptEntry Call Turn_PickAScriptEntry to pick a random script entry.
39155 JR Turn_GateTheMessage_ReadTheScriptPointer Jump back to Turn_GateTheMessage_ReadTheScriptPointer to read the script pointer.
Turn_GateTheMessage_TestForNoCode 39157 CP 0 Jump to Turn_GateTheMessage_KeepTheSmaller if this script code is not zero.
39159 JR NZ,Turn_GateTheMessage_KeepTheSmaller
39161 ADD HL,DE Step the script pointer in HL on by 4 bytes.
39162 JR Turn_GateTheMessage_TestTheTryCount Jump back to Turn_GateTheMessage_TestTheTryCount to try the next script entry.
Turn_GateTheMessage_KeepTheSmaller 39164 SUB A Clear E before the locations are compared.
39165 LD E,A Clear E.
39166 CALL Turn_PickAScriptEntry_0 Call Turn_PickAScriptEntry_0 to keep the smaller of the location and the roll.
This entry point is used by the routines at Turn_StepTheScriptPointer and ActionClimb.
Turn_GateTheMessage_StepThePointerOnBySevenBytes 39169 LD DE,7 Step the pointer on by 7 bytes.
39172 ADD IY,DE
39174 JP Turn_GateTheMessage_ClearTheTryCount Jump back to Turn_GateTheMessage_ClearTheTryCount to try the next special object.
Turn_GateTheMessage_ClearTheCharacterWhoseTurn 39177 SUB A Clear the character whose turn it is.
39178 LD (46826),A Update *CurrentCharacter.
39181 INC A Count on to 1 for the day flag.
39182 LD (46850),A Update *NightDay.
39185 LD HL,49435 Point *Pointer_CurrentCharacter at "You".
39188 LD (46860),HL
39191 RET Return.
Prev: 38900 Up: Map Next: 39192