Kaupasta voi ostaa erilaisia tavaroita ja pankista voi lainata rahaa ja tallettaa rahaa.
Tämä esimerkki muodostuu if ehtolauseista.
Code: Select all
SCREEN 800,600
raha = 5000 //rahaa aloitettaessa
velka = 0 //paljonko on otettu lainaa
talletettu = 0 //paljonko rahaa talletettu pankkiin
//tuotteiden muuttujat
//jos muuttujassa oleva numero on 2 tuetetta ei ole ostettu
//jos taas muuttujassa oleva numero on 1 tuote on ostettu ja se näkyy ostettujen listassa
tietokone = 2
näyttö = 2
kaijuttimet = 2
hiiri = 2
näppäimistö = 2
tulostin = 2
Repeat //pääsilmukka
//tuotteiden ostossa käytetään numeronäppäimiä
If KeyHit(cbKey1) Then
If raha > 0 Then //jos rahat ei riitä ostaminen epäonnistuu
tietokone = 1 //laitetaan tietokone ostetuksi
raha -1000 //vähennetään rahaa
hinta = 1000 //määritetään hinta rahojen riittävyyden vuoksi
Else
EndIf
EndIf
//sitten tehdään sama uudestaan jokaiselle tuotteelle
If KeyHit(cbKey2) Then
If raha > 0 Then
näyttö = 1
raha -200
hinta = 200
Else
EndIf
EndIf
If KeyHit(cbKey3) Then
If raha > 0 Then
kaijuttimet = 1
raha -50
hinta = 50
Else
EndIf
EndIf
If KeyHit(cbKey4) Then
If raha > 20 Then
hiiri = 1
raha -30
hinta = 30
Else
EndIf
EndIf
If KeyHit(cbKey5) Then
If raha > 0 Then
näppäimistö = 1
raha -50
hinta = 50
Else
EndIf
EndIf
If KeyHit(cbKey6) Then
If raha > 100 Then
tulostin = 1
raha -150
hinta = 150
Else
EndIf
EndIf
If KeyHit(cbKeyL) Then
If velka < 25000 Then //estetään rahan liiallinen lainaus
raha +1000
velka +1000
Else
EndIf
EndIf
If KeyHit(cbKeyM) Then
If velka > 0 Then //jos ei olla velkaa, velkaa ei voida maksaa
raha -1000
velka -1000
Else
EndIf
EndIf
If KeyHit(cbKeyT) Then
If raha > 0 Then //jos rahaa ei ole tarpeeksi talletus epäonnistuu
talletettu +1000
raha -1000
Else
EndIf
EndIf
If KeyHit(cbKeyO) Then
If talletettu > 0 Then
raha +1000
talletettu -1000
Else
EndIf
EndIf
//muutetaan tekstin väri
Color cbRed
//tulostetaan tekstit
Text 10,10, "Tuotteita voit ostaa käyttämällä numeronäppäimiä."
Text 10,40, "Rahaa: " +raha+ "e"
Text 10,60, "Velkaa: " +velka+ "e"
Text 10,80, "Talletettu: " +talletettu+ "e"
Text 10,120, "1 = Tietokone 1000e"
Text 10,140, "2 = Näyttö 200e"
Text 10,160, "3 = Kaijuttimet 50e"
Text 10,180, "4 = Hiiri 30e"
Text 10,200, "5 = Näppäimistö 50e"
Text 10,220, "6 = Tulostin 150e"
Text 200,160, "L = Ota lainaa"
Text 200,120, "T = Talleta rahaa"
Text 200,140, "O = Ota rahaa"
If velka > 0 Then //jos on otettu velkaa näytetään velan mukso nappi
Text 200,180, "M = Maksa lainaa"
EndIf
//tulostetaan lista ostetuista tuotteista
Text 10,320, "Ostetut tuotteet:"
//jos tietokone on ostettu,...
If tietokone = 1 Then
Text 10,350, "Tietokone"
Else //...jos taas ei tulosteta mitään
EndIf
//sama juttu tehdään myös muille
If näyttö = 1 Then
Text 10,370, "Näyttö"
Else
EndIf
If kaijuttimet = 1 Then
Text 10,390, "Kaijuttimet"
Else
EndIf
If hiiri = 1 Then
Text 10,410, "Hiiri"
Else
EndIf
If näppäimistö = 1 Then
Text 10,430, "Näppäimistö"
Else
EndIf
If tulostin = 1 Then
Text 10,450, "Tulostin"
Else
EndIf
DrawScreen
Forever