Ooops
January 24, 2021, 12:54:24 PM

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

Offline BlitzBot

  • Jr. Member
  • **
  • Posts: 1
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


Comments :


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.


 

SimplePortal 2.3.6 © 2008-2014, SimplePortal