DECLARE SUB ScreenSwap
(way$
, image1&
, image2&
, speed!
)
'===============================================================
source$ = "winstone-data\" ' <<< LOCATION OF DATA FILES!
'===============================================================
'=== Set screen
'=== load image to use
pic&
= _LOADIMAGE(source$
+ "img\paper-title.jpg")help&
= _LOADIMAGE(source$
+ "img\helpscreen.jpg")
ScreenSwap
"LEFT", pic&
, help&
, 60:
_DELAY 1ScreenSwap
"RIGHT", help&
, pic&
, 60:
_DELAY 1ScreenSwap
"DOWN", pic&
, help&
, 60:
_DELAY 1ScreenSwap
"UP", help&
, pic&
, 60:
_DELAY 1
'========================================================================================
'
'========================================================================================
SUB ScreenSwap
(way$
, image1&
, image2&
, speed!
)
x2 = 0
x2 = x2 - 15
x2 = 0 - (1023 / 2)
'underneath one first (now image1)
x2 = x2 + 15
x2 = 0
x2 = x2 + 15
x2 = 1023 / 2
'underneath one first (now image1)
x2 = x2 - 15
y2 = 0
y2 = y2 - 15
y2 = 0 - (767 / 2)
'underneath one first (now image1)
y2 = y2 + 15
y2 = 0
y2 = y2 + 15
y2 = (767 / 2)
'underneath one first (now image1)
y2 = y2 - 15