Routines
Prev: 40656 Up: Map Next: 40760
40657: Character Action: Gardener
CharacterAction_Gardener 40657 LD HL,40656 HL=CharacterState_Gardener.
This entry point is used by the routine at CharacterAction_Cook.
CharacterAction_Gardener_0 40660 LD BC,0 BC=0000.
This entry point is used by the routine at CharacterAction_DaphneStrachan.
CharacterAction_Gardener_1 40663 LD A,(HL) A=*HL.
40664 AND A Jump to CharacterAction_Gardener_2 if A is zero.
40665 JR Z,CharacterAction_Gardener_2
40667 LD B,A B=A.
40668 XOR A A=0.
40669 LD DE,0 DE=0000.
40672 CALL CharacterAction_Gardener_3 Call CharacterAction_Gardener_3.
40675 LD A,(41014) A=*CurrentCharacter_ID.
40678 LD B,C B=C.
40679 LD DE,0 DE=0000.
40682 CALL 61889 Call 61889.
40685 SET 6,(IX+5) Set bit 6 of *IX+5.
40689 RET Return.
Return if it's still morning.
CharacterAction_Gardener_2 40690 LD A,(40930) Return if *Messaging_AM_PM is equal to ASCII 97 ("a") e.g. is it AM still?
40693 CP 97
40695 RET Z
It's afternoon now.
40696 LD A,(40928) Return if *CurrentTime_Hour is not equal to 9.
40699 CP 9
40701 RET NZ
40702 LD DE,504 DE=0504.
40705 LD A,30 A=30.
40707 CALL 53924 Call 53924.
40710 ADD A,E A+=E.
40711 LD E,A E=A.
40712 LD A,(40970) A=*40970.
40715 CALL CharacterAction_Gardener_3 Call CharacterAction_Gardener_3.
40718 LD A,(41014) A=*CurrentCharacter_ID.
40721 LD B,16 B=16.
40723 LD DE,2032 DE=2032.
40726 CALL 61889 Call 61889.
40729 RES 6,(IX+5) Reset bit 6 of *IX+5.
40733 RET Return.
CharacterAction_Gardener_3 40734 LD (HL),A Write A to *HL.
40735 LD IX,(40983) IX=*40983.
40739 LD (IX+15),B Write B to *IX+15.
40742 LD (IX+1),255 Write 255 to *IX+1.
40746 LD L,(IY+6) L=*IY+6.
40749 LD H,(IY+7) H=*IY+7.
40752 ADD HL,DE HL+=DE.
40753 LD (IY+6),L Write L to *IY+6.
40756 LD (IY+7),H Write H to *IY+7.
40759 RET Return.
Prev: 40656 Up: Map Next: 40760