GameLearn002
REM GameLearn002
'Lets show the hawk graphics over the background
'Demonstaarte clearcolor
DEFLNG A-Z 'any variable with a name starting with the letters a throught to z are LONG types
CONST True = -1, False = NOT (True) 'constants for logic
Video& = _NEWIMAGE(640, 480, 32) 'screen 12 size 32bit colors
SCREEN Video& 'make this the surface the user sees on monitor
LOCATE 20, 1: PRINT "this line -->SCREEN Video&<-- created this output screen window"
_DELAY 1
Background& = _LOADIMAGE("Cliffinclouds.bmp") 'create the background page
Graphics& = _LOADIMAGE("Hawk_sprite.bmp") 'create the sprite sheet page
_LIMIT 30 '30 frames per second
PRINT "Press a key to see background"
Dummy$ = INPUT$(1)
_PUTIMAGE , Background&, Video& 'copy the background onto the video page
LOCATE 20, 1: PRINT "this line -->_PUTIMAGE , Background&, Video&<-- showed the bg on monitor"
_DELAY 1
PRINT "Press a key to see hawk graphics"
Dummy$ = INPUT$(1)
_PUTIMAGE (100, 100)-(275, 160), Graphics&, Video& 'copy the hawks over the background
LOCATE 20, 1: PRINT "this line ->_PUTIMAGE (100, 100)-(275, 160), Graphics&, Video&<- showed the hawks on monitor"
_DELAY 1
PRINT "Press a key to see hawk graphics with clearcolor"
Dummy$ = INPUT$(1)
_PUTIMAGE , Background&, Video& 'copy the background onto the video page
_CLEARCOLOR 0, Graphics& 'set clearcolor to black(background color on hawk sprite page)
_PUTIMAGE (100, 100)-(275, 160), Graphics&, Video& 'copy the hawks over the background
LOCATE 20, 1
PRINT "this line ->_PUTIMAGE , Background&, Video&<- showed the bg on monitor"
PRINT "This line ->_CLEARCOLOR 0, Graphics&<- declared the clearcolor is 0(zero) on Graphics page"
PRINT "this lines ->_PUTIMAGE (100, 100)-(275, 160), Graphics&, Video&<- showed the hawks on monitor"
_DELAY 1
PRINT "Press a key to EXIT"
SLEEP
SYSTEM