37 lines
792 B
QBasic
Executable File
37 lines
792 B
QBasic
Executable File
include div_mul.asm
|
|
set kernel_options no_blank_lines
|
|
set romsize 8kSC
|
|
set smartbranching on
|
|
const pfres=32
|
|
pfclear
|
|
player0x=10:player0y=7
|
|
player0:
|
|
%11000000
|
|
%01100000
|
|
%00110001
|
|
%00011011
|
|
%00001111
|
|
%00011111
|
|
%00111111
|
|
end
|
|
gameloop
|
|
COLUP0=15
|
|
COLUPF=203
|
|
if joy0left then player0x=player0x-1:if player0x<10 then player0x=10
|
|
if joy0right then player0x=player0x+1:if player0x>137 then player0x=137
|
|
if joy0up then player0y=player0y-1:if player0y<7 then player0y=7
|
|
if joy0down then player0y=player0y+1:if player0y>99 then player0y=99
|
|
skipjoy
|
|
if joy0fire then gosub plot
|
|
drawscreen
|
|
goto gameloop
|
|
plot
|
|
rem convert player position to playfield pixel
|
|
rem divide by 3 vertically
|
|
g=(player0y-7)/3
|
|
h=(player0x-10)/4
|
|
if g=i && j=h then return
|
|
i=g:j=h
|
|
pfpixel h g flip
|
|
return
|