[2D] Kill Birds

Programmation avancée de jeux en PureBasic
Avatar de l’utilisateur
falsam
Messages : 7317
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: [2D] Kill Birds

Message par falsam »

Atlante a écrit :tu veux pas rajouter ma modification pour que cela fonctionne chez tout le monde avec la souris ?
Préférant garder une version sans thread et n'ayant pas ce type de souris pour tester le code, j'ai ajouté une version pour ce type de souris dans le fichier compressé.

Si tu pouvais tester que tout est conforme. Merci Atlante :)
Configuration : Windows 11 Famille 64-bit - PB 6.20 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
Atlante
Messages : 337
Inscription : mer. 29/juin/2011 18:35
Localisation : Paris

Re: [2D] Kill Birds

Message par Atlante »

falsam a écrit :
Atlante a écrit :tu veux pas rajouter ma modification pour que cela fonctionne chez tout le monde avec la souris ?
Préférant garder une version sans thread et n'ayant pas ce type de souris pour tester le code, j'ai ajouté une version pour ce type de souris dans le fichier compressé.

Si tu pouvais tester que tout est conforme. Merci Atlante :)
Tout fonctionne.
Par contre le jour où tu compiles un petit jeu pense aux joueurs avec du matos sortant de l'ordinaire surtout que le code fonctionne pour tout le monde :)
Modérateur
Config : Intel I5 4670K, Nvidia Geforce GTX 1060, 16go RAM, SSD 256go, DD 2000go
Avatar de l’utilisateur
falsam
Messages : 7317
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: [2D] Kill Birds

Message par falsam »

Atlante a écrit :pense aux joueurs avec du matos sortant de l'ordinaire
A condition d'avoir ce matos sortant de l'ordinaire pour effectuer ce test :)

Je vais commencer par réfléchir à un vrai jeu :mrgreen:
Configuration : Windows 11 Famille 64-bit - PB 6.20 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
Atlante
Messages : 337
Inscription : mer. 29/juin/2011 18:35
Localisation : Paris

Re: [2D] Kill Birds

Message par Atlante »

J'ai remarqué un petit problème, quand tu tires et tues un piaf : 1s après il y a une boule bleu qui apparaît furtivement (le début sprite explosion)
J'essaye de comprendre pourquoi... Si quelqu'un trouve :)
Modérateur
Config : Intel I5 4670K, Nvidia Geforce GTX 1060, 16go RAM, SSD 256go, DD 2000go
Avatar de l’utilisateur
falsam
Messages : 7317
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: [2D] Kill Birds

Message par falsam »

Je n'avais pas remarqué cet artefact du à un affichage de l'explosion trop tardif.

Remplace

Code : Tout sélectionner

;- Animation explosion (Les plumes voles) 
    If explosion\Actif = #True
      If ElapsedMilliseconds()-explosion\FrameTimeLife > explosion\FrameRate
        explosion\FrameTimeLife = ElapsedMilliseconds()
           
        If explosion\CurrentFrame < explosion\FrameMax-1
          explosion\CurrentFrame+1  
        Else
          explosion\CurrentFrame=0  
          explosion\Actif = #False
        EndIf    
      EndIf
        
      ClipSprite(#explosion, explosion\CurrentFrame * explosion\FrameWidth, explosion\Animation * explosion\FrameHeight, explosion\FrameWidth , explosion\FrameHeight)
      DisplayTransparentSprite(#explosion, explosion\x, explosion\y, 255)  
    EndIf 
par

Code : Tout sélectionner

    ;- Animation explosion (Les plumes voles) 
    If explosion\Actif = #True
      ClipSprite(#explosion, explosion\CurrentFrame * explosion\FrameWidth, explosion\Animation * explosion\FrameHeight, explosion\FrameWidth , explosion\FrameHeight)
      DisplayTransparentSprite(#explosion, explosion\x, explosion\y, 255)
      If ElapsedMilliseconds()-explosion\FrameTimeLife > explosion\FrameRate
        Explosion\FrameTimeLife = ElapsedMilliseconds()
           
        If explosion\CurrentFrame < explosion\FrameMax-1
          explosion\CurrentFrame+1  
        Else
          explosion\CurrentFrame=0  
          explosion\Actif = #False
        EndIf    
      EndIf        
    EndIf 
Mise à jour du code et téléchargement dans le premier message.
Configuration : Windows 11 Famille 64-bit - PB 6.20 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
falsam
Messages : 7317
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: [2D] Kill Birds

Message par falsam »

Nouvelle version
-Ajout : Gestionnaire d'acquisition ou de libération de la souris dans les limites de l'OpenWindowedScreen() ce qui permet par exemple de déplacer je jeu sur l'écran en cours ou sur un deuxiéme écran.

Mise à jour du code et téléchargement dans le premier message.
Configuration : Windows 11 Famille 64-bit - PB 6.20 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Répondre