January 24, 2021, 12:54:24 PM

### Author Topic: [bb] Graphics / Sprite Generator by Nebula [ 1+ years ago ]  (Read 415 times)

#### BlitzBot

• Jr. Member
• Posts: 1
##### [bb] Graphics / Sprite Generator by Nebula [ 1+ years ago ]
« on: June 29, 2017, 12:28:39 AM »
Title : Graphics / Sprite Generator
Author : Nebula
Posted : 1+ years ago

Description : Graphics / Sprite Generator.

Smart placed pixel dirt. Smart shaping. Smart placing. Smart color placing. Smart light placing.

Shop products
Bonus products

Code :
Code: BlitzBasic
1. Graphics 640,480,32,2
2. SetBuffer BackBuffer()
3.
4. ClsColor 40,40,10
5. Cls
6. While KeyDown(1) = False
7.         Cls
8.
9.         zz=0
10.         z = Rand(10,90)
11.         x = Rand(-25,GraphicsWidth())
12.         y = Rand(-25,GraphicsHeight())
13.         If Rand(1,2) = 1 Then
14.                 q1 = 15
15.                 q2 = 55
16.                 Else
17.                 q1 = 5
18.                 q2 = 55
19.         End If
20.
21.         sx = Rand(4,q1);55
22.         sy = Rand(4,q2)
23.
24.         While zz < 360
25.
26.                 tmp = CreateImage(32,32)
27.                 SetBuffer ImageBuffer(tmp)
28.                 Color 237+Rand(-25,25),185+Rand(-38,8),163+Rand(-98,8)
29.                 Oval 0,0,20,20,True
30.                 Oval 5,10,10,20,True
31.                 Rect 0,0,10,10,True
32.
33.                 aa = Abs(255-ColorRed())
34.                 Color ColorRed()+aa,ColorGreen()+aa,ColorBlue()+aa
35.                 Oval 3,3,12,12,True
36.
37.                 For x1=0 To 32 Step 3
38.                 For y1=0 To 32 Step 3
39.                         GetColor x1,y1
40.
41.                         zr = ColorRed()*2
42.                         zg = ColorGreen()*2
43.                         zb = ColorBlue()*2
44.
45.                         If zr>255 Then zr = 255
46.                         If zg>255 Then zg = 255
47.                         If zb>255 Then zb = 255
48.
49.                         Color zr,zg,zb
50.
51.                         Plot x1,y1
52.                 Next:Next
53.
54.                 SetBuffer BackBuffer()
55.                 TFormFilter 1
56.                 If Rand(1,2) = 1 Then
57.                         ResizeImage tmp,sx/2,sy
58.                         Else
59.                         ResizeImage tmp,sx,sy
60.                 End If
61.                 HandleImage tmp,sx/2,sy/2
62.                 RotateImage     tmp,zz
63.
64.                 For qqq= 0 To 4
65.                 x1a = Rand(500)
66.                 y1a = Rand(300)
67.
68.                 For i=0 To 24
69.                         If i<2 Then
70.                         DrawImage tmp,Rand(GraphicsWidth()),Rand(GraphicsHeight())
71.                         Else
72.                         x1 = Cos(ia#)*32
73.                         y1 = Sin(ia)*32
74.                         ia=ia+1
75.                         If ia>360 Then ia = 0
76.                         DrawImage tmp,x1+x1a,y1+y1a
77.                         End If
78.                 Next
79.
80.                 Next
81.                 If cnt > 50 Then Cls  : cnt = 0
82.                 Flip 1200
83.                 FreeImage tmp
84.                 zz=zz+z
85.         Wend
86.
87.         cnt=cnt+11
88.         Flip
89.
90. Wend
91. End

puki(Posted 1+ years ago)

I already have this - I found it on your computer with the rest of the stuff you probably intend to post.

Snarkbait(Posted 1+ years ago)

is this a joke?oops, sorry, didn't consider the sourceyou put the 'special' in special forums.