kun otan lainaa saa tonnin mut sitku ostan kassan joka maksaa 1000e niin rahat meneeki -1000e ja sit viel pitäs laittaa et jos ei rahat riitä niin tyhjentää sen screenin ja keskellä lukee rahat ei riitä ja sit 4 sek päästä se menee alku:
Code: Select all
FrameLimit 40
SCREEN 1000,800
alku1:
CloseInput()
Repeat
txt$=Input("mitä tehdään?:")
If KeyHit(cbkeyreturn) Then
If txt = "ei" Then Goto hävisit
If txt = "joo" Then i=i+1000 : Goto alku
EndIf
Text 400, 300, "otetaanko lainaa?"
Text 455, 320, "ei"
Text 450, 340, "joo"
DrawScreen
Forever
alku:
CloseInput()
Repeat
txt$=Input("mitä tehdään?:")
If KeyHit(cbkeyreturn) Then
If txt = "osta kassa" Then Goto yli1
If txt = "hanki mainosta" Then Goto yli2
If txt = "palkkaa työntekijöitä" then goto yli3
If txt = "osta toinen tontti" Then Goto yli4
If txt = "osta lisää tavaraa" then goto yli5
If txt = "remontoi" Then Goto yli6
If txt = "ota laina" Then Goto yli7
EndIf
Line 300,0,300,800
Line 0,100,1000000,1000
Line 700,0,700,800
Text 10, 100, "osta kassa"
Text 10, 120, "hanki mainosta"
Text 10, 140, "palkkaa työntekijöitä"
Text 10, 160, "osta toinen tontti"
Text 10, 180, "osta lisää tavaraa"
Text 10, 200, "remontoi"
Text 310, 10, "rahat:"+i
Text 410, 10, "e"
Text 710, 10, "menot:"+r
Text 710, 30, "tulot:"+u
Text 310, 30, "työntekijöitä:"+o
Text 310, 50, "kassoja:"+p
Text 710, 50, "lainaa maksettavana:"+t
DrawScreen
Forever
yli1:
CloseInput()
Repeat
p=0
i=0
txt$=Input("mitä tehdään?")
If KeyHit(cbkeyreturn) Then
If txt = "ok" Then p=p+1 : i=-1000 : Goto alku
If txt = "palaa" Then Goto alku
EndIf
Text 400, 300, "kassa maksaa 1000e"
Text 400, 320, "ostetaanko kassa? (ok)"
Text 400, 340, "ei osteta kassaa? (palaa)"
DrawScreen
Forever
hävisit:
CloseInput()
Repeat
txt=Input("alkuun?:")
If KeyHit(cbkeyreturn) Then
If txt = "alkuun" Then Goto alku1
EndIf
Text 300, 300, "sinulla ei ole rahaa pyörittää kauppaa"
Text 390, 320, "alkuun (alkuun)"
Text 400, 340, "lopeta (ESC)"
DrawScreen
Forever
yli2:
yli3:
yli4:
yli5:
yli6:
yli7: