Routines
Prev: 38601 Up: Map Next: 39122
38636: Game Complete
Used by the routine at DrawRoom.
GameComplete 38636 LD HL,60048 HL=Player.
38639 CALL 38348
38642 LD HL,48716 Write MainFont to FontPointer.
38645 LD (24065),HL
Handle printing "CONGRATULATIONS".
38648 LD HL,8256 HL=8256 (screen buffer location).
38651 LD DE,38672 DE=38672.
38654 CALL PrintStringColour Call PrintStringColour.
Handle printing "YOU HAVE ESCAPED".
38657 LD HL,12352 HL=12352 (screen buffer location).
38660 LD DE,38688 DE=38688.
38663 CALL PrintStringColour Call PrintStringColour.
Show the game statistics.
38666 CALL GameStats Call GameStats.
Disappointingly cut into the "normal" game over routine.
38669 JP GameOverDelay Jump to GameOverDelay.
Congratulations messaging.
38672 DEFM 71 Attribute: 71 + "CONGRATULATIONS".
38673 DEFM "CONGRATULATION","S"+128
38688 DEFM 71 Attribute: 71 + "YOU HAVE ESCAPED".
38689 DEFM "YOU HAVE ESCAPE","D"+128
This entry point is used by the routine at HandlerTrapOpen.
GameComplete_0 38705 LD BC,6168
38708 CALL ApplyMovement_22
38711 JP NC,HandlerRoomItem
38714 CALL ClearPlayArea
38717 LD A,150
38719 PUSH IX
38721 CALL DrawRoomFrame_0
38724 POP IX
38726 LD B,128
GameComplete_1 38728 LD A,(23672)
38731 LD C,A
GameComplete_2 38732 PUSH BC
38733 LD A,B
38734 CPL
38735 LD B,A
38736 CALL SoundsClick
38739 POP BC
38740 LD A,(23672)
38743 CP C
38744 JR Z,GameComplete_2
38746 AND 7
38748 LD A,0
38750 JR NZ,GameComplete_3
38752 LD A,71
GameComplete_3 38754 LD L,A
38755 LD H,A
38756 LD (22891),HL
38759 LD (22923),HL
38762 PUSH BC
38763 CALL GameComplete_4
38766 POP BC
38767 DJNZ GameComplete_1
38769 JP ApplyMovement_28
GameComplete_4 38772 LD BC,5899
38775 LD HL,23264
38778 LD DE,32
GameComplete_5 38781 PUSH HL
38782 AND A
38783 SBC HL,DE
38785 INC L
38786 LD A,(HL)
38787 POP HL
38788 PUSH BC
GameComplete_6 38789 LD (HL),A
38790 INC L
38791 DJNZ GameComplete_6
38793 POP BC
38794 PUSH BC
GameComplete_7 38795 LD (HL),A
38796 AND A
38797 SBC HL,DE
38799 DJNZ GameComplete_7
38801 POP BC
38802 PUSH BC
GameComplete_8 38803 LD (HL),A
38804 DEC L
38805 DJNZ GameComplete_8
38807 POP BC
38808 PUSH BC
GameComplete_9 38809 LD (HL),A
38810 ADD HL,DE
38811 DJNZ GameComplete_9
38813 LD (HL),A
38814 AND A
38815 SBC HL,DE
38817 INC L
38818 POP BC
38819 DEC B
38820 DEC B
38821 DEC C
38822 JR NZ,GameComplete_5
38824 RET
38825 LD E,H
38826 LD H,E
38827 LD H,E
38828 LD H,E
38829 LD H,E
38830 LD E,H
38831 LD E,H
38832 LD E,H
38833 LD D,H
38834 LD L,E
38835 LD L,E
38836 LD L,E
38837 LD L,E
38838 LD D,H
38839 LD D,H
38840 LD D,H
38841 LD C,H
38842 LD (HL),E
38843 LD (HL),E
38844 LD (HL),E
38845 LD (HL),E
38846 LD C,H
38847 LD C,H
38848 LD C,H
38849 LD B,H
38850 LD A,E
38851 LD A,E
38852 LD A,E
38853 LD A,E
38854 LD B,H
38855 LD B,H
38856 LD B,H
38857 INC A
38858 ADD A,E
38859 ADD A,E
38860 ADD A,E
38861 ADD A,E
38862 INC A
38863 INC A
38864 INC A
38865 INC (HL)
38866 ADC A,E
38867 ADC A,E
38868 ADC A,E
38869 ADC A,E
38870 INC (HL)
38871 INC (HL)
38872 INC (HL)
38873 INC L
38874 SUB E
38875 SUB E
38876 SUB E
38877 SUB E
38878 INC L
38879 INC L
38880 INC L
38881 INC H
38882 SBC A,E
38883 SBC A,E
38884 SBC A,E
38885 SBC A,E
38886 INC H
38887 INC H
38888 INC H
38889 INC E
38890 AND E
38891 AND E
38892 AND E
38893 AND E
38894 INC E
38895 INC E
38896 INC E
38897 INC D
38898 XOR E
38899 XOR E
38900 XOR E
38901 XOR E
38902 INC D
38903 INC D
38904 INC D
38905 INC C
38906 OR E
38907 OR E
38908 OR E
38909 OR E
38910 INC C
38911 INC C
38912 INC C
38913 INC B
38914 CP E
38915 CP E
38916 CP E
38917 CP E
38918 INC B
38919 INC B
38920 INC B
38921 NOP
38922 LD BC,65283
38925 LD (BC),A
38926 LD BC,65283
38929 INC B
38930 DEC B
38931 RLCA
38932 RST 56
38933 LD B,5
38935 RLCA
38936 RST 56
38937 EX AF,AF'
38938 ADD HL,BC
38939 DEC BC
38940 RST 56
38941 LD A,(BC)
38942 ADD HL,BC
38943 DEC BC
38944 RST 56
38945 INC C
38946 DEC C
38947 RRCA
38948 RST 56
38949 LD C,13
38951 RRCA
38952 RST 56
38953 DJNZ GameComplete_10
38955 INC DE
38956 RST 56
38957 LD (DE),A
38958 LD DE,65299
38961 INC D
38962 DEC D
38963 RLA
38964 RST 56
38965 LD D,21
38967 RLA
38968 RST 56
38969 JR GameComplete_11
38971 DEC DE
GameComplete_10 38972 RST 56
38973 LD A,(DE)
38974 ADD HL,DE
38975 DEC DE
38976 RST 56
38977 INC E
38978 DEC E
38979 RRA
38980 RST 56
38981 LD E,29
38983 RRA
38984 RST 56
38985 JR NZ,39020
38987 INC HL
38988 RST 56
38989 LD (8993),HL
38992 RST 56
38993 INC H
38994 DEC H
38995 DAA
GameComplete_11 38996 RST 56
38997 LD H,37
38999 DAA
39000 RST 56
39001 JR Z,GameComplete_13
39003 DEC HL
39004 RST 56
39005 LD HL,(11049)
39008 RST 56
39009 INC L
39010 DEC L
39011 CPL
39012 RST 56
39013 LD L,45
39015 CPL
39016 RST 56
39017 RST 56
This entry point is used by the routine at ApplyMovement.
GameComplete_12 39018 LD A,(IX+5)
39021 RLCA
39022 RLCA
39023 RLCA
39024 AND 6
39026 LD C,A
39027 LD B,0
39029 LD HL,39043
39032 ADD HL,BC
39033 LD A,(HL)
39034 INC HL
39035 LD (60054),A
39038 LD A,(HL)
39039 LD (60055),A
39042 RET
39043 NOP
GameComplete_13 39044 JR NZ,39014
39046 NOP
39047 NOP
39048 RET PO
39049 JR NZ,GameComplete_14
GameComplete_14 39051 CALL StoreEntity
39054 CALL ApplyMovement_25
39057 JR C,GameComplete_17
GameComplete_15 39059 LD A,(24082)
39062 CPL
39063 AND 3
39065 JR NZ,GameComplete_16
39067 INC (IX+6)
GameComplete_16 39070 LD A,(IX+6)
39073 AND 3
39075 LD C,A
39076 LD B,0
39078 LD HL,39108
39081 ADD HL,BC
39082 LD A,(HL)
39083 LD (IX+5),A
39086 JP HandlerCaveDoorLocked_12
GameComplete_17 39089 LD A,(24104)
39092 DEC A
39093 LD (24104),A
39096 JP Z,GameComplete_18
39099 CALL DrawChicken
39102 CALL SoundsTouching
39105 JP GameComplete_15
39108 LD B,D
39109 LD B,E
39110 LD B,(HL)
39111 LD B,E
GameComplete_18 39112 CALL RemoveEntity
39115 LD (IX+0),0
39119 JP HandlerKnight_8
Prev: 38601 Up: Map Next: 39122