Edestakaisin liikkuva alusta

[Mikkoli]

Moi.

Onko mahdollista koodata sellainen alusta, joka liikkuu edestakaisin ja jonka päällä hahmo voi seistä? Kyseessä on siis sivusta kuvattu tasohyppely. Olen jo saanut törmäykset siedettävään kuntoon (alustan päällä voi seistä), mutta en tiedä kuinka saada alusta liikkumaan ensin esim. oikealle ja sitten vasemmalle.

[esa94]

Code: Select all

Dim slidemul, slidelen, xpos, ypos, xtarget As Integer

xpos = ObjectX(alusta) ' alkusijainti, sijoita alusta ensin
ypos = ObjectY(alusta)
slidemul = 1
slidelen = 50

' -- pääloopissa
xtarget = xpos + Sin(Timer() * slidemul) * slidelen
PositionObject(xtarget, ypos)

[Mikkoli]

Kiitos paljon!

Vielä yksi kysymys: Miten saan alustan liikkumaan hitaammin? Tuossa alkuperäisessä koodissa jonka laitoit alusta liikkuu mieletöntä vauhtia edestakaisin. Yritin sörkkiä numeroita ja komentoja, mutta en saanut alustaa hidastettua.

[Sly_Jack0]

Muuta slidemul pienemmäksi. Sitä varten se pitää muuttaa liukuluvuksi. Eli poistat sen tuosta ekalta riviltä Dimin jälkeen ja lisäät vaikkapa seuraavalle riville:

Code: Select all

Dim slidemul As Float