Ok, it's a mess, but here's what I've come up with so far. I couldn't figure out how to implement any of those formulas though. Check it out!
`STARTING BOX, FIELD, TURRETS, AND STARTING VARIABLES
HIDE MOUSE
INK RGB(0,255,0),RGB(0,0,0)
LINE 0,0,639,0 : LINE 0,0,0,470 : LINE 0,470,639,470 : LINE 639,470,639,0
LINE 0,375,640,375
CIRCLE 20,375,5
CIRCLE 615,375,5
G#=9.8
1S=0
2S=0
`***********INPUT PLAYER 1 INFO***********
1:
INK RGB(255,255,255),RGB(0,0,0)
SET CURSOR 10,425
INPUT "VELOCITY> ",1V#
SET CURSOR 10,440
INPUT "ANGLE> ",1ANG#
INK RGB(0,0,0),RGB(0,0,0)
BOX 10,425,115,455
1XI=20
1YI=375
T#=0
Y=0
`DRAW LINE FOR PLAYER 1 PROJECTILE
REPEAT
INK RGB(255,255,255),RGB(255,255,255)
1X#=(1V#*COS(1ANG#))*T#
1Y#=(G#*T#)-(1V#*SIN(1ANG#)*Y)
1X#=1X#/10
1Y#=1Y#/10
1X=1XI+1X#
1Y=1YI+1Y#
DOT 1X,1Y
INK RGB(0,0,0),RGB(0,0,0)
DOT 1X,1Y
1YI=1YI+1Y#
Y=1
T#=T#+0.25
IF 1X<620 AND 1X>610 AND 1Y<380 AND 1Y>370 THEN 1S=1S+1
UNTIL 1Y>375 OR 1X>640
BOX 10,390,75,405
INK RGB(255,255,255),RGB(0,0,0)
SET CURSOR 10,390
PRINT "SCORE> ";1S
`***********INPUT PLAYER 2 INFO***********
INK RGB(255,255,255),RGB(0,0,0)
SET CURSOR 525,425
INPUT "VELOCITY> ",2V#
SET CURSOR 525,440
INPUT "ANGLE> ",2ANG#
INK RGB(0,0,0),RGB(0,0,0)
BOX 500,425,630,455
2XI=615
2YI=375
T#=0
Y=0
`DRAW LINE FOR PLAYER 2 PROJECTILE
REPEAT
INK RGB(255,255,255),RGB(255,255,255)
2X#=(2V#*COS(2ANG#))*T#
2Y#=(G#*T#)-(2V#*SIN(2ANG#)*Y)
2X#=2X#/10
2Y#=2Y#/10
2X=2XI-2X#
2Y=2YI+2Y#
DOT 2X,2Y
INK RGB(0,0,0),RGB(0,0,0)
DOT 2X,2Y
2YI=2YI+2Y#
Y=1
T#=T#+0.25
IF 2X<25 AND 2X>15 AND 2Y<380 AND 2Y>370 THEN 2S=2S+1
UNTIL 2Y>375 OR 2X<0
BOX 500,390,600,405
INK RGB(255,255,255),RGB(0,0,0)
SET CURSOR 525,390
PRINT "SCORE> ";2S
IF 2S+1S=5 AND G#=9.8 THEN GOSUB CG1
IF 2S+1S=7 AND G#<10 THEN GOSUB CG2
GOTO 1
`FIRST GRAVITY CHANGE
CG1:
G#=4.9
SET CURSOR 200,50
PRINT "GRAVITY HAS BEEN REDUCED!"
SLEEP 3000
INK RGB(0,0,0),RGB(0,0,0)
BOX 200,50,500,75
RETURN
`SECOND GRAVITY CHANGE
CG2:
G#=G#+2
SET CURSOR 200,50
PRINT "GRAVITY HAS BEEN INCREASED!"
SLEEP 3000
INK RGB(0,0,0),RGB(0,0,0)
BOX 200,50,500,75
RETURN