mirror of
https://github.com/stevenhowes/TheEscape.git
synced 2026-05-27 04:01:28 +01:00
stevenhowes
105 lines
1.8 KiB
VB.net
105 lines
1.8 KiB
VB.net
|
|
PROC_main
|
|
END
|
|
|
|
DEF PROC_main
|
|
REM Current graphics buffer
|
|
DIM SCR 0
|
|
|
|
REM Player location
|
|
LOCATIONX=0
|
|
LOCATIONY=0
|
|
|
|
REM Player ship attributes
|
|
VELOCITY=0
|
|
SHIELDS=100
|
|
STRUCTURALINTEGRITY=100
|
|
XPERCENT=5
|
|
|
|
REM Used for centiseconds per frame calcs
|
|
CENTS = TIME
|
|
|
|
REM 800x600 GFX Area 1600x1200
|
|
MODE 32
|
|
|
|
REM Sprite set
|
|
sprite_area% = FNload_sprites("Spr")
|
|
|
|
REPEAT
|
|
REM Store current time and last time
|
|
LASTCENTS = CENTS
|
|
CENTS = TIME
|
|
|
|
REM Set grpahics buffer
|
|
SYS "OS_Byte",112,SCR
|
|
|
|
KEY = INKEY(0)
|
|
|
|
IF KEY = 100 THEN
|
|
LOCATIONX = LOCATIONX + (XPERCENT * (CENTS - LASTCENTS))
|
|
ENDIF
|
|
IF KEY = 97 THEN
|
|
LOCATIONX = LOCATIONX - (XPERCENT * (CENTS - LASTCENTS))
|
|
ENDIF
|
|
|
|
CLS
|
|
|
|
SYS "OS_SpriteOp",34+256,sprite_area%,"lcars",0,940,0
|
|
|
|
|
|
REM PRINT "X: " + STR$(LOCATIONX)
|
|
REM IF KEY <> -1 THEN
|
|
REM PRINT "Key: " + STR$(KEY)
|
|
REM ELSE
|
|
REM PRINT "Key:"
|
|
REM ENDIF
|
|
REM PRINT "CPF: " + STR$(CENTS - LASTCENTS)
|
|
|
|
|
|
SYS "OS_SpriteOp",34+256,sprite_area%,"player_ship",LOCATIONX,0,0
|
|
|
|
VDU 5
|
|
|
|
GCOL 0,0
|
|
MOVE 75,1150
|
|
PRINT "Sheilds"
|
|
MOVE 75,1120
|
|
PRINT "Integrity"
|
|
MOVE 75,1090
|
|
PRINT "Velocity"
|
|
|
|
GCOL 0,7
|
|
MOVE 130,1150
|
|
PRINT SHIELDS
|
|
MOVE 130,1120
|
|
PRINT STRUCTURALINTEGRITY
|
|
MOVE 130,1090
|
|
PRINT VELOCITY
|
|
|
|
WAIT
|
|
|
|
SYS "OS_Byte",113,SCR
|
|
|
|
IF SCR=0 THEN SCR=1 ELSE SCR=0
|
|
|
|
UNTIL FALSE
|
|
|
|
ENDPROC
|
|
|
|
DEF PROCdelay(n)
|
|
T%=TIME+n:REPEAT UNTIL TIME > T%
|
|
ENDPROC
|
|
|
|
DEF FNload_sprites(sprite_file$)
|
|
LOCAL length%, area_ptr%
|
|
SYS "OS_File",13,sprite_file$ TO ,,,,length%
|
|
DIM area_ptr% length%+4-1
|
|
area_ptr%!0 = length%+4
|
|
area_ptr%!4 = 16
|
|
SYS "OS_SpriteOp",9+256,area_ptr%
|
|
SYS "OS_SpriteOp",10+256,area_ptr%,sprite_file$
|
|
=area_ptr%
|
|
|
|
|
|
|