Routines
Prev: 9975 Up: Map Next: 9ADD
99F1: Disbelieve spell
disbelieve_spell 99F1 LD A,(computer_player_flag)
99F4 OR A
99F5 JP NZ,disbelieve_spell_6
This entry point is used by the routine at routine78.
disbelieve_spell_0 99F8 CALL routine41
99FB CALL $02BF
99FE CP $53
9A00 JR Z,disbelieve_spell_1
9A02 CP $4B
9A04 JR NZ,disbelieve_spell_0
9A06 LD HL,sound_effect_18
9A09 CALL play_sound_effect_in_HL
9A0C EI
9A0D RET
disbelieve_spell_1 9A0E CALL wait_no_key_seed
9A11 LD HL,(object_table_entry_pointer)
9A14 LD A,(HL)
9A15 OR A
9A16 JR Z,disbelieve_spell_0
9A18 CP $22
9A1A JP P,disbelieve_spell_0
9A1D CALL disbelieve_spell_2
9A20 RET
This entry point is used by the routines at routine78 and routine81.
disbelieve_spell_2 9A21 CALL routine20
9A24 LD HL,(object_table_entry_pointer)
9A27 LD A,$00
9A29 LD (spell_success_flag),A
9A2C LD DE,$01E1
9A2F ADD HL,DE
9A30 BIT 4,(HL)
9A32 JR Z,disbelieve_spell_3
9A34 LD DE,$00A0
9A37 ADD HL,DE
9A38 LD A,(HL)
9A39 LD HL,(object_table_entry_pointer)
9A3C LD (HL),A
9A3D CALL disbelieve_spell_4
9A40 LD A,$01
9A42 LD (spell_success_flag),A
disbelieve_spell_3 9A45 CALL routine11
9A48 LD HL,(object_table_entry_pointer)
9A4B LD DE,$01E1
9A4E ADD HL,DE
9A4F SET 5,(HL)
9A51 RET
This entry point is used by the routines at lightning_spell, dark_power_spell, INTERO and routine79.
disbelieve_spell_4 9A52 LD HL,sound_effect_03
9A55 LD (sound_effect_pointer),HL
9A58 CALL play_sound_effect_pointer
9A5B LD A,$46
9A5D LD ($5C8F),A
9A60 LD HL,explosion0
9A63 LD (explosion_sprite_pointer),HL
9A66 LD HL,(object_table_entry_pointer)
9A69 LD (temp_entry_pointer),HL
9A6C CALL address_to_coordinate
9A6F LD (LC_POS),HL
9A72 LD B,$07
9A74 DI
disbelieve_spell_5 9A75 PUSH BC
9A76 LD HL,(explosion_sprite_pointer)
9A79 LD (C_DATA),HL
9A7C CALL P_CHAR
9A7F CALL sound_effect_playback
9A82 LD DE,$0020
9A85 LD HL,(explosion_sprite_pointer)
9A88 ADD HL,DE
9A89 LD (explosion_sprite_pointer),HL
9A8C POP BC
9A8D DJNZ disbelieve_spell_5
9A8F CALL routine50
9A92 EI
9A93 HALT
9A94 RET
This entry point is used by the routine at routine78.
disbelieve_spell_6 9A95 LD HL,(D_ADD)
9A98 LD (TEMADD),HL
9A9B CALL EN_AN
9A9E LD HL,(TEMADD)
9AA1 LD (D_ADD),HL
9AA4 LD HL,INBUF
9AA7 LD (BUFPNT),HL
9AAA LD A,(SRTCNT)
9AAD INC A
9AAE CALL SORT
This entry point is used by the routine at routine81.
disbelieve_spell_7 9AB1 CALL GETPLA
9AB4 CP $FF
9AB6 JR NZ,disbelieve_spell_8
9AB8 LD A,$00
9ABA LD (unknown10),A
9ABD RET
disbelieve_spell_8 9ABE LD HL,map_object_table
9AC1 LD D,$00
9AC3 LD E,A
9AC4 ADD HL,DE
9AC5 LD (object_table_entry_pointer),HL
9AC8 LD A,(HL)
9AC9 CP $22
9ACB JP P,disbelieve_spell_7
9ACE LD DE,$01E1
9AD1 ADD HL,DE
9AD2 BIT 5,(HL)
9AD4 JR NZ,disbelieve_spell_7
9AD6 CALL display_wizard_spell_range
9AD9 CALL disbelieve_spell_2
9ADC RET
Prev: 9975 Up: Map Next: 9ADD