Auton vaihde/ohjaus v1

Oletko tehnyt jotain, mistä muut voisivat hyötyä. Postita vinkit tänne.
Post Reply
alker
Newcomer
Posts: 49
Joined: Thu Dec 18, 2008 3:32 pm

Auton vaihde/ohjaus v1

Post by alker »

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:

Code: Select all

'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()
Pettis
The Evil Admin
The Evil Admin
Posts: 1044
Joined: Sun Aug 26, 2007 5:08 pm
Location: Rovaniemi
Contact:

Re: Auton vaihde/ohjaus v1

Post by Pettis »

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...
CB Repository .com - Sinne ne kaikki koodit menneet on!
MunVerkko - Ilmaisia foorumeita ja blogeja
Valtzu
Active Member
Posts: 115
Joined: Sun Aug 26, 2007 2:40 pm
Location: Sauvo
Contact:

Re: Auton vaihde/ohjaus v1

Post by Valtzu »

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...
viewtopic.php?p=878#p878
Tuossapa jonkinlainen..
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

Re: Auton vaihde/ohjaus v1

Post by MaGetzUb »

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.. :D
Solar Eclipse
Meneillä olevat Projektit:
We're in a simulation, and God is trying to debug us.
nevssons
Devoted Member
Posts: 503
Joined: Sun Jan 13, 2008 5:02 pm

Re: Auton vaihde/ohjaus v1

Post by nevssons »

Eikö olisi yksinkertaisempaa hoitaa asia näin?

Code: Select all

'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()
Koodarina kohtalainen, henkilönä vittumainen
Image
User avatar
elmo123
Active Member
Posts: 153
Joined: Sun Sep 09, 2007 4:19 pm

Re: Auton vaihde/ohjaus v1

Post by elmo123 »

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.

Blender! TF2! CB! Game Maker! Nokia-mollaus! Kitaransoitto! Breakdance! MadTracker! Minecraft!
cool-driver
Active Member
Posts: 116
Joined: Sat Feb 14, 2009 7:47 am

Re: Auton vaihde/ohjaus v1

Post by cool-driver »

Tein tästä tälläisen version.

Code: Select all

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.
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 4:53 pm

Re: Auton vaihde/ohjaus v1

Post by Jani »

cool-driver wrote:Tein tästä tälläisen version.

Code: Select all

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"?
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition
cool-driver
Active Member
Posts: 116
Joined: Sat Feb 14, 2009 7:47 am

Re: Auton vaihde/ohjaus v1

Post by cool-driver »

Jani wrote:
cool-driver wrote:Tein tästä tälläisen version.

Code: Select all

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.
User avatar
valscion
Moderator
Moderator
Posts: 1599
Joined: Thu Dec 06, 2007 7:46 pm
Location: Espoo
Contact:

Re: Auton vaihde/ohjaus v1

Post by valscion »

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.
cbEnchanted, uudelleenkirjoitettu runtime. Uusin versio: 0.4.1 — Nyt myös sorsat GitHubissa!
NetMatch - se kunnon nettimättö-deathmatch! Avoimella lähdekoodilla varustettu
vesalaakso.com
Post Reply