Sorry your browser is not supported!

Rem Project: hello World
Rem Created: Tuesday, December 07, 2010

Rem ***** Main Source File *****
set display mode 800,600,32,1
sync on
autocam off
backdrop off
set text font \\\\\\\"Arial\\\\\\\"
x=screen width()/2
y=screen height()/2
set text size 10
hello$=\\\\\\\"*Hello World!*\\\\\\\"
message$=\\\\\\\"I know you\\\\\\\'re out there.  I can feel you now.  I know that you\\\\\\\'re afraid.  You\\\\\\\'re afraid\\\\\\\"
message2$=\\\\\\\"of us.  You\\\\\\\'re afraid of change.  I don\\\\\\\'t know the future.  I didn\\\\\\\'t come here to tell\\\\\\\"
message3$=\\\\\\\"you how this is going to end.  I came here to tell you how it\\\\\\\'s going to begin.\\\\\\\"
message4$=\\\\\\\"I\\\\\\\'m going to hang up this phone, and then I\\\\\\\'m going to show these people what\\\\\\\" 
message5$=\\\\\\\"you don\\\\\\\'t want them to see. I\\\\\\\'m going to show them a world....without you.\\\\\\\"
message6$=\\\\\\\"A world without rules and controls.  Without borders or boundaries.\\\\\\\"
message7$=\\\\\\\"A world where anything is possible.  Where we go from there, is a\\\\\\\"
message8$=\\\\\\\"choice I leave to you.\\\\\\\"

ink rgb(0,255,0),rgb(0,0,0)
cls rgb(0,220,0)
length=len(hello$)
length2=len(message$)
length3=len(message2$)
length4=len(message3$)
length5=len(message4$)
length6=len(message5$)
length7=len(message6$)
length8=len(message7$)
length9=len(message8$)

for xpos= 0 to x*2 step 14
    
ink rgb(0,rnd(100)+150,0),rgb(0,0,0)
for ypos= 0 to y*2 step (16*length)
    for count= 1 to length
        a$=mid$(hello$,count) 
        text xpos,ypos+(count*16),a$
    next count
next ypos    
next xpos
count=0
for column=0 to 49
    inc count
    get image count,column*16,0,(column*16)+16,600
    make object plane count,14,600
    texture object count,count
    position object count,column*14,0,0
next xpos1

position camera 240,0,-300
count=0
speed#=0
set text size 25
ink rgb(255,255,255),0
gosub playsound
do

for column=0 to 49
    inc count
    if count<25
        inc speed#,.05
        else
        dec speed#,.05
    ENDIF
    scroll object texture count,0,-0.001*speed#
next xpos1

if count>=50
    count=0
endif

inc typecount
if endline=0
if typecount>=5
    typecount=0
    inc letter
    b$=mid$(message$,letter)
    text$=text$+b$
    if letter=length2
    message$=message2$
    endline=1
    letter=0
    endif
endif
endif

if endline=1
if typecount>=5
    typecount=0
    inc letter
    b$=mid$(message$,letter)
    text2$=text2$+b$
    if letter=length3
    message$=message3$
    endline=2
    letter=0
    endif
endif
endif

if endline=2
if typecount>=5
    typecount=0
    inc letter
    b$=mid$(message$,letter)
    text3$=text3$+b$
    if letter=length4
    message$=message4$
    endline=3
    letter=0
    endif
endif
endif

if endline=3
if typecount>=5
    typecount=0
    inc letter
    b$=mid$(message$,letter)
    text4$=text4$+b$
    if letter=length5
    message$=message5$
    endline=4
    letter=0
    endif
endif
endif

if endline=4
if typecount>=5
    typecount=0
    inc letter
    b$=mid$(message$,letter)
    text5$=text5$+b$
    if letter=length6
    message$=message6$
    endline=5
    letter=0
    endif
endif
endif

if endline=5
if typecount>=5
    typecount=0
    inc letter
    b$=mid$(message$,letter)
    text6$=text6$+b$
    if letter=length7
    message$=message7$
    endline=6
    letter=0
    endif
endif
endif

if endline=6
if typecount>=5
    typecount=0
    inc letter
    b$=mid$(message$,letter)
    text7$=text7$+b$
    if letter=length8
    message$=message8$
    endline=7
    letter=0
    endif
endif
endif

if endline=7
if typecount>=5
    typecount=0
    inc letter
    b$=mid$(message$,letter)
    text8$=text8$+b$
    if letter=length9
    message$=message8$
    endline=8
    letter=0
    endif
endif
endif

text 0,0,text$
text 0,24,text2$
text 0,48,text3$
text 0,72,text4$

text 0,96,text5$
text 0,120,text6$
text 0,144,text7$
text 0,168,text8$

sync
LOOP


playsound:
d=1080000
dim sound(d)
for n= 0 to d
    read a
sound(n)=a
next n

make memblock from array 1,sound(0)
make sound from memblock 1,1
delete memblock 1
play sound 1

return

Rem ***** Main Source File *****
Rem Bill Robinson
Rem 12-9-10
Rem LED Cube simulation
Rem still a WIP, not too practical though too many 3D objects

set display mode desktop width(),desktop height(),32,1
sync on
sync rate 0
sync
autocam off
color backdrop 0 
set text opaque
set ambient light 10
hide mouse

value=rgb(0,255,0)
#constant cGreen value

set text font "ARIEL"
set text size 8
t1$="HELLO"
t2$="WORLD"

w1=text width(t1$)
w2=text width(t2$)
h1=text height(t1$)
h2=text height(t2$)
h=h1+h2
if w1>w2 then w=w1 else w=w2

global numrows=h
global numcols=w
global numslices=15

`set up 3-dimensional arrays to simulate LEDs cube
`used to be a larger cube, too many objects though
dim led(numslices,numrows,numcols+1)
dim ledobj(numslices,numrows,numcols+1)
dim ledx(numslices,numrows,numcols+1)
dim ledy(numslices,numrows,numcols+1)
dim ledz(numslices,numrows,numcols+1)
dim ledcolor#(numslices,numrows,numcols+1)

dim templed(numslices,numrows,numcols+1)
dim templedcolor#(numslices,numrows,numcols+1)

global spacing=8
global cubesize=2
global slice
global objptr=0
global LEDofflevel=50


`print text to screen and scan pixels
cls
set cursor 1,0
print t1$
set cursor 2,h1
print t2$
lock pixels
for row=0 to h
   for col=0 to w
`      pixels(col,row)=RGBG(POINT(col,row))
      v=RGBG(POINT(col,row))
      if v>0
         led(1,numrows-row,col)=1            :`save a pixel bitmap of the text in the array, in slice 1
      endif
   next col
next row
unlock pixels
set text size 14

`setup cube objects in box formation
xcols=0
yrows=0
zslices=0
global ledcolor#
ledcolor#=rgb(255,255,255)

position camera 300,300,-200
point camera 200,50,200

for i=1 to numslices          :`z component
   set cursor 0,0
   print "Building Cube Slices...(";i;" of ";numslices;")"
   sync

   for j=1 to numrows         :`y component
      for k=1 to numcols+1      :`x component
         inc objptr
         if objptr=1
            make object cube objptr,cubesize
         else
            clone object objptr,1
         endif
         position object objptr,xcols,yrows,zslices
         color object objptr,rgb(0,0,LEDofflevel)
         ghost object on objptr
         ledobj(i,j,k)=objptr
         ledx(i,j,k)=xcols
         ledy(i,j,k)=yrows
         ledz(i,j,k)=zslices
         ledcolor#(i,j,k)=ledcolor#
         inc xcols,spacing
      next k
      inc yrows,spacing
      xcols=0
   next j
   inc zslices,spacing
   yrows=0
next i


position camera 300,300,-200
point camera 200,50,200

`debug camera position
`position camera -150,200,-200     :`was 300,300,-200
`point camera 200,50,200

`turn LEDs on with text pattern stored in array
_light_active_LEDs()
sync

`countdown=numrows+1
`animtype=1
`maxanims=3
`slice=5
countdown=numcols*2+numslices*2-4
animtype=3
maxanims=3
slice=1

sync rate 30
t1=timer()

do
`wait key
`wait 100
   t2=timer()-t1
   if t2>50      
      `alternate between the 2 animation types - Up or BACK movement
      select animtype
         case 1
            _move_active_LEDs_UP(slice)
            dec countdown       
            if countdown<=0
               countdown=5+rnd(numslices)
               inc animtype
            endif 
         endcase
      
         case 2
            _move_active_LEDs_BACK() 
            dec countdown       
            if countdown<=0
               countdown=(numcols*2)+((numslices-slice)*2)-4
               inc animtype
            endif                  
            inc slice
            if slice>numslices then slice=1
         endcase
         
         case 3
            if slice<numslices         :`can't wrap text around only 1 (last) slice of cube
               _move_active_LEDs_Around_Outside(slice)
               dec countdown       
               if countdown<=0
                  countdown=numrows `numslices  :`5+rnd(numslices)
                  inc animtype
               endif 
            else
               countdown=numrows `numslices  :`5+rnd(numslices)
               inc animtype
            endif
         endcase
      endselect

      if animtype>maxanims then animtype=1
      
      _light_active_LEDs()
      t1=timer()
   endif

   set cursor 0,0
   print "fps=";screen fps()
   print "#objects=";objptr
   print "animtype=";animtype
   print "slice=";slice
   print "countdown=";countdown
   sync
loop
end


`turn LEDs on with text pattern stored in array
function _light_active_LEDs()
for i=1 to numslices
   for j=1 to numrows
      for k=1 to numcols
         if led(i,j,k)=1
            color object ledobj(i,j,k),ledcolor#
         else
            color object ledobj(i,j,k),rgb(0,0,LEDofflevel)
         endif
      next k
   next j
next i
endfunction


`scroll LEDs up in a given Z-slice of the cube
function _move_active_LEDs_UP(slice)
`save the top row pattern to a temp array
for t=1 to numcols
   templed(slice,numrows,t)=led(slice,numrows,t)
   templedcolor#(slice,numrows,t)=ledcolor#(slice,numrows,t)
next t
`shift the row patterns up a row
for k=slice to slice
   for i=numrows to 2 step -1
      for j=numcols to 1 step -1
         led(k,i,j)=led(k,i-1,j)
         ledcolor#(k,i,j)=ledcolor#(k,i-1,j)
      next j
   next i
next k
`restore the top row pattern to the bottom row of the slice in the cube
for t=1 to numcols
   led(slice,1,t)=templed(slice,numrows,t)
   ledcolor#(slice,1,t)=templedcolor#(slice,numrows,t)
next t
endfunction


`shift all the slices back one slice in Z direction
function _move_active_LEDs_BACK()
`save the back slice to a temp array
for i=1 to numrows
   for j=1 to numcols
      templed(numslices,i,j)=led(numslices,i,j)
      templedcolor#(numslices,i,j)=ledcolor#(numslices,i,j)
   next j
next i
`move all the patterns back to the next slice behind itself
for i=numslices to 1 step -1
   for j=1 to numrows
      for k=1 to numcols
         led(i,j,k)=led(i-1,j,k)
         ledcolor#(i,j,k)=ledcolor#(i-1,j,k)
      next k
   next j
next i
`restore the back pattern to the front slice
for i=1 to numrows
   for j=1 to numcols
      led(1,i,j)=templed(numslices,i,j)
      ledcolor#(1,i,j)=templedcolor#(numslices,i,j)
   next j
next i
endfunction




`wrap text around outside of cube
`slice = verticle slice through cube, slice 1 is front slice
function _move_active_LEDs_Around_Outside(slice)

`save LED patters in temp array
_store_ledinfo()

`shift the front slice patterns left 1 column each time through loop
for k=slice to slice
   for i=1 to numrows
      for j=1 to numcols-1
         led(k,i,j)=templed(k,i,j+1)
         ledcolor#(k,i,j)=templedcolor#(k,i,j+1)
      next j
   next i
next k

`shift the left side patterns back 1 slice each time through loop
for k=numslices to slice+1 step -1
   for i=1 to numrows
      for j=1 to 1
         led(k,i,j)=templed(k-1,i,j)
         ledcolor#(k,i,j)=templedcolor#(k-1,i,j)
      next j
   next i
next k

`shift the back slice patterns right 1 column each time through loop
for k=numslices to numslices
   for i=1 to numrows
      for j=numcols to 2 step -1
         led(k,i,j)=templed(k,i,j-1)
         ledcolor#(k,i,j)=templedcolor#(k,i,j-1)
      next j
   next i
next k

`shift the right side patterns forward 1 slice each time through loop
for k=slice to numslices-1
   for i=1 to numrows
      for j=numcols to numcols
         led(k,i,j)=templed(k+1,i,j)
         ledcolor#(k,i,j)=templedcolor#(k+1,i,j)
      next j
   next i
next k

endfunction





function _store_ledinfo()
for i=1 to numslices
   for j=1 to numrows
      for k=1 to numcols
         templed(i,j,k)=led(i,j,k)
         templedcolor#(i,j,k)=ledcolor#(i,j,k)
      next k
   next j
next i

endfunction

Rem ***** Main Source File *****
Rem Bill Robinson
Rem 12-9-10
Rem LED Cube simulation
Rem still a WIP, not too practical though too many 3D objects

set display mode desktop width(),desktop height(),32,1
sync on
sync rate 0
sync
autocam off
color backdrop 0 
set text opaque
set ambient light 10
hide mouse

value=rgb(0,255,0)
#constant cGreen value

set text font "ARIEL"
set text size 8
t1$="HELLO"
t2$="WORLD"

w1=text width(t1$)
w2=text width(t2$)
h1=text height(t1$)
h2=text height(t2$)
h=h1+h2
if w1>w2 then w=w1 else w=w2

global numrows=h
global numcols=w
global numslices=15

`set up 3-dimensional arrays to simulate LEDs cube
`used to be a larger cube, too many objects though
dim led(numslices,numrows,numcols+1)
dim ledobj(numslices,numrows,numcols+1)
dim ledx(numslices,numrows,numcols+1)
dim ledy(numslices,numrows,numcols+1)
dim ledz(numslices,numrows,numcols+1)
dim ledcolor#(numslices,numrows,numcols+1)

dim templed(numslices,numrows,numcols+1)
dim templedcolor#(numslices,numrows,numcols+1)

global spacing=8
global cubesize=4
global slice
global objptr=0
global LEDofflevel=75


`print text to screen and scan pixels
cls
set cursor 1,0
print t1$
set cursor 2,h1
print t2$
lock pixels
for row=0 to h
   for col=0 to w
`      pixels(col,row)=RGBG(POINT(col,row))
      v=RGBG(POINT(col,row))
      if v>0
         led(1,numrows-row,col)=1            :`save a pixel bitmap of the text in the array, in slice 1
      endif
   next col
next row
unlock pixels
set text size 14

`setup cube objects in box formation
xcols=0
yrows=0
zslices=0
global ledcolor#
ledcolor#=rgb(255,255,0)
create bitmap 1,4,4
 box 0,0,4,4,ledcolor#,ledcolor#,ledcolor#,ledcolor#
 get image 1,1,1,2,2
delete bitmap 1
set current bitmap 0

position camera 300,100,-200
point camera 100,50,100

for i=1 to numslices          :`z component
   set cursor 0,0
   print "Building Cube Slices...(";i;" of ";numslices;")"
   sync

   for j=1 to numrows         :`y component
      for k=1 to numcols+1      :`x component
         inc objptr
         if objptr=1
            make object sphere objptr,cubesize*2,2,2
         else
            clone object objptr,1
         endif
         position object objptr,xcols,yrows,zslices
         color object objptr,rgb(0,0,LEDofflevel)
         ghost object on objptr
         ledobj(i,j,k)=objptr
         ledx(i,j,k)=xcols
         ledy(i,j,k)=yrows
         ledz(i,j,k)=zslices
         ledcolor#(i,j,k)=ledcolor#
         inc xcols,spacing
      next k
      inc yrows,spacing
      xcols=0
   next j
   inc zslices,spacing
   yrows=0
next i


position camera 300,100,-200
point camera 100,50,100

`debug camera position
`position camera -150,200,-200     :`was 300,300,-200
`point camera 200,50,200

`turn LEDs on with text pattern stored in array
_light_active_LEDs()
sync

`countdown=numrows+1
`animtype=1
`maxanims=3
`slice=5
countdown=numcols*2+numslices*2-4
animtype=3
maxanims=3
slice=1

sync rate 66
t1=timer()

do
`wait key
`wait 100
   t2=timer()-t1
   if t2>50      
      `alternate between the 2 animation types - Up or BACK movement
      select animtype
         case 1
            _move_active_LEDs_UP(slice)
            dec countdown       
            if countdown<=0
               countdown=5+rnd(numslices)
               inc animtype
            endif 
         endcase
      
         case 2
            _move_active_LEDs_BACK() 
            dec countdown       
            if countdown<=0
               countdown=(numcols*2)+((numslices-slice)*2)-4
               inc animtype
            endif                  
            inc slice
            if slice>numslices then slice=1
         endcase
         
         case 3
            if slice<numslices         :`can't wrap text around only 1 (last) slice of cube
               _move_active_LEDs_Around_Outside(slice)
               dec countdown       
               if countdown<=0
                  countdown=numrows `numslices  :`5+rnd(numslices)
                  inc animtype
               endif 
            else
               countdown=numrows `numslices  :`5+rnd(numslices)
               inc animtype
            endif
         endcase
      endselect

      if animtype>maxanims then animtype=1
      
      _light_active_LEDs()
      t1=timer()
   endif

   set cursor 0,0
   print "fps=";screen fps()
   print "#objects=";objptr
   print "animtype=";animtype
   print "slice=";slice
   print "countdown=";countdown
   sync
loop
end


`turn LEDs on with text pattern stored in array
function _light_active_LEDs()
for i=1 to numslices
   for j=1 to numrows
      for k=1 to numcols
         if led(i,j,k)=1
            `color object ledobj(i,j,k),ledcolor#
            set object light ledobj(i,j,k),0
            texture object ledobj(i,j,k),1
         else
            texture object ledobj(i,j,k),0
            set object light ledobj(i,j,k),1
            color object ledobj(i,j,k),rgb(0,0,LEDofflevel)
         endif
      next k
   next j
next i
endfunction


`scroll LEDs up in a given Z-slice of the cube
function _move_active_LEDs_UP(slice)
`save the top row pattern to a temp array
for t=1 to numcols
   templed(slice,numrows,t)=led(slice,numrows,t)
   templedcolor#(slice,numrows,t)=ledcolor#(slice,numrows,t)
next t
`shift the row patterns up a row
for k=slice to slice
   for i=numrows to 2 step -1
      for j=numcols to 1 step -1
         led(k,i,j)=led(k,i-1,j)
         ledcolor#(k,i,j)=ledcolor#(k,i-1,j)
      next j
   next i
next k
`restore the top row pattern to the bottom row of the slice in the cube
for t=1 to numcols
   led(slice,1,t)=templed(slice,numrows,t)
   ledcolor#(slice,1,t)=templedcolor#(slice,numrows,t)
next t
endfunction


`shift all the slices back one slice in Z direction
function _move_active_LEDs_BACK()
`save the back slice to a temp array
for i=1 to numrows
   for j=1 to numcols
      templed(numslices,i,j)=led(numslices,i,j)
      templedcolor#(numslices,i,j)=ledcolor#(numslices,i,j)
   next j
next i
`move all the patterns back to the next slice behind itself
for i=numslices to 1 step -1
   for j=1 to numrows
      for k=1 to numcols
         led(i,j,k)=led(i-1,j,k)
         ledcolor#(i,j,k)=ledcolor#(i-1,j,k)
      next k
   next j
next i
`restore the back pattern to the front slice
for i=1 to numrows
   for j=1 to numcols
      led(1,i,j)=templed(numslices,i,j)
      ledcolor#(1,i,j)=templedcolor#(numslices,i,j)
   next j
next i
endfunction




`wrap text around outside of cube
`slice = verticle slice through cube, slice 1 is front slice
function _move_active_LEDs_Around_Outside(slice)

`save LED patters in temp array
_store_ledinfo()

`shift the front slice patterns left 1 column each time through loop
for k=slice to slice
   for i=1 to numrows
      for j=1 to numcols-1
         led(k,i,j)=templed(k,i,j+1)
         ledcolor#(k,i,j)=templedcolor#(k,i,j+1)
      next j
   next i
next k

`shift the left side patterns back 1 slice each time through loop
for k=numslices to slice+1 step -1
   for i=1 to numrows
      for j=1 to 1
         led(k,i,j)=templed(k-1,i,j)
         ledcolor#(k,i,j)=templedcolor#(k-1,i,j)
      next j
   next i
next k

`shift the back slice patterns right 1 column each time through loop
for k=numslices to numslices
   for i=1 to numrows
      for j=numcols to 2 step -1
         led(k,i,j)=templed(k,i,j-1)
         ledcolor#(k,i,j)=templedcolor#(k,i,j-1)
      next j
   next i
next k

`shift the right side patterns forward 1 slice each time through loop
for k=slice to numslices-1
   for i=1 to numrows
      for j=numcols to numcols
         led(k,i,j)=templed(k+1,i,j)
         ledcolor#(k,i,j)=templedcolor#(k+1,i,j)
      next j
   next i
next k

endfunction





function _store_ledinfo()
for i=1 to numslices
   for j=1 to numrows
      for k=1 to numcols
         templed(i,j,k)=led(i,j,k)
         templedcolor#(i,j,k)=ledcolor#(i,j,k)
      next k
   next j
next i

endfunction

maximize window
sync on
sync rate 60
x=25
y=50
flash=0
ink rgb(50,0,255),rgb(0,0,0)
do
  //H
  x=25
  for y=50 to 100 step 1
    dot x,y
    sync
  next y
  y=75
  for x=25 to 50 step 1
    dot x,y
    sync
  next x
  x=50
  for y=50 to 100 step 1
    dot x,y
    sync
  next 
  //E
  x=60
  for y=50 to 100 step 1
    dot x,y
    sync
  next y
  y=50
  for x=60 to 85 step 1
    dot x,y
    sync
  next x
  y=75
  for x=60 to 85 step 1
    dot x,y
    sync
  next x
  y=100
  for x=60 to 85 step 1
    dot x,y
    sync
  next x
  //L
  x=95
  for y=50 to 100 step 1
    dot x,y
    sync
  next y
  for x=95 to 120 step 1
    dot x,y
    sync
  next x
  //L
  x=130
  for y=50 to 100 step 1
    dot x,y
    sync
  next y
  for x=130 to 155 step 1
    dot x,y
    sync
  next x
  //O
  x=165
  y=50
  for x=165 to 190 step 1
    dot x,y
    sync
  next x
  for y=50 to 100 step 1
    dot x,y
    sync
  next y
  for x=190 to 165 step -1
    dot x,y
    sync
  next x
  for y=100 to 50 step -1
    dot x,y
    sync
  next y
  //W
  x=225
  y=50
  for y=50 to 100 step 1
    dot x,y
    sync
  next y
  x=237
  for y=50 to 100 step 1
     dot x,y
     sync
  next y
  x=250
  for y=50 to 100 step 1
    dot x,y
    sync
  next y
  y=101
  for x=225 to 250 step 1
    dot x,y
    sync
  next x
  //O
  x=260
  y=50
  for x=260 to 285 step 1
    dot x,y
    sync
  next x
  for y=50 to 100 step 1
    dot x,y
    sync
  next y
  for x=285 to 260 step -1
    dot x,y
    sync
  next x
  for y=100 to 50 step -1
    dot x,y
    sync
  next y
  //R
  x=295
  y=50
  for y=100 to 50 step -1
    dot x,y
    sync
  next y
  for x=295 to 320 step 1
    dot x,y
    sync
  next x
  for y=50 to 75 step 1
    dot x,y
    sync
  next y
  for x=320 to 295 step -1
    dot x,y
    sync
  next x
  for x=295 to 320 step 1
    inc y,1
    dot x,y
    sync
  next x
  //L
  x=330
  for y=50 to 100 step 1
    dot x,y
    sync
  next y
  for x=330 to 355 step 1
    dot x,y
    sync
  next x
  //D
  x=365
  y=50
  for y=100  to 51 step -1
    dot x,y
    sync
  next y
  for x=365 to 385 step 1
    dot x,y
    sync
  next x
  for x=385 to 390 step 1
    inc y,1
    dot x,y
    sync
  next x
  for y=57 to 95 step 1
    dot x,y
    sync
  next x
  for x=390 to 385 step -1
    inc y,1
    dot x,y
    sync
  next x
  for x=385 to 366 step -1
    dot x,y
    sync
  next x
  //!
  x=400
  y=50
  for y=50 to 80 step 1
    dot x,y
    sync
  next y
  for y=90 to 100 step 1
    dot x,y
    sync
  next y
  get image 1,0,0,screen width(),screen height(),1
  gosub flash
loop
flash:
  for flash=1 to 4 step 1
    wait 500
    cls rgb(0,0,0)
    sync
    wait 500
    paste image 1,0,0
    sync
  next flash
  wait 500
  cls rgb(0,0,0)
return

REM - Flat LED Hello

color backdrop 0

sync on : sync rate 0

set text size 64

hello$ = "HELLO WORLD"
for i=1 to len(hello$)
    GetLetter(mid$(hello$,i), i)
    make object plain i,10,10
    texture object i,i
    set object transparency i, 2
    set object ambient i, 0
next i

for x=1 to 11
    position object x, x*11-65, 0, 0
next x

position camera -60,0,-60
point camera -20,0,0

oldTime = timer()
do
    difTime = timer() - oldTime
    oldTime = timer()
    
    for i=1 to 11
        turn object right i, 0.1 * difTime
    next i
    control camera using arrowkeys 0,0.01,0.01
    sync
loop

function GetLetter(letter as string, img as integer)
    cls 0
    ink rgb(0,255,0),0
    print letter
    ink 0,0
    for y=0 to 69 step 4
        line 0,y,70,y
    next y
    for x=0 to 40 step 4
        line x,0,x,50
    next x
    set image colorkey 0, 0, 0
    get image img,0,8,34,52
endfunction

set display mode 800,600,32
` Center window
set window position (desktop width()-screen width())/2,(desktop height()-screen height())/2

sync rate 0
sync on

type Trail
 X as integer
 Y as integer
endtype

dim Tail(20) as Trail

` Setup
set text font "Comic Sans MS"
set text size 35
set text to bold
a$="HELLO WORLD!"
text 0,0,a$
get image 1,0,0,text width(a$),text height(a$),1
hide mouse

` Create a timer
tim=timer()

` Make all sprites to offset
for t=1 to 20
 sprite t,0,0,1
 offset sprite t,image width(1)/2,image height(1)/2
next t

do

 ` Clear the screen with black
 cls 0

 ` Check if 20 milliseconds are up
 if timer()>tim+20
 
  ` Put the current mouse coordinates into the array
  Tail(0).X=mousex()
  Tail(0).Y=mousey()
 
  ` Rotate the array (IanM's command)
  rotate array Tail()
 
  ` Reset timer 
  tim=timer()
 
 endif
 
 ` Show all the sprites (the tail)
 for t=1 to 20
  sprite t,Tail(t).X,Tail(t).Y,1
  ` Change the sprites transparency amount
  set sprite alpha t,200-(t*10)
 next t
 
 sync

loop

set display mode 640,480,32
` Center window
set window position (desktop width()-screen width())/2,(desktop height()-screen height())/2

sync rate 0
sync on
randomize timer()

type Pixels
 X as integer
 Y as integer
 Color as dword
 Fall as byte
endtype

dim Rain(500) as Pixels

` Start initial fall
for t=0 to 500
 Rain(t).Fall=rnd(9)+1
next t

` Setup screens
set text font "Comic Sans MS"
set text to bold
set text size 100
a$="HELLO WORLD!"
create bitmap 1,screen width(),screen height()   ` Blank Screen
create bitmap 2,screen width(),screen height()   ` HELLO WORLD screen
text (screen width()-text width(a$))/2,(screen height()-text height(a$))/2,a$
set current bitmap 0

do
 
 ` Show the Blank Screen on the main view screen
 copy bitmap 1,0
 
 ` Show the dots
 for t=0 to 500
  
  ` Show the dot
  ink Rain(t).Color,0
  dot Rain(t).X,Rain(t).Y
  ` Make the dot fall
  inc Rain(t).Y,Rain(t).Fall
  
  ` Change to HELLO WORLD screen
  set current bitmap 2
  ` Set x,y, grab color, and separate color
  x=Rain(t).X:y=Rain(t).Y
  c=point(x,y):r=rgbr(c):g=rgbg(c):b=rgbg(c)
  ` Check if any part of HELLO WORLD has been reached (bright white color)
  if r=255 and g=255 and b=255
   ` Erase dot from HELLO WORLD screen
   ink 0,0
   dot Rain(t).X,Rain(t).Y
   ` Change to blank screen
   set current bitmap 1
   ` Place dot on Blank Screen
   a=rnd(255)
   ink Rain(t).Color,0
   dot Rain(t).X,Rain(t).Y
   ` Switch back to main view screen
   set current bitmap 0
   ` Turn on reset switch (to reset dot)
   Reset=1
  endif
  
  ` Check if the dot has hit the end of the screen or reset switch is on
  if Rain(t).Y>screen height() or Reset=1
   ` Pick a random color
   Rain(t).Color=rgb(rnd(254),rnd(254),rnd(254))
   ` Pick a random spot and fall rate
   Rain(t).X=rnd(screen width())
   Rain(t).Y=-10
   Rain(t).Fall=rnd(9)+1
   ` Turn off reset switch
   Reset=0
  endif
  
 next t 

 sync

loop

Rem Project: Hello World
Rem Created by Ranietz on Sunday, February 20, 2011

Rem ***** Main Source File *****

set display mode 1024,768,32,1
sync on
sync rate 0

tileSize=16

ink rgb(0,0,128),0
box 0,0,tileSize,tileSize
ink rgb(0,0,255),0
box 1,1,tileSize-1,tileSize-1
get image 1,0,0,tileSize,tileSize

type grid
   imageNr as integer
   xOffset# as float
   yOffset# as float
   stepX# as float
   stepY# as float
endtype

dim hw(45,4) as grid

maxSteps=180
direction=0
stepNr=0

for y = 0 to 4
   for x = 0 to 45
      read a
      hw(x,y).imageNr=a
      hw(x,y).xOffset#=rnd(1000)-500
      hw(x,y).yOffset#=rnd(1000)-500
      hw(x,y).stepX#=hw(x,y).xOffset#/maxSteps
      hw(x,y).stepY#=hw(x,y).yOffset#/maxSteps
   next x
next y

do
   cls rgb(255,255,255)

   if direction=0
      if stepNr<maxSteps then inc stepNr
   else
      if stepNr>0 then dec stepNr   
   endif
   
   if stepNr=maxSteps then direction=2
   if stepNr=0 then direction=0
   
   for x = 0 to 45
      for y = 0 to 4
         if stepNr=maxSteps
            if hw(x,y).imageNr=1
               paste image 1,x*tileSize+152,y*tileSize+344
            endif
         else
            if hw(x,y).imageNr=1
               tmpX=(x*tileSize+152)+hw(x,y).xOffset#-(hw(x,y).stepX#*stepNr)
               tmpY=(y*tileSize+344)+hw(x,y).yOffset#-(hw(x,y).stepY#*stepNr)
               paste image 1,tmpX,tmpY
            endif   
         endif
      next y
   next x
   
   sync
   
   if direction=2
      for y = 0 to 4
         for x = 0 to 45
            if hw(x,y).imageNr=1
               hw(x,y).xOffset#=rnd(1000)-500
               hw(x,y).yOffset#=rnd(1000)-500
               hw(x,y).stepX#=hw(x,y).xOffset#/maxSteps
               hw(x,y).stepY#=hw(x,y).yOffset#/maxSteps
            endif
         next x
      next y
      wait 1600
      direction=1
   endif
   
loop

data 0,1,0,1,0,1,1,1,0,1,0,0,0,1,0,0,0,1,1,1,0,0,0,1,0,0,0,1,0,1,1,1,0,1,1,1,0,1,0,0,0,1,1,0,0,1
data 0,1,0,1,0,1,0,0,0,1,0,0,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,0,0,1,0,1,0,1
data 0,1,1,1,0,1,1,1,0,1,0,0,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,1,0,1,0,1,0,1,1,1,0,1,0,0,0,1,0,1,0,1
data 0,1,0,1,0,1,0,0,0,1,0,0,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,1,0,1,0,1,0,1,1,0,0,1,0,0,0,1,0,1,0,0
data 0,1,0,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,0,0,1,1,1,1,1,0,1,1,1,0,1,0,1,0,1,1,1,0,1,1,0,0,1

set display mode 800,600,32
` Center window
set window position (desktop width()-screen width())/2,(desktop height()-screen height())/2
sync rate 0
sync on

` Setup Font
set text font "Comic Sans MS"
set text to bold
set text size 100

` Setup HELLO WORLD screen
cls rgb(64,64,255)
a$="HELLO WORLD!"
text (screen width()-text width(a$))/2,(screen height()-text height(a$))/2,a$
get image 1,0,0,screen width(),screen height(),1
create bitmap 1,screen width()*2,screen height()*2

` Setup Hole Sprite
cls rgb(10,10,10)
fill circle bitmap width(1)/2,bitmap height(1)/2,50,rgb(0,0,0)
ink rgb(100,100,100),0
circle bitmap width(1)/2,bitmap height(1)/2,49
circle bitmap width(1)/2,bitmap height(1)/2,50
get image 2,0,0,bitmap width(1),bitmap height(1),1
sprite 1,0,0,1
offset sprite 1,bitmap width(1)/2,bitmap height(1)/2

set current bitmap 0
hide mouse

do
 
 ` Show HELLO WORLD screen
 paste image 1,0,0
 
 ` Show Hole Sprite
 sprite 1,mousex(),mousey(),2 

 sync

loop

Rem Project: Hello World 2
Rem Created by Ranietz on Sunday, February 20, 2011

Rem ***** Main Source File *****
set display mode 1024,768,32,1
sync on
sync rate 0
color backdrop 0
autocam off

boxSize=8
tileSize=16

ink rgb(0,0,128),0
box 0,0,tileSize,tileSize
ink rgb(0,0,255),0
box 1,1,tileSize-1,tileSize-1
ink rgb(0,0,128),0
circle 5,5,2
circle 5,10,2
circle 10,5,2
circle 10,10,2
get image 1,0,0,tileSize,tileSize

ink rgb(128,128,0),0
box 0,0,tileSize,tileSize
ink rgb(255,255,0),0
box 1,1,tileSize-1,tileSize-1
ink rgb(128,128,0),0
circle 5,5,2
circle 5,10,2
circle 10,5,2
circle 10,10,2
get image 2,0,0,tileSize,tileSize

objNr=0
for y = 8 to 0 step -1
   for x = 0 to 48
      read a
         inc objNr
         make object cube objNr,boxSize
         texture object objNr,a+1
         position object objNr,x*boxSize,y*boxSize,0
   next x
next y

position camera 24*boxSize,4*boxSize,-250

do

   tmp#=0
   for a = objNr to 1 step -1
      inc tmp#,0.01
      speed#=1+tmp#
      xrotate object a,wrapvalue(object angle x(a)+speed#)
   next a
   
   sync
   
loop

data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,1,0,1,0,1,1,1,0,1,0,0,0,1,0,0,0,1,1,1,0,0,0,1,0,0,0,1,0,1,1,1,0,1,1,1,0,1,0,0,0,1,1,0,0,1,0,1
data 1,0,1,0,1,0,1,0,0,0,1,0,0,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,0,0,1,0,1,0,1,0,1
data 1,0,1,1,1,0,1,1,1,0,1,0,0,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,1,0,1,0,1,0,1,1,1,0,1,0,0,0,1,0,1,0,1,0,1
data 1,0,1,0,1,0,1,0,0,0,1,0,0,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,1,0,1,0,1,0,1,1,0,0,1,0,0,0,1,0,1,0,0,0,1
data 1,0,1,0,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,0,0,1,1,1,1,1,0,1,1,1,0,1,0,1,0,1,1,1,0,1,1,0,0,1,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

Rem Project: Hello World Program
Rem Created: Monday, February 14, 2011
Rem Created By: Admiral MH

Rem Credit goes to BMacZero for his great code snippet (Exploding objects) on the fourms!!! 

Rem ***** Main Source File *****


Sync On
Sync Rate 60
Sync
Autocam Off

Randomize Timer()
Position Camera 90,-15,-140
Set Camera Range 1,1000

Rem =======================================================




`======= Explosions Setup =======
type BOOM_ObjectType
    ObjectNo as integer
    FaceCount as integer
    VertCount as integer
    Mem1 as integer
    Mem2 as integer
    Mem3 as integer
    Mem4 as integer
    Mem5 as integer
    ExplodeTime as integer
    Violence as float
    FloorX as float
    FloorY as float
    FloorZ as float
endtype
DIM BOOM_Objects(0) as BOOM_ObjectType
DIM BOOM_AngSpeeds#(0)
global BOOM_gravityx# `Acceleration due to gravity
global BOOM_gravityy#
global BOOM_gravityz#
BOOM_gravityx#=0
BOOM_gravityy#=-10
BOOM_gravityz#=0
`================================

Global Time As Integer
Global Rotation As Integer
Global Count As Integer
Global Increment As Integer
Global Boom As Boolean
Global Pos_CTR As Integer
Global End_Check As Boolean

Type EXPLODED_T
    State As Boolean
    Gravity As Integer
    Rot_X As Integer
    Rot_Y As Integer
    Rot_Z As Integer
EndType

Dim Exploded(295) As EXPLODED_T

Num = 2
Increment = 1
Pos_CTR = 0


Dim E_Pos(29) As Integer
Dim L1_Pos(19) As Integer
Dim L2_Pos(19) As Integer
Dim O1_Pos(25) As Integer
Dim W_Pos(49) As Integer
Dim O2_Pos(25) As Integer
Dim R_Pos(22) As Integer
Dim L3_Pos(19) As Integer
Dim D_Pos(32) As Integer

Rem =======================================================



Make_Hello_World_Objects()
Time = Timer()

Do


If Boom = 0
    Text 10,10,"Press space if you want to skip to the fun part"
    If Spacekey()=1 Then Boom = 1
EndIf

If Boom = 1
    If Num > 51 And Num < 347
        BOOM_UnsetObject(Num-50) : Exploded(Num-52).State = 1 : End_Check = 1
        If Num => 51 And Num <= 81 Then BOOM_SetupObject(Num,-1000,E_Pos(Pos_CTR),-1000)
        If Num => 82 And Num <= 101 Then BOOM_SetupObject(Num,-1000,L1_Pos(Pos_CTR),-1000)
        If Num => 102 And Num <= 121 Then BOOM_SetupObject(Num,-1000,L2_Pos(Pos_CTR),-1000)
        If Num => 122 And Num <= 147 Then BOOM_SetupObject(Num,-1000,O1_Pos(Pos_CTR),-1000)
        If Num => 148 And Num <= 197 Then BOOM_SetupObject(Num,-1000,W_Pos(Pos_CTR),-1000)
        If Num => 198 And Num <= 223 Then BOOM_SetupObject(Num,-1000,O2_Pos(Pos_CTR),-1000)
        If Num => 224 And Num <= 246 Then BOOM_SetupObject(Num,-1000,R_Pos(Pos_CTR),-1000)
        If Num => 247 And Num <= 264 Then BOOM_SetupObject(Num,-1000,L3_Pos(Pos_CTR),-1000)
        If Num => 265 And Num <= 297 Then BOOM_SetupObject(Num,-1000,D_Pos(Pos_CTR),-1000)

        Inc Pos_CTR
        If Num = 81 Then Pos_CTR = 0
        If Num = 101 Then Pos_CTR = 0
        If Num = 121 Then Pos_CTR = 0
        If Num = 147 Then Pos_CTR = 0
        If Num = 197 Then Pos_CTR = 0
        If Num = 223 Then Pos_CTR = 0
        If Num = 246 Then Pos_CTR = 0
        If Num = 264 Then Pos_CTR = 0
    EndIf


    If Num <= 297 Then BOOM_ExplodeObject(Num,Rnd_Range(7000,7000),Rnd_Range(3,3),Rnd_Range(3,3),Rnd_Range(3,3),0,0,0)
    Inc Num
EndIf

If Time < Timer()-2000 And Num < 297 Then Rotate_Hello_World()

If End_Check = 1 Then Check_For_End()
Exploded_Gravity()
BOOM_Update()
Sync
Loop




Function Make_Hello_World_Objects()

Make_H()
Make_E()
Make_L(0)
Make_O(0)
Make_W()
Make_O(1)
Make_R()
Make_L(1)
Make_D()

EndFunction

Function Check_For_End()
    For X = 2 to 297
        If Object In Screen(X) = 1
            Exit
        Else
            If X = 296 Then Cls : Sync : Wait 500 : End
        EndIf
    Next X
EndFunction

Function Exploded_Gravity()
    For X = 2 to 297
        If Exploded(X-2).State = 1
            If Exploded(X-2).Gravity = 0 Then Exploded(X-2).Gravity = Rnd(4)
            If Exploded(X-2).Rot_X = 0 Then Exploded(X-2).Rot_X = Rnd(4)
            If Exploded(X-2).Rot_Y = 0 Then Exploded(X-2).Rot_Y = Rnd(4)
            If Exploded(X-2).Rot_Z = 0 Then Exploded(X-2).Rot_Z = Rnd(4)
            
            Position Object X,Object Position X(X),Object Position Y(X) - Exploded(X-2).Gravity,Object Position Z(X)
            Rotate Object X,Object Angle X(X) + Exploded(X-2).Rot_X,Object Angle Y(X) + Exploded(X-2).Rot_Y,Object Angle Z(X) + Exploded(X-2).Rot_Z
        Else
            Exit
        EndIf
    Next X
EndFunction

Function Rotate_Hello_World()
    For Num = 2 to 297
        Select Rotation        
           
            Case 0
                Rotate Object Num,Object Angle X(Num)+Increment,Object Angle Y(Num),Object Angle Z(Num)
            EndCase
    
            Case 1
                Rotate Object Num,Object Angle X(Num),Object Angle Y(Num)+Increment,Object Angle Z(Num)
            EndCase
    
            Case 2
                Rotate Object Num,Object Angle X(Num),Object Angle Y(Num),Object Angle Z(Num)+Increment
            EndCase
    
            Case 3
                Rotate Object Num,Object Angle X(Num)+Increment,Object Angle Y(Num)+Increment,Object Angle Z(Num)+Increment
            EndCase
        
        EndSelect   
    Next Num
    
    Inc Count,Increment
    If Count >= 360 Then Count = 0 : Inc Rotation
    If Rotation = 4 Then Rotation = 0 : Inc Increment
    If Increment >= 5 Then Boom = 1
EndFunction



Function Make_H()

Pos_X# = 0
Pos_Y# = 0

Set = 0

R = Rnd(255)
G = Rnd(255)
B = Rnd(255)

For X = 2 to 51
    Make Object Cube X,5
    Position Object X,Pos_X#,Pos_Y#,0
    Color object X,Rgb(R,G,B)
    BOOM_SetupObject(X,-1000,Pos_Y#,-1000)
    
    If Set = 1
        Inc Pos_X#,5
        If X = 26 Then Pos_Y# = 25 : Pos_X# = 5
        If X = 31 Then Pos_Y# = -5 : Pos_X# = 30 : Set = 0
    EndIf
    
    If Set = 0
        Inc Pos_Y#,5
        If X = 11 Then Pos_Y# = 0 : Pos_X# = -5
        If X = 21 Then Pos_Y# = 20 : Pos_X# = 5 : Set = 1
        If X = 41 Then Pos_Y# = 0 : Pos_X# = 35
    EndIf
    
Next X


EndFunction

Function Make_E()

Pos_X# = 70
Pos_Y# = 37

Rot_Z# = 0

Set = 0
Pos_X_Inc# = 4.2
Pos_Y_Inc# = 0.55

R = Rnd(255)
G = Rnd(255)
B = Rnd(255)

For X = 52 to 81
    Make Object Cube X,5
    Position Object X,Pos_X#,Pos_Y#,0
    Rotate Object X,0,0,Rot_Z#
    Color object X,Rgb(R,G,B)
    E_Pos(X-52) = Pos_Y#
    
    If Set = 3
        If X = 74 Then Pos_X# = Pos_X# - 0.2 : Pos_Y# = Pos_Y# + 0.4
        If X = 75 Then Pos_X# = Pos_X# - 0.65 : Pos_Y# = Pos_Y# + 1.0
        If X = 76 Then Pos_X# = Pos_X# - 1.1 : Pos_Y# = Pos_Y# + 1.62
        If X = 77 Then Pos_X# = Pos_X# - 1.78 : Pos_Y# = Pos_Y# + 2.36
        If X = 78 Then Rot_Z# = Rot_Z# - 15 : Pos_X# = Pos_X# - 2.2 : Pos_Y# = Pos_Y# + 2.7
        If X = 79 Then Rot_Z# = Rot_Z# - 15 : Pos_X# = Pos_X# - 3.3 : Pos_Y# = Pos_Y# + 2.45
        If X = 80 Then Rot_Z# = Rot_Z# - 15 : Pos_X# = Pos_X# - 4.35 : Pos_Y# = Pos_Y# + 2.2
        Inc Rot_Z#,15
        Inc Pos_X#,Pos_X_Inc#
        Dec Pos_Y#,Pos_Y_Inc#
        Pos_Y_Inc# = Pos_Y_Inc# - 0.25
        Pos_X_Inc# = Pos_X_Inc# + 1.10
    EndIf
    
    If Set = 2
        Inc Pos_X#,Pos_X_Inc#
        If X = 71 Then Set = 3 : Pos_X# = 53.65 : Pos_Y# = 15.6 : Pos_Y_Inc# = 4.2 : Pos_X_Inc# = 0.55
    EndIf
    
    
    If Set = 1
        If X = 61 Then Pos_X# = Pos_X# - 0.3 : Pos_Y# = Pos_Y# + 0.13
        If X = 62 Then Pos_X# = Pos_X# - 0.85 : Pos_Y# = Pos_Y# + 0.44
        If X = 63 Then Pos_X# = Pos_X# - 1.56 : Pos_Y# = Pos_Y# + 0.99
        If X = 64 Then Pos_X# = Pos_X# - 2.39 : Pos_Y# = Pos_Y# + 1.8
        Dec Rot_Z#,15
        Inc Pos_X#,Pos_X_Inc#
        Dec Pos_Y#,Pos_Y_Inc#
        Pos_Y_Inc# = Pos_Y_Inc# + 1.1
        Pos_X_Inc# = Pos_X_Inc# - 0.25
        If X = 65 Then Set = 2 : Rot_Z# = 0 : Pos_Y_Inc# = 0 : Pos_X_Inc# = 5 : Pos_X# = 58 : Pos_Y# = 20.55

    EndIf
    
    If Set = 0
        If X = 54 Then Pos_X# = Pos_X# + 0.3 : Pos_Y# = Pos_Y# + 0.13
        If X = 55 Then Pos_X# = Pos_X# + 0.85 : Pos_Y# = Pos_Y# + 0.44
        If X = 56 Then Pos_X# = Pos_X# + 1.56 : Pos_Y# = Pos_Y# + 0.99
        If X = 57 Then Pos_X# = Pos_X# + 2.39 : Pos_Y# = Pos_Y# + 1.8
        Inc Rot_Z#,15
        Dec Pos_X#,Pos_X_Inc#
        Dec Pos_Y#,Pos_Y_Inc#
        Pos_Y_Inc# = Pos_Y_Inc# + 1.1
        Pos_X_Inc# = Pos_X_Inc# - 0.25
        If X = 58 Then Set = 1 : Pos_X# = 70 : Pos_Y# = 37 : Rot_Z# = 0 : Pos_X_Inc# = 4.2 : Pos_Y_Inc# = 0.55

    EndIf
     
Next X


EndFunction




Function Make_L(Mode)

If Mode = 0
    Pos_X# = 110
    Pos_Y# = 0
    
    Set = 0
    
    
    R = Rnd(255)
    G = Rnd(255)
    B = Rnd(255)
    
    For X = 82 to 101
        Make Object Cube X,5
        Position Object X,Pos_X#,Pos_Y#,0
        Color object X,Rgb(R,G,B)
        L1_Pos(X-82) = Pos_Y#
        
        Inc Pos_Y#,5
        If X = 91 Then Pos_Y# = 0 : Pos_X# = 105
    Next X
EndIf

Pos_X# = 135
Pos_Y# = 0
Obj_Start = 102
Obj_End = 121
Modifier_X# = 130
Modifier_Y# = 0
Modifier = 0

If Mode = 1 Then Pos_X# = 145
If Mode = 1 Then Pos_Y# = -57
If Mode = 1 Then Obj_Start = 247
If Mode = 1 Then Obj_End = 264
If Mode = 1 Then Modifier_X# = 140
If Mode = 1 Then Modifier_Y# = -57
If Mode = 1 Then Modifier = 1

Set = 0

R = Rnd(255)
G = Rnd(255)
B = Rnd(255)


For X = Obj_Start to Obj_End
    Make Object Cube X,5
    Position Object X,Pos_X#,Pos_Y#,0
    Color object X,Rgb(R,G,B)
    If Mode = 0 Then L2_Pos(X-102) = Pos_Y#
    If Mode = 1 Then L3_Pos(X-247) = Pos_Y#
    
    Inc Pos_Y#,5
    If X = Obj_Start + 9 - Modifier Then Pos_Y# = Modifier_Y# : Pos_X# = Modifier_X#
Next X



EndFunction


Function Make_O(Mode)

Pos_X# = 170
Pos_Y# = 32.88
Obj_Start = 122
Obj_End = 147
Modifier_X# = 170
Modifier_Y1# = 32.88
Modifier_Y2# = 0

If Mode = 1 Then Pos_X# = 70
If Mode = 1 Then Pos_Y# = -25
If Mode = 1 Then Obj_Start = 198 : Obj_End = 223
If Mode = 1 Then Modifier_X# = 70 : Modifier_Y1# = -25 : Modifier_Y2# = -57.88

Rot_Z# = 0

Set = 0
Pos_X_Inc# = 4.2
Pos_Y_Inc# = 0.55

R = Rnd(255)
G = Rnd(255)
B = Rnd(255)

For X = Obj_Start to Obj_End
    Make Object Cube X,5
    Position Object X,Pos_X#,Pos_Y#,0
    Rotate Object X,0,0,Rot_Z#
    Color object X,Rgb(R,G,B)
    If Mode = 0 Then O1_Pos(X-122) = Pos_Y#
    If Mode = 1 Then O2_Pos(X-198) = Pos_Y#
    
    If Set = 3
        If X = Obj_Start + 22 Then Pos_X# = Pos_X# + 0.3 : Pos_Y# = Pos_Y# - 0.13
        If X = Obj_Start + 23 Then Pos_X# = Pos_X# + 0.85 : Pos_Y# = Pos_Y# - 0.44
        If X = Obj_Start + 24 Then Pos_X# = Pos_X# + 1.56 : Pos_Y# = Pos_Y# - 0.99
        Dec Rot_Z#,15
        Dec Pos_X#,Pos_X_Inc#
        Inc Pos_Y#,Pos_Y_Inc#
        Pos_Y_Inc# = Pos_Y_Inc# + 1.1
        Pos_X_Inc# = Pos_X_Inc# - 0.25

    EndIf

    If Set = 2
        If X = Obj_Start + 16 Then Pos_X# = Pos_X# - 0.3 : Pos_Y# = Pos_Y# - 0.13
        If X = Obj_Start + 17 Then Pos_X# = Pos_X# - 0.85 : Pos_Y# = Pos_Y# - 0.44
        If X = Obj_Start + 18 Then Pos_X# = Pos_X# - 1.56 : Pos_Y# = Pos_Y# - 0.99
        Inc Rot_Z#,15
        Inc Pos_X#,Pos_X_Inc#
        Inc Pos_Y#,Pos_Y_Inc#
        Pos_Y_Inc# = Pos_Y_Inc# + 1.1
        Pos_X_Inc# = Pos_X_Inc# - 0.25
        If X = Obj_Start + 19 Then Set = 3 : Pos_X# = Modifier_X# : Pos_Y# = Modifier_Y2# : Rot_Z# = 0 : Pos_X_Inc# = 4.2 : Pos_Y_Inc# = 0.55
    EndIf
    
    
    If Set = 1
        If X = Obj_Start + 9 Then Pos_X# = Pos_X# - 0.3 : Pos_Y# = Pos_Y# + 0.13
        If X = Obj_Start + 10 Then Pos_X# = Pos_X# - 0.85 : Pos_Y# = Pos_Y# + 0.44
        If X = Obj_Start + 11 Then Pos_X# = Pos_X# - 1.56 : Pos_Y# = Pos_Y# + 0.99
        If X = Obj_Start + 12 Then Pos_X# = Pos_X# - 2.39 : Pos_Y# = Pos_Y# + 1.8
        Dec Rot_Z#,15
        Inc Pos_X#,Pos_X_Inc#
        Dec Pos_Y#,Pos_Y_Inc#
        Pos_Y_Inc# = Pos_Y_Inc# + 1.1
        Pos_X_Inc# = Pos_X_Inc# - 0.25
        If X = Obj_Start + 13 Then Set = 2 : Rot_Z# = 0 : Pos_Y_Inc# = 0.55 : Pos_X_Inc# = 4.2 : Pos_X# = Modifier_X# : Pos_Y# = Modifier_Y2# `Pos_X# = 158

    EndIf
    
    If Set = 0
        If X = Obj_Start + 2 Then Pos_X# = Pos_X# + 0.3 : Pos_Y# = Pos_Y# + 0.13
        If X = Obj_Start + 3 Then Pos_X# = Pos_X# + 0.85 : Pos_Y# = Pos_Y# + 0.44
        If X = Obj_Start + 4 Then Pos_X# = Pos_X# + 1.56 : Pos_Y# = Pos_Y# + 0.99
        If X = Obj_Start + 5 Then Pos_X# = Pos_X# + 2.39 : Pos_Y# = Pos_Y# + 1.8
        Inc Rot_Z#,15
        Dec Pos_X#,Pos_X_Inc#
        Dec Pos_Y#,Pos_Y_Inc#
        Pos_Y_Inc# = Pos_Y_Inc# + 1.1
        Pos_X_Inc# = Pos_X_Inc# - 0.25
        If X = Obj_Start + 6 Then Set = 1 : Pos_X# = Modifier_X# : Pos_Y# = Modifier_Y1# : Rot_Z# = 0 : Pos_X_Inc# = 4.2 : Pos_Y_Inc# = 0.55

    EndIf
     
Next X


EndFunction



Function Make_W()

Pos_X# = 2
Pos_Y# = -55

Rot_Z# = 10

Set = 0


R = Rnd(255)
G = Rnd(255)
B = Rnd(255)


For X = 148 to 197
    Make Object Cube X,5
    Position Object X,Pos_X#,Pos_Y#,0
    Rotate Object X,0,0,Rot_Z#
    Color object X,Rgb(R,G,B)
    W_Pos(X-148) = Pos_Y#
    
    If Set = 4
        Inc Pos_X#,5
        If X = 190 Then Pos_X# = 16.07 : Pos_Y# = -34.5 : Rot_Z# = 0
        If X = 191 Then Pos_X# = 2.45 : Pos_Y# = -55.4 : Rot_Z# = 0
        If X = 193 Then Pos_X# = 9.27 : Pos_Y# = -55.4 : Rot_Z# = 0
        If X = 194 Then Pos_X# = 22.72 : Pos_Y# = -55.4 : Rot_Z# = 0
        If X = 196 Then Pos_X# = 28.65 : Pos_Y# = -55.4 : Rot_Z# = 0
    EndIf
    
    If Set = 3
        Inc Pos_X#,0.865
        Inc Pos_Y#,4.9
        If X = 181 Then Pos_X# = 29 : Pos_Y# = -54.7
        If X = 189 Then Set = 4 : Pos_X# = 15.93 : Pos_Y# = -34.5 : Rot_Z# = 0
    EndIf


    If Set = 2
        Dec Pos_X#,1.3
        Inc Pos_Y#,4.8
        If X = 173 Then Set = 3 : Pos_X# = 25 : Pos_Y# = -54  : Rot_Z# = -10
    EndIf

    If Set = 1
        Inc Pos_X#,1.3
        Inc Pos_Y#,4.8
        If X = 168 Then Set = 2 : Pos_X# = 22 : Pos_Y# = -54.4 : Rot_Z# = 15
    EndIf
    
    
    If Set = 0
        Dec Pos_X#,0.865
        Inc Pos_Y#,4.9
        If X = 155 Then Pos_X# = 6.8 : Pos_Y# = -54.15 
        If X = 163 Then Set = 1 : Pos_X# = 10 : Pos_Y# = -54.4  : Rot_Z# = -15 
    EndIf
        
Next X

EndFunction


Function Make_R()

Pos_X# = 109
Pos_Y# = -56

Set = 0
Pos_X_Inc# = 4.2
Pos_Y_Inc# = 0.55


R = Rnd(255)
G = Rnd(255)
B = Rnd(255)

For X = 224 to 246
    Make Object Cube X,5
    Position Object X,Pos_X#,Pos_Y#,0
    Rotate Object X,0,0,Rot_Z#
    Color object X,Rgb(R,G,B)
    R_Pos(X-224) = Pos_Y#
    
    If Set = 1
        If X = 240 Or X = 244 Then Pos_X# = Pos_X# + 0.3 : Pos_Y# = Pos_Y# + 0.13
        If X = 241 Or X = 245 Then Pos_X# = Pos_X# + 0.85 : Pos_Y# = Pos_Y# + 0.44
        Inc Rot_Z#,15
        Dec Pos_X#,Pos_X_Inc#
        Dec Pos_Y#,Pos_Y_Inc#
        Pos_Y_Inc# = Pos_Y_Inc# + 1.1
        Pos_X_Inc# = Pos_X_Inc# - 0.25
        If X = 242 Then Pos_X# = 122 : Pos_Y# = -30.5 : Rot_Z# = 0 : Pos_X_Inc# = 4.2 : Pos_Y_Inc# = 0.55
    EndIf
    
    If Set = 0
        Inc Pos_Y#,5
        If X = 230 Then Pos_Y# = -56 : Pos_X# = 106
        If X = 237 Then Set = 1 : Pos_X# = 122 : Pos_Y# = -28.5
    EndIf
Next X


EndFunction


Function Make_D()

Pos_X# = 182
Pos_Y# = -58

Set = 0
Pos_X_Inc# = 4.2
Pos_Y_Inc# = 0.55


R = Rnd(255)
G = Rnd(255)
B = Rnd(255)

For X = 265 to 297
    Make Object Cube X,5
    Position Object X,Pos_X#,Pos_Y#,0
    Rotate Object X,0,0,Rot_Z#
    Color object X,Rgb(R,G,B)
    D_Pos(X-265) = Pos_Y#
    
    If Set = 2
        If X = 293 Then Pos_X# = Pos_X# + 0.1 : Pos_Y# = Pos_Y# + 0.1
        If X = 294 Then Pos_X# = Pos_X# + 0.27 : Pos_Y# = Pos_Y# + 0.22
        If X = 295 Then Pos_X# = Pos_X# + 0.77 : Pos_Y# = Pos_Y# + 0.18
        If X = 296 Then Pos_X# = Pos_X# + 1.56 : Pos_Y# = Pos_Y# - 0.15
        Dec Rot_Z#,18
        Dec Pos_X#,Pos_X_Inc#
        Inc Pos_Y#,Pos_Y_Inc#
        Pos_Y_Inc# = Pos_Y_Inc# + 1.1
        Pos_X_Inc# = Pos_X_Inc# - 0.25
    EndIf
    
    
    If Set = 1
        If X = 287 Then Pos_X# = Pos_X# + 0.1 : Pos_Y# = Pos_Y# - 0.1
        If X = 288 Then Pos_X# = Pos_X# + 0.27 : Pos_Y# = Pos_Y# - 0.22
        If X = 289 Then Pos_X# = Pos_X# + 0.77 : Pos_Y# = Pos_Y# - 0.18
        If X = 290 Then Pos_X# = Pos_X# + 1.56 : Pos_Y# = Pos_Y# + 0.15
        If X = 291 Then Pos_X# = Pos_X# + 2.55 : Pos_Y# = Pos_Y# + 0.85
        Inc Rot_Z#,18
        Dec Pos_X#,Pos_X_Inc#
        Dec Pos_Y#,Pos_Y_Inc#
        Pos_Y_Inc# = Pos_Y_Inc# + 1.1
        Pos_X_Inc# = Pos_X_Inc# - 0.25
        If X = 292 Then Set = 2 : Pos_X# = 177 : Pos_Y# = -56 : Rot_Z# = 0 : Pos_X_Inc# = 4.2 : Pos_Y_Inc# = 0.55

    EndIf

    
    If Set = 0
        Inc Pos_Y#,5
        If X = 275 Then Pos_Y# = -58 : Pos_X# = 179
        If X = 286 Then Set = 1 : Pos_X# = 177 : Pos_Y# = -29.5
    EndIf
Next X


EndFunction




Function Rnd_Range(Neg_Value,Pos_Value)
    Value = Pos_Value + Neg_Value
    Temp = Rnd(Value)
    Return_Value = Temp - Neg_Value
EndFunction Return_Value




Rem =======================================================


`======= Explosions Functions =======

`Add an object to the explosion system
`You can the detonate at any Time with BOOM_ExplodeObject
function BOOM_SetupObject(ObjectNo as integer,FloorX as float,FloorY as float,FloorZ as float)

array insert at bottom BOOM_Objects(0)
temp=array count(BOOM_Objects(0))

BOOM_Objects(temp).ObjectNo=ObjectNo
BOOM_Objects(temp).FloorX=FloorX
BOOM_Objects(temp).FloorY=FloorY
BOOM_Objects(temp).FloorZ=FloorZ
BOOM_Objects(temp).Mem1=FreeMemblock()

temp2=FreeMesh()
`CHANGE OBJECT TO NO SHARED VERTICES FORMAT
tx#=object position x(ObjectNo)
ty#=object position y(ObjectNo)
tz#=object position z(ObjectNo)
rx#=object angle x(ObjectNo)
ry#=object angle y(ObjectNo)
rz#=object angle z(ObjectNo)

make mesh from object temp2,ObjectNo
delete object ObjectNo
make memblock from mesh BOOM_Objects(temp).Mem1,temp2
make mesh from memblock temp2,BOOM_Objects(temp).Mem1
delete memblock BOOM_Objects(temp).Mem1
make object ObjectNo,temp2,1
delete mesh temp2

`Put the object back where it was
position object ObjectNo,tx#,ty#,tz#
rotate object ObjectNo,rx#,ry#,rz#

set object cull ObjectNo,0  `so you can see backfaces

LOCK VERTEXDATA FOR LIMB ObjectNo,0,1
BOOM_Objects(temp).VertCount=GET VERTEXDATA VERTEX COUNT()
BOOM_Objects(temp).FaceCount=BOOM_Objects(temp).VertCount/3
UNLOCK VERTEXDATA

`BOOM_AngSpeeds is just constants, same for any object
`All we do here is add more if you set up an object with more verts that we can currently handle
temp2=array count(BOOM_AngSpeeds#(0))
if BOOM_Objects(temp).FaceCount>temp2
    dim BOOM_AngSpeeds#(BOOM_Objects(temp).FaceCount)
    for c=temp2+1 to BOOM_Objects(temp).FaceCount
        BOOM_AngSpeeds#(c)=0.5*(rnd(11)-5.5)
    next c
endif

make memblock BOOM_Objects(temp).Mem1,BOOM_Objects(temp).FaceCount*3*4
BOOM_Objects(temp).Mem2=FreeMemblock()
make memblock BOOM_Objects(temp).Mem2,BOOM_Objects(temp).FaceCount*4
BOOM_Objects(temp).Mem3=FreeMemblock()
make memblock BOOM_Objects(temp).Mem3,(BOOM_Objects(temp).VertCount+1)*4*9
BOOM_Objects(temp).Mem4=FreeMemblock()
make memblock BOOM_Objects(temp).Mem4,3*(BOOM_Objects(temp).FaceCount+1)*4
BOOM_Objects(temp).Mem5=FreeMemblock()
make memblock BOOM_Objects(temp).Mem5,(BOOM_Objects(temp).VertCount+1)*4*9

endfunction


`Causes an object that has been added to the explosion system to detonate
`Violence is the force of the explosion
`vx, vy, and vz represent the general direction of the explosion (useful for simulating,
`   for example, a glass being shot)
`ox, oy, and oz represent the "epicenter" of the explosion relative to the object's center
`   (all the pieces will explode away from this point)
function BOOM_ExplodeObject(objectno,Violence#,vx as float,vy as float, vz as float, ox as float, oy as float, oz as float)

for c=1 to array count(BOOM_Objects(0))
    if BOOM_Objects(c).objectno=objectno then BOOMID=c
next c

`Offset to the epicenter
vertsoff(objectno,-ox,-oy,-oz)
position object objectno,object position x(objectno)+ox,object position y(objectno)+oy,object position z(objectno)+oz

`More setup tasks that were moved here to enable the center offset

local dim temp1#(3,BOOM_Objects(BOOMID).FaceCount)
local dim temp2#(3,BOOM_Objects(BOOMID).VertCount)

lock vertexdata for limb objectno,0
FOR N=0 TO BOOM_Objects(BOOMID).VertCount-1
    temp2#(1,N)=GET VERTEXDATA POSITION X(N)
    temp2#(2,N)=GET VERTEXDATA POSITION Y(N)
    temp2#(3,N)=GET VERTEXDATA POSITION Z(N)
NEXT N
unlock vertexdata

`Calculate exit velocities
for f=0 to BOOM_Objects(BOOMID).FaceCount-1
   n=f*3
   for c=1 to 3
      temp#=(temp2#(c,n+0)+temp2#(c,n+1)+temp2#(c,n+2))/3.0
      write memblock float BOOM_Objects(BOOMID).Mem1,f*12+(c-1)*4,temp#
      temp2#(c,n+0)=temp2#(c,n+0)-temp#
      temp2#(c,n+1)=temp2#(c,n+1)-temp#
      temp2#(c,n+2)=temp2#(c,n+2)-temp#
   next c
next f

`Set up fragment Rotation
for f=0 to BOOM_Objects(BOOMID).FaceCount-1
   mag#=0.0
   for c= 1 to 3
      temp1#(c,f)=rnd(5)-2.5
      inc mag#,temp1#(c,f)*temp1#(c,f)
   next c
   mag#=sqrt(mag#)
   `normalise..
   for c=1 to 3
      temp1#(c,f)=temp1#(c,f)/mag#
   next c

    `get components parallel to, perpendicular to, and perpendicular to both..
    s=3*f-1
    for a=1 to 3
        v=s+a
        dotp#=temp2#(1,v)*temp1#(1,f)+temp2#(2,v)*temp1#(2,f)+temp2#(3,v)*temp1#(3,f)
        for x=1 to 3
            temp#=dotp#*temp1#(x,f)
            write memblock float BOOM_Objects(BOOMID).Mem5,(v*9+x)*4,temp#
            write memblock float BOOM_Objects(BOOMID).Mem5,(v*9+x+3)*4,temp2#(x,v)-temp#
        next x
        write memblock float BOOM_Objects(BOOMID).Mem5,(v*9+7)*4,memblock float(BOOM_Objects(BOOMID).Mem5,(v*9+5)*4)*temp1#(3,f)-memblock float(BOOM_Objects(BOOMID).Mem5,(v*9+6)*4)*temp1#(2,f)
        write memblock float BOOM_Objects(BOOMID).Mem5,(v*9+8)*4,memblock float(BOOM_Objects(BOOMID).Mem5,(v*9+6)*4)*temp1#(1,f)-memblock float(BOOM_Objects(BOOMID).Mem5,(v*9+4)*4)*temp1#(3,f)
        write memblock float BOOM_Objects(BOOMID).Mem5,(v*9+9)*4,memblock float(BOOM_Objects(BOOMID).Mem5,(v*9+4)*4)*temp1#(2,f)-memblock float(BOOM_Objects(BOOMID).Mem5,(v*9+5)*4)*temp1#(1,f)
    next a

next f

UNDIM temp1#(0,0)
UNDIM temp2#(0,0)

if BOOMID>0
    if BOOM_Objects(BOOMID).ExplodeTime=0
        BOOM_Objects(BOOMID).ExplodeTime=timer()
        BOOM_Objects(BOOMID).Violence=Violence#
        for f=0 to BOOM_Objects(BOOMID).FaceCount-1
            `Randomizes exit velocities
            c#=sqrt(rnd(256))
            for c=1 to 3
                if c=1 then off#=vx
                if c=2 then off#=vy
                if c=3 then off#=vz
                write memblock float BOOM_Objects(BOOMID).Mem4,(f*3+c)*4,(Violence#/100000)*c#*memblock float(BOOM_Objects(BOOMID).Mem1,f*12+(c-1)*4)+off#
            next c
        next f
    endif
    
    exitfunction 1
endif

endfunction 0


`Call this every loop - updates Exploded object's vertices
function BOOM_Update()

for d=1 to array count(BOOM_Objects(0))
    if BOOM_Objects(d).ExplodeTime>0
        bad=1 `Used to stop animation when all pieces hit the floor
        LOCK VERTEXDATA FOR LIMB BOOM_Objects(d).ObjectNo,0,1
        for f=0 to BOOM_Objects(d).FaceCount-1
            write memblock float BOOM_Objects(d).Mem2,f*4,wrapvalue(memblock float(BOOM_Objects(d).Mem2,f*4)+BOOM_AngSpeeds#(f)*BOOM_Objects(d).Violence/60)
            `Move Faces, c is each axis
            for c=1 to 3
                if c=1 then temp2#=BOOM_gravityx#
                if c=2 then temp2#=BOOM_gravityy#
                if c=3 then temp2#=BOOM_gravityz#
                
                temp#=memblock float(BOOM_Objects(d).Mem1,f*12+(c-1)*4)+memblock float(BOOM_Objects(d).Mem4,(f*3+c)*4)+temp2#*((timer()-BOOM_Objects(d).ExplodeTime)/1000.0)^2
                write memblock float BOOM_Objects(d).Mem1,f*12+(c-1)*4,temp#
            next c
            
            `Check floors
            bad2=1
            if BOOM_gravityx#<=0
                if memblock float(BOOM_Objects(d).Mem1,f*12+0*4)+object position x(BOOM_Objects(d).ObjectNo)>BOOM_Objects(d).FloorX then bad2=0
                else
                if memblock float(BOOM_Objects(d).Mem1,f*12+0*4)+object position x(BOOM_Objects(d).ObjectNo)<BOOM_Objects(d).FloorX then bad2=0
            endif
            if BOOM_gravityy#<=0
                if memblock float(BOOM_Objects(d).Mem1,f*12+1*4)+object position y(BOOM_Objects(d).ObjectNo)>BOOM_Objects(d).FloorY then bad2=0
                else
                if memblock float(BOOM_Objects(d).Mem1,f*12+1*4)+object position y(BOOM_Objects(d).ObjectNo)<BOOM_Objects(d).FloorY then bad2=0
            endif
            if BOOM_gravityz#<=0
                if memblock float(BOOM_Objects(d).Mem1,f*12+2*4)+object position z(BOOM_Objects(d).ObjectNo)>BOOM_Objects(d).FloorZ then bad2=0
                else
                if memblock float(BOOM_Objects(d).Mem1,f*12+2*4)+object position z(BOOM_Objects(d).ObjectNo)<BOOM_Objects(d).FloorZ then bad2=0
            endif
            
            if bad2=0
                bad=0
                ct#=cos(memblock float(BOOM_Objects(d).Mem2,f*4))
                st#=sin(memblock float(BOOM_Objects(d).Mem2,f*4))
                s=3*f-1
                for a=1 to 3
                    v=s+a
                    `Calculate Rotation of fragments
                    offsetposx#=memblock float(BOOM_Objects(d).Mem5,(v*9+1)*4)+ct#*memblock float(BOOM_Objects(d).Mem5,(v*9+4)*4)+st#*memblock float(BOOM_Objects(d).Mem5,(v*9+7)*4)
                    offsetposy#=memblock float(BOOM_Objects(d).Mem5,(v*9+2)*4)+ct#*memblock float(BOOM_Objects(d).Mem5,(v*9+5)*4)+st#*memblock float(BOOM_Objects(d).Mem5,(v*9+8)*4)
                    offsetposz#=memblock float(BOOM_Objects(d).Mem5,(v*9+3)*4)+ct#*memblock float(BOOM_Objects(d).Mem5,(v*9+6)*4)+st#*memblock float(BOOM_Objects(d).Mem5,(v*9+9)*4)
                    set vertexdata position v,memblock float(BOOM_Objects(d).Mem1,f*12)+offsetposx#,memblock float(BOOM_Objects(d).Mem1,f*12+4)+offsetposy#,memblock float(BOOM_Objects(d).Mem1,f*12+8)+offsetposz#
                next a
            endif
        next f
        UNLOCK VERTEXDATA
        if bad=1 then BOOM_Objects(d).ExplodeTime=-1
    endif
next d

endfunction


`Remove an object from the explosion system
function BOOM_UnsetObject(objectno)

for c=1 to array count(BOOM_Objects(0))
    if BOOM_Objects(c).objectno=objectno then BOOMID=c
next c

if BOOMID>0
    if memblock exist(BOOM_Objects(BOOMID).Mem1) then delete memblock BOOM_Objects(BOOMID).Mem1
    if memblock exist(BOOM_Objects(BOOMID).Mem2) then delete memblock BOOM_Objects(BOOMID).Mem2
    if memblock exist(BOOM_Objects(BOOMID).Mem3) then delete memblock BOOM_Objects(BOOMID).Mem3
    if memblock exist(BOOM_Objects(BOOMID).Mem4) then delete memblock BOOM_Objects(BOOMID).Mem4
    if memblock exist(BOOM_Objects(BOOMID).Mem5) then delete memblock BOOM_Objects(BOOMID).Mem5
    array delete element BOOM_Objects(0),BOOMID
    exitfunction 1
endif


endfunction 0


`Support functions; find free objects
`Replace with your own free object system if you so desire
function FreeMemblock()
repeat
inc temp
until memblock exist(temp)=0
endfunction temp

function FreeMesh()
repeat
inc temp
until mesh exist(temp)=0
endfunction temp

`Support function; offsets an object's geometry at the vertex level
function vertsoff(object,offx as float,offy as float,offz as float)
lock vertexdata for limb object,0,2
for c=0 to get vertexdata vertex count()-1
    set vertexdata position c,get vertexdata position x(c)+offx,get vertexdata position y(c)+offy,get vertexdata position z(c)+offz
next c
unlock vertexdata
endfunction

`Support
function sign(value as float)
if value>0 then exitfunction 1
if value<0 then exitfunction -1
endfunction 0

`====================================

Rem =======================================================