I have made a fading image function but it seems to be so slow. Can anyone find the problem in this code or find a better, quicker way of achieving this effect:
Function Splash_Screen(displaytime)
load bitmap "Media/sslogo.bmp",1
create bitmap 2, bitmap width(1), bitmap height (1)
set current bitmap = 0
fade= 0
repeat
fade = fade + 1
cls
copy bitmap 1,2
fade bitmap 2, fade
copy bitmap 2,0
until fade = 100
sleep displaytime * 1000
repeat
fade = fade - 1
cls
copy bitmap 1,2
fade bitmap 2, fade
copy bitmap 2,0
until fade = 0
exitfunction
endfunction
Cheers people
Its not a bug, Its a feature
If we were meant to stay in this reality games would not exist!