Prev: AECC Up: Map Next: B161
B0A8: routine24
Used by the routine at routine23.
routine24 B0A8 LD A,(unknown28)
B0AB PUSH BC
B0AC OR A
B0AD JR NZ,routine24_0
B0AF LD A,$45
B0B1 LD ($5C8F),A
B0B4 LD A,$36
B0B6 LD BC,$1611
B0B9 CALL MPRINT
B0BC CALL wait_no_key_seed
B0BF CALL wait_key_seed
B0C2 LD A,(computer_player_flag)
B0C5 OR A
B0C6 JR Z,routine24_0
B0C8 CALL routine60
routine24_0 B0CB CALL clear_bottom_row
B0CE POP BC
B0CF LD (unknown19),BC
B0D3 LD A,(unknown21)
B0D6 OR A
B0D7 JR Z,routine24_1
B0D9 LD A,$03
B0DB LD (unknown18),A
routine24_1 B0DE LD A,(computer_player_flag)
B0E1 OR A
B0E2 JR Z,routine24_2
B0E4 CALL routine61_0
B0E7 JR routine24_3
routine24_2 B0E9 LD HL,cursorsprite1
B0EC LD ($5C7B),HL
B0EF CALL routine41
B0F2 CALL $02BF
B0F5 LD (unknown31),A
routine24_3 B0F8 LD A,(unknown31)
B0FB CP $49
B0FD CALL Z,display_object_info
B100 CP $4B
B102 JR NZ,routine24_4
B104 LD HL,sound_effect_18
B107 CALL play_sound_effect_in_HL
B10A EI
B10B LD HL,(D_ADD)
B10E LD (object_table_entry_pointer),HL
B111 JP COUNTL_13
routine24_4 B114 CP $53
B116 JR NZ,routine24_1
B118 LD BC,(unknown19)
B11C LD (unknown75),BC
B120 LD BC,(cursor_coordinates)
B124 LD (unknown76),BC
B128 LD A,(unknown18)
B12B CALL calculate_distance
B12E JP P,routine24_6
B131 LD A,$46
B133 LD ($5C8F),A
B136 LD A,$35
B138 LD BC,$1600
B13B CALL MPRINT
B13E LD B,$14
routine24_5 B140 HALT
B141 DJNZ routine24_5
B143 CALL wait_key_seed
B146 JR routine24_1
routine24_6 B148 LD HL,sound_effect_19
B14B CALL play_sound_effect_in_HL
B14E EI
B14F LD HL,(unknown19)
B152 LD BC,(cursor_coordinates)
B156 LD (cursor_coordinates),HL
B159 LD A,$01
B15B LD (unknown28),A
B15E JP routine23_17
Prev: AECC Up: Map Next: B161