Keskustelu: Koodit: QB: Kaahailu

SCREEN 12
INPUT "Kääntyvyys (10 on hyvä): ", kaantyvyys
kulma = -130
uudestaan:
CLS
DIM x AS SINGLE, y AS SINGLE
pii = 4 * ATN(1)
x = 100
y = 100
CIRCLE STEP(0, 0), 100
PAINT (300, 200), 2, 15
PAINT (0, 0), 8, 15
DO
  DRAW "bm" + STR$(INT(x)) + "," + STR$(INT(y))
  DRAW "TA" + STR$(kulma)
  DRAW "c8bd2l3d20r1u20r1d20r1u20r1d20r1u20r1d20"
  x = x - SIN(kulma * 2 * pii / 360) * nopeus
  y = y - COS(kulma * 2 * pii / 360) * nopeus
  DRAW "bm" + STR$(INT(x)) + "," + STR$(INT(y))
  DRAW "TA" + STR$(kulma)
  DRAW "c4bd2l3d20r1u20r1d20r1u20r1d20r1u20r1d20"



  SELECT CASE INKEY$
  CASE CHR$(0) + "K"
  IF nopeus = 0 THEN GOTO pois
  DRAW "bm" + STR$(INT(x)) + "," + STR$(INT(y))
  DRAW "TA" + STR$(kulma)
  DRAW "c8bd2l3d20r1u20r1d20r1u20r1d20r1u20r1d20"
   kulma = kulma + kaantyvyys
    IF kulma > 360 THEN kulma = kulma - 360
  CASE CHR$(0) + "M"
  IF nopeus = 0 THEN GOTO pois
  DRAW "bm" + STR$(INT(x)) + "," + STR$(INT(y))
  DRAW "TA" + STR$(kulma)
  DRAW "c8bd2l3d20r1u20r1d20r1u20r1d20r1u20r1d20"
   kulma = kulma - kaantyvyys
    IF kulma < 1 THEN kulma = kulma + 360
  CASE CHR$(0) + "H"
  nopeus = nopeus + 1
  CASE CHR$(0) + "P"
  nopeus = nopeus - 1
CASE CHR$(27)
END
  END SELECT
pois:
 WAIT &H3DA, 8
IF POINT(x, y) <> 8 THEN GOTO loppu
LOOP
loppu:
FOR r = 1 TO 30
v = 14
CIRCLE (x, y), r, v
NEXT
PRINT "Uudestaan (k/e)"
DO
SELECT CASE INKEY$
CASE "k"
GOTO uudestaan
CASE "e"
END
END SELECT
LOOP