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.
auton sisään meneminen
Re: auton sisään meneminen
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
Kiitos.
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
Osa tuosta sinun koodista on minun tekemääni, kuten postistani näkee, eli ei kannata väittää että olet sen itse tehnyt.Character wrote: Sain tehtyä jo silleen että se ukko menee autoon sisään
Kiitos.
Last edited by Ris on Fri Dec 26, 2008 3:15 pm, edited 1 time in total.
Re: auton sisään meneminen
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:
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
Re: auton sisään meneminen
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..
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
Last edited by Jonhu on Fri Nov 28, 2008 6:22 pm, edited 2 times in total.
Re: auton sisään meneminen
Joo sain sen toimimaan. Tuo clearkeys sieltä uupuikin. Kiitos paljon!
EDIT:
Jonhu: Lisätty on.
Last edited by Character on Fri Nov 28, 2008 6:44 pm, edited 1 time in total.
Re: auton sisään meneminen
Haha pieni korjattavissa oleva ongelma tuossa koodissasi Jonhu. Jos tulet autosta ulos ukkeli on samassa paikassa mistä se meni sisäänkin.
Re: auton sisään meneminen
Oops.. En tarkastanut tarpeeksi suurella ruudulla tuota.. Mutta kysymyksenä oli autosta poistuminen, eikä sen jälkeinen sijoitus yms. xDJos tulet autosta ulos ukkeli on samassa paikassa mistä se meni sisäänkin.
Lisää siihen if lauseeseen CloneObjectPosition ObjPelaaja,Obj, niin pitäisi toimia..