Sorry your browser is not supported!

   sprite currentimage,0,0,currentimage
   set sprite alpha currentimage,0

   if sprite exist(oldimage)
      for i = 0 to 255
         set sprite alpha oldimage, (255-i)
         set sprite alpha currentimage, i
      next i

      delete sprite oldimage
      delete image oldimage
   endif

   delete sprite currentimage
   sprite oldimage,0,0,currentimage
   set sprite priority oldimage,1

for i = 0 to 255
    set sprite alpha oldimage, (255-i)
    set sprite alpha currentimage, i
next i

imagestart = 1
imageend = 10

load image "....",1

do
oldlocation$ = location$
oldimageselect# = imageselect#

if upkey()=1
   imageselect# = imageselect# + 1
endif

if downkey()=1
   imageselect# = imageselect# - 1
endif

if imageselect# > imageend then imageselect# = imagestart
if imageselect# < imagestart then imageselect# = imageend

if oldimageselect# <> imageselect#
   if image exist (1) = 1
      location$ = "...." + str$(imageselect#) + ".png"
      load image location$, 2
      currentimage=2
      oldimage=1
      gosub fade
   endif

   if image exist (2) = 1
      location$ = "...." + str$(imageselect#) + ".png"
      load image location$, 1
      currentimage=1
      oldimage=2
      gosub fade
   endif

endif

loop

fade:

   sprite currentimage,0,0,currentimage
   set sprite alpha currentimage,0

   if sprite exist(oldimage)
      for i = 0 to 255
         set sprite alpha oldimage, (255-i)
         set sprite alpha currentimage, i
         wait 1000
      next i

      delete sprite oldimage
      delete image oldimage
   endif

   delete sprite currentimage
   sprite oldimage,0,0,currentimage
   set sprite priority oldimage,1

return

load image "one.png",1,1
load image "two.png",2,1

color backdrop 0
text 0,0, "key to continue"
wait key

sprite 1,100,100,1
sprite 2,150,150,2

do

for i = 0 to 255
   set sprite alpha 1,i
   set sprite alpha 2,255-i
   wait 10
next x

for i = 0 to 255
   set sprite alpha 2,i
   set sprite alpha 1,255-i
   wait 10
next x

loop

   for i = 0 to 255
      if sprite exist(oldimage) then set sprite alpha oldimage, (255-i)
      set sprite alpha currentimage, i
      wait 80
   next i

   if sprite exist(oldimage)
      delete sprite oldimage
      delete image oldimage
   endif

rem the 6 is the number in timer() the 5 is when a five is show in timer do task
rem say timer() = 19345668 the 6 is looking at the number 3 when the 3 is above 5 then
rem the code will do the task.

if val(mid$(str$(timer()),6))>5
   set sprite alpha oldimage, (255-i)
   inc i,1
else
   set sprite alpha oldimage, i
endif