défilement des sprites

LABEL Lance
DIM fnt$,w%,h%,e%,x%,y%,i%,j%,k%,nc%,nb%,ne%,a$,fs$,ys%(20),yy%,n%
fs$ = "C:\TEMP\Spr.bmp"

DATA "Arial","0","1","2","3","4","5","6","7","8","9"
DATA "Fin"
TOP 0,SCREEN_Y/2: LEFT 0,SCREEN_X/2: WIDTH 0,80: HEIGHT 0,125: BORDER_SMALL 0
COLOR 0,255,64,64: CAPTION 0,"": FONT_BOLD 0
nc% = 3: ' nombre de roues (ajuster width 0)
w% = 30: h% = 50: e%=2: ' dimensions d'une case, espacement entre roues
ne% = 0: READ a$
READ a$: WHILE a$<>"Fin": ne% = ne%+1: READ a$: END_WHILE: ' nombre d'éléments par roue
PICTURE 1: WIDTH 1,w%: HEIGHT 1,h%*(ne%+1): ' pour dessiner le sprite de base
2D_TARGET_IS 1: 2D_FILL_COLOR 255,255,255
PRINT_TARGET_IS 1: FONT_COLOR 1,5,5,5
RESTORE: READ fnt$: FONT_NAME 1,fnt$: FONT_SIZE 1,32
y% = 0: x% = 0
FOR i% = 0 TO 50
    READ a$: IF a$ = "Fin" THEN EXIT_FOR
    PRINT_LOCATE x%+3,y%+2: PRINT a$
    ys%(i%) = y%: y% = y%+h%
NEXT i%
FILE_SAVE 1,fs$
2D_TARGET_IS 0: PRINT_TARGET_IS 0: DELETE 1
SCENE2D 10: TOP 10,5: LEFT 10,10: WIDTH 10,nc%*w%+(nc%+1)*e%: HEIGHT 10,ne%*h%
HEIGHT 10,h%
FOR i% = 11 TO 11+nc%-1: SPRITE i%: NEXT i%
BUTTON 30: TOP 30,HEIGHT(10)+12: LEFT 30,22: CAPTION 30,"Lancer": ON_CLICK 30,Lance
FOR i% = 11 TO 11+nc%-1
    SPRITE_FILE_LOAD i%,fs$
    x% = e%+(i%-11)*(w%+e%): SPRITE_POSITION i%,x%,0
NEXT i%
FILE_DELETE fs$
END
' ==============================================================================
Lance:
  FOR k% = 11 TO 11+nc%-1
      n% = 1+RND(ne%-1): j% = 0
      FOR y% = 0 TO -1*h%*(ne%-2) STEP -1*h%
          FOR yy% = y% TO y%-h% STEP -2
              SPRITE_Y_POSITION k%,yy%
              ' PAUSE 1
              FOR i% = 1 TO 2000: NEXT i%
          NEXT yy%
          j% = j%+1: IF j% >= n% THEN EXIT_FOR
      NEXT y%
  NEXT k%
RETURN
' ==============================================================================

dim temps1,temps2,resultat
temps1 = NUMBER_TICKS

pause 1 : ' <= à moduler suivant vos désirs !

temps2 = NUMBER_TICKS
Resultat=(temps2-temps1)/1000
print "Durée : "+str$(resultat)+" seconde(s)"

dim tbm,old_time

dim posx,posy
dim depx,vitX
dim depy,vitY

label souris
dim scan,old_k1,k1,old_k2,k2,temps

' dll pour la mesure du temps
dll_on "kernel32"

' un délai de ralentissement par défaut(pour le lag imposé par l'utilisateur)
temps=50
dim tmp$,current_time

' panoramic est synchonisé en interne à 60 fps, soit 1/60 seconde par image
'
vitX=300   :' 300 pixels horizontaux par seconde
vitY=200   :' 200 pixels verticaux par seconde
repeat
   ' la sub en action : remplir la variable tbm
   SPEED_SYNC()

   cls
   depx=depx+(vitX*tbm)   :' déplacement horizontal modulé en fonction du temps
'   tmp$=str$(vitX*tbm) + " / " + str$(tbm) : caption 0,tmp$
   posx=50+depx   :'
   if (posx>=(width(0)-58)) then vitX=0-256   :' on touche le bord, on change le sens du déplacement(rebond)
   if (posx<=50) then vitX=256   :' on touche le bord, on change le sens du déplacement(rebond)
   '
   depy=depy+(vitY*tbm)   :' déplacement vertical modulé en fonction du temps
   posy=50+depy   :'
   if (posy>=(height(0)-84)) then vitY=0-200   :' on touche le bord, on change le sens du déplacement(rebond)
   if (posy<=50) then vitY=200   :' on touche le bord, on change le sens du déplacement(rebond)

   2d_circle posx,posy,50   :' positionne et affiche le cercle

   ' le délai de ralentissement géré par la souris(lag imposé par l'utilisateur)
   gosub souris
   wait 1+temps

   ' affichage d'infos
   caption 0,"'return'=quitter, souris gauche/droite= ralentir/accelerer le 'lag'(="+str$(temps)+" ms)"

' fin si touche 'return'
until scan=13


TERMINATE
' END
sub SPEED_SYNC()
' dim_local current_time
' "GetTickCount"=mesure en milliseconde, le temps écoulé depuis l'allumage du PC
   if old_time=0
      ' 1er appel, on initialise la variable avec une valeur par défaut
      tbm=0.001 : old_time=dll_call0("GetTickCount")
   else
      current_time=dll_call0("GetTickCount")
      ' seconde/image
      tbm=(current_time-old_time)*0.001
      old_time=current_time
   end_if
end_sub


souris:
   old_k1=k1
   old_k2=k2
   scan=scancode

   select scan
      case 0:k1=0:k2=0
      case 1:k1=1
      case 2:k2=1
   end_select

   ' souris gauche
   if (k1-old_k1)>0 then temps=temps-25
   ' souris droite
   if (k2-old_k2)>0 then temps=temps+25
   if temps>100 then temps=100
   if temps<0 then temps=0
return