ça aussi c'est cool
Code : Tout sélectionner
; codé par Dobro
; effet d'eau
LoadFont(1, "arial", 50 ,#PB_Font_Italic )
Resultat = InitSprite()
Global angle,amplitude
amplitude=2
Texte.s="Pure Basic"
WindowID = OpenWindow(1, 50, 50, 640, 200, "hello", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget )
OpenWindowedScreen(WindowID, 0, 0, 640, 200, 1, 0, 0)
CreateImage(100, 640, 100)
StartDrawing( ImageOutput(100))
FrontColor(RGB($0,$FF,$FF))
BackColor(RGB(0, 0, 0))
DrawingFont(FontID(1))
DrawingMode(1)
DrawText(0,0,Texte.s)
StopDrawing()
For t=0 To 100
GrabImage(100, t, 0, t, 640,1)
Next t
Repeat
StartDrawing( ScreenOutput())
DrawingFont(FontID(1))
DrawingMode(1)
FrontColor(RGB($95,$25,$BA))
BackColor(RGB(0, 0, 0))
For Y= 0 To 100
DrawText(40,0,Texte.s)
angle+1 :If angle=360*10: angle=0 :EndIf
x+(Sin(angle*2*3.1415926/50)* amplitude)
DrawImage( ImageID(Y), x+Y, Y+50,640,1)
Next Y
StopDrawing()
FlipBuffers()
ClearScreen(RGB(0, 0, 0))
waitWindowEvent(2)
Until Event=#PB_Event_CloseWindow
Code : Tout sélectionner
; code Dobro
LoadFont (1, "arial" , 50 )
LoadFont (2, "arial" , 50 )
Resultat = InitSprite ()
Global angle,Amplitude
Amplitude=10
Texte.s= "Purebasic Power !"
WindowID = OpenWindow (1, 50, 50, 640, 200, "hello" , #PB_Window_SystemMenu|#PB_Window_MinimizeGadget )
WindowID = WindowID (1)
OpenWindowedScreen ( WindowID , 0, 0, 640, 200, 1, 0, 0)
CreateImage (100, 640, 100)
StartDrawing ( ImageOutput (100))
FrontColor ( RGB ($0,$FF,$FF))
BackColor ( RGB (0, 0, 0))
DrawingFont ( FontID (1))
DrawingMode (1)
DrawText (0,0,Texte.s)
StopDrawing ()
For t=0 To 100
GrabImage (100, t, 0, t, 640,1)
Next t
Repeat
For Y= 0 To 100
StartDrawing ( ScreenOutput ())
angle+1 : If angle=360*10: angle=0 : EndIf
x=1+( Sin (angle*2*3.1415926/50)* Amplitude)
DrawImage ( ImageID (Y), x+40, Y+20*x/25+50,640,1)
StopDrawing ()
dep+1 : If dep>640 :dep=-100: EndIf
Next Y
StartDrawing ( ScreenOutput ())
DrawingFont ( FontID (2))
DrawingMode (1)
FrontColor ( RGB ($95,$25,$BA))
BackColor ( RGB (0, 0, 0))
DrawText (40,0,Texte.s)
StopDrawing ()
FlipBuffers ()
ClearScreen ( RGB (0, 0, 0))
Event= WaitWindowEvent (100/60)
;Delay(1)
Until Event= #PB_Event_CloseWindow
Code : Tout sélectionner
; Code Dobro
LoadFont(1, "arial", 50 )
LoadFont(2, "arial", 50 )
Resultat = InitSprite()
Global angle,Amplitude
Amplitude=50
Texte.s="Purebasic Power !"
WindowID = OpenWindow(1, 50, 50, 640, 200, "hello", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget )
OpenWindowedScreen(WindowID, 0, 0, 640, 200, 1, 0, 0)
CreateImage(100, 640, 100)
StartDrawing( ImageOutput(100))
FrontColor(RGB($0,$FF,$FF))
BackColor(RGB(0, 0, 0))
DrawingFont(FontID(1))
DrawingMode(1)
DrawText(0,0,Texte.s)
StopDrawing()
For t=0 To 100
GrabImage(100, t, 0, t, 640,1)
Next t
Repeat
StartDrawing(ScreenOutput())
For Y= 0 To 100
angle+1 :If angle=360*10: angle=0 :EndIf
x=1+(1*Cos(angle*2*3.1415926/100)*Amplitude)+40
x1=1+(1*Sin(angle*2*3.1415926/100)*Amplitude)+40
DrawImage( ImageID(Y), x+40, x1+Y,640,1)
dep+1 :If dep>640 :dep=-100:EndIf
Next Y
StopDrawing()
FlipBuffers()
ClearScreen(RGB(0, 0, 0))
event=WaitWindowEvent(100/60)
;Delay(1)
Until event=#PB_Event_CloseWindow