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
.
moi j'aime bien ! 
