pure miga

[raven]

Debut d'intro, fade in/out/zoom de Pure Beast Demo:
Beast intro

[venom]

Cool, tourne parfaitement chez moi, 60FPS constant







@++

[raven]

Bonjour à tous,
je vous présente ma 1ere demo,une petite megademo pour me faire la main.
j'ai beaucoup à apprendre en programmation,et en demomaking,je prend tout conseils astuces ou autres.

La megademo: qui roxx of the dead
edit:lien et images en 1ere page.

[Ar-S]

Excellent. Beau bruit de chargement ^^
ça fait plaiz de revoir Rick Dangerous . Il faudrait que tu fasses un petit peu bouger le vaisseau pendant le pseudo chargement histoire de dynamiser un peu la chose.
Peut-être aussi varier les Y une fois sorti de l'écran des (ou d'un des) plans des étoiles.
Enfin les nuages sont un peu moyen mais le desert est superbe.

Allez prochain défie, faire clignoter la led de l'amiga pendant le chargement et/ou le guru méditation.

Un grand bravo à toi.

[TazNormand]

Excellent, vivement la suite

[falsam]

Voila un beau début avec un effet paralax comme j'aime

PS: Tu devrais mettre à jour le premier message en supprimant le lien de download chez free qui ne fonctionne plus et mettre ce nouveau lien à la place.

[majikeyric]

Très joli et très propre !!!

Tu progresses bien, ça laisse augurer de choses qui vont kicker des asses !

[raven]

@Ar-s,je prend note pour le vaisseau et faire varié les y.
les nuages sont pas génial,j'ai voulu embellir le parallax,il manque aussi le soleil,y à aussi l'histoire de transparence que j'arrive pas bien à géré avec les nouvelles versions de purebasic.
j'y arrivait plus facilement en 4.51, ex avec un Sprite3DBlendingMode(3,2).

pour le bruit du chargement,l'idée de base était de rendre l'amiga "vivant" avoir l'impression de mise en route de la bete,c'est clair que les leds statiques ça le fait moins.
je relève le défie;) car Pure Miga je pense en faire une serie de 3 partie toujours en megademo enfin c'est ce que je veut en faire

@Taznormand,merci,il manque le insertdisk 2 à la fin,il sera surement dans la partie 2 p...d'avi... je gàlère toujours dessus

@Falsam
j'avait fait ma version de parallax à une époque sans structure,je voulait avoir une autre façon de faire ta procédure m'y à aidé.
je vais remettre à jour les liens

@Majikeyric,c'est toi qui m'a motivé à faire cette version,qui m'a encourager(car j'osé pas montré mes projets,vu mon niveau en programmation)
bien vu pour les sauts d'images truc que j'avais meme pas remarqué les structures en trop etc...
je vais essayé de m'appliquer pour la suite

[raven]

@Ar-s,voici les leds de l'Amiga en action,j'ai mis le choix soit en mode fenetre ou en openscreen.
doit surement avoir des erreurs dans le code ou une meilleur façon de faire ?
Amiga Leds

Code : Tout sélectionner

;***********************************************
;Titre  :*Amiga_leds
;Auteur  : Raven
;Date  :18/11/2014
;Heure  :10:32:53
;Version Purebasic :  PureBasic 5.31 (Windows - x64)
;Version de l'editeur :EPB V2.58
; Libairies necessaire : Aucune 
;***********************************************

EnableExplicit

Enumeration
   #Amiga
EndEnumeration

Enumeration
   #font
EndEnumeration

enumeration
   #ligne
   #ligne2=1015
   #led_rouge=467
   #led_rouge_fond=467
   #led_verte=467
   #led_verte_fond=467
endenumeration

Enumeration
   #lecteur
EndEnumeration


;-variables globale
global amiga_posx,amiga_image,affiche_menu,i,amiga_posx,amiga_posy,lecteur,lecteurfin,Ecran,Plein_ecran,image_guru,tempo_guru
global image_led_rouge,image_led_verte,tempo_led_rouge,tempo_led_verte

declare affiche_menu()
declare amiga()
declare guru()
declare led_rouge()
declare led_verte()
amiga_posx=250
amiga_posy =250
;--------------------------------------------------------------
;------------   affichage du menu     ---------------------
;--------------------------------------------------------------

Procedure affiche_menu()
   
   If StartDrawing(ScreenOutput())
      If KeyboardReleased( #PB_Key_Tab)
         If affiche_menu = #True
            affiche_menu = #False
            Else
            affiche_menu = #True
         EndIf
      EndIf
						
      DrawingMode(#PB_2DDrawing_Transparent)
      If affiche_menu = #False
         DrawingFont(FontID(#font))
         DrawText(20,690,"Pure Miga: ",RGB(255,255,255))
         DrawText(20,720,"Amiga Led ",RGB(255,255,255))
         Else
      EndIf
      StopDrawing()
   EndIf 
EndProcedure
;------------- Procédure Amiga -----------------------------------
Procedure amiga()
   amiga_image=catchsprite(#Amiga,?amiga,#PB_Sprite_AlphaBlending)
   
   ZoomSprite(#Amiga,350,350)
   DisplayTransparentSprite(#Amiga,amiga_posx/1,amiga_posy/1)
   
EndProcedure

;------------------------ procédure guru  ------------------------------
Procedure guru()
   StartDrawing(ScreenOutput())
      DrawingMode((#PB_2DDrawing_AlphaBlend ))
      DrawingFont(FontID(#font))
      DrawText(120,30, "software failure.     Press left mouse button to continue", RGB(255,0,0))   
      DrawText(220,90, "guru meditation #00000004.0000AAC0", RGB(255,0,0))
      
      If image_guru=2:image_guru=0:EndIf
      Box(#ligne,10,1024*image_guru,10,RGB(255,0,0))       
      Box(#ligne,20,10*image_guru,140,RGB(255,0,0)) 
      Box(#ligne,150,1024*image_guru,10,RGB(255,0,0))
      Box(#ligne2,20,10*image_guru,140,RGB(255,0,0)) 
      
      tempo_guru + 1
      If tempo_guru = 60
         image_guru + 1
         tempo_guru = 0
      EndIf
   StopDrawing()
EndProcedure
;----------- procédure led rouge -----------
procedure led_rouge()
   StartDrawing(ScreenOutput())
      If image_led_rouge=2:image_led_rouge=0:EndIf
      Box(#led_rouge_fond,435,21,5,rgb(155,0,0))
      Box(#led_rouge,435,21*image_led_rouge,5,rgb(255,0,0))

      tempo_led_rouge + 1
      If tempo_led_rouge = 60
         image_led_rouge + 1
         tempo_led_rouge = 0
      EndIf
   StopDrawing()
EndProcedure
;---------- procédure led verte ---------
procedure led_verte()
   StartDrawing(ScreenOutput())
      If image_led_verte=2:image_led_verte=0:EndIf
      Box(#led_verte_fond,443,21,5,RGB(50,155,50)) 
      Box(#led_verte,443,21*image_led_verte,5,RGB(Random(50), Random(255), Random(50))) 

      tempo_led_verte + 1
      If tempo_led_verte = 25
         image_led_verte + 1
         tempo_led_verte = 0
      endif
   StopDrawing()
endprocedure
;---------------- son lecteur----------------------------
Procedure lecteur()   
   lecteur=Catchsound(#lecteur,?lecteur,?lecteurfin-?lecteur)
   If lecteur
      ;SoundVolume(0,75)
      Playsound(#lecteur)     
   EndIf
EndProcedure
;----------------------------------------------------------------------------
;- 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
;-------------------------------------------------------------------------------
;-charge la fonte
LoadFont(#font,"Cooper Black",24,#PB_Font_HighQuality )
;------------------------------------------------------------------------------
;-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_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget|#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

;------------------------------------------------------
;---------------   Boucle Principale  --------------
;-----------------------------------------------------
SpriteQuality(#PB_Sprite_BilinearFiltering)
lecteur()
Repeat
 
   ;-clavier et souris
   ExamineKeyboard()
   ExamineMouse()
   ClearScreen(0)
   amiga()
   affiche_menu()
   guru()
   led_rouge()
   led_verte()
   FlipBuffers()
   
Until KeyboardPushed(#PB_Key_Escape) 
closescreen()
End
;-Data
DataSection
   lecteur:
   IncludeBinary "media\lecteur_amiga.ogg"
   lecteurfin:
   Amiga:
   includebinary "media\amiga_sans_leds.png"
enddatasection

; Epb

edit:je viens de voir qu'il manque un closescreen()
petit rajout la disquette:
avec disquette

[raven]

quelques news sur la partie 2 de Pure miga
en phase de test

[raven]

je vais tenté un premier test,c'a va pas etre parfait p... de vaisseau qui à la vache folle
je pense la posté dans la soirée,y'en a pour 8mn de demo à peu près.

[majikeyric]

Blooooooooooooooooooooooood Moneyyyyyyyyyyyyyyyyyyyyy !!!!

[raven]

Voici la partie 2 de Pure Miga,j'ai encore des modifs à faire dessus.
-touche tab pour enlever/afficher le fps.
-touche echap pour quitter
la demo s'arrete quand elle fini.
j'ai mis un petit boss dans les credits
Pure_Miga_Part_II

[Cool Dji]

Yeah man.
De jolis effets

[Huitbit]

Mais c'est un boulot monstrueux !
T'as passé combien de temps sur ça ?!

ça marche nickel (61fps).
Bravo !

Hasta la vista !