Startup code

21152: Display game characters, change names etc.


Used by routine at 21664

21152 3E15 LD A,21 21=Message number: "MR WACKER"
21154 F5 PUSH AF
21155 C650 ADD A,80
21157 218040 LD HL,16512
21160 CDBC50 CALL 20668 Print the appropriate title: "THE ~"
21163 3EF4 LD A,244
21165 CDB950 CALL 20665
21168 F1 POP AF
21169 F5 PUSH AF
21170 214050 LD HL,20544
21173 CDBC50 CALL 20668 Print the character's name
21176 F1 POP AF
21177 F5 PUSH AF
21178 C6E0 ADD A,224
21180 6F LD L,A
21181 2652 LD H,82 Index table at 21237
21183 7E LD A,(HL) A=animatory state of character
21184 2100D2 LD HL,53760 HL=start of ERIC's buffer
21187 77 LD (HL),A Fill in animatory state
21188 2C INC L
21189 367C LD (HL),124 Fill in character position
21191 CDDC51 CALL 20956 Walk character to middle of screen
21194 213B5C LD HL,23611
21197 CBAE RES 5,(HL)
21199 3EFA LD A,250
21201 CDB950 CALL 20665 Print "Press 'C' to change name"
21204 CDE271 CALL 29154 Wait for a keypress
21207 28FB JR Z,21204
21209 F620 OR 32
21211 FE63 CP 99 Was 'c' pressed?
21213 200C JR NZ,21227 Jump if not
21215 3EFC LD A,252
21217 CDB950 CALL 20665 Print "Enter new name"
21220 F1 POP AF
21221 F5 PUSH AF
21222 CDA051 CALL 20896 Change character's name
21225 18DF JR 21194
21227 CDDC51 CALL 20956 Walk character off screen
21230 F1 POP AF
21231 3C INC A Next character
21232 FE20 CP 32 Have we done all game characters?
21234 20AE JR NZ,21154 Jump back if not
21236 C9 RET