Sorry your browser is not supported!

sync on : sync rate 60
ink rgb(255,255,255),1
randomize timer()

backdrop off



for i = 1 to 100

   make object cube i,1
   color object i,rgb(rnd(255),rnd(255),rnd(255))
   rotate object i,rnd(360),rnd(360),rnd(360)

   rem this is a dbp line only
   box 0,0,screen width(),screen height(),rgb(55,55,255),rgb(55,55,255),rgb(55,55,55),rgb(55,55,55)
   rem use these if using classic
   `ink rgb(255,55,55),1
   `box 0,0,screen width(),screen height()

   ink rgb(255,255,255),1
   center text screen width()/2,screen height()/2,"Loading Cube :"+STR$(i)
   sync

   rem this wait is just to slow it down to show the visual effect
   rem can be removed
   wait 100

next i

cls

backdrop on



disable escapekey
while escapekey()=0

center text screen width()/2,screen height()/2,"All cubes loaded"
sync
endwhile

for i = 1 to 100
delete object i
next i

end

sync on : sync rate 60
ink rgb(255,255,255),1
randomize timer()

backdrop off

for i = 1 to 100

   ink rgb(rnd(255),rnd(255),rnd(255)),1
   box 0,0,32,32
   get image i,0,0,32,32
   cls


   ink rgb(55,55,55),1
   box 0,0,screen width(),screen height()
   ink rgb(255,255,255),1
   center text screen width()/2,screen height()/2,"Loading sprite :"+STR$(i)
   sync

   rem this wait is just to slow it down to show the visual effect
   rem can be removed
   wait 100

next i

cls

backdrop on


for i = 1 to 100
   sprite i,rnd(screen width()),rnd(screen height()-32),i
next i


disable escapekey
while escapekey()=0

center text screen width()/2,screen height()-16,"All sprites loaded"
sync
endwhile

for i = 1 to 100
delete sprite i
next i

end