41730: Action: Burn
| ActionBurn |
41730 |
LD A,(46826) |
|
41733 |
CP 60 |
|
41735 |
JP NZ,40822 |
|
41738 |
CALL 40260 |
|
41741 |
JP 38780 |
|
41744 |
CALL 40260 |
|
41747 |
LD HL,45236 |
| ActionBurn_0 |
41750 |
CALL PrintMsg |
|
41753 |
LD A,(46826) |
|
41756 |
PUSH AF |
|
41757 |
AND A |
|
41758 |
LD HL,44457 |
|
41761 |
CALL Z,PrintMsg |
|
41764 |
POP AF |
|
41765 |
JP 38783 |
|
41768 |
CALL 40260 |
|
41771 |
LD HL,45304 |
|
41774 |
JR ActionBurn_0 |
|
41776 |
LD B,2 |
|
41778 |
JR ActionBurn_1 |
|
41780 |
LD B,15 |
|
41782 |
JR ActionBurn_1 |
|
41784 |
LD B,4 |
| ActionBurn_1 |
41786 |
LD A,(46825) |
|
41789 |
CP B |
|
41790 |
JR NZ,ActionBurn_2 |
|
41792 |
LD A,(46823) |
|
41795 |
CP 37 |
|
41797 |
JP Z,Action_Examine_4 |
|
41800 |
JP Action_Examine_6 |
| ActionBurn_2 |
41803 |
CP 2 |
|
41805 |
JR Z,ActionBurn_3 |
|
41807 |
CP 4 |
|
41809 |
JR Z,ActionBurn_3 |
|
41811 |
CP 15 |
|
41813 |
JP NZ,ICannotDoThat |
| ActionBurn_3 |
41816 |
LD HL,45101 |
|
41819 |
JP PrintMsg |
|
41822 |
CALL 38911 |
|
41825 |
LD IX,(46856) |
|
41829 |
JP 37143 |
|
41832 |
LD IX,(46860) |
|
41836 |
LD A,(IX+16) |
|
41839 |
CP 15 |
|
41841 |
JP NZ,40822 |
|
41844 |
JP 37134 |
|
41847 |
LD IX,(46856) |
|
41851 |
BIT 3,(IX+7) |
|
41855 |
RET Z |
|
41856 |
SET 5,(IX+7) |
|
41860 |
LD A,(51851) |
|
41863 |
LD (51852),A |
|
41866 |
LD HL,45209 |
|
41869 |
JP PrintMsg |
|
41872 |
CALL 40260 |
|
41875 |
LD IY,(46860) |
|
41879 |
LD IX,49946 |
|
41883 |
RES 7,(IY+7) |
|
41887 |
SRL (IY+5) |
|
41891 |
SRL (IY+5) |
|
41895 |
RES 7,(IX+7) |
|
41899 |
LD A,(46826) |
|
41902 |
LD (IX+1),A |
|
41905 |
LD A,8 |
|
41907 |
CALL GetRandomNum |
|
41910 |
ADD A,2 |
|
41912 |
LD (51887),A |
|
41915 |
RET |
| ActionBurn_4 |
41916 |
LD IX,(46860) |
|
41920 |
LD IY,49946 |
|
41924 |
BIT 7,(IY+7) |
|
41928 |
LD HL,45172 |
|
41931 |
JP NZ,PrintMsg |
|
41934 |
CALL 40260 |
|
41937 |
SET 7,(IY+7) |
|
41941 |
SET 7,(IX+7) |
|
41945 |
SLA (IX+5) |
|
41949 |
SLA (IX+5) |
|
41953 |
SUB A |
|
41954 |
LD (51887),A |
|
41957 |
RET |
