Kukaan pystyisi ratkaisemaan tätä?
Code: Select all
'Esimerkki 3 : Liikkuva objekti
'================================================
'! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
'Aja tämä ohjelma painamalla F5.
'Lopeta ohjelma painamalla ESC.
'! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
FrameLimit 40 'rajoita pelin toimintanopeutta
'lataa pelihahmo
ukko = LoadObject("Media\guy.bmp", 72)
ClsColor cbWhite
Repeat 'pääsilmukan alku
'ohjaa nuolilla
If LeftKey() Then TurnObject ukko, +5
If RightKey() Then TurnObject ukko, -5
If UpKey() Then MoveObject ukko, 3
If DownKey() Then MoveObject ukko, -3
If KeyDown(cbKeyN) Then MoveObject ukko, 5
DrawScreen
Forever
'Analyysi:
'------------------------------------------------
'Nyt voit jo liikkua ukolla ympäriinsä nuolien
'avulla. Voit kääntyä tai kävellä eteen/taaksepäin.
'Tämä esimerkki tuo pari uutta asiaa. Ensimmäinen
'on rivillä 10, komento FrameLimit. Se rajoittaa
'peliä toimimasta liian nopeaan tehokkailla
'koneilla. Tämän takia sinun pitäisi muistaa se
'jokaiseen peliisi. 30,40 ja 60 ovat hyviä arvoja.
'Yleensä rajoitus kannattaa säätää niin alas kuin
'mahdollista. Kuitenkin niin, ettei peli töki.
'Toinen uusi asia on IF-lause. Vapaasti
'suomennettuna JOS-lause, eli JOS () NIIN. Rivi
'20 olisi luettuna:
'JOS VASEN_NUOLI NIIN KÄÄNNÄ_OBJEKTIA "ukko", 5
'Eli Komento TurnObject suoritetaan vain, kun
'vasenta nuolinäppäintä painetaan.
'Sama juttu eteenpäin kävelyn kanssa. Huomaa komento
'"moveobject"
'Huomasit jo ehkä, että tausta on nyt valkoinen.
'Siitä saamme kiittää riviä 15. Lisää värejä
'saat manuaalista (etusivu/värivakiot). Lisää
'väreistä myöhemmissä oppitunneissa.
Aloittelen opiskelua alusta, (taidot ruosteessa xD)