Try my new website:
www.urcho.com
- the new SIMPLE social network
Sign up
|
358
members |
125
snippets
Search for:
ALL
POPULAR
File Controls
Multiplayer Code
2D Effects
3D Effects
Oldskool demos
Basic Functions
Maths/Physics
Sound
Tutorials
Misc
Username:
Password:
Sign up
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. :)
Login or
create an account
to comment on this snippet