Code archives/Graphics/Take Randomness to the next leval!
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
| I was board and had nothing to do so I made a really stupid program that lives off being random. Please tell me if it is actually any help to you so I can laugh my brains out. Click here to download current versions of all my codes and games including this one: http://n8r2k.deviousbytes.com/ -Update 1.02- Added random Applet Title | |||||
;A realy sad program ;By Supernatendo ;Really Pointless! ;Really Random! ;Really Stupid! SeedRnd MilliSecs() w = 1 l = 1 While Not KeyHit(1) Graphics w,l,16,2 w = Rand(100,800) l = Rand(100,600) m = Rand(1,2) Color Rand(0,255),Rand(0,255),Rand(0,255) Rect Rand(0,w),Rand(0,l),Rand(0,w),Rand(0,l),Rand(0,1) Color Rand(0,255),Rand(0,255),Rand(0,255) Rect Rand(0,w),Rand(0,l),Rand(0,w),Rand(0,l),Rand(0,1) Color Rand(0,255),Rand(0,255),Rand(0,255) Rect Rand(0,w),Rand(0,l),Rand(0,w),Rand(0,l),Rand(0,1) Color Rand(0,255),Rand(0,255),Rand(0,255) Rect Rand(0,w),Rand(0,l),Rand(0,w),Rand(0,l),Rand(0,1) Color Rand(0,255),Rand(0,255),Rand(0,255) Rect Rand(0,w),Rand(0,l),Rand(0,w),Rand(0,l),Rand(0,1) Color Rand(0,255),Rand(0,255),Rand(0,255) Rect Rand(0,w),Rand(0,l),Rand(0,w),Rand(0,l),Rand(0,1) Color Rand(0,255),Rand(0,255),Rand(0,255) Rect Rand(0,w),Rand(0,l),Rand(0,w),Rand(0,l),Rand(0,1) Color Rand(0,255),Rand(0,255),Rand(0,255) Rect Rand(0,w),Rand(0,l),Rand(0,w),Rand(0,l),Rand(0,1) Color Rand(0,255),Rand(0,255),Rand(0,255) Rect Rand(0,w),Rand(0,l),Rand(0,w),Rand(0,l),Rand(0,1) Color Rand(0,255),Rand(0,255),Rand(0,255) Rect Rand(0,w),Rand(0,l),Rand(0,w),Rand(0,l),Rand(0,1) Color Rand(0,255),Rand(0,255),Rand(0,255) Rect Rand(0,w),Rand(0,l),Rand(0,w),Rand(0,l),Rand(0,1) Color Rand(0,255),Rand(0,255),Rand(0,255) Rect Rand(0,w),Rand(0,l),Rand(0,w),Rand(0,l),Rand(0,1) Color Rand(0,255),Rand(0,255),Rand(0,255) Rect Rand(0,w),Rand(0,l),Rand(0,w),Rand(0,l),Rand(0,1) Color Rand(0,255),Rand(0,255),Rand(0,255) Rect Rand(0,w),Rand(0,l),Rand(0,w),Rand(0,l),Rand(0,1) Color Rand(0,255),Rand(0,255),Rand(0,255) Rect Rand(0,w),Rand(0,l),Rand(0,w),Rand(0,l),Rand(0,1) Color Rand(0,255),Rand(0,255),Rand(0,255) Text 0,0,"PRESS AND HOLD SPACE TO PAUSE" While KeyDown(57) Color Rand(0,255),Rand(0,255),Rand(0,255) Cls Text 0,0,"RELEASE SPACE TO RESUME" Flip Wend Delay(Rand(100,700)) Flip randnum = Rand(0,100000000000124124) AppTitle randnum Wend WaitKey() |
Comments
| ||
| Try closing it with the X - :) |
| ||
| Easy, closed it on 3rd try :P |
Code Archives Forum
   |