Ant Attack: Routine at 8BD1

8BD1: Paralyse the ant the player has landed on

Used by the routine at LANDED.

An ant that is not exploding and not already paralysed is paralysed for good, with "PARALYSED AN ANT !". Seen in play, by dropping the player on a stunned ant; and landing on a plain one-block wall finds no ant here and returns.

Input
HL	The cell

PARALYSE_ANT

8BD1

LD DE,$0010

Five ants.

8BD4

LD IY,ANT1

8BD8

LD B,$05

PARALYSE_ANT_0

8BDA

LD A,(IY+$00)

Is this one in the cell?

8BDD

CP L

8BDE

JR NZ,PARALYSE_ANT_1

8BE0

LD A,(IY+$01)

8BE3

CP H

8BE4

JR Z,PARALYSE_ANT_2

PARALYSE_ANT_1

8BE6

ADD IY,DE

8BE8

DJNZ PARALYSE_ANT_0

8BEA

RET

PARALYSE_ANT_2

8BEB

LD A,(IY+$09)

Not while exploding, and not twice.

8BEE

AND A

8BEF

RET NZ

8BF0

LD A,$FF

8BF2

CP (IY+$06)

8BF5

RET Z

8BF6

LD (IY+$06),A

Paralysed, for good.

8BF9

LD A,$10

8BFB

CALL PLAY_SCRIPT

8BFE

RET