Twinkling background

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|548\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Graphical Effects

Jayenkai	Created : 16 March 2007 Language : Blitz Twinkling background Water effect..
Nice and easy effect for putting "good enough!" animated water into your backgrounds. (You could probably tweak this to do starfields and other things, too) The water is tiled to the screen, then everything else is drawn over the top. Graphics 800,600,32,2 SetBuffer BackBuffer() Global water=CreateImage(64,64) Global wt,wx,wy ;Prerender lots of water, so there's no black spots For n=1 To 250 dowater() Next Repeat Cls dowater() Color 0,80,0 Rect 0,0,800,300,1 Rect 0,340,400,300,1 Rect 440,300,400,300,1 Flip If KeyDown(1) Then endofgame=99 Until endofgame<>0 Function DoWater() wt=wt+1 If wt=8 Or wt=16 Then wx=wx-1 If wx=-64 Then wx=0 If wt=16 Then wy=wy-1:wt=1 If wy=-64 Then wy=0 SetBuffer ImageBuffer(water) For n=0 To 128 Color Rand(50,80),Rand(80,120),Rand(200,250) Plot Rand(0,63),Rand(0,63) Next SetBuffer BackBuffer() TileImage water,wx,wy End Function --v

Comments
Friday, 16 March 2007, 09:10
power mousey	thank you, jay I will try these twinking water drops out. I'd rather have my Spring Water delievered. delivery.myspringwater.com/delivery/gateway.aspx?CMP=KNC-SRCH_GGL_WTR I'll try the code out too. promise. cheers, power mousey

Comments