init: gamepad 1 sound 0,1,, sound 1,3,, PlrX=10 PlrY=10 AccX=0 AccY=0 DirX=1 DirY=1 Vol=10 main: do bg copy 0,0,20,16 to 0,0 trace AccX+AccY gosub plrctrls gosub cvars wait vbl loop cvars: if PlrX<20 then volume 0,Vol,1 else if PlrX>140 then volume 0,Vol,2 else volume 0,Vol,3 return plrctrls: U=up(0) D=down(0) L=left(0) R=right(0) sprite 0,PlrX,PlrY,1 PlrX=PlrX+(AccX*DirX) PlrY=PlrY+(AccY*DirY) if L or R then AccX=AccX+0.1 else AccX=AccX-0.1 if U or D then AccY=AccY+0.1 else AccY=AccY-0.1 if AccX <= 0 then AccX=0 if AccY <= 0 then AccY=0 if AccX >= 4 then AccX=4 if AccY >= 4 then AccY=4 if U then DirY=-1 if D then DirY=1 if L then DirX=-1 if R then DirX=1 if PlrX >= 152 then PlrX=152 if PlrX <= 0 then PlrX=0 if PlrY >= 120 then PlrY=120 if PlrY <= 0 then PlrY=0 if PlrX>=152 or PlrX<1 then DirX=-DirX play 1,AccX*12,4 end if if PlrY>=120 or PlrY<1 then DirY=-DirY play 1,AccY*12,4 end if if AccX>0.1 or AccY>0.1 then play 0,(AccX+AccY)*5+50,10 return #1:MAIN PALETTES 002D1D04003C3834003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 7E81A581A599817E007E7E7E7E7E7E00 FF00FFFFFFFF00FFFFFF00000000FFFF BDBDBDBDBDBDBDBDC3C3C3C3C3C3C3C3 BDBEBFBFBF9FC07FC3C1C0C0C0E0FF7F BD7DFDFDFDF903FEC38303030307FFFE 7FC09FBFBFBFBEBD7FFFE0C0C0C0C1C3 FE03F9FDFDFD7DBDFEFF0703030383C3 BD7EFFFFFFFF7EBDC3810000000081C3 FF00FFFFFFFF7EBDFFFF0000000081C3 BDBEBFBFBFBFBEBDC3C1C0C0C0C0C1C3 BD7DFDFDFDFD7DBDC3830303030383C3 BD7EFFFFFFFF00FFC38100000000FFFF 0E3E72D26E0202020E324EBE6E020202 #3:MAIN BG 00001410060102010201020102010201 02010201020102010201020102010201 02010201020102010201070103010000 00000000000000010001000100010001 00010001000100010001000100000000 00000301030100000000000000000000 00000000000100010001000100010001 00000001000100010000030103010000 00000000000000000000000000000000 00000000000000000000000000000000 00000301030100000000000000000000 0000000000000000000000000D000000 00000000000000000000030103010001 00010000000000000000000000000000 00000000000000000000000000000000 00000301030100010001000000000000 00000000000000000000000000000000 00000000000000000001030103010001 00010000000000000000000000000000 00000000000000000000000000000000 00010301030100010001000000000000 00000000000000000000000000000000 00000000000000000001030103010001 00010000000000000000000000000000 00000000000000000000000000000000 00010301030100010001000000000000 00000000000000000000000000000000 00000000000000000000030103010000 00000001000000000000000000000000 00000000000000000000000000000000 00000301030100000000000000000000 00000000000000000000000000000000 00000000000000000000030103010000 00000000000000000000000000000000 00000000000000000000000000000000 00000301030100000000000000000000 00000000000000000000000000000000 00010001000100000000030104010201 02010201020102010201020102010201 02010201020102010201020102010201 02010501