PureBasic Forums - English

Code: Select all

Global Dim a_PAL(15) ; pepto palette
a_PAL(0) = $000000
a_PAL(1) = $FFFFFF
a_PAL(2) = $2B3768
a_PAL(3) = $B2A470
a_PAL(4) = $863D6F
a_PAL(5) = $438D58
a_PAL(6) = $792835
a_PAL(7) = $6FC7B8
a_PAL(8) = $254F6F
a_PAL(9) = $003943
a_PAL(10) = $59679A
a_PAL(11) = $444444
a_PAL(12) = $6C6C6C
a_PAL(13) = $84D29A
a_PAL(14) = $B55E6C
a_PAL(15) = $959595

If InitSprite()
	If OpenWindow(0, 0, 0, 820, 620, "Old School Decrunch Effect...", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_ScreenCentered)
		If OpenWindowedScreen(WindowID(0), 10, 10, 800, 600, #True, 10, 10, #PB_Screen_NoSynchronization) ; x, y position, width, height, autostretch
			If CreateSprite(1,ScreenWidth(),256*2)
				If StartDrawing(SpriteOutput(1))
						For y = 0 To OutputHeight()-2 Step 2
							Box(0,y,OutputWidth(),2,a_pal(Random(15)))
						Next y
					StopDrawing()
				EndIf
				
				Repeat
					Repeat
						MyEvent = WindowEvent()
						If MyEvent = #PB_Event_CloseWindow
							Quit = #True
							Break
						EndIf
					Until MyEvent = 0
					
					FlipBuffers()
					If IsScreenActive()
						ClearScreen(0)
						
						For a = 0 To ScreenHeight()-1 Step 4
							x=0
							While x<ScreenWidth()
								length = Random(ScreenWidth()/8)
								ClipSprite(1,0,Random(256)*2,length,2)
								DisplaySprite(1,x,a)
								x+length
							Wend
						Next a
					StopDrawing()
					Delay(Random(100))
					
				EndIf
			Until Quit = #True
		EndIf
	EndIf
EndIf
EndIf

Code: Select all

ResizeWindow(0,#PB_Ignore,#PB_Ignore,#PB_Ignore,#PB_Ignore)