DECLARE SUB gameover2 ()
DECLARE SUB gameover ()
DECLARE SUB soundpause ()
DECLARE SUB intro ()
DIM x AS INTEGER
'DIM xmod AS INTEGER
DIM y AS INTEGER
'DIM ymod AS INTEGER
DIM linex AS INTEGER
DIM liney AS INTEGER
DIM linex2 AS INTEGER
DIM liney2 AS INTEGER
x = 320
y = 240
xmod = 1
ymod = 1
linex = 17
liney = 240
linex2 = 620
liney2 = 240
z = 0
SCREEN 12
DO
IF z = 0 THEN
intro
END IF
z = 1
x = x + xmod
y = y + ymod
liney2 = y
press$ = INKEY$ 'commandes clavier
IF press$ = "a" THEN 'haut
liney = liney - 26
ELSEIF press$ = "z" THEN 'bas
liney = liney + 26
END IF
IF x > 600 AND y <= liney2 + 40 AND y >= liney2 - 40 THEN
xmod = -xmod
SOUND 350, 1
LET b = b + 1
END IF
IF x < 35 AND y <= liney + 40 AND y >= liney - 40 THEN
xmod = -xmod
'rajouter ymod = -ymod quand la balle arrive en haut de la pallette
SOUND 350, 1
LET a = a + 1
END IF
IF a = 5 AND b = 5 THEN
LET xmod = 2
LET ymod = ymod = ymod
END IF
IF x < 2 THEN
LET p2 = p2 + 1
LET x = 320
LET y = 240
LET xmod = 1
LET ymod = 1
SOUND 350, 8
PRINT "BUT!- JOUEUR:"; p; ", ORDI:"; p2
SLEEP 2
LET a = 0
LET b = 0
CLS
END IF
IF x > 632 THEN
LET p = p + 1
LET x = 320
LET y = 240
LET xmod = 1
LET ymod = 1
SOUND 350, 8
PRINT "BUT!- JOUEUR:"; p; ", ORDI:"; p2
SLEEP 2
CLS
LET a = 0
LET b = 0
END IF
IF y < 17 OR y > 460 THEN
ymod = -ymod
SOUND 700, 1
END IF
IF press$ = "p" THEN
soundpause
END IF
IF p2 = 5 THEN
gameover2
ELSEIF p = 5 THEN
gameover
END IF
CIRCLE (x, y), 17, 20
LINE (linex - 5, liney - 40)-(linex + 5, liney + 40), 20, BF
LINE (linex2 - 5, liney2 - 40)-(linex2 + 5, liney2 + 40), 20, BF
CIRCLE (x, y), 17, 0
LINE (linex - 5, liney - 40)-(linex + 5, liney + 40), 0, BF
LINE (linex2 - 5, liney2 - 40)-(linex2 + 5, liney2 + 40), 0, BF
LINE (0, 0)-(640, 0), 20
LINE (0, 477)-(640, 477), 20
LOOP
SUB gameover
SOUND 340, 2
SOUND 430, 2
SOUND 510, 2
SOUND 690, 6
SOUND 340, 2
SOUND 465, 2
SOUND 570, 2
SOUND 690, 6
SOUND 390, 2
SOUND 510, 2
SOUND 640, 2
SOUND 760, 4
SOUND 510, 2
SOUND 690, 6
SOUND 340, 6
PRINT "vous avez gagne, appuyez sur une touche pour continuer..."
END
END SUB
SUB gameover2
SOUND 350, 2
SOUND 390, 2
SOUND 430, 2
SOUND 450, 2
SOUND 520, 2
SOUND 575, 2
SOUND 620, 5
SOUND 350, 2
SOUND 575, 5
SOUND 350, 2
SOUND 520, 5
SOUND 350, 2
SOUND 460, 10
SOUND 430, 10
SOUND 620, 1.5
SOUND 430, 1.5
SOUND 620, 1.5
SOUND 430, 1.5
SOUND 620, 1.5
SOUND 430, 1.5
SOUND 620, 1.5
SOUND 430, 6
PRINT "partie terminee, appuyez sur une touche pour quitter..."
END
END SUB
SUB intro
PRINT
PRINT
PRINT " ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT " º ÜÜÜÜ ÜÜÜÜ ÜÜ Ü ÜÜÜÜ º"
PRINT " º °Û Û °Û Û °Û Û Û °Û ÜÜ º"
PRINT " º °Ûßßß °ÛÜÜÛ °Û° ßÛ °ÛÜÜÛ º"
PRINT " º ° °°°° ° °° °°°° º"
PRINT " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
PRINT
PRINT " PAR: KARL LEVEILLE"
PRINT
PRINT "--INSTRUCTIONS--"
PRINT "Le principe est tres simple:echangez la balle avec votre adversaire jusqu'a"
PRINT "ce que celle-ci se retrouve derriere la palette du joueur. Apres 5 points, "
PRINT "la partie sera terminee. "
PRINT "--CONTROLES--**LES LETTRES DOIVENT ETRES EN MINUSCULES**"
PRINT "a=bouger la palette gauche vers le haut"
PRINT "z=bouger la palette vers le bas"
PRINT "p=pause, appuyer sur une touche autre que p pour reprendre la partie"
PRINT
PRINT
PRINT "Appuyez sur une touche pour commencer la partie..."
SOUND 610, 4
SOUND 0, 1
SOUND 610, 2
SOUND 640, 2
SOUND 730, 2
SOUND 800, 5
SLEEP
CLS
END SUB
SUB soundpause
SOUND 700, 1
SOUND 550, 1
SOUND 700, 1
SOUND 550, 1
SLEEP
SOUND 700, 1
SOUND 550, 1
SOUND 700, 1
SOUND 550, 1
END SUB
Raccourcis
FAQ
Inscription
Connexion
![[ img ]](http://zupimages.net/up/17/06/l19r.gif)
