NewsForumsCodeLogsGallerySpecsSearch

Code archives/Graphics/CraZy Sticks!

This code has been declared by its author to be Public Domain code.

Download source code

CraZy Sticks! by Captain Wicker (crazy hillbilly)2011
This code demonstrates the usage of lines and background color within the old Blitz Basic 2D. This code by all means may be used in your own programs but please credit my original work by mentioning my nickname "Captain Wicker" in the credits. :) 
;************************************
;********** 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!

Comments

GfK2011
You might want to read up on For/next, repeat/until and while/wend.


Captain Wicker (crazy hillbilly)2011
Ok thanks GfK :)


Ethan2012
That was cool thanks cap.


Code Archives Forum