ACK-ACK-REC (TRS-80 CoCo) by FUED

ACK-ACK-REC

Based on the ZX80 game Ack-Ack from Timedata Ltda.(1981), this 10liner version runs on TRS-80 Color Computer (1-3) and improves on the original concept.

Your goal is to shoot down drones to protect your base. The attack wave has 20 drones and it takes around 50 seconds to go through it.

Xroar is the prefered emulator to play the game, access it here:

https://www.6809.org.uk/xroar/

You may also use the online version (easier to run):

https://colorcomputerarchive.com/xroar-online/

---HOW TO PLAY

Insert ACKACKR.dsk into drive 1 and type:

LOAD"ACKACKR <ENTER>

Before you run the game, you may set up your base, type:

EDIT 0 <ENTER>

This will enter the edit line mode, you will be editing line 0.

Notice this part on the beguinning of the line:

X=0:Y=0:Z=0:?@481,"..].....";

X is about how early you can re-shoot while a bullet is already on-screen, can be 0 to 3.

Y is how wide you bullet collision is, can be 0 to 3.

Z is your shield, as long as you have at least one, the cannon can´t be hit. Can be 0 to 3.

The quoted content is your base "..].....", the dots indicate houses.

For each X, substitute any "." for an ":". Do the same for Y with "#" and Z with "T".

You may end up with a line like this:

X=2:Y=1:Z=2:?@481,"::].#.TT";

To do the editing, use space and backspace to navigate on the copy of the line 0.

Over the character you want to change, first press "D" to delete it, then "I" to insert a new value.

Press <SHIFT+UP ARROW> to exit insertion. Press <ENTER> when your are done editing the variables and base content.

Ultimately, type RUN <ENTER> to play the game.

Use "SAPCEBAR" to shoot.

The game exits if your cannon is hit or you get through the wave.

Should the situation be the later, your score is 1 point for each base structure alive, 2 for each house.

---GAME LIST

0--------1---------2---------3---------4---------5---------6---------7---------8

0 IFB=0THENCLS:X=0:Y=0:Z=0:?@481,"..].....";:B=451:W=20ELSE?@0,"GAME OVER":END
1 IFS=0THENF=451:?@F,"/";:IFRND(5)>1THEN4ELSER=RND(2):S=RND(10)*32+29+R:T=S-31
2 ?@S,"<  ";:S=S-R:IF M=0 AND S>T AND S<T+8 THEN IF RND(7)=1 THEN M=S+1
3 IFS<=T THEN?@S," ":S=0:W=W-1
4 IFW=0GOTOELSE IF B=F THEN IF INKEY$=""THEN 7 ELSE B=420ELSE?@B," ";
5 B=B-31:IF B<0 THEN B=F:GOTO 7 ELSE IF INKEY$<>"" AND B<X*128 THEN B=420
6 ?@B,"/";:IFABS(B-S)<=Y THEN?@B,"X";:SOUND1,1:?@B-2,"       ";:B=F:S=0:W=W-1
7 IFM=0THEN1ELSE M=M+32:?@M-32," ";:?@M,"*";:IF M=F THEN IF Z=0 THEN 0 ELSE M=0
8 P=PEEK(1056+M):IFP=122THENX=X-1ELSEIFP=99THENY=Y-1ELSEIF P=73 THENZ=Z-1
9 IFM>480ANDM<>F THEN?@M," ";:M=0:GOTO1ELSE1