Hi...
Heres 2 Functions that I made to fade a picture in and out on [Bitmap 0], Im using it for a Simply Loading Screen, (FadeIn, Loadobjects,Ect And Then Fade Out)
It all Works, But be warned that it uses [Blur Image] and [Fade Image] so if you use a full screen image, then it will go slow!!! But other than that its Fine...
` Fade Commands
`
` By Michael Mihalyfi
` [email protected]
Set Display Mode 1024,768,32
FadeIn(1,2,0,1,1,SystemPath$ + "LAT.Bmp")
` Do your Loading HERE
FadeOut(1,2,0,1,1,SystemPath$ + "LAT.Bmp")
` Fade Commands ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Function FadeIn(BlurPic,FadePic,BlurValue,T,KeyPress,Pic$) : ` KeyPress$ [0/1] : Fade an Image Into View with Blue and Fade
ReturnValue = 0
` Setup Blur Pic
Load Bitmap Pic$,32
If BlurValue => 1 Or BlurValue <= 6 Then Blur Bitmap 32,BlurValue
Set Current Bitmap 32
Get Image BlurPic,0,0,Bitmap Width(32),Bitmap Height(32),T
Set Current Bitmap 0
` Fade In
For Fade = 1 To 100 Step 1
If KeyPress = 1
KeyPress$ = Inkey$()
If KeyPress$ <> "" Then Goto SkipFadeImage
EndIf
Set Current Bitmap 32
Paste Image BlurPic,0,0
Fade Bitmap 32, Fade
Get Image FadePic,0,0,Bitmap Width(32),Bitmap Height(32),T
Set Current Bitmap 0
Paste Image FadePic,Screen Width() / 2 - (Bitmap Width(32) / 2),Screen Height() / 2 - (Bitmap Height(32) / 2)
Sync
Next X
Goto FadeImageComplete
SkipFadeImage: ReturnValue = 1
FadeImageComplete: ` CleanUp
Delete Bitmap 32
Delete Image BlurPic
Delete Image FadePic
EndFunction ReturnValue
Function FadeOut(BlurPic,FadePic,BlurValue,T,KeyPress,Pic$) : ` KeyPress$ [0/1] : Fade an Image Out of View with Blue and Fade
ReturnValue = 0
` Setup Blur Pic
Load Bitmap Pic$,32
If BlurValue => 1 Or BlurValue <= 6 Then Blur Bitmap 32,BlurValue
Set Current Bitmap 32
Get Image BlurPic,0,0,Bitmap Width(32),Bitmap Height(32),T
Set Current Bitmap 0
` Fade Out
For Fade = 100 To 1 Step -1
If KeyPress = 1
KeyPress$ = Inkey$()
If KeyPress$ <> "" Then Goto SkipFadeImage
EndIf
Set Current Bitmap 32
Paste Image BlurPic,0,0
Fade Bitmap 32, Fade
Get Image FadePic,0,0,Bitmap Width(32),Bitmap Height(32),T
Set Current Bitmap 0
Paste Image FadePic,Screen Width() / 2 - (Bitmap Width(32) / 2),Screen Height() / 2 - (Bitmap Height(32) / 2)
Sync
Next X
Goto FadeImageComplete
SkipFadeImage: ReturnValue = 1
FadeImageComplete: ` CleanUp
Delete Bitmap 32
Delete Image BlurPic
Delete Image FadePic
EndFunction ReturnValue
