Pheenix: Routine at 696A

696A: Draw Alien Mothership

Used by the routine at InitialiseLevel.

Print the top of the mast.

Draw_AlienMothership

696A

LD HL,$6538

Call CustomFont_PrintString using Table_Mothership_MastTop; printing 02 characters in CYAN at 408F.

696D

LD DE,$408F

6970

LD BC,$0205

6973

CALL CustomFont_PrintString

Realign DE and print the bottom of the mast.

6976

LD E,$AF

Call CustomFont_PrintString using Table_Mothership_MastBottom; printing 02 characters in CYAN at 40AF.

6978

LD B,$02

697A

CALL CustomFont_PrintString

Realign DE and start printing the top lefthand corner of the ship.

697D

LD E,$CA

Call CustomFont_PrintString using Table_Mothership_Strip01; printing 02 characters in YELLOW at 40CA.

697F

LD BC,$0206

6982

CALL CustomFont_PrintString

Realign DE and print the top strip of the ship.

6985

LD E,$CC

Call CustomFont_PrintString using 653E; printing 08 characters in INK:RED, PAPER:YELLOW at 40CC.

6987

LD BC,$0832

698A

CALL CustomFont_PrintString

Realign DE and print the top righthand corner of the ship.

698D

LD E,$D4

Call CustomFont_PrintString using 6546; printing 02 characters in YELLOW at 40D4.

698F

LD BC,$0206

6992

CALL CustomFont_PrintString

Realign DE and print the lefthand corner of the next strip.

6995

LD E,$E9

Call CustomFont_PrintString using Table_Mothership_Strip02; printing 01 character in YELLOW at 40E9.

6997

INC B

6998

CALL CustomFont_PrintString

Move right one block and print the next body strip of the ship.

699B

INC E

Call SpectrumFont_PrintString using 6549; printing 0C characters in INK:BLUE, PAPER:YELLOW at 40EA.

699C

LD BC,$0C31

699F

CALL SpectrumFont_PrintString

Realign DE and print the righthand corner of this strip.

69A2

LD E,$F6

Call CustomFont_PrintString using 6555; printing 01 character in YELLOW at 40F6.

69A4

LD BC,$0106

69A7

CALL CustomFont_PrintString

Realign DE and print the lefthand corner of the next strip.

69AA

LD DE,$4808

Call CustomFont_PrintString using Table_Mothership_Strip03; printing 01 character in YELLOW at 4808.

69AD

INC B

69AE

CALL CustomFont_PrintString

Move right one block and print the next body strip of the ship.

69B1

INC E

Call CustomFont_PrintString using 6557; printing 0E characters in INK:BLUE, PAPER:YELLOW at 4809.

69B2

LD BC,$0E31

69B5

CALL CustomFont_PrintString

Realign DE and print the righthand corner of this strip.

69B8

LD E,$17

Call CustomFont_PrintString using 6565; printing 01 character in YELLOW at 4817.

69BA

LD BC,$0106

69BD

CALL CustomFont_PrintString

Realign DE and start printing the next strip.

69C0

LD E,$27

Call CustomFont_PrintString using Table_Mothership_BlueStrip; printing 12 characters in INK:WHITE, PAPER:BLUE at 4827.

69C2

LD BC,$120F

69C5

CALL CustomFont_PrintString

Realign DE and start printing the hull.

69C8

LD E,$47

Call CustomFont_PrintString using Table_Mothership_HullLeft01; printing 01 character in RED at 4847.

69CA

LD BC,$0102

69CD

CALL CustomFont_PrintString

Realign DE and print the next section of the hull.

69D0

INC B

Call CustomFont_PrintString using Table_Mothership_HullLeft02; printing 01 character in RED at 4868.

69D1

LD E,$68

69D3

CALL CustomFont_PrintString

Realign DE and print the next section of the hull.

69D6

LD E,$89

Call CustomFont_PrintString using Table_Mothership_HullLeft03; printing 02 characters in RED at 4889.

69D8

LD B,$02

69DA

CALL CustomFont_PrintString

Realign DE and print the bottom of the hull.

69DD

LD E,$AB

Call CustomFont_PrintString using Table_Mothership_HullBase; printing 0A characters in RED at 48AB.

69DF

LD B,$0A

69E1

CALL CustomFont_PrintString

Realign DE and print the next section of the hull.

69E4

LD E,$95

Call CustomFont_PrintString using Table_Mothership_HullRight03; printing 02 characters in RED at 4895.

69E6

LD B,$02

69E8

CALL CustomFont_PrintString

Realign DE and print the next section of the hull.

69EB

LD E,$77

Call CustomFont_PrintString using Table_Mothership_HullRight02; printing 01 character in RED at 4877.

69ED

INC B

69EE

CALL CustomFont_PrintString

Realign DE and print the last section of the hull.

69F1

LD E,$58

Call CustomFont_PrintString using Table_Mothership_HullRight01; printing 01 character in RED at 4858.

69F3

INC B

69F4

CALL CustomFont_PrintString

Cut out the "door" where the mothership alien will be drawn.

69F7

LD HL,$0404

Write INK:GREEN, PAPER:BLACK / INK:GREEN, PAPER:BLACK to *58EF in the attribute buffer.

69FA

LD ($58EF),HL

69FD

LD HL,$4242

Write INK:RED, PAPER:BLACK (BRIGHT) / INK:RED, PAPER:BLACK (BRIGHT) to *590F in the attribute buffer.

6A00

LD ($590F),HL

Colour in the hull.

6A03

LD A,$10

A=INK:BLACK, PAPER:RED.

6A05

LD HL,$5948

Copy A (RED) across 10 attribute blocks starting from 5948.

6A08

LD DE,$5949

6A0B

LD (HL),A

6A0C

LD C,$0F

6A0E

LDIR

6A10

LD L,$69

Realign the attribute buffer pointer to 5969 and copy A (RED) across 0E attribute blocks.

6A12

LD E,$6A

6A14

LD (HL),A

6A15

LD C,$0D

6A17

LDIR

6A19

LD L,$8A

Realign the attribute buffer pointer to 598A and copy A (RED) across 0C attribute blocks.

6A1B

LD E,$8B

6A1D

LD (HL),A

6A1E

LD C,$0B

6A20

LDIR

6A22

RET

Return.