MINI TRON by Haegar of Synergy

Commodore Basic 3.5 - Commodore C16/C116/plus4

The Game

--------------------------------------------------------

Mini Tron is a small 10 line game in basic for 2 Players. You control your line with the Joystick in Port 1 and 2.

First you have to set the difficulty between 1 and 9. The difficulty determines the number of obstacles. Now the game starts. The first player to touch one of the lines or an obstacle loses.

Good luck

Variabelen

--------------------------------------------------------------------------------------------

X = X Position Player 1

Y = Y Position Player 1

V = Direction X PLAYER 1

W = Direction Y PLAYER 1

M = X Position Player 2

N = Y Position Player 2

O = Direction X PLAYER 2

P = Direction Y PLAYER 2

L = Level

U = Loop

B = X Position BOX

C = Y Position BOX

D = Box Winkel

K = Kolision

G = LOSER ;-)

----------------------------------------------------

0 X=0:Y=100:V=1:W=0:M=159:N=100:O=-1:P=0:scnclr:COLOR0,1:COLOR4,1:COLOR1,3,4

Clear Screen, Set Colors 0,4,1

1 color2,7,4:COLOR3,5,3:INPUT"level 1-9";L:gR3,1:FORU=1TOL:B=INT(RND(1)*110)+20

Set Colors 2 and 3, Ask for level

2 C=INT(rN(1)*190)+1:D=INT(rN(1)*180)+1:bO3,B,C,B+10,C+10,D,1:nE:bO3,0,0,159,199

Draw random ostecals

3 J=JOY(1):I=JOY(2)

4 IFJ=1THENW=-1:V=0:eLIFJ=5THENW=1:V=0:eLIFJ=7THENV=-1:W=0:ELSEIFJ=3THENV=1:W=0

Direction Player 1

5 IFI=1THENP=-1:O=0:eLIFI=5THENP=1:O=0:eLIFI=7THENO=-1:P=0:ELSEIFI=3THENO=1:P=0

Direction Player 2

6 X=X+V:Y=Y+W:M=M+O:N=N+P:LOCATEX,Y:K=RDOT(2):IFK<>0THENG=1:GOTO9

check new position Player 1

7 LOCATEM,N:K=RDOT(2):IFK<>0THENG=2:GOTO9

check new position Player 2

8 DRAW1,X,Y:DRAW2,M,N:GOTO3

Draw new postion Player 1 and 2

9 gR0,1:PRINT"player ";G;" lose":INPUT"try again (y/n)";T\$:IFT\$="y"THENGOTO0

End of Game, try again?

---------------------------------------------------

```0 X=0:Y=100:V=1:W=0:M=159:N=100:O=-1:P=0:scnclr:COLOR0,1:COLOR4,1:COLOR1,3,4
1 color2,7,4:COLOR3,5,3:INPUT"level 0-9";L:gR3,1:FORU=1TOL:B=INT(RND(1)*110)+20
2 C=INT(rN(1)*190)+1:D=INT(rN(1)*180)+1:bO3,B,C,B+10,C+10,D,1:nE:bO3,0,0,159,199
3 J=JOY(1):I=JOY(2)
4 IFJ=1THENW=-1:V=0:eLIFJ=5THENW=1:V=0:eLIFJ=7THENV=-1:W=0:ELSEIFJ=3THENV=1:W=0
5 IFI=1THENP=-1:O=0:eLIFI=5THENP=1:O=0:eLIFI=7THENO=-1:P=0:ELSEIFI=3THENO=1:P=0
6 X=X+V:Y=Y+W:M=M+O:N=N+P:LOCATEX,Y:K=RDOT(2):IFK<>0THENG=1:GOTO9
7 LOCATEM,N:K=RDOT(2):IFK<>0THENG=2:GOTO9
8 DRAW1,X,Y:DRAW2,M,N:GOTO3
9 gR0,1:PRINT"player ";G;" lose":INPUT"try again (y/n)";T\$:IFT\$="y"THENGOTO0```
 Status Released Author BASIC 10Liner Genre Action Tags 8-Bit, basic, basic10liner, commodore-16