Code: Select all
Raha# = 1000000 // Asetetaan muuttujalle 'Raha' arvo 1000000, eli rahaa on se miljoona.
AutonpaskaaOy# = Rand(10000,50000) // Asetetaan muuttujalle 'Autonpaskaa' arvo satunnaisesti väliltä 10000-50000, eli osakkeen arvo.
ViinahanaOy# = Rand(15000,60000) //Asetetaan muuttujalle 'ViinahanaOy' arvo satunnaisesti väliltä 15000-60000, eli osakkeen arvo.
SauhuOy# = Rand(20000,75000) //Asetetaan muuttujalle 'SauhuOy' arvo satunnaisesti väliltä 20000-75000, eli osakkeen arvo.
Repeat // Aloitetaan silmukka
ClsColor 100,100,0
Color 0,200,255
ClearText // Pyyhitään vanha teksti pois, kokeile poistaa tämä rivi koodista..
AddText "AutonPaskaaOy "+AutonpaskaaOy# // Lisätään tekstiä riveillä 11-32, eli kaikki mikä ohjelman aikana näkyy.
AddText "ViinaHanaOy "+ViinahanaOy#
AddText "SauhuOy "+SauhuOy#
AddText ""
AddText ""
AddText ""
AddText "Raha: "+raha
AddText ""
If AutonpaskaaOy > 10000 Then Color 0,255,0
If AutonpaskaaOy > 25000 Then Color 255,255,0
If AutonpaskaaOy > 35000 Then Color 255,0,0
AddText "(1) Osta Autonpaskaa Oy:n osakkeita"
If ViinahanaOy > 15000 Then Color 0,255,0
If ViinahanaOy > 30000 Then Color 255,255,0
If ViinahanaOy > 45000 Then Color 255,0,0
AddText "(2) Osta Viinahana Oy:n osakkeita"
If SauhuOy > 20000 Then Color 0,255,0
If SauhuOy > 40000 Then Color 255,255,0
If SauhuOy > 60000 Then Color 255,0,0
AddText "(3) Osta Sauhu Oy:n osakkeita"
AddText ""
If AutonpaskaaOy > 10000 Then Color 255,0,0
If AutonpaskaaOy > 20000 Then Color 255,255,0
If AutonpaskaaOy > 35000 Then Color 0,255,0
AddText "(4) Myy Autonpaskaa Oy:n osakkeita"
If ViinahanaOy > 15000 Then Color 255,0,0
If ViinahanaOy > 30000 Then Color 255,255,0
If ViinahanaOy > 45000 Then Color 0,255,0
AddText "(5) Myy Viinahana Oy:n osakkeita"
If SauhuOy > 20000 Then Color 255,0,0
If SauhuOy > 40000 Then Color 255,255,0
If SauhuOy > 60000 Then Color 0,255,0
AddText "(6) Myy Sauhu Oy:n osakkeita"
Color 0,200,255
AddText ""
AddText "(Esc) Lopeta"
AddText ""
AddText "Autonpaskaa Oy:n osakkeita: "+AutonpaskaaOyn_osakkeita
AddText "Viinahana Oy:n osakkeita: "+ViinahanaOyn_osakkeita
AddText "Sauhu Oy:n osakkeita: "+SauhuOyn_osakkeita
// Seuraavassa tulee koko ohjelman toiminnot, eli tarkistetaan onko tiettyä nappia painettu,
// ja jos on, niin tehdään sen jäkeiset toiminnot eli tässä tapauksessa ostetaan tai myydään osakkeita.
// niin ja määritellään osakkeille arvo uudestaan.
If KeyHit(1) Then End
If KeyHit(2) Then AutonpaskaaOyn_osakkeita+1 : Raha-AutonpaskaaOy : AutonpaskaaOy# = Rand(10000,50000) : ViinahanaOy# = Rand(15000,60000) : SauhuOy# = Rand(20000,75000)
If KeyHit(3) Then ViinahanaOyn_osakkeita+1 : Raha-ViinahanaOy : AutonpaskaaOy# = Rand(10000,50000) : ViinahanaOy# = Rand(15000,60000) : SauhuOy# = Rand(20000,75000)
If KeyHit(4) Then SauhuOyn_osakkeita+1 : Raha-SauhuOy : AutonpaskaaOy# = Rand(10000,50000) : ViinahanaOy# = Rand(15000,60000) : SauhuOy# = Rand(20000,75000)
If KeyHit(5) And AutonpaskaaOyn_osakkeita > 0 Then AutonpaskaaOyn_osakkeita-1 : Raha+AutonpaskaaOy : AutonpaskaaOy# = Rand(10000,50000) : ViinahanaOy# = Rand(15000,60000) : SauhuOy# = Rand(20000,75000)
If KeyHit(6) And ViinahanaOyn_osakkeita > 0 Then ViinahanaOyn_osakkeita-1 : Raha+ViinahanaOy : AutonpaskaaOy# = Rand(10000,50000) : ViinahanaOy# = Rand(15000,60000) : SauhuOy# = Rand(20000,75000)
If KeyHit(7) And SauhuOyn_osakkeita > 0 Then SauhuOyn_osakkeita-1 : Raha+SauhuOy : AutonpaskaaOy# = Rand(10000,50000) : ViinahanaOy# = Rand(15000,60000) : SauhuOy# = Rand(20000,75000)
If Raha < 0 Then Goto konkurssi // Jos rahaa on vähemmän kuin 0, eli raha on loppu,
// niin siirrytään kohtaan 'konkurssi'.
If Raha > 2000000 Then Goto voitto // Jos rahaa on enemmän kuin 1500000, niin siirrytään kohtaan 'voitto'.
DrawScreen // piirretään näyttö
Forever // Suljetaan silmukka, eli palataan silmukan alkuun.
konkurssi:
ClearText
AddText "Menit konkurssiin..."
DrawScreen
WaitKey
End
voitto:
ClearText
AddText "Voitit"
DrawScreen
WaitKey
End