voilà ça c le prog , il est moche mal structuré ect... je sais.
C´est du qbasic juste au cas ou.
CLS
SCREEN 12
DIM x AS LONG
DIM y AS LONG
DIM a AS LONG
DIM i AS LONG
DIM joueur1 AS STRING
DIM p1 AS LONG
PRINT " 8 = haut"
PRINT " 2 = bas"
PRINT " 4 = gauche"
PRINT " 6 = droite"
PRINT " 5 = choisir un cercle"
PRINT " 0 = afficher les points"
PRINT " F1 = quitter"
COLOR 2
INPUT " entrer le nom du joueur 1"; joueur1
PRINT " appuyez sur une touche pour continuer"
DO
LOOP UNTIL LEN(INKEY$)
CLS
COLOR 9
x = 40
y = 60
a = 25
FOR cercleX = 40 TO 580 STEP 60
FOR cercleY = 60 TO 360 STEP 55
CIRCLE ( cercleX, cercleY), 25
SOUND cercleX + cercleY, 1
PAINT ( cercleX, cercleY)
NEXT
NEXT
LINE ( 15, 370)-(605, 372), 4, BF
LOCATE 25, 4
COLOR 5
PRINT joueur1
compte:
LOCATE 26, 4
PRINT " points:"; p1 + i
COLOR 5
CIRCLE ( 40, 60), 25
DO
SELECT CASE INKEY$
CASE " 8"
GOSUB haut:
CASE " 2"
GOSUB bas:
CASE " 4"
GOSUB gauche:
CASE " 6"
GOSUB droite:
CASE " 5"
GOSUB action:
END SELECT
LOOP UNTIL INKEY$ = CHR$(27)
END
haut:
CIRCLE ( x, y), a, 9
y = y - 55
IF y < 60 THEN y = y + 55
CIRCLE ( x, y), a
RETURN
bas:
CIRCLE ( x, y), a, 9
y = y + 55
IF y > 360 THEN y = y - 55
CIRCLE ( x, y), a
RETURN
gauche:
CIRCLE ( x, y), a, 9
x = x - 60
IF x < 40 THEN x = x + 60
CIRCLE ( x, y), a
RETURN
droite:
CIRCLE ( x, y), a, 9
x = x + 60
IF x > 580 THEN x = x - 60
CIRCLE ( x, y), a
RETURN
action:
COLOR 0
SOUND 131, 2
CIRCLE ( x, y), a
PAINT ( x, y)
SOUND 264, 2
SOUND 330, 2
SOUND 392, 2
COLOR 9
CIRCLE ( 311, 408), 25
PAINT ( 311, 409)
SLEEP 1
SOUND 392, 2
PAINT ( 311, 408), 0
CIRCLE ( 311, 408), 25
SLEEP 1
SOUND 440, 2
PAINT ( 311, 408)
SLEEP 1
LOCATE 1, 2
PRINT " appuyez sur 0 pour afficher vos points"
DO
FOR i = -50 TO 50 STEP 2
IF INKEY$ = " 0" THEN EXIT DO
NEXT i
LOOP UNTIL INKEY$ = " 0"
SOUND 494, 2
PAINT ( 311, 408), 0
CIRCLE ( 311, 408), 25
SLEEP 1
SOUND 523, 2
SOUND 659, 2
SOUND 784, 2
LOCATE 26, 38
COLOR 5
PRINT i
GOTO compte