I have been playing with Pure-basic and I must say it's a step up from Blitzmax and I have got further in less time than I did with blitz, but having said all that I was wondering if some one could take a look at this and point me in the right direction, this is for volume fade "not very good" I know, But I would like to add screen fade to it as well.
;////////////////////////////////////////////
; Volume fade
;////////////////////////////////////////////
ExamineKeyboard()
If KeyboardPushed(#PB_Key_Escape) Or Exit=1
If Time=3
Volume=Volume-1
ModuleVolume(iMod,Volume)
Time=0
Else
Time=Time+1
EndIf
Exit=1
EndIf
This is in my main loop witch exit's when volume reaches 0, Any Ideas?
Thanks.