BlitzBasic Code Base

Try my new website: www.urcho.com - the new SIMPLE social network

CraZy Sticks by Captain Wicker

[back]

Author: Austin H. | Viewed: 62 times | Language: BlitzPlus | Category: 2D Effects

;************************************
;********** CRAZY - STICKS **********
;*** Small program written in b2d ***
;************************************

AppTitle("CraZy Sticks")
Graphics ((640),(480),(16),(2))
SetBuffer FrontBuffer()

Repeat
	
	RandomColor()
	
	Delay(250)
	
	Cls
	Flip
Until KeyDown(1)
End

;Make a drawing function! \/
Function RandomColor%()
	ClsColor (Rnd(255),Rnd(255),Rnd(255)) 
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
	Color (Rnd(255),Rnd(255),Rnd(255))
	Line (Rnd(640),Rnd(480),Rnd(640),Rnd(480))
End Function
;Finished!

Author Comments:

This is a very simple program written in the original Blitz Basic 2D. I hope to add a better example soon featuring for next statements. This code is for anyone to view and can be used in your own programs freely so long as I Captain Wicker am credited for my donation here first. I may be credited in the credits of your program or at startup, It really doenst matter. This wasnt actually written in Blitz Plus but in Blitz2D which obviously isnt listed. Hope this is alright. :)