Dark Bit Factory & Gravity

PROGRAMMING => Other languages => Blitz => Topic started by: Dad1916 on July 12, 2006

Title: BlitzMax : Commodore 64 depacking screen[BMAX]
Post by: Dad1916 on July 12, 2006

(http://www.republika.pl/athanathos/images/c64/Loading.jpg)
Attached source code and .exe example.
Can the mod change this forums title from blitz basic to blitz Basic/Max/3d to reflect all the languages please!  :cheers:

Code: [Select]

'c64 random color loading demo
'Posted to DBF-GVY Demo Code Forum by DaD1916 scsicork@hotmail.com
'Draws
Strict

Graphics 800,600,32
HideMouse()

Repeat
Cls
C64Loading
Flip
Until KeyHit(KEY_ESCAPE)

End

Function C64Loading()
Local y=0,h
Repeat
If KeyHit(KEY_ESCAPE) End
h=Rand(5,60)
SetColor Rand(255),Rand(255),Rand(255)
DrawRect 0,y,GraphicsWidth(),h
y:+h
Until y>=GraphicsHeight()
End Function


Title: Re: BlitzMax : Commodore 64 depacking screen
Post by: Shockwave on July 12, 2006

That's a pretty authentic version of the effect :) Nice one, thanks for posting the source.