Prev: 26469 Up: Map Next: 26529
26506: WEAR action
Used by the routine at ACTION_AUTOW.
Input
DE pointer to object location
ACTION_WEAR 26506 LD A,(DE) A=location of object
26507 LD HL,29 "Already worn"
26510 CP 253 Is it worn?
26512 JP Z,PRINT_MSG_DONE If so, display message
26515 LD HL,28 "Not holding it"
26518 JP C,PRINT_MSG_DONE If not carried, display message
26521 EX DE,HL
26522 LD (HL),253 Set object location to worn
26524 DEC (IX+1) Decrement flag 1
26527 JR ACTION_CLEAR_0 Next action
Prev: 26469 Up: Map Next: 26529