AvaruusKikkelin ammukset ei toimi. HELP!!!

[mikkois]

Harjoittelen coolbasicin käyttöä ja testailen avaruusräiskintäpelin toteutusta. Pelissäni (AvaruusKikkeli) sain toteutettua alkukantaisesti ammukset ja liikkuvan aluksen mutta ampuminen vaatii hieman kehitystä koska tällä hetkellä "alus" pystyy ampumaan vain yhden ammuksen kerrallaan. Uuden ammuksen voi ampua vasta kun panos on mennyt ruudusta ulos.

Code: Select all

SetWindow "AvaruusKikkeli"
SCREEN 1350,750
FrameLimit 60
panos=LoadObject("c:\data\panos.png")
meisseli=LoadObject("c:\data\meisseli.png")
PositionObject meisseli,0,0
PositionObject panos,5000,1000

Repeat

If UpKey() Then MoveObject meisseli,0,-5
If DownKey() Then MoveObject meisseli,0,5
If RightKey() Then MoveObject meisseli,5,0
If LeftKey() Then MoveObject meisseli,-5,0
MoveObject panos,20,0
If KeyHit(cbkeyreturn) And ObjectX(panos)>700 Then PositionObject panos,ObjectX(meisseli),ObjectY(meisseli)

DrawScreen
Until EscapeKey() 

Miten olisi järkevämpi toteuttaa ampuminen että voisin paukuttaa jatkuvalla syötöllä sarjatulta eikä tarvitsisi tyytyä yhteen tusaukseen kerralla.

[Koodari]

Katso esimerkit 17 ja 18!
Eli talleta ammukset tyyppimuuttujaan tai taulukkoon!

[mikkois]

Kiitos. Olinpas dorka kun en käynyt esimerkkejä läpi ensimmäisenä...

[Koodari]

Sellaista sattuu, kun alkaa koodaamaan
Ei muuta, kuin opettelemaan taulukoita