Routines
Prev: 26918 Up: Map Next: 27171
26986: Draw Alien Mothership
Used by the routine at InitialiseLevel.
mothership
Print the top of the mast.
mothership-step-01
Draw_AlienMothership 26986 LD HL,25912 Call CustomFont_PrintString using Table_Mothership_MastTop; printing 2 characters in CYAN at 16527.
26989 LD DE,16527
26992 LD BC,517
26995 CALL CustomFont_PrintString
Realign DE and print the bottom of the mast.
mothership-step-02
26998 LD E,175 Call CustomFont_PrintString using Table_Mothership_MastBottom; printing 2 characters in CYAN at 16559.
27000 LD B,2
27002 CALL CustomFont_PrintString
Realign DE and start printing the top lefthand corner of the ship.
mothership-step-03
27005 LD E,202 Call CustomFont_PrintString using Table_Mothership_Strip01; printing 2 characters in YELLOW at 16586.
27007 LD BC,518
27010 CALL CustomFont_PrintString
Realign DE and print the top strip of the ship.
mothership-step-04
27013 LD E,204 Call CustomFont_PrintString using 25918; printing 8 characters in INK:RED, PAPER:YELLOW at 16588.
27015 LD BC,2098
27018 CALL CustomFont_PrintString
Realign DE and print the top righthand corner of the ship.
mothership-step-05
27021 LD E,212 Call CustomFont_PrintString using 25926; printing 2 characters in YELLOW at 16596.
27023 LD BC,518
27026 CALL CustomFont_PrintString
Realign DE and print the lefthand corner of the next strip.
mothership-step-06
27029 LD E,233 Call CustomFont_PrintString using Table_Mothership_Strip02; printing 1 character in YELLOW at 16617.
27031 INC B
27032 CALL CustomFont_PrintString
Move right one block and print the next body strip of the ship.
mothership-step-07
27035 INC E Call SpectrumFont_PrintString using 25929; printing 12 characters in INK:BLUE, PAPER:YELLOW at 16618.
27036 LD BC,3121
27039 CALL SpectrumFont_PrintString
Realign DE and print the righthand corner of this strip.
mothership-step-08
27042 LD E,246 Call CustomFont_PrintString using 25941; printing 1 character in YELLOW at 16630.
27044 LD BC,262
27047 CALL CustomFont_PrintString
Realign DE and print the lefthand corner of the next strip.
mothership-step-09
27050 LD DE,18440 Call CustomFont_PrintString using Table_Mothership_Strip03; printing 1 character in YELLOW at 18440.
27053 INC B
27054 CALL CustomFont_PrintString
Move right one block and print the next body strip of the ship.
mothership-step-10
27057 INC E Call CustomFont_PrintString using 25943; printing 14 characters in INK:BLUE, PAPER:YELLOW at 18441.
27058 LD BC,3633
27061 CALL CustomFont_PrintString
Realign DE and print the righthand corner of this strip.
mothership-step-11
27064 LD E,23 Call CustomFont_PrintString using 25957; printing 1 character in YELLOW at 18455.
27066 LD BC,262
27069 CALL CustomFont_PrintString
Realign DE and start printing the next strip.
mothership-step-12
27072 LD E,39 Call CustomFont_PrintString using Table_Mothership_BlueStrip; printing 18 characters in INK:WHITE, PAPER:BLUE at 18471.
27074 LD BC,4623
27077 CALL CustomFont_PrintString
Realign DE and start printing the hull.
mothership-step-13
27080 LD E,71 Call CustomFont_PrintString using Table_Mothership_HullLeft01; printing 1 character in RED at 18503.
27082 LD BC,258
27085 CALL CustomFont_PrintString
Realign DE and print the next section of the hull.
mothership-step-14
27088 INC B Call CustomFont_PrintString using Table_Mothership_HullLeft02; printing 1 character in RED at 18536.
27089 LD E,104
27091 CALL CustomFont_PrintString
Realign DE and print the next section of the hull.
mothership-step-15
27094 LD E,137 Call CustomFont_PrintString using Table_Mothership_HullLeft03; printing 2 characters in RED at 18569.
27096 LD B,2
27098 CALL CustomFont_PrintString
Realign DE and print the bottom of the hull.
mothership-step-16
27101 LD E,171 Call CustomFont_PrintString using Table_Mothership_HullBase; printing 10 characters in RED at 18603.
27103 LD B,10
27105 CALL CustomFont_PrintString
Realign DE and print the next section of the hull.
mothership-step-17
27108 LD E,149 Call CustomFont_PrintString using Table_Mothership_HullRight03; printing 2 characters in RED at 18581.
27110 LD B,2
27112 CALL CustomFont_PrintString
Realign DE and print the next section of the hull.
mothership-step-18
27115 LD E,119 Call CustomFont_PrintString using Table_Mothership_HullRight02; printing 1 character in RED at 18551.
27117 INC B
27118 CALL CustomFont_PrintString
Realign DE and print the last section of the hull.
mothership-step-19
27121 LD E,88 Call CustomFont_PrintString using Table_Mothership_HullRight01; printing 1 character in RED at 18520.
27123 INC B
27124 CALL CustomFont_PrintString
Cut out the "door" where the mothership alien will be drawn.
mothership-step-20
27127 LD HL,1028 Write INK:GREEN, PAPER:BLACK / INK:GREEN, PAPER:BLACK to *22767 in the attribute buffer.
27130 LD (22767),HL
27133 LD HL,16962 Write INK:RED, PAPER:BLACK (BRIGHT) / INK:RED, PAPER:BLACK (BRIGHT) to *22799 in the attribute buffer.
27136 LD (22799),HL
Colour in the hull.
mothership-step-21
27139 LD A,16 A=INK:BLACK, PAPER:RED.
27141 LD HL,22856 Copy A (RED) across 16 attribute blocks starting from 22856.
27144 LD DE,22857
27147 LD (HL),A
27148 LD C,15
27150 LDIR
mothership-step-22
27152 LD L,105 Realign the attribute buffer pointer to 22889 and copy A (RED) across 14 attribute blocks.
27154 LD E,106
27156 LD (HL),A
27157 LD C,13
27159 LDIR
mothership-step-23
27161 LD L,138 Realign the attribute buffer pointer to 22922 and copy A (RED) across 12 attribute blocks.
27163 LD E,139
27165 LD (HL),A
27166 LD C,11
27168 LDIR
27170 RET Return.
Prev: 26918 Up: Map Next: 27171