Auton liikkuminen

Oletko tehnyt jotain, mistä muut voisivat hyötyä. Postita vinkit tänne.
Post Reply
MAVmaggot
Advanced Member
Posts: 468
Joined: Fri Aug 31, 2007 10:18 pm
Location: bitspace

Auton liikkuminen

Post by MAVmaggot »

Tässä väsäämäni auto esimerkki. Kurvaus jäljet ja äänet kun lisää, niin pitäisi olla käyttö kelpoinen :)

Code: Select all

FrameLimit 40 ' rajoita nopeutta

ruoho = MakeObjectFloor ()
nurmikko = LoadImage ("Media\grass.bmp")
PaintObject ruoho, nurmikko                       'tee nurmikko

auto=LoadObject("media\car.bmp",360) 'lataa auto

Repeat 'pääluuppi

kl = 0 'kääntymis laskuri = 0

If vauhti<20 And UpKey() Then 'liikuta autoa
 vauhti+1 
 Else
 vauhti-1
EndIf

If vauhti+1 Then kl+vauhti
If kl>5 Then kl=5 'kokeile poistaa tämä rivi

If vauhti<0.5 Then vauhti=0 'kokeile poistaa tämä rivi

If vauhti>15 And LeftKey() Then MoveObject auto, 0,5 'heitä perää
If vauhti>15 And RightKey() Then MoveObject auto, 0,-5 'heitä perää

If LeftKey() Then TurnObject auto, kl 'käännä autoa
If RightKey() Then TurnObject auto, -kl 'käännä autoa

MoveObject auto, vauhti 'liikuta autoa

CloneCameraPosition auto 'seuraa autoa

DrawScreen 'piirrä näyttö

Forever 'jatka ikuisesti, muah hahah
koodaaja
Moderator
Moderator
Posts: 1583
Joined: Mon Aug 27, 2007 11:24 pm
Location: Otaniemi - Mikkeli -pendelöinti

Re: Auton liikkuminen

Post by koodaaja »

Mielestäni tämä voisi olla siinä aloittelijoiden esimerkeille tarkoitetussa topikissa, koska tämä ei kovinkaan erikoinen ole, etenkin fysiikka on varsin tönkkö.
MAVmaggot
Advanced Member
Posts: 468
Joined: Fri Aug 31, 2007 10:18 pm
Location: bitspace

Re: Auton liikkuminen

Post by MAVmaggot »

Tarkoitukseni olikin ettei koodi ole kummoinen, vaan yksinkertainen aloittelijan ensimmäiseen peliin missä autolla on sivurooli.
Tönkkö tämä kyllä on, mutta tarkoituksella. Alkaja saa itse vähän säätää kiihtyvyys arvoja ja muita, niin oppii paremmin.
Eli tarkoitus ei ole copypastettaa omaan koodin.
Re1z0r
Newcomer
Posts: 18
Joined: Tue Aug 28, 2007 7:14 pm
Location: Korpilahti
Contact:

Re: Auton liikkuminen

Post by Re1z0r »

Hyvä että tällane pistettii tänne :D En olis ikinä osannu tehä tollasta (tai ainakaa pitkää aikaa). Nyt voin suurena rallipeli fanina alkaa vääntämään omaa ajelua!!! :D
Mr.Demolition
Newcomer
Posts: 21
Joined: Tue Aug 28, 2007 6:54 am

Re: Auton liikkuminen

Post by Mr.Demolition »

Hei täähän on aivan mahtava. Sopii täydellisesti One Sainttiin. Kiitksia erittäin plajon.
MAVmaggot
Advanced Member
Posts: 468
Joined: Fri Aug 31, 2007 10:18 pm
Location: bitspace

Re: Auton liikkuminen

Post by MAVmaggot »

ei mitn :D hyvä että kelpaa :) ja tässä uus versio. eli nyt auton liiraamiseen vaikuttaa kääntymisen jyrkkyys eikä liikkumis vauhti. :)

Code: Select all

        FrameLimit 40 ' rajoita nopeutta

        ruoho = MakeObjectFloor ()
        nurmikko = LoadImage ("Media\grass.bmp")
        PaintObject ruoho, nurmikko             'tee nurmikko

        auto=LoadObject("media\car.bmp",360) 'lataa auto

        Repeat 'pääluuppi

        kl = 0 'kääntymis laskuri = 0, hallitsee kääntymistä

        If vauhti<20 And UpKey() Then 'JOS painetaan_ylänuolta NIIN...
        vauhti+1 'lisätään vauhtia.
        Else 'jos ei paineta...
        vauhti-1 'vähennetään vauhtia
        EndIf 'piste.

        If vauhti+1 Then kl+vauhti 'JOS vauhtiin_lisätään_nopeutta NIIN kääntymis_laskuriin_lisätään_jyrkkyyttä
        If kl>5 Then kl=5  'JOS kääntymis_laskuri_on_suurempi_kuin_5 NIIN se_pysyy_viidessä *

        If vauhti<0.5 Then vauhti=0  'JOS vauhti_on_pienempi_kuin_0.5 NIIN vauhti_pysyy_nollassa *

        If kl>3 And LeftKey() Then MoveObject auto, 0,5 'JOS käänt.las._on_suurempi_kuin_3 JA vasen_nuoli NIIN heitä perää                                                      'painetaan_vasenta_nuolta NIIN liikutetaan_autoa_sivulle
        If kl>3 And RightKey() Then MoveObject auto, 0,-5 'sama oikealle

        If LeftKey() Then TurnObject auto, kl 'JOS vasen_nuoli NIIN käännä autoa vasemmalle
        If RightKey() Then TurnObject auto, -kl 'sama oikealle

        MoveObject auto, vauhti 'liikuta autoa

        CloneCameraPosition auto 'seuraa autoa

        DrawScreen 'piirrä näyttö

        Forever 'jatka ikuisesti

       'eli tämä on pelkää jossittelua 
kommentoikkaa onko tämä parempi? :D
Last edited by MAVmaggot on Sat Nov 10, 2007 6:58 pm, edited 2 times in total.
_machine
Newcomer
Posts: 14
Joined: Tue Aug 28, 2007 2:19 pm

Re: Auton liikkuminen

Post by _machine »

Mielestäni parempi, tosin ei vieläkään yhtä hyvä kuin monet
auto-esimerkit vanhoilla foorumeilla.
[PC][Wii][GC][N64][GBC]
-Up the Irons!
Guest -ManualIntelligence

Re: Auton liikkuminen

Post by Guest -ManualIntelligence »

Ihan jees aloittelijoille.
Minusta tässä on yksi parhaimmista auton fysiikoista=http://www.coolbasic.com/oldforums/inde ... c=3386&hl=
Olwi

Re: Auton liikkuminen

Post by Olwi »

Just etsin koodeja autopeliini jota aloittelen,kiitos!
Olen melko aloitteleva koodaja mutta yritetään oppia tätä.
MAVmaggot
Advanced Member
Posts: 468
Joined: Fri Aug 31, 2007 10:18 pm
Location: bitspace

Re: Auton liikkuminen

Post by MAVmaggot »

eipä kestä. :)
lisäsin vähän kommentteja uuteen versioon (vähän ylempänä)
ja muutes oleellista sanoa että, auto on etuvetonen :geek:
uapo7
Newcomer
Posts: 10
Joined: Sat Feb 07, 2009 12:51 pm

Re: Auton liikkuminen

Post by uapo7 »

Guest -ManualIntelligence wrote:Ihan jees aloittelijoille.
Minusta tässä on yksi parhaimmista auton fysiikoista=http://www.coolbasic.com/oldforums/inde ... c=3386&hl=

Yritin avata tota sivua mut se on kait poistettu. Voisitko laittaa auton fysiikan koodina, jos sinulla tai jollakin olisi se vielä tallella?
Post Reply