Chaos: Routine at 8404

8404: MagicShield spell.


magic_shield_spell	8404	LD A,(computer_player_flag)	Jump to magic_shield_spell_0 if player is human.
	8407	OR A
	8408	JR Z,magic_shield_spell_0
	840A	CALL routine03	Else call routine03 to get byte from unknown_table_3.
	840D	AND $40	Jump to magic_shield_spell_0 if bit 6 is clear.
	840F	JR Z,magic_shield_spell_0	Jump to magic_shield_spell_0 if bit 6 is clear.
	8411	LD A,$00	Set unknown10 variable to zero and return.
	8413	LD (unknown10),A
	8416	RET
magic_shield_spell_0	8417	CALL routine04	Call routine04 ???
	841A	LD A,(spell_success_flag)	Jump to magic_shield_spell_1 if spell_success_flag is clear.
	841D	OR A
	841E	JR Z,magic_shield_spell_1
	8420	LD HL,modwizard_pointers_4	Set current_character_pointer to modwizard_pointers_4.
	8423	LD (current_character_pointer),HL	Set current_character_pointer to modwizard_pointers_4.
	8426	CALL routine02	Copy sprite pointers to wizard data.
	8429	CALL routine03	Get byte from unknown_table_3.
	842C	AND $7F	Clear bit 7 and set bit 6.
	842E	OR $40	Clear bit 7 and set bit 6.
	8430	LD (HL),A	Store result back in unknown_table_3.
magic_shield_spell_1	8431	CALL routine50	Call routine50 ???
	8434	CALL routine11	Display SPELL FAILS or SPELL SUCCEEDS message and return.
	8437	RET	Display SPELL FAILS or SPELL SUCCEEDS message and return.