i would improve one thing - instead of having only 3 different sprites for the main ship (one when moving left, another when moving right, and another when not moving or moving up or down), i would have 5 or more that would rotate to left or to right as we were moving to left or to right , just like we can see in all top-view arcade games like Vulgus, Tokio, Flying Shark, etc.
that is not hard to do, when moving to left or to right you were decreasing or increasing a variable - like from 0 to -3, or from 0 to 3, and when not moving to left or to right, this variable would increase or decrease until 0 - using this will visually smooth the ship motion a lot
when i started to try to code a kind of Flying Shark remake for MSX1 on Boriel’s ZX-Basic Compiler ( 
), the first thing i tried to focus on was how the ship would move, and the code i made for that was this one (never mind about the garbage written in the code) - the most relevant part is after @loop01 , xdrc is the variable i’m talking about as example there :
#include "library/msx1filvrm.bas" #include "library/msx1ldirvm.bas" #include "library/msxcolor.bas" #include "library/msxscreen.bas" #include "library/msx1vpoke.bas" #include "library/msxpalette.bas" #include "library/msx1putsprite.bas" #include "library/msxsnsmat.bas" #include "library/_msx16x16sprites.bas" #include "library/msxrnd.bas" #include "library/_msxwaitvbl_deprecated.bas" '- <-!!! - replace #include "library/flyingsharksprites_msx_bw.bas" '------------------------------------------------------------------------------- '- defining variables dim oxsp as uinteger at $E000 dim oysp as uinteger at $E002 dim xdrc as uinteger at $E004 dim sprnum as uinteger at $E006 dim frmcnt as uinteger at $E008 xdrc=112:sprnum=0 oxsp=116:oysp=160 '------------------------------------------------------------------------------- '- whatever... msxcolor($7,$E,$1) msxscreen(2,0,0,0) msx16x16sprites() '- sets 16x16 sprite size, i have no idea how to do it otherwise? '------------------------------------------------------------------------------- '- sprites msx1ldirvm($3800,@sprites01,1024) '------------------------------------------------------------------------------- loop01: '- moving the ship 'if (msxsnsmat(8) band 1)=0 and shot=0 then:shot=1:end if if (msxsnsmat(8) band 128)=0 then:oxsp=oxsp+1:xdrc=xdrc+8:end if '- right if (msxsnsmat(8) band 16)=0 then:oxsp=oxsp-1:xdrc=xdrc-8:end if '- left if (msxsnsmat(8) band 64)=0 then:oysp=oysp+1:end if '- down if (msxsnsmat(8) band 32)=0 then:oysp=oysp-1:end if '- up if xdrc<112 then:xdrc=xdrc+4:end if if xdrc>112 then:xdrc=xdrc-4:end if if xdrc<32 then:xdrc=32:end if if xdrc>191 then:xdrc=191:end if if oxsp<4 then oxsp=4:end if if oysp<4 then oysp=4:end if if oxsp>224 then oxsp=224:end if if oysp>180 then oysp=180:end if sprnum=(int(xdrc/32))-1 msx1putsprite(0,oxsp+peek(@sprpos01+0+sprnum),oysp,(sprnum+((frmcnt band 2)*8) )*4,5) msx1putsprite(1,oxsp+peek(@sprpos01+8+sprnum),oysp,(sprnum+8+((frmcnt band 2)*8) )*4,4) msxwaitvbldeprecated() frmcnt=frmcnt+1 goto loop01 '------------------------------------------------------------------------------- sprpos01: asm defb 3,2,0,2,4,0,0,0 defb 4,6,8,6,5,0,0,0 end asm '-------------------------------------------------------------------------------
Looks promising, please add SCC or / and MOONSOUND music 
Impressive
I agree with mesiasmsx. No moonsound. And if you want richer sound, support opll as it's often internally available and it's an official extension to the MSX standard
