Prev: 25177 Up: Map Next: 25300
25231: Describe current location
Used by the routines at RESET_GAME, NOUN_CHECK and ACTION_DESC.
DESC_LOCATION 25231 CALL 8020 Read the BREAK key
25234 JR C,DESC_LOCATION_0 If not pressed, skip BREAK handling
25236 LD HL,(27354) Get address of Quill editor
25239 LD A,H
25240 OR L If address is 0, break should be ignored
25241 JR Z,DESC_LOCATION_0 If break not enabled, skip break handling
25243 RES 7,(IY+8) Break handling
25247 RST 8 The 'Error' routtine
25248 INC C (Unused?)
DESC_LOCATION_0 25249 XOR A A=0
25250 CP (IX+2) Is flag 2 equal to 0?
25253 JR Z,DESC_LOCATION_1
25255 DEC (IX+2) Decrement flag 2
DESC_LOCATION_1 25258 CP (IX+0) Is it dark?
25261 JR Z,DESC_LIT_LOC If not, Describe lit location
25263 CP (IX+3) Is flag 3 equal to 0?
25266 JR Z,DESC_LOCATION_2
25268 DEC (IX+3) Decrement flag 3
DESC_LOCATION_2 25271 LD A,(23333) A=Location of light source
25274 CP (IX+35) Is it at current location?
25277 JR Z,DESC_LIT_LOC Describe lit location
25279 CP 253 Is it worn or carried?
25281 JR NC,DESC_LIT_LOC Describe lit location
25283 LD HL,0 "It's dark"
25286 CALL PRINT_TO_SCREEN Display darkness message
25289 XOR A A=0
25290 CP (IX+4) Is flag 4 equal to 0?
25293 JR Z,PROCESS_STATUS
25295 DEC (IX+4) Decrement flag 4
25298 JR PROCESS_STATUS Carry on to status table processing
Prev: 25177 Up: Map Next: 25300