pure miga

Programmation avancée de jeux en PureBasic
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: pure miga

Message par Ar-S »

Cool :) Bien joué !
Testé sous un i3 bureautique : 60/61 fps.
ça fait plaisir de voir les (magnifiques) modeling de Psygnosis.

Sympa les greeets ;)

Après psygnosis tu es près pour nous faire un remake de project x de team 17 :mrgreen:
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
raven
Messages : 222
Inscription : jeu. 06/janv./2005 15:45

Re: pure miga

Message par raven »

j'ai bien galéré sur la partie astéroids avec le rebond et z.
j'ai eu un coup de main de Majikeyric merci à lui.
j'avais jamais fait ce genre d'effet.

la demo est pas parfaite,il manque une scène et d'autre truc sur la partie des greets.
-animation du cockpit que j'avais prévu.
-rotation du vaisseau

@huitbit :D ,j'ai commencé à attaqué la demo après le punch,étudié du code,rip de gfx avec winuae pour le vaisseau et le blood copter.
ensuite j'ai attaquer les astéroids avec z,c'est la que j'ai bloquer un bon moment dessus :?
à coté, je fesai des améliorations sur la partie intro leds de l'amiga,anime du vaisseau,mouvement du vaisseau etc.
j'apprends au fur et à mesure c'est ça le plus long.

@cool dji, merci pour la souris :wink:

@Ar-s,j'ai pas le niveau pour ça :mrgreen:
Pb5.24 Lts/5.31 Windows 7 64 nvidia 560 ti E8500 8g ram
Avatar de l’utilisateur
GallyHC
Messages : 1703
Inscription : lun. 17/déc./2007 12:44

Re: pure miga

Message par GallyHC »

Bonjour,

C'est vraiment sympa :), bonne continuation. Tu as fait tout les logos des salutations ou tu as une routine qui créer le logo?

GallyHC
Configuration : Tower: Windows 10 (Processeur: i7 "x64") (Mémoire: 16Go) (GeForce GTX 760 - 2Go) - PureBasic 5.72 (x86 et x64)
Avatar de l’utilisateur
raven
Messages : 222
Inscription : jeu. 06/janv./2005 15:45

Re: pure miga

Message par raven »

bonjour,
je l'ai ai fait via photoshop,pour les animations,je fait des captures d'écran puis les place sur une planche.
Image
Image

c'est du bidouillage.

le presentateur du debut de l'intro:
presentateur

Code : Tout sélectionner

;***********************************************
;Titre  : Intro Pure Miga Part II
;Auteur  : Raven
;Date  :24/02/2015
;Heure  :21:14:39
;Version Purebasic :  PureBasic 5.24 LTS (Windows - x86)
;Version de l'editeur :EPB V2.58
; Libairies necessaire : Aucune 
;***********************************************

Enumeration
   #presentateur
EndEnumeration
;son
Enumeration
   #presente
EndEnumeration
;----------------------------------------------------------------------------
;- Initialisations
If InitSprite()=0 Or InitKeyboard()=0 Or InitMouse()=0 Or InitSound()=0 Or UseOGGSoundDecoder()=0 Or UsePNGImageDecoder()=0
   MessageRequester("Problème","Initialisations impossibles",0)
   End
EndIf
;------------------------------------------------------------------------------
;-ouvre une fenetre ou l'openscreen
Ecran= MessageRequester("Pure Miga","Plein écran?",#PB_MessageRequester_YesNo)
If Ecran = #PB_MessageRequester_Yes     
   Plein_ecran=#True
   OpenScreen(1024,768,32,"Pure Miga" )
   Else           
   Plein_ecran=#False
   OpenWindow(0,0, 0, 1024 , 768 ,"Pure Miga",#PB_Window_ScreenCentered)
   SetWindowPos_(WindowID(0), -1, 0, 0, 0, 0, #SWP_NOSIZE | #SWP_NOMOVE)
   OpenWindowedScreen(WindowID(0),0,0, 1024 , 768,32,0,0)
EndIf

If Plein_ecran = #False
   While WindowEvent() : Wend
EndIf

If CatchSprite(#presentateur,?presentateur,#PB_Sprite_AlphaBlending)=0
   End
EndIf
If CatchSound(#presente,?presente,?presentefin-?presente)=0
   End
EndIf 

SpriteQuality(#PB_Sprite_BilinearFiltering)

Delay(3000)

;------ boucle ------------
Repeat
   ClearScreen(0)
   
   ;-clavier et souris
   ExamineKeyboard()
   ExamineMouse()
   
   If Plein_ecran = #False
      event=WindowEvent()
   EndIf
   If image_presente=9:EndIf
   If image_presente=0:PlaySound(#presente):EndIf
   
   ClipSprite(#presentateur,image_presente*570,0,570,460)
   TransparentSpriteColor(#presentateur,RGB(0,0,0))
   DisplayTransparentSprite(#presentateur,250,250)
   
   presente +1
   If presente = 35
      image_presente +1
      presente =-1
   EndIf
   
   
   FlipBuffers()
Until  KeyboardPushed(#PB_Key_Escape); or mousebutton(#PB_MouseButton_Right)
CloseScreen()
End
;----- data --------------
DataSection
   presentateur:
   IncludeBinary "Gfx\presentation.png"
   presente:
   IncludeBinary "Zik\presente.ogg"
   presentefin:
EndDataSection
Pb5.24 Lts/5.31 Windows 7 64 nvidia 560 ti E8500 8g ram
Avatar de l’utilisateur
TazNormand
Messages : 1294
Inscription : ven. 27/oct./2006 12:19
Localisation : Calvados (14)

Re: pure miga

Message par TazNormand »

Salut Raven

Moi la partie "2" ne marche pas : l'écran devient noir, puis retour à windows, et j'entends bien le son (blood money, rire et lecteur de D7), et si je clique sur le bouton de ton exe dans ma barre des tâches, ou que je bascule avec ALT+Tab, j'ai un beau message "l'application a cessé de fonctionner".

Je suis sous W7 X64, en double écran, 16Go de RAM et Sapphire HD7850 3 Go.
Image
Image
Avatar de l’utilisateur
raven
Messages : 222
Inscription : jeu. 06/janv./2005 15:45

Re: pure miga

Message par raven »

test version x86 et x64 compilé avec Pb 5.24lts x86 et 5.31 x64 sur W7 64:

PMII_x86
PMII_x64
Pb5.24 Lts/5.31 Windows 7 64 nvidia 560 ti E8500 8g ram
Avatar de l’utilisateur
TazNormand
Messages : 1294
Inscription : ven. 27/oct./2006 12:19
Localisation : Calvados (14)

Re: pure miga

Message par TazNormand »

Bon,

je viens de te répondre en MP

Tjrs pareil pour moi, et d'après ce que tu m'as fourni en MP, on dirait que c'est le mode plein écran qui me fout la grouille.

J'ai pas plus le temps que ça pour regarder.

merci en tous cas
Image
Image
Avatar de l’utilisateur
SPH
Messages : 4722
Inscription : mer. 09/nov./2005 9:53

Re: pure miga

Message par SPH »

raven a écrit :test version x86 et x64 compilé avec Pb 5.24lts x86 et 5.31 x64 sur W7 64:

PMII_x86
Testé sur w7 et l'exe ne se lance pas :|
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Avatar de l’utilisateur
raven
Messages : 222
Inscription : jeu. 06/janv./2005 15:45

Re: pure miga

Message par raven »

ouais...tout est ok en mode debug,chez moi ça fonctionne :( .
je compte meme plus le nombre de fois que j'ai compilé la demo lors des réglages des timers.
je regarde ça.pas evident quand il y a aucun message d'erreur.

Code : Tout sélectionner

#scrw = 1024
#scrh = 768
#scrd = 32
;-------- Initialisation  --------
If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0 or initsound() = 0 or UseOGGSoundDecoder() = 0 or UsePNGImageDecoder() = 0
   MessageRequester("Erreur", "problème à l'initialisation !", #PB_MessageRequester_Ok|#MB_ICONERROR)
   End
EndIf

If OpenScreen(#scrw,#scrh,#scrd,"Blood_money") = 0 
   MessageRequester("Erreur", "impossible d'ouvrir l'écran", #PB_MessageRequester_Ok|#MB_ICONERROR)
   End 
EndIf

LoadFont(#font,"Cooper Black",10,#PB_Font_HighQuality )

if catchsprite(#Amiga,?amiga,#PB_Sprite_AlphaBlending)=0
   End
endif

if catchsprite(#ecran,?ecran,#PB_Sprite_AlphaBlending)=0
   End
endif
if catchsprite(#kickstart,?kickstart,#PB_Sprite_AlphaBlending)=0
   End
endif

if catchsprite(#Disk,?disk,#PB_Sprite_AlphaBlending)=0
   End
endif

if catchsprite(#menace,?menace,#PB_Sprite_AlphaBlending)=0
   End
endif

if catchsprite(#psygnosis,?psygnosis,#PB_Sprite_AlphaBlending)=0
   End
endif

if catchsprite(#dma,?dma,#PB_Sprite_AlphaBlending)=0
   end
endif

if catchsprite(#presentateur,?presentateur,#PB_Sprite_AlphaBlending)=0
   End
endif

If CatchSprite(#fond_nebuleuse,?fond,#PB_Sprite_AlphaBlending)=0
   End
EndIf

If CatchSprite(#vaisseau,?vaisseau,#PB_Sprite_AlphaBlending)=0
   End
EndIf

If CatchSprite(#vaisseau_atteri,?vaisseau,#PB_Sprite_AlphaBlending)=0
   End
EndIf

If CatchSprite(#cockpit,?interieur_vaisseau,#PB_Sprite_AlphaBlending)=0
   End
EndIf

If CatchSprite(#cockpit_anim,?manche_vaisseau)=0
   End
EndIf

If CatchSprite(#dollar,?dollar,#PB_Sprite_AlphaBlending)=0
   End
EndIf

If CatchSprite (#titre, ?blood_money_titre,#PB_Sprite_AlphaBlending)=0
   End
EndIf

If CatchSprite(#asteroid,?asteroid)=0
   End
EndIf

If CatchSprite(#asteroid_part2,?asteroid)=0
   End
EndIf

If CatchSprite (#terre, ?terre)=0
   End
EndIf

If CatchSprite (#lune, ?lune)=0
   End
EndIf

If CatchSprite(#effet_tv,?tv,#PB_Sprite_AlphaBlending)=0
   End
EndIf

If catchsprite(#laser,?laser_image,#PB_Sprite_PixelCollision)=0
   End
endif

If catchsprite(#ship,?ship)=0
   End
endif

If catchsprite(#planete,?planete1)=0
   End
endif

If catchsprite(#planete2,?planete2)=0
   End
endif

If catchsprite(#planete3,?planete3)=0
   End
endif

If CatchSprite(#ball,?ball,#PB_Sprite_AlphaBlending)=0
   End
EndIf


If CatchSprite(#boss,?ball2,#PB_Sprite_PixelCollision)=0
   End
EndIf

If CatchSprite(#mouse,?curseur,#PB_Sprite_AlphaBlending)=0
   End
EndIf

if catchsprite(#ars,?ars,#PB_Sprite_AlphaBlending)=0
   End
endif

if catchsprite(#cooldji,?cooldji,#PB_Sprite_AlphaBlending)=0
   End
endif

if catchsprite(#djes,?djes,#PB_Sprite_AlphaBlending)=0
   End
endif

if catchsprite(#dobro,?dobro,#PB_Sprite_AlphaBlending)=0
   End
endif

if catchsprite(#falsam,?falsam,#PB_Sprite_AlphaBlending)=0
   End
endif

if catchsprite(#grom,?grom,#PB_Sprite_AlphaBlending)=0
   End
endif

if catchsprite(#huitbit,?huitbit,#PB_Sprite_AlphaBlending)=0
   End
endif

if catchsprite(#majikeyric,?majikeyric,#PB_Sprite_AlphaBlending)=0
   End
endif

if catchsprite(#raven,?raven,#PB_Sprite_AlphaBlending)=0
   End
endif

if catchsprite(#greetings,?greet,#PB_Sprite_AlphaBlending)=0
   End
endif

if catchsprite(#explosion,?explo,#PB_Sprite_AlphaBlending)=0
   End
endif
;----------- Music ---------------------
if Catchsound(#intro,?intro,?introfin-?intro)=0
   End
endif

if Catchsound(#lecteur,?lecteur,?lecteurfin-?lecteur)=0
   end
endif

if Catchsound(#presente,?presente,?presentefin-?presente)=0
   End
endif 

longueur_du_son=?music_fin-?music
If CatchSound( #music,?music,longueur_du_son) = 0
   End
EndIf

longueur_du_son2=?music_fin2-?music2
If CatchSound(#music_ingame,?music2,longueur_du_son2) = 0
   End
EndIf

if Catchsound(#son_laser,?son_laser,?son_laserfin-?son_laser)=0
   End
endif 

if Catchsound(#son_laser2,?son_laser2,?son_laserfin2-?son_laser2)=0
   End
endif 

if Catchsound(#son_explosion,?son_explosion,?son_explosionfin-?son_explosion)=0
   End
endif 
Pb5.24 Lts/5.31 Windows 7 64 nvidia 560 ti E8500 8g ram
Avatar de l’utilisateur
SPH
Messages : 4722
Inscription : mer. 09/nov./2005 9:53

Re: pure miga

Message par SPH »

Dans ton dernier code : constante introuvable #font
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Avatar de l’utilisateur
raven
Messages : 222
Inscription : jeu. 06/janv./2005 15:45

Re: pure miga

Message par raven »

la constante #font est bien dans les enumerations c'est que 1er truc que j'affiche les fps.
je charge bien la font cooper black et si l'utilisateur ne la possede pas:
extrait de la doc:
Sous Microsoft Windows, le gestionnaire de police de caractères essaiera toujours de trouver une police équivalente à celle demandée, si cette dernière n'est pas disponible. Par exemple, si vous essayez de charger la police "Tim Now Ronin" et qu'elle n'existe pas, une autre police sera chargée automatiquement, en fonction de sa taille, du style etc. Il est donc peu probable que cette commande échoue.

je separe toujours la font des autres constantes c'est pas bon? ou j'ai rien capté :lol:

Code : Tout sélectionner

EnableExplicit
;--------- constantes ---------------

enumeration
   #font
EndEnumeration

enumeration
   #Amiga
   #disk
   #kickstart
   #ecran
   #mouse
   #menace
   #psygnosis
   #dma
   #presentateur
   #ligne=335
   #ligne2=710
   #led_rouge=155
   #led_rouge_fond=155
   #led_verte=155
   #led_verte_fond=155
EndEnumeration

enumeration
   #laser2=50
   #laser=20
   #asteroid
   #asteroid_part2=30
   #ship
   #planete
   #planete2
   #planete3
   #fond_nebuleuse
   #titre
   #vaisseau
   #vaisseau_atteri
   #cockpit
   #cockpit_anim
   #dollar
   #terre
   #lune
   #effet_tv
   #ball
   #ball2
   #boss
   #ars
   #cooldji
   #djes
   #dobro
   #falsam
   #grom
   #huitbit
   #majikeyric
   #raven
   #Greetings
   #explosion
endenumeration


Enumeration
   #Avant
   #Arriere
EndEnumeration

Enumeration
   #lecteur
   #intro
   #presente
   #music
   #music_ingame
   #son_laser
   #son_laser2
   #son_explosion
endenumeration
Pb5.24 Lts/5.31 Windows 7 64 nvidia 560 ti E8500 8g ram
Avatar de l’utilisateur
SPH
Messages : 4722
Inscription : mer. 09/nov./2005 9:53

Re: pure miga

Message par SPH »

J'ai mis les constantes u dessus du code et j'ai une nouvelle erreur :
longueur_du_son=?music_fin-?music
:?
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
logis27
Messages : 34
Inscription : lun. 17/mars/2014 8:00

Re: pure miga

Message par logis27 »

je separe toujours la font des autres constantes c'est pas bon? ou j'ai rien capté :lol:
Ca n'a aucune importance. Tu pourrais tout mélanger et ça marcherait aussi.
Séparer les constantes n'est utile que pour s'y retrouver.
Impossible de charger quoi que ce soit. L'hébergeur choisi répond "erreur 404"
A+
Répondre