Objekti toisen objektin viereen

[Bambi]

Nyt olisi sellainen typerä ongelma, että miekan pitäisi pysyä kantajansa vieressä. Oon pähkäilly tätä jo pari päivää, mutta en vain keksi vastausta.. tuossa tähän asti oleva koodi:

Code: Select all

SCREEN 640,480
FrameLimit 50

ukko = LoadObject("gfx/ukko.png",72)
miekka = LoadObject("gfx/longsword.png",72)

PositionObject ukko,0,0
PositionObject miekka,ObjectX(ukko)+10,ObjectY(ukko)-10

Repeat
    If LeftKey() Then TurnObject ukko,5:TurnObject miekka, 5
    If RightKey() Then TurnObject ukko, -5:TurnObject miekka, -5
    If UpKey() Then MoveObject ukko, 2:MoveObject miekka, 2
    If DownKey() Then MoveObject ukko, -2:MoveObject miekka, -2
    
    DrawScreen 
Forever 

Pitänee alkaa sineillä ja cosineilla leikkimään, vai?

[mikeful]

Kloonaa paikka ja suunta ja siirrä/käännä sen jälkeen miekkaa vähän parempaan paikkaan?

[phons]

CloneObjectPosition Repeat:n sisään niin se pysyy samassa paikassa aina.

[Bambi]

Oho, tän siitä saa kun yrittää yöllä väsyneenä tehä peliä (khrm ja kokista oli liian vähän ja hirveästi koulustressiä, eikä sormet pysy kurissa ja käsi kramppaa). Kiitoksia avustajille, jos nyt tuota manuaaliaki lukisi tarkemmin tulevaisuuessa.

[Jare]

Jos joudut enemmänkin "liimailemaan" objekteja toisiinsa, tästä voi olla apua: http://cbkk.systec.fi/koodi.php?id=127

[duck-]

annappa setä näyttää

Code: Select all

SCREEN 640,480
FrameLimit 50

ukko = LoadObject("gfx/ukko.png",72)
miekka = LoadObject("gfx/longsword.png",72)

PositionObject ukko,0,0

Repeat

    If LeftKey() Then TurnObject ukko,5
    If RightKey() Then TurnObject ukko, -5
    If UpKey() Then MoveObject ukko, 2
    If DownKey() Then MoveObject ukko, -2

cloneobjectposition miekka,ukko
cloneobjectorientation miekka,ukko
moveobject miekka,20,20 '<-pistä nuo moveobjectin arvot sopivaksi että miekka on ukon käden kohdalla

    DrawScreen
Forever