Try my new website:
www.urcho.com
- the new SIMPLE social network
Sign up
|
357
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
Land generator
[
back
]
Author:
Nebula
| Viewed:
1138
times | Language:
BlitzPlus
| Category:
Misc
; Land generator - Crom design ; Random colored blocks ; Image Rotation Graphics 640,480,16,2 SetBuffer BackBuffer() Global mim = CreateImage(50,50) SetBuffer ImageBuffer(mim) For y=0 To 50 Step 5 For x=0 To 50 Step 5 Select Rand(0,2) Case 0 Color 0,0,0 Case 1 Color 144,255,0 Case 2 Color 0,255,0 End Select Rect x,y,5,5,True Next Next SetBuffer BackBuffer() TFormFilter False MidHandle mim For i=0 To 25 : RotateImage mim,Rand(-12,12) : Next While KeyDown(1) = False Cls DrawBlock mim,110,110 Flip Wend End
Author Comments:
Land generator (or brush generator)
Login or
create an account
to comment on this snippet
