mirror of
https://github.com/sehugg/8bitworkshop.git
synced 2024-08-28 12:29:33 +00:00
37 lines
792 B
QBasic
37 lines
792 B
QBasic
|
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
|