Tällä koodilla saat vaihdettua auton nopeutta/vaihdetta ja jos vaihde on esim.1 sitten auto ajaa nopeutta jotakin...Olen alottelija ja kertokaa bugit ja korjailla saa koodia
Koodi:
'Auton ohjaus/vaihteet v1 by Alker'
'Vaihda vaihdetta 1:lle jos painat s:ää,2:lle jos
'painat z,x jos haluat että vaihde on 3:ella
'ja pakki painamalla d nappia
'Kun sinulla on vaihde valittu paina spacea
'niin auto ajaa
Dim vaihde As integer
vaihde = 0
auto = LoadObject("Media\car.bmp")
Repeat
If KeyDown(cbkeys) Then vaihde = 1
If KeyDown(cbkeyd) Then vaihde = 5
If KeyDown(cbkeyz) Then vaihde = 2
If KeyDown(cbkeyx) Then vaihde = 3
If vaihde = 1 Then
If KeyDown(cbkeyspace) Then MoveObject auto,2
EndIf
If vaihde = 2 Then
If KeyDown(cbkeyspace) Then MoveObject auto,4
EndIf
If vaihde = 3 Then
If KeyDown(cbkeyspace) Then MoveObject auto,6
EndIf
If vaihde = 5 Then
If KeyDown(cbkeyspace) Then MoveObject auto,-2
EndIf
DrawScreen
Until EscapeKey()
Vielä kun teet tuosta yleiskäyttöisen funktion niin heti näyttää paljon paremmalta.
Vanhoilla foorumeilla ainakin joku taisi tutkailla auton vaihteiston mallintamista tarkemminkin, sillä ei auton nopeuden muutokset ihan tuolla tavalla hyppäyksissä tapahdu. Harmi vaan etten muista että kuka...
Pettis wrote:Vielä kun teet tuosta yleiskäyttöisen funktion niin heti näyttää paljon paremmalta.
Vanhoilla foorumeilla ainakin joku taisi tutkailla auton vaihteiston mallintamista tarkemminkin, sillä ei auton nopeuden muutokset ihan tuolla tavalla hyppäyksissä tapahdu. Harmi vaan etten muista että kuka...
Pettis wrote:Vielä kun teet tuosta yleiskäyttöisen funktion niin heti näyttää paljon paremmalta.
Vanhoilla foorumeilla ainakin joku taisi tutkailla auton vaihteiston mallintamista tarkemminkin, sillä ei auton nopeuden muutokset ihan tuolla tavalla hyppäyksissä tapahdu. Harmi vaan etten muista että kuka...
Marcoderhan teki ainakin auton fysiikat, en vain muista linkkiä ulkoa..
Solar Eclipse
Meneillä olevat Projektit:
Solar Engine - Modernin OpenGL rajapinnan päällä toimiva 3D ja 2D pelimoottori.
'Auton ohjaus/vaihteet v1 by Alker'
'Vaihda vaihdetta 1:lle jos painat s:ää,2:lle jos
'painat z,x jos haluat että vaihde on 3:ella
'ja pakki painamalla d nappia
'Kun sinulla on vaihde valittu paina spacea
'niin auto ajaa
nopeus = 2
auto = LoadObject("Media\car.bmp")
Repeat
If KeyDown(cbkeys) Then nopeus = 2
If KeyDown(cbkeyd) Then nopeus = -2
If KeyDown(cbkeyz) Then nopeus = 4
If KeyDown(cbkeyx) Then nopeus = 6
If KeyDown(cbkeyspace) Then MoveObject auto,nopeus
DrawScreen
Until EscapeKey()
Joskus koodailin sellaista, että esim. ykkösvaihteella auto kiihtyy nopeasti, mutta huippunopeus ei päätä huimaa. Kakkosvaihde kiihtyy hiukan ykkköstä hitaammin, mutta huippunopeus on hieman isompi jne.
Kiinnostuin pelien tekemisestä ennen 1. luokkaa.
Sitten 3. luokalla tuli CB. Ja siitä se alkoi.
Dim vaihde As integer
vaihde = 0
auto = LoadObject("Media\car.bmp")
Repeat
If KeyHit(cbkeya) Then vaihde + 1
If KeyHit(cbkeyz) Then vaihde - 1
If vaihde = -1 Then
If UpKey () Then MoveObject auto, -2
EndIf
If vaihde = 1 Then
If UpKey () Then MoveObject auto,2
EndIf
If vaihde = 2 Then
If UpKey () Then MoveObject auto,4
EndIf
If vaihde = 3 Then
If UpKey () Then MoveObject auto,6
EndIf
If vaihde = 4 Then
If UpKey () Then MoveObject auto,8
EndIf
If vaihde = 5 Then
If UpKey () Then MoveObject auto,10
EndIf
DrawScreen
Eli tähän on lisätty pakki ja vaihteet vaihtuvat a:sta ylöspäin ja z:sta alaspäin.
Projektit:
Ships Income Liikenne Suomesta Beta 2: valmis. Lataa tästä Projekti keskeytetty. Tehdään loppuun uuden CoolBasicin tulon jälkeen.
Diktaattori Beta 2: valmis. Lataa Tästä Projekti keskeytetty. Tehdään loppuun uuden CoolBasicin tulon jälkeen.
Dim vaihde As integer
vaihde = 0
auto = LoadObject("Media\car.bmp")
Repeat
If KeyHit(cbkeya) Then vaihde + 1
If KeyHit(cbkeyz) Then vaihde - 1
If vaihde = -1 Then
If UpKey () Then MoveObject auto, -2
EndIf
If vaihde = 1 Then
If UpKey () Then MoveObject auto,2
EndIf
If vaihde = 2 Then
If UpKey () Then MoveObject auto,4
EndIf
If vaihde = 3 Then
If UpKey () Then MoveObject auto,6
EndIf
If vaihde = 4 Then
If UpKey () Then MoveObject auto,8
EndIf
If vaihde = 5 Then
If UpKey () Then MoveObject auto,10
EndIf
DrawScreen
Eli tähän on lisätty pakki ja vaihteet vaihtuvat a:sta ylöspäin ja z:sta alaspäin.
Ehkä tuo eteenpäin meno mieluummin "If UpKey() Then MoveObject auto,vaihde*2"?
Dim vaihde As integer
vaihde = 0
auto = LoadObject("Media\car.bmp")
Repeat
If KeyHit(cbkeya) Then vaihde + 1
If KeyHit(cbkeyz) Then vaihde - 1
If vaihde = -1 Then
If UpKey () Then MoveObject auto, -2
EndIf
If vaihde = 1 Then
If UpKey () Then MoveObject auto,2
EndIf
If vaihde = 2 Then
If UpKey () Then MoveObject auto,4
EndIf
If vaihde = 3 Then
If UpKey () Then MoveObject auto,6
EndIf
If vaihde = 4 Then
If UpKey () Then MoveObject auto,8
EndIf
If vaihde = 5 Then
If UpKey () Then MoveObject auto,10
EndIf
DrawScreen
Eli tähän on lisätty pakki ja vaihteet vaihtuvat a:sta ylöspäin ja z:sta alaspäin.
Ehkä tuo eteenpäin meno mieluummin "If UpKey() Then MoveObject auto,vaihde*2"?
No olen aloittelija joten tuo tuli ensimmäisenä mieleeni.
Edit: Nyt tuli ongelma, se valittaa tuossa kun koitan testata, että "Error in REPEAT Srtucture". Tunti sitten ei tullut nyt tulee, mikä vikana?
Projektit:
Ships Income Liikenne Suomesta Beta 2: valmis. Lataa tästä Projekti keskeytetty. Tehdään loppuun uuden CoolBasicin tulon jälkeen.
Diktaattori Beta 2: valmis. Lataa Tästä Projekti keskeytetty. Tehdään loppuun uuden CoolBasicin tulon jälkeen.
cool-driver wrote:Edit: Nyt tuli ongelma, se valittaa tuossa kun koitan testata, että "Error in REPEAT Srtucture". Tunti sitten ei tullut nyt tulee, mikä vikana?
Aloitat loopin REPEAT sanalla mutta et missään vaiheessa sulje sitä "Until <ehto>" tai "Forever" sanoilla.