Keskustelu: Ohjelmointikysymykset: QB Ampuminen&Hyppiminen

type ammus
    x as integer
    y as integer
    suunta as integer
    liikkeella as boolean
end type

dim paukku(100) as ammus
dim j as integer

do
if inkey$=" " then gosub ammu
for l=0 to j
     pset(paukku(l).y,paukku(l).x),0
     select case paukku(l).suunta
          case 0
               paukku(l).x=paukku(l).x+1
          case 1
               paukku(l).x=paukku(l).x-1
          case 2
               paukku(l).y=paukku(l).y+1
          case 3
               paukku(l).y=paukku(l).y-1
     end select
     pset(paukku(l).y,paukku(l).x),4
next
loop

ammu:
paukku(j).x=pelaajanx
paukku(j).y=pelaajany
paukku(j).suunta=pelaajansuunta
paukku(j).liikkeella=true
j=j+1
return