REM ***********************************************
REM Title: Fire star
REM Author: unknown
REM Downloaded from: http://dbcc.zimnox.com/
REM ***********************************************
 
set display mode 640, 480, 16
sync on
hide mouse
autocam off
 
position camera 0, 0, -40
point camera 0, 0, 0
 
dim a1#(32)
dim a2#(32)
dim a3#(32)
 
w# = 256
v1# = rnd(1000) - 500
v1# = v1# / 250
v2# = rnd(1000) - 500
v2# = v2# / 250
 
create bitmap 1, 256, 256
 
for n = 1 to 32
   n1 = 33 - n
   w# = w# - 8
   f# = 10
   f# = f# / (9+n)
   z# = w#
   z# = z# * f#
   z# = z# / 2
   cls 0
   ink rgb(255, 8*n, 0), 0
   box 128-z#, 128-z#, 128+z#, 128+z#
   get image n, 0, 0, 256, 256
   make object cube n, 9+n
   texture object n, n
   set object n, 1, 0, 0
next n
 
do
   for n = 31 to 1 step -1
      a1#(n+1) = a1#(n)
      a2#(n+1) = a2#(n)
      a2#(n+1) = a2#(n)
   next n
 
   if rnd(100) > 95
      v1# = rnd(1000) - 500
      v1# = v1# / 250
   endif
   if rnd(100) > 95
      v2# = rnd(1000) - 500
      v2# = v2# / 250
   endif
 
   a1#(1) = wrapvalue(a1#(1) + v1#)
   a2#(1) = wrapvalue(a2#(1) + v2#)
 
   for n = 1 to 32
      rotate object n, a1#(n), a2#(n), 0
   next n
 
   sync
loop