La demo qui roxxx of the dead!!!

[raven]

Salut à tous,

hier soir,je me suis mis à codé une simple fenetre pour me faire la main.

Puis c'est parti en n'importe nayekkk,voiçi le resultat(pas bon de codé la nuit) .
https://www.dropbox.com/s/mtc8k61v9gww5 ... x.rar?dl=0

le source est inclue dans l'archive.

[TazNormand]

Manque le fichier ogg dans ton archive, et j'ai pas compris où tu voulais en venir

[raven]

bonjour taznormand,

c'était bien sur de l'ironie,c'est seulement un petit test,vu que je fait que de l'openscreen.
bien évidemment "la demo qui rox of the dead" c'était une manière de me moquer de mon intro,tellement que c'est nul

j'en ai une autre en reserve mais bon c'est nul aussi
j'ai mis le fichier ogg dans l'archive.

[Ar-S]

Pour ma part (j'ai desactivé ce qui est sonore vu que ce n'est pas inclus) je trouve ça sympa. Par contre ce n'est pas centré sur ma config.

[raven]

merci ar-s d'avoir testé

j'avais compilé le souce en exe ou j'avais inclue la parti sonore.

je tiens à précisé que tout mes executables sont testé avec un antivirus.
et que le source soit ok avec le debugger c'est un minimum.

j'aurais du le précisé,au lieu de balancé cela comme c'a
Pour pure miga je ferait pas la meme erreur

[jmg49]

moi j'aime bien !

joli la profondeur du texte et.... le pixel bouge à merveille !

[majikeyric]

Pour pure miga je ferait pas la meme erreur

Y aura autre chose après l'effet de décrunchage ?

[raven]

merci jmg49

Y aura autre chose après l'effet de décrunchage ?

oui majikeyric,mais l'effet décrunchage je pense pas le mettre chute de fps.
la demo tourne bien à 60 fps constant sans,avec j'ai des doutes sur comment va réagir le reste de la demo(décalage son image).

En fait cette "demo" était un bouillon que j'avais fait à l'époque.
puis vu que je repart de zéro avec purebasic,j'ai décidé de repartir sur cette idée.

le problème est pour la fin,je sais ce que je veut faire,mais je bloque dessus pour le realisé avec du code.
du coup j'ai mis de coté,j'ai fait nouveau projet dans l'editeur et j'ai fait ce test "la demo qui rox of the dead" pour le fun.

hier soir,j'ai refait une partie du code en attendant de trouver une solution.

[Lemaquis]

Bonjour

merci raven pour ce partage

[raven]

C'a y est, j'ai reuissi !!! c'a rox of the dead

[raven]

partie 2 :
https://www.dropbox.com/s/ozv4hadmr9qs6 ... o.rar?dl=0

Code : Tout sélectionner

;******************************
;   The One Pixel Megademo
;         par raven       
;  La demo qui roxxxx of the Dead !!!!  
;        Debugger : Ok   
;      Programme : Fun       
;******************************

Enumeration
   #font
EndEnumeration

Enumeration
  #music
EndEnumeration
 
Enumeration
   #pixel
   #ligne
   #ligne2 = 1014
EndEnumeration

Declare pixel() ;on Declare la procedure du pixel 
Declare affiche_menu() ; on declare la procedure affiche_menu
Declare guru() ; on declare la procedure guru
;-variable globale
Global WindowW.f=1024
Global WindowH.f=768
Global xpixel,ypixel,xpixeldir,ypixeldir,x_box,y_box,tempo,image
image=0

vitesse.f=0.0
;position du pixel de depart
xpixel=450: ypixel=450: xpixeldir=-1 : ypixeldir=-2

;-procédure affiche menu
Procedure affiche_menu()
   If StartDrawing(ScreenOutput())
      
      If affiche_menu = #False
         DrawingFont(FontID(#font))
         DrawingMode((#PB_2DDrawing_AlphaBlend ))      
         For i= 0 To 1
            DrawText(375+Random(2),240+ Random(3), "The One Pixel ", RGB(255,155,0))
         Next i
         
         For i=0 To 1
            DrawText(395+Random(2),280+ Random(2), "Megademo ",RGB($00,$00,$ff))
         Next i
         
         For i=0 To 1
            DrawText(435+Random(2),330+ Random(2), "Part II ",RGB($ff,$ff,$00))
         Next i
         
         For i = 0 To 1
            DrawText(5+Random(2),700+ Random(3), "Code: Raven ",RGB($ff,$ff,$ff));RGB(Random(255), Random(255), Random(255)))
         Next i       
      EndIf
      StopDrawing()
   EndIf 
EndProcedure
;-procédure pixel
Procedure pixel()
   
   xpixel=xpixel+xpixeldir
   ypixel=ypixel+ypixeldir
   
   If xpixel <15 Or xpixel >1024-40 : xpixeldir=xpixeldir*-1 : EndIf
   If ypixel <170 Or ypixel >768-40 : ypixeldir=ypixeldir*-1 : EndIf
   CreateSprite(#pixel, 1, 1)
   
   StartDrawing(SpriteOutput(#pixel))    
      Plot(#pixel, 0, RGB(Random(0), Random(15), Random(15)))  
   StopDrawing()
   ;-on affiche le pixel  qui roxxxx :)
   DisplayTransparentSprite(#pixel, xpixel,ypixel)
   
   For i = 0 To 1050
      DisplayTransparentSprite(#pixel,xpixel+i*Cos(i*2+vitesse),ypixel+i*Sin(i*2+vitesse)) 
      ZoomSprite(#pixel,50,50)
      RotateSprite(#pixel,ypixel,vitesse)
      vitesse +0.5      
   Next i
   
EndProcedure
Procedure guru()
   SpriteBlendingMode(#PB_Sprite_BlendSourceAlpha, #PB_Sprite_BlendSourceAlpha)
   CreateSprite(#ligne,1024,10,#PB_Sprite_BlendSourceAlpha)
   
   
   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=2:image=0:EndIf
      Box(#ligne,10,1024*image,10,RGB(255,0,0))       
      
      Box(#ligne,20,10*image,140,RGB(255,0,0))  
      Box(#ligne,150,1024*image,10,RGB(255,0,0)) 
       Box(#ligne2,20,10*image,140,RGB(255,0,0))  
      
      tempo + 1
      If tempo = 60
         image + 1
         tempo = 0
      EndIf
   StopDrawing()
   
   DisplayTransparentSprite(#ligne,image*1024,10)

   
EndProcedure
;-Procédure zik
Procedure Musique()   
   music=CatchMusic(#music,?musique,?fin_musique-?musique)
   If music
      ;SoundVolume(0,75)
      PlayMusic(#music)     
   EndIf
EndProcedure
;-procédure pour quitter
Procedure Quitter()
   FreeFont(#font)
   FreeSprite(0) ; pixel
   FreeMusic(#music) 
EndProcedure
;- Initialisations
If InitSprite()=0 Or InitKeyboard()=0 Or InitMouse()=0 Or InitSound()=0 Or UseOGGSoundDecoder()=0
   MessageRequester("Problème","Initialisations impossibles",0)
   End
EndIf
;-charge la fonte
LoadFont(#font,"Cooper Black",24,#PB_Font_HighQuality )
;-ouvre une fenetre
If OpenWindow (0,0,0,WindowW,WindowH, "The One Pixel Megademo" , #PB_Window_SystemMenu | #PB_Window_ScreenCentered )
   If OpenWindowedScreen (WindowID (0),0,0,WindowW,WindowH,1,0,0)
      
      ;- Boucle Principale
      ClearScreen (RGB(0,0,0))  
      
      musique()
      Repeat 
         ;-clavier et souris
         ExamineKeyboard()
         ExamineMouse()
         
         event=WaitWindowEvent(10)
         ;-on appelle les procédures
         
         guru()
         affiche_menu()
         pixel()
         
         FlipBuffers()
         ClearScreen(RGB(0,0,0))
         
      Until KeyboardPushed(#PB_Key_Escape)  Or event=#PB_Event_CloseWindow
      Quitter()
   EndIf
EndIf

End
;-Data
DataSection
   musique:
   IncludeBinary "XFILES2.s3m"
   fin_musique:

; Epb 

[Ar-S]

Très sympa cette partie 2.
Par contre le guru méditation tu devrais le mettre au lancement ou à la fin ou en transition entre 2 parties.. Là il n'est pas à sa place vu que tout marche

[raven]

Très sympa cette partie 2.
Par contre le guru méditation tu devrais le mettre au lancement ou à la fin ou en transition entre 2 parties.. Là il n'est pas à sa place vu que tout marche

Ce que j'ai fait sur Pure Miga

[Kwai chang caine]

Put...on s'croirait en boite ....
Jolie cette partie 2

[majikeyric]

Joli effet ! bravo