85F6: RaiseDead spell.
| raise_dead_spell |
85F6 |
LD A,(computer_player_flag) |
|
85F9 |
OR A |
|
85FA |
JR NZ,RASART |
|
85FC |
CALL clear_bottom_row |
|
85FF |
LD A,$03 |
|
8601 |
LD ($5C91),A |
| RAILOO |
8604 |
CALL routine41 |
|
8607 |
CALL $02BF |
|
860A |
CP $53 |
|
860C |
JR Z,RAI_CH |
|
860E |
CP $4B |
|
8610 |
JR NZ,RAILOO |
|
8612 |
LD HL,sound_effect_18 |
|
8615 |
CALL play_sound_effect_in_HL |
|
8618 |
EI |
|
8619 |
RET |
| RAI_CH |
861A |
LD HL,(object_table_entry_pointer) |
|
861D |
LD A,(HL) |
|
861E |
OR A |
|
861F |
JR Z,RAILOO |
|
8621 |
LD DE,$0141 |
|
8624 |
ADD HL,DE |
|
8625 |
LD A,(HL) |
|
8626 |
CP $04 |
|
8628 |
JR NZ,RAILOO |
|
862A |
CALL routine10 |
|
862D |
JP M,RAILOO |
|
8630 |
CALL routine14 |
|
8633 |
JR NZ,RAILOO |
|
8635 |
CALL RAISDO |
|
8638 |
RET |
| RASART |
8639 |
LD HL,INBUF |
|
863C |
LD (BUFPNT),HL |
|
863F |
LD HL,map_object_table |
|
8642 |
LD (object_table_entry_pointer),HL |
|
8645 |
LD B,$9F |
| RASLOO |
8647 |
PUSH BC |
|
8648 |
LD A,(HL) |
|
8649 |
LD (STRENG),A |
|
864C |
LD DE,$0141 |
|
864F |
ADD HL,DE |
|
8650 |
LD A,(HL) |
|
8651 |
CP $04 |
|
8653 |
JR NZ,RASBAK |
|
8655 |
LD HL,THRTAB |
|
8658 |
LD D,$00 |
|
865A |
LD A,(STRENG) |
|
865D |
SUB $02 |
|
865F |
LD E,A |
|
8660 |
ADD HL,DE |
|
8661 |
LD B,(HL) |
|
8662 |
LD HL,(object_table_entry_pointer) |
|
8665 |
LD DE,map_object_table |
|
8668 |
OR A |
|
8669 |
SBC HL,DE |
|
866B |
LD A,L |
|
866C |
LD HL,(BUFPNT) |
|
866F |
LD (HL),B |
|
8670 |
INC HL |
|
8671 |
LD (HL),A |
|
8672 |
INC HL |
|
8673 |
LD (BUFPNT),HL |
| RASBAK |
8676 |
LD HL,(object_table_entry_pointer) |
|
8679 |
INC HL |
|
867A |
LD (object_table_entry_pointer),HL |
|
867D |
POP BC |
|
867E |
DJNZ RASLOO |
|
8680 |
LD HL,INBUF |
|
8683 |
LD (BUFPNT),HL |
|
8686 |
LD A,(SRTCNT) |
|
8689 |
INC A |
|
868A |
CALL SORT |
| LOORAS |
868D |
CALL GETPLA |
|
8690 |
CP $FF |
|
8692 |
JR NZ,OK_RAS |
|
8694 |
LD A,$00 |
|
8696 |
LD (unknown10),A |
|
8699 |
RET |
| OK_RAS |
869A |
LD HL,map_object_table |
|
869D |
LD D,$00 |
|
869F |
LD E,A |
|
86A0 |
ADD HL,DE |
|
86A1 |
LD (object_table_entry_pointer),HL |
|
86A4 |
LD A,(HL) |
|
86A5 |
OR A |
|
86A6 |
JR Z,LOORAS |
|
86A8 |
LD DE,$0141 |
|
86AB |
ADD HL,DE |
|
86AC |
LD A,(HL) |
|
86AD |
CP $04 |
|
86AF |
JR NZ,LOORAS |
|
86B1 |
CALL routine10 |
|
86B4 |
JP M,LOORAS |
|
86B7 |
CALL routine14 |
|
86BA |
JR NZ,LOORAS |
|
86BC |
CALL display_wizard_spell_range |
|
86BF |
CALL RAISDO |
|
86C2 |
RET |
