PureBasic

Salut à tous,
j'ai un petit problème dont je ne trouve pas la solution :
J'aimerais faire un Autofire dans mon shoot-em-up qui va faire que en laissant une touche appuyée, le vaisseau tire des balles à une fréquence donnée ( en millisecondes )

Code : Tout sélectionner

If KeyboardPushed( #PB_Key_Space )
      AddElement(TirsAirman())
      TirsAirman()\x = Airman1\y+15 
      TirsAirman()\y = Airman1\x+75 
      TirsAirman()\vitesse = 8
EndIf

Avec ça, ça marche mais ça tire aussi vite que le processeur peut le faire .

Alors si quelqu'un à une solution simple à me donner ...
Merci d'avance !

Code : Tout sélectionner

;Ajoute un argument à ta structure 

Structure xxx
x.l
y.l
vitesse.l
Tps.l                ; <<< Ajoute ça 
EndStructure

;Ajoute une constante
#TempsMaxi=150 ; 150 ms

If KeyboardPushed( #PB_Key_Space ) And ElapsedMilliseconds()-Airman1\Tps>#TempsMaxi
      AddElement(TirsAirman())
      TirsAirman()\x = Airman1\y+15
      TirsAirman()\y = Airman1\x+75
      TirsAirman()\vitesse = 8
      Airman1\Tps=ElapsedMilliseconds()
EndIf

Merci ça marche !
(Je me demande comment j'ai bien pu ne pas y penser ...)