J´ai la version demo de Dbasic pro donc je ne pourais vous montrer que le code en lui meme.
Merci de m´aider
set display mode 640,480,32
sync on : sync rate 30
set window on
backdrop on : color backdrop rgb(0,0,0)
randomize timer()
rem Variables
GLOBAL Raquette_gauche_X=25 : rem on décale la raquette de 25 pixels par rapport au bord gauche de l´écran.
GLOBAL Raquette_gauche_Y=190
GLOBAL Raquette_droite_X=600 : rem on décale la raquette de 25 pixel par rapport au bord droit de l´écran 640-25-taille du sprite en x
GLOBAL Raquette_droite_Y=190
GLOBAL Balle_X=310 : rem On centre notre balle à l´écran Ecran en X / 2 - Sprite en X / 2
GLOBAL Balle_Y=230 : rem Ecran en Y / 2 - Sprite en Y / 2
GLOBAL Haut=1
GLOBAL Bas=0
GLOBAL Droite=1
GLOBAL gauche=0
GLOBAL vitesse_balle=2
GLOBAL score_p1=0
GLOBAL score_p2=0
ink rgb(255,255,255),rgb(255,255,255)
rem création de la raquette
if file exist("raquette.bmp")=0
create bitmap 1,15,100
box 0,0,15,100
get image 1,0,0,15,100
save image " raquette.bmp",1
delete bitmap 1
endif
rem creation de la balle
if file exist("balle.bmp")=0
create bitmap 1,10,10
box 0,0,10,10
get image 1,0,0,10,10
save image " balle.bmp",1
delete bitmap 1
endif
rem chargement des 2 images
load image " raquette.bmp",1
load image " raquette.bmp",2
load image " balle.bmp",3
rem Boucle principale
do
rem raquette player 1
Sprite 1,Raquette_gauche_x,Raquette_gauche_y,1
rem raquette player 2
Sprite 2,Raquette_droite_x,Raquette_droite_y,2
rem balle
Sprite 3,Balle_X,Balle_Y,3
rem controles
=>Controls()<=celle la
rem balle
Balle()
rem Score
Score()
remstart
set cursor 0,0
print screen fps()
remend
rem refresh
sync
loop
rem
__________________________________________________
____________________function Controls()
rem CONTROLES PLAYER 1
if upkey()
dec Raquette_gauche_y,5
endif
if downkey()
inc Raquette_gauche_y,5
endif
rem test si la raquette est tout en haut ou tout en bas
if Raquette_gauche_y<=0 then Raquette_gauche_y=0
if Raquette_gauche_y>=380 then Raquette_gauche_y=380
rem CONTROLES PLAYER 2
if keystate(16)
dec Raquette_droite_y,5
endif
if keystate(30)
inc Raquette_droite_y,5
endif
rem test si la raquette est tout en haut ou tout en bas
if Raquette_droite_y<=0 then Raquette_droite_y=0
if Raquette_droite_y>=380 then Raquette_droite_y=380
endfunction
rem
__________________________________________________
____________________function Balle()
rem MOUVEMENT
if Haut=1
Bas=0
dec balle_y,vitesse_balle+1
endif
if bas=1
haut=0
inc balle_y,vitesse_balle+1
endif
if droite=1
gauche=0
inc balle_x,vitesse_balle+1
endif
if gauche=1
droite=0
dec balle_x,vitesse_balle+1
endif
rem REBONDS
if Balle_Y<0
bas=1
haut=0
endif
if Balle_Y>470
bas=0
haut=1
endif
rem COLLISIONS RAQUETTES
if sprite collision(3,1)
gauche=0
droite=1
endif
if sprite collision(3,2)
gauche=1
droite=0
endif
endfunction
rem
__________________________________________________
____________________function Score()
rem points pour le joueur 1
if Balle_X>640
inc score_p1
Balle_X=310
Balle_Y=230
vitesse_balle=2
Raquette_gauche_Y=190
Raquette_droite_Y=190
droite=rnd(1)
haut=rnd(1)
if droite=1 then gauche=0
if droite=0 then gauche=1
if haut=1 then bas=0
if haut=0 then bas=1
wait 2000
endif
rem points pour le joueur 2
if Balle_X<0
inc score_p2
Balle_X=310
Balle_Y=230
Vitesse_Balle=2
Raquette_gauche_Y=190
Raquette_droite_Y=190
droite=rnd(1)
haut=rnd(1)
if droite=1 then gauche=0
if droite=0 then gauche=1
if haut=1 then bas=0
if haut=0 then bas=1
wait 2000
endif
endfunction
Mon probleme se situe a la ligne que g mis que j´ai mis en evidence avec => < =
ca me met could not understand command at ligne
c´est embetant
