Blitz Basement

CODE LIBRARY >> STATIC SCREEN EFFECT

Contributed by The Change

This Code allows you to create a static effect on screen. Thanks to The Change for this code. Here is the code for the function:

;*********************************
;Static Screen Effect
;by The Change
;*********************************
;
Const ScreenSizeX = 800
Const ScreenSizeY = 600

; Each frame will be stretched by a factor of 2
Const FrameSizeX = 128
Const FrameSizeY = 128
Const Frames = 10
Graphics ScreenSizeX , ScreenSizeY , 0 , 2
timeswitch=MilliSecs()
Dim FrameImage( Frames )
SeedRnd MilliSecs ()
For Frame = 1 To Frames

;~~ Creating the image ~~
FrameImage( Frame ) = CreateImage ( FrameSizeX , FrameSizeY )
MidHandle FrameImage( Frame )
MaskImage FrameImage( Frame ) , 127 , 127 , 127

;~~ Drawing the static ~~
SetBuffer ImageBuffer ( FrameImage( Frame ) )
LockBuffer
For X = 0 To FrameSizeX-1
For Y = 0 To FrameSizeY-1
Grey = Rnd ( 255 )
WritePixelFast X , Y , Grey Shl 16 + Grey Shl 8 + Grey
Next
Next
UnlockBuffer

;~~ Stretching the image with filtering ~~
TFormFilter True
ScaleImage FrameImage( Frame ) , 2 , 2
Next
SetBuffer BackBuffer ()
Frame = 1
Repeat

;~~ Screen output ~~
TileBlock FrameImage( Frame ) , OffsetX , OffsetY
Flip

;~~ Next frame ~~
Frame = Frame + 1
If Frame > Frames Then Frame = 1

;~~ Changing position of tiles for added realism ~~
OffsetX = OffsetX + Rnd ( 100 )
OffsetY = OffsetY + Rnd ( 100 )
If OffsetX > ScreenSizeX Then OffsetX = OffsetX - ScreenSizeX
If OffsetY > ScreenSizeY Then OffsetY = OffsetY - ScreenSizeY
Until MilliSecs() > timeswitch + 4000
End