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)
Ask Joystick 1 and 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 |
