Prev: 8740 Up: Map Next: 87EF
8741: TUR_DO
Used by the routine at turmoil_spell.
TUR_DO 8741 CALL routine09
8744 LD A,(spell_success_flag)
8747 OR A
8748 JP Z,FUCKIT
874B CALL WALKYS
874E LD HL,map_object_table
8751 LD (D_ADD),HL
8754 LD B,$9F
MOLLOO 8756 PUSH BC
8757 LD A,(HL)
8758 OR A
8759 JP Z,MOLEND
875C LD DE,$01E1
875F ADD HL,DE
8760 BIT 7,(HL)
8762 JR NZ,MOLEND
8764 LD HL,(D_ADD)
8767 LD (CRE000),A
876A LD DE,$0141
876D ADD HL,DE
876E LD A,(HL)
876F LD (FRA321),A
8772 LD DE,$00A0
8775 ADD HL,DE
8776 LD A,(HL)
8777 LD (FLA481),A
877A ADD HL,DE
877B LD A,(HL)
877C LD (HID641),A
877F ADD HL,DE
8780 LD A,(HL)
8781 LD (BOD801),A
RANMOL 8784 CALL RANDY
8787 LD HL,RANUM
878A ADD A,(HL)
878B CP $9F
878D JP P,RANMOL
8790 LD HL,map_object_table
8793 LD D,$00
8795 LD E,A
8796 ADD HL,DE
8797 LD (object_table_entry_pointer),HL
879A LD A,(HL)
879B OR A
879C JR NZ,RANMOL
879E CALL OFBORD
87A1 JR Z,RANMOL
87A3 CALL routine20
87A6 LD HL,(object_table_entry_pointer)
87A9 LD A,(CRE000)
87AC LD (HL),A
87AD LD DE,$0141
87B0 ADD HL,DE
87B1 LD A,(FRA321)
87B4 LD (HL),A
87B5 LD DE,$00A0
87B8 ADD HL,DE
87B9 LD A,(FLA481)
87BC OR $80
87BE LD (HL),A
87BF ADD HL,DE
87C0 LD A,(HID641)
87C3 LD (HL),A
87C4 ADD HL,DE
87C5 LD A,(BOD801)
87C8 LD (HL),A
87C9 LD HL,(D_ADD)
87CC LD (HL),$00
87CE LD DE,$0281
87D1 ADD HL,DE
87D2 LD (HL),$00
87D4 LD DE,$00A0
87D7 ADD HL,DE
87D8 LD (HL),$00
87DA CALL routine50
87DD HALT
87DE HALT
MOLEND 87DF LD HL,(D_ADD)
87E2 INC HL
87E3 LD (D_ADD),HL
87E6 POP BC
87E7 DEC B
87E8 JP NZ,MOLLOO
FUCKIT 87EB CALL routine11
87EE RET
Prev: 8740 Up: Map Next: 87EF