pure miga

[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

[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 ,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

@Ar-s,j'ai pas le niveau pour ça

[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

[raven]

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



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

[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.

[raven]

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

PMII_x86
PMII_x64

[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

[SPH]

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

[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 

[SPH]

Dans ton dernier code : constante introuvable #font

[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é

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

[SPH]

J'ai mis les constantes u dessus du code et j'ai une nouvelle erreur :
longueur_du_son=?music_fin-?music

[logis27]

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

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+