Panosten liikuttaminen yms.

[Teppo P.]

Elikkäs teen uuden topikin tyhmiin kysymyksiin kirjoittamisen sijaan sen vuoksi, että kysymykset meinaavat hukkua sinne ennen kuin vastauksia tulee.

Ongelma siis on, että ammukset meinaavat mennä seinien läpi, jos ne liikkuvat vähänkin lujempaa, kuinka siis saisin tuon ongelman korjattua? Grandi sanoikin että niitä pitäisi liikuttaa monissa erissä ja tarkistaa joka kierroksella että onko törmäyksiä syntynyt, mutta kuinka käytännössä teen tämän?


Toinen kysymys on, että minkäköhän takia ohjelma heittää MAVia kun ampuu tilejen nurkkaan, eli siis jos on tile, sen vieressä tile jonka päällä on tile, niin kun niiden liitoskohtaan ampuu niin syntyy MAV? Tuo saattaa johtua ihan vaan siitä että koodini on todella purkkaa, mutta kysyn tätä siksi että jos jollain muulla on vaikka ollut sama ongelma.

[Sly_Jack0]

Ongelma siis on, että ammukset meinaavat mennä seinien läpi, jos ne liikkuvat vähänkin lujempaa, kuinka siis saisin tuon ongelman korjattua? Grandi sanoikin että niitä pitäisi liikuttaa monissa erissä ja tarkistaa joka kierroksella että onko törmäyksiä syntynyt, mutta kuinka käytännössä teen tämän?

Code: Select all

For i = 0 To 4

	Liikuta ukkoo yksi pikseli.
	
	Tarkista törmäykset
	
Next i

[Teppo P.]

Code: Select all

For ammus.ammukset=Each ammukset



MoveObject ammus\obj,1




panostörmää=CountCollisions(ammus\obj)


For g=1 To panostörmää
If GetCollision (ammus\obj,g)=kenttä Then

Delete ammus
DeleteObject ammus\obj

EndIf

Next g



Next ammus

Kuinka siis saisin tuohon sen? Jos heitän vaan tuonne moveobjectin eteen for k=1 to 5 ja tuonne next g:n jälkeen next k:n, niin maviahan se heittää kun panos osuu seinään.

[regalis]

Laita exit tuohon deleteobjectin jälkeen. Muuten käy niin, että objekti poistetaan, mutta sitä yritetään vielä liikuttaa sen jälkeen, jolloin tulee MAV.

[Teppo P.]

Eli siis näin?:

Code: Select all

For ammus.ammukset=Each ammukset


For jkl=1 to 5
MoveObject ammus\obj,1




panostörmää=CountCollisions(ammus\obj)


For g=1 To panostörmää
If GetCollision (ammus\obj,g)=kenttä Then

Delete ammus
DeleteObject ammus\obj
Exit
EndIf

Next g

Next jkl

Next ammus

Ei toimi ei.

[regalis]

Näköjään DeleteObject ja Delete on väärin päin. Vaihda vielä ne toisin päin niin pitäisi toimia.

[skinkken]

Itse olen tehnyt panosten törmäyksen näin:

Code: Select all

If GetMap(2,ObjectX(pati\obj),ObjectY(pati\obj))=1 Then

Tarkistetaan onko panos kartan päällä.

[phons]

Itse olen tehnyt panosten törmäyksen näin:

Code: Select all

If GetMap(2,ObjectX(pati\obj),ObjectY(pati\obj))=1 Then

Tarkistetaan onko panos kartan päällä.

Tuota voisi itsekkin käyttää kun välillä on collisionin kanssa ongelmia.