auton sisään meneminen

[aloittelijaC]

Olen vasta aloittelija enkä osaa paljon mitään mutta miten saa tehtyä silleen että ukko pääsee autoon sisään niin kuin GTA:ssa?
Oon yrittänyt ehtiä foorumeilta mutta en ole löytänyt. Ja ne ukot ja autot on toteutettu objekteilla.

[Ris]

Tekaisin nopeasti tälläisen. Niin ja CoolBasicin ohjetiedostoa kannattaa lukea. Niin ja tuo GTA:n tapainen autoon meno kannattaa tehdä animaationa. Mutta se on jo toinen juttu. Vinkiksi kuitenkin komennot: Loadanimobject , PlayObject ja StopObject

Code: Select all

ObjAuto=LoadObject("media/car.bmp")

ObjPelaaja=LoadObject("media/guy.bmp",36)
PositionObject ObjPelaaja,30,100

Repeat 

    If KeyDown(28) Then 'Jos painetaan enteriä
    
        PointObject ObjPelaaja,ObjAuto ' Osoitetaan kohti ObjAutoa
        MoveObject ObjPelaaja,1 'Liikutetaan objektia pelaaja kohti autoa
        
        RotateObject ObjPelaaja,GetAngle2(ObjPelaaja,ObjAuto) 'Käännetään pelaaja auton kulmaan
        
        If ObjectsOverlap (ObjPelaaja,ObjAuto) 'Jos pelaaja ja auto objekti koskettavat toisiaan
            CloneObjectPosition ObjPelaaja,ObjAuto 'niin kloonataan pelaajan paikka auton paikkaan
            ShowObject ObjPelaaja,OFF ' ja piilotetaan pelaaja
        EndIf 
    EndIf
    
    DrawScreen 
    
Forever 

Sain tehtyä jo silleen että se ukko menee autoon sisään

Osa tuosta sinun koodista on minun tekemääni, kuten postistani näkee, eli ei kannata väittää että olet sen itse tehnyt.
Kiitos.

[aloittelijaC]

Kiitos.

[Character]

Anteeksi tuplapostaus rekisteröidyin. Sain tehtyä jo silleen että se ukko menee autoon sisään mutta en millään keksi miten sen
saisi ulos sieltä kun painaa uudestaan enteriä. Tässä koodi:

Code: Select all

FrameLimit 40

ObjAuto=LoadObject("media/car.bmp",72)

ObjPelaaja=LoadObject("media/guy.bmp",72)
PositionObject ObjPelaaja,30,100

Obj=ObjPelaaja

autossa=False

Repeat 

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

    If autossa=False And KeyDown(28) Then 'Jos painetaan enteriä
    
        PointObject ObjPelaaja,ObjAuto ' Osoitetaan kohti ObjAutoa
        MoveObject ObjPelaaja,5 'Liikutetaan objektia pelaaja kohti autoa
        
        RotateObject ObjPelaaja,GetAngle2(ObjPelaaja,ObjAuto) 'Käännetään pelaaja auton kulmaan
        
        If ObjectsOverlap (ObjPelaaja,ObjAuto) And KeyHit(28) Then 'Jos pelaaja ja auto objekti koskettavat toisiaan
            CloneObjectPosition ObjPelaaja,ObjAuto 'niin kloonataan pelaajan paikka auton paikkaan
            ShowObject ObjPelaaja,OFF ' ja piilotetaan pelaaja
            Obj=ObjAuto
            autossa=True
        EndIf 
    EndIf
    
    DrawScreen 
    
Forever

[Aaponator]

keyhit, showobject, position object

[Jonhu]

tässä koodi.. Toivottavasti ymmärrät ilaman kommentointia..
Jos seuraavaksi kysyt miten saat kameran seuraamaan autoa / ukkoa katso komento CloneCameraPosition (hienommankin ulostulon voisi väsätä, jos sijoittasi ukon aina esim. kuljettajan paikan viereen)...

EDIT: virhe korjattu , mutta kysymyksenähän oli vain autosta poistuminen, eikä samaan positioon laittaminen sen jälkeen..

Code: Select all

FrameLimit 40

ObjAuto=LoadObject("media/car.bmp",72)

ObjPelaaja=LoadObject("media/guy.bmp",72)
PositionObject ObjPelaaja,30,100

Obj=ObjPelaaja

autossa=False

Repeat

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

    If autossa=False And KeyDown(28) Then 'Jos painetaan enteriä
   
        PointObject ObjPelaaja,ObjAuto ' Osoitetaan kohti ObjAutoa
        MoveObject ObjPelaaja,5 'Liikutetaan objektia pelaaja kohti autoa
       
        RotateObject ObjPelaaja,GetAngle2(ObjPelaaja,ObjAuto) 'Käännetään pelaaja auton kulmaan
       
        If ObjectsOverlap (ObjPelaaja,ObjAuto) And KeyHit(28) Then 'Jos pelaaja ja auto objekti koskettavat toisiaan
            CloneObjectPosition ObjPelaaja,ObjAuto 'niin kloonataan pelaajan paikka auton paikkaan
            ShowObject ObjPelaaja,OFF ' ja piilotetaan pelaaja
            Obj=ObjAuto
            autossa=True
            ClearKeys
        EndIf
    EndIf
    
    If autossa=True And KeyHit(28) Then 
        autossa=False
        CloneObjectPosition ObjPelaaja,Obj
        ShowObject ObjPelaaja,ON
        Obj=ObjPelaaja
        ClearKeys
    EndIf
   
    DrawScreen
   
Forever

[Character]

Joo sain sen toimimaan. Tuo clearkeys sieltä uupuikin. Kiitos paljon!

EDIT:

Jonhu: Lisätty on.

[phons]

Haha pieni korjattavissa oleva ongelma tuossa koodissasi Jonhu. Jos tulet autosta ulos ukkeli on samassa paikassa mistä se meni sisäänkin.

[Jonhu]

Jos tulet autosta ulos ukkeli on samassa paikassa mistä se meni sisäänkin.

Oops.. En tarkastanut tarpeeksi suurella ruudulla tuota.. Mutta kysymyksenä oli autosta poistuminen, eikä sen jälkeinen sijoitus yms. xD

Lisää siihen if lauseeseen CloneObjectPosition ObjPelaaja,Obj, niin pitäisi toimia..