Sorry your browser is not supported!

sync on : sync rate 60
randomize timer()
backdrop off
autocam off
hide mouse
Width = screen width() - 64 : Height = screen height() - 64
dim SAlpha(10)
for k = 10 to 19
  MakeImage(k)
  SAlpha(k - 9) = rnd(80)
  sprite k,rnd(width),rnd(height),k - 9
  set sprite alpha k,SAlpha(k - 9)
next k
repeat
  for k = 10 to 19
    SAlpha(k - 9) = SAlpha(k - 9) + 1
    set sprite alpha k,SAlpha(k - 9)
    if SAlpha(k - 9) >= 254
      MakeImage(k)
      SAlpha(k - 9) = 0
      set sprite alpha k,SAlpha(k - 9)
      sprite k,rnd(width),rnd(height),k - 9
    endif
  next k
  sync
until spacekey() = 1
for k = 10 to 19
  delete sprite k
  delete image k - 9
next k
show mouse
end

function MakeImage(k as integer)
  create bitmap 1,64,64
  r = rnd(128) + 127 : g = rnd(128) + 127 : b = rnd(128) + 127
  ink rgb(r,g,b),0
  box 0,0,63,63
  get image k - 9,0,0,64,64
  delete bitmap 1
  set current bitmap 0
endfunction

rem grab a red block image
cls rgb(255,0,0)
get image 1,0,0,64,64

sprite 1,40,20,1 `use the red block for sprite 1
alpha = 0 `start with alpha value at 0 (invisible)
set sprite alpha 1,alpha

toggle = -1 `flag used to toggle add/subtract value to current alpha parameter

do
   if lastfade + 10 < timer() `if 1/100th of a second has passed, we'll change the alpha value

      if alpha = 0 or alpha = 255 `keep alpha value between 0 & 255
         toggle = -toggle `toggle between adding or subtracting 1 to current alpha value
      endif

      alpha = alpha + toggle `step alpha to next value
      set sprite alpha 1,alpha `update alpha value for sprite
      lastfade = timer() `time-stamp to tell us when to change alpha value again
   endif

   rem some text to show current alpha setting
   text 0,0,"alpha value: " + str$(alpha)

   rem and the equivalent transparency percentage
   percent$ = str$(int((alpha+1)/2.56)) `convert value to integer, then to a string for use with text command
   text 0,16, percent$ + "%"
loop