Page 1 of 1
auton sisään meneminen
Posted: Wed Nov 26, 2008 9:23 pm
by 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.
Re: auton sisään meneminen
Posted: Wed Nov 26, 2008 9:38 pm
by 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
Character wrote: 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.
Re: auton sisään meneminen
Posted: Wed Nov 26, 2008 9:50 pm
by aloittelijaC
Kiitos.
Re: auton sisään meneminen
Posted: Thu Nov 27, 2008 8:19 pm
by 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
Re: auton sisään meneminen
Posted: Thu Nov 27, 2008 8:31 pm
by Aaponator
keyhit, showobject, position object
Re: auton sisään meneminen
Posted: Thu Nov 27, 2008 8:36 pm
by 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
Re: auton sisään meneminen
Posted: Thu Nov 27, 2008 8:50 pm
by Character
Joo sain sen toimimaan. Tuo clearkeys sieltä uupuikin. Kiitos paljon!
Re: auton sisään meneminen
Posted: Fri Nov 28, 2008 6:11 pm
by phons
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
Posted: Fri Nov 28, 2008 6:21 pm
by 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..