Kommentointi on mukana, ja noviiseille kivoja leikkejä lopussa
Koodi:
Code: Select all
//Esimerkki: Auton "liukuva" nopeus by TukeKoodi:
//Näytön koko
SCREEN 640,480
//Kuvia sekunissa korkeintaan 40
FrameLimit 40
//Tausta -> sininen
ClsColor cbBlue
//Lataa auto:
//Polku:
ukko1 = LoadObject ("Media\car2.bmp",72)
//Muuttujat nopeudelle ja nopeuden kasvulle:
//Huomaa:
//Kiihtyvyys hidastuu yli 3.0
//nopeudessa kts. Kiihtyvyyden hidastuminen
nopeus#=0
kasvu#=0.15
pois#=0.15
Repeat
MoveObject ukko1, nopeus
//Kääntyminen vain jos vauhti >0
If LeftKey() And nopeus>0 Then TurnObject ukko1,5
If RightKey() And nopeus>0 Then TurnObject ukko1,-5
//Jarrutus: JOS vasen nuoli() niin hidastuminen yli 2x nopeampaa
//="jarrutus"
If DownKey() Then
pois=0.40
Else
pois=0.15
EndIf
//Kiihtyvyys:
If UpKey() Then
nopeus+kasvu
//Muuten
Else
nopeus-pois
EndIf
//Ei saa mennä pakille:
If nopeus<0 Then nopeus=0
//Nopeus ei saa olla yli 4:
If nopeus>4.0 Then nopeus=4.0
//Kiihtyvyyden hidastuminen
If nopeus>3.0 Then
kasvu=0.01
Else
kasvu=0.15
EndIf
//"Nopeusmittari" :D
Color cbBlack
Text 0,0, "Nopeus: "+nopeus
DrawScreen
Forever
//Aloittelijoille leikkeja:
//1) Muuta lukua rivillä 29
//2) Muuta lukua rivillä 31
//3) Poista rivi 43
//4) Poista rivi 46
//5) Muuta lukua rivillä 55
//5) Muuta lukua rivillä 56