Je me suis mis au Darkbsaic et j´ai donc essayé de programmé un Pong, mais ça marche pas, pas du tout 
enfin en fait il n´y a aucune collision et je ne vois vraiment pas d´où ça vient !
Je met le code a la suite, si jamais qqn vois une(des^^) erreur(s^^) !
Rem Project: test
Sync rate 50
Set window on
Set display mode 640,480,32
INPUT " Pseudo :",pseudo$
PRINT pseudo$,",appuie sur une touche pour lancer le jeu ! "
wait key
Sync on
Cls
load image " raquette_droite.jpg",1
load image " raquette_gauche.jpg",2
load image " balle.jpg",3
load image " fond.jpg",4
Global RAQUETTE_droite_X=25
Global RAQUETTE_droite_Y=190
Global Raquette_gauche_X=590
Global Raquette_gauche_Y=190
Global Balle_X=310
Global Balle_Y=230
Global Haut=1
Global Bas=0
Global Droite=1
Global gauche=0
Global Vitesse_balle#=1.00
Global Vitesse_Joueur=2
Global IA_Handicap=5
Global Score_cpu=0
Global score_human=0
DO
Paste image 4,0,0
Affichage_sprite()
collision()
Deplacement()
Balle()
IA()
score()
Sync
LOOP
function Affichage_sprite()
Sprite 1,raquette_droite_x,raquette_droite_y,1
Sprite 2,raquette_gauche_x,raquette_gauche_y,2
Sprite 3,balle_x,balle_y,3
endfunction
function Deplacement()
if upkey()=1
dec Raquette_droite_Y,Vitesse_joueur+1
endif
if downkey()=1
inc Raquette_droite_Y,Vitesse_joueur+1
endif
endfunction
function Balle()
if Haut=1
Bas=0
dec balle_y,vitesse_balle+1
endif
if bas=1
haut=0
dec balle_y,vitesse_balle+1
endif
if droite=1
gauche=0
dec balle_x,vitesse_balle+1
endif
if gauche=1
droite=0
dec balle_x,vitesse_balle+1
endif
endfunction
function collision()
If Balle_y<0 : bas=1 : haut=0 : endif
If Balle_y>460 : haut=1 : bas=0 : endif
if sprite collision(1,3)=1 : Gauche=1 : droite =0 : Vitesse_balle#=Vitesse_Balle#+0.1 : endif
if sprite collision(2,3)=1 : droite=1 : gauche =0 : Vitesse_balle#=Vitesse_Balle#+0.1 : endif
endfunction
function IA()
If Balle_X<160
if balle_y>raquette_gauche_Y
inc Raquette_gauche_Y,Ia_Handicap+1
endif
if balle_y<raquette_gauche_Y
dec Raquette_gauche_Y,Ia_Handicap+1
endif
endif
endfunction
function score()
If Balle_X<0 : droite=1 : gauche=0
Balle_X=310 : Balle_Y=230
Vitesse_balle#=1.00
Score_human=score_human+1
wait 1000
endif
If Balle_x>620 : gauche=1 : droite=0
Balle_X=310 : Balle_y=230
Vitesse_balle#=1.00
Score_human=score_cpu+1
wait 1000
endif
PRINT " CPU=",Score_cpu
PRINT " joueur=",Score_human
If Score_Cpu=10
delete sprite 1
delete sprite 2
delete sprite 3
cls
print " Battu par l´ordi, ahahah"
sync
wait 5000
end
endif
If Score_Human=10
delete sprite 1
delete sprite 2
delete sprite 3
cls
print " Tu as gagné ! "
sync
wait 5000
end
endif
endfunction
