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
Mielestäni tämä voisi olla siinä aloittelijoiden esimerkeille tarkoitetussa topikissa, koska tämä ei kovinkaan erikoinen ole, etenkin fysiikka on varsin tönkkö.
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.
Hyvä että tällane pistettii tänne En olis ikinä osannu tehä tollasta (tai ainakaa pitkää aikaa). Nyt voin suurena rallipeli fanina alkaa vääntämään omaa ajelua!!!
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?
Last edited by MAVmaggot on Sat Nov 10, 2007 6:58 pm, edited 2 times in total.