' Achtung die kurve            ( Excuse my German ;-) )
' Avoid the other player!    
'
' Programmed by Olle Bergkvist
' Version 2.0.0 -- much faster and better overall
'
'

CLS
COLOR 15
PRINT "Welcome to Achtung die kurve!                     2.0.0"
PRINT "Made by Olle Bergkist"
PRINT
PRINT "Player 1 uses keys z and x"
PRINT "Player 2 uses Left and Right arrow keys on numeric keyboard"
PRINT "Exit with Esc."
PRINT
COLOR 12
INPUT "What speed do you want? Between 5 and 10 is normal. "; speed
INPUT "Color player 1"; color1
INPUT "Color player 2"; color2
SCREEN 13
CLS
a1 = 1: b1 = 1: v1 = 45
a2 = 320: b2 = 200: v2 = -135

RANDOMIZE TIMER
len1 = INT(100 * RND)
len2 = INT(100 * RND)

DO
len1 = len1 + 1
IF len1 > 100 THEN len1 = 0

len2 = len2 + 1
IF len2 > 100 THEN len2 = 0

keyn = INP(96)
SELECT CASE keyn
CASE 44: v1 = v1 + .1
CASE 45: v1 = v1 - .1
CASE 75: v2 = v2 + .1
CASE 77: v2 = v2 - .1
CASE 1
END
END SELECT

a1 = a1 + 1.5 * SIN(v1)
b1 = b1 + 1.5 * COS(v1)
IF POINT(a1, b1) > 0 OR a1 < 0 OR a1 > 320 OR b1 < 0 OR b1 > 200 THEN GOTO lose1
IF len1 > 3 THEN PSET (a1, b1), color1

a2 = a2 + 1.5 * SIN(v2)
b2 = b2 + 1.5 * COS(v2)
IF POINT(a2, b2) > 0 OR a2 < 0 OR a2 > 320 OR b2 < 0 OR b2 > 200 THEN GOTO lose2
IF len2 > 3 THEN PSET (a2, b2), color2

time = TIMER
DO
in$ = INKEY$
LOOP WHILE time + .5 / speed > TIMER
LOOP

lose1: PRINT "Player 2 won!": GOTO theend
lose2: PRINT "Player 1 won!"
theend:
time = TIMER
DO
LOOP WHILE time + 1 > TIMER
SLEEP