Keskustelu: Koodit: QB: Juoppo 3

1 CLS
COLOR 10
LOCATE 13, 39
PRINT "      Û   Û     Û  ÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛ      ÛÛÛÛÛÛÛ"
PRINT "      Û   Û     Û  Û     Û  Û     Û  Û     Û  Û     Û            Û"
PRINT "      Û   Û     Û  Û     Û  Û     Û  Û     Û  Û     Û            Û"
PRINT "      Û   Û     Û  Û     Û  Û     Û  Û     Û  Û     Û            Û"
PRINT "      Û   Û     Û  Û     Û  Û     Û  Û     Û  Û     Û            Û"
PRINT "      Û   Û     Û  Û     Û  ÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛ  Û     Û            Û"
PRINT "      Û   Û     Û  Û     Û  Û        Û        Û     Û            Û"
PRINT "      Û   Û     Û  Û     Û  Û        Û        Û     Û            Û"
PRINT "      Û   Û     Û  Û     Û  Û        Û        Û     Û      ÛÛÛÛÛÛÛ"
PRINT "      Û   Û     Û  Û     Û  Û        Û        Û     Û            Û"
PRINT "Û     Û   Û     Û  Û     Û  Û        Û        Û     Û            Û"
PRINT "Û     Û   Û     Û  Û     Û  Û        Û        Û     Û            Û"
PRINT "Û     Û   Û     Û  Û     Û  Û        Û        Û     Û            Û"
PRINT "Û     Û   Û     Û  Û     Û  Û        Û        Û     Û            Û"
PRINT "Û     Û   Û     Û  Û     Û  Û        Û        Û     Û            Û"
PRINT "Û     Û   Û     Û  Û     Û  Û        Û        Û     Û            Û"
PRINT "ÛÛÛÛÛÛÛ   ÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛ  Û        Û        ÛÛÛÛÛÛÛ  Û   ÛÛÛÛÛÛÛ"
PLAY "acecgca"

SLEEP 4
CLS


5 man% = 120
lipp% = 0
TIE$ = "scores.txt"
COLOR 14
LOCATE 23, 28
PRINT "Caps lock pois päältä!!!"
SLEEP 2
COLOR 10
10 CLS
LOCATE 1, 70
PRINT "Version 3.0"
PRINT "n) uusi peli"
PRINT "o) Options"
PRINT "r) Restarttaa"
PRINT "p) palaa peli valikkoon"
PRINT "x) lopeta"
INPUT paav$
IF paav$ = "n" THEN GOTO 100
IF paav$ = "o" THEN GOTO 20
IF paav$ = "r" THEN RUN "D:\QBASIC\JUOPPO3.bas"
IF paav$ = "p" THEN RUN "D:\Qbasic\Pelit.bas"
IF paav$ = "x" THEN GOTO 999999
GOTO 10
20 CLS
PRINT "OPTIONS"
PRINT "a) Žänet"
PRINT "b) Grafiikat"
PRINT "c) Vaikeustaso"
PRINT "d) Palaa päävalikkoon"
INPUT opt$
IF opt$ = "a" THEN GOTO 30
IF opt$ = "d" THEN GOTO 10
IF opt$ = "b" THEN GOTO 80
IF opt$ = "c" THEN GOTO 92
GOTO 20
30 CLS
PRINT "ŽŽNET"
PRINT "a) Tee äänet"
PRINT "b) Aseta pelin äänet"
PRINT "c) Žänetön"
PRINT "d) Kuuntele äänet"
PRINT "e) Palaa Options -valikkoon"
INPUT soun$
IF soun$ = "a" THEN GOTO 40
IF soun$ = "b" THEN GOTO 50
IF soun$ = "c" THEN GOTO 60
IF soun$ = "d" THEN GOTO 70
IF soun$ = "e" THEN GOTO 20
GOTO 30
40 CLS
PRINT "Käytä kirjaimia: abcdefg"
PRINT "Kuoleman ääni..."
INPUT sdeath$
PRINT "Voittoääni..."
INPUT swin$
PRINT "Onnen ääni..."
INPUT slucky$
PRINT "Epäonnen ääni..."
INPUT sunlucky$
PRINT "Juominen loppuu ääni..."
INPUT sdrink$
GOTO 30
50 sdeath$ = "deadface"
swin$ = "defegace"
slucky$ = "cdefgac"
sunlucky$ = "deaddead"
sdrink$ = "g16a16g16a32ga16gag"
PRINT "Loading..."
PRINT "Pelin äänet asetetaan..."
SLEEP 4
GOTO 30
60 sdeath$ = ""
swin$ = ""
slucky$ = ""
sunlucky$ = ""
sdrink$ = ""
PRINT "Loading..."
PRINT "Žänettömät äänet asetetaan..."
SLEEP 4
GOTO 30
70 CLS
PRINT "Minkä äänen haluat kuunnella?"
PRINT "a) Kuolema"
PRINT "b) Voitto"
PRINT "c) Onni"
PRINT "d) Epäonni"
PRINT "e) Juominen loppuu"
INPUT kunt$
IF kunt$ = "a" THEN PLAY sdeath$
IF kunt$ = "b" THEN PLAY swin$
IF kunt$ = "c" THEN PLAY slucky$
IF kunt$ = "d" THEN PLAY sunlucky$
IF kunt$ = "e" THEN PLAY sdrink$
GOTO 30
80 CLS
PRINT "GRAFIIKAT"
PRINT "a) Grafiikoiden taso"
PRINT "b) Väri"
PRINT "c) Takaisin Options -valikkoon"
INPUT gra$
IF gra$ = "a" THEN GOTO 85
IF gra$ = "b" THEN GOTO 90
IF gra$ = "c" THEN GOTO 20
GOTO 80
85 PRINT "a)Very low"
PRINT "b)Low"
PRINT "c)Medium"
PRINT "d)High"
PRINT "e)Very High"
INPUT lh$
IF lh$ = "a" THEN SCREEN 13
IF lh$ = "b" THEN SCREEN 7
IF lh$ = "c" THEN SCREEN 8
IF lh$ = "d" THEN SCREEN 12
IF lh$ = "e" THEN SCREEN 0
GOTO 80
90 CLS
PRINT "Minkä värin haluat"
PRINT "1) sininen"
PRINT "2) vihreä"
PRINT "3) punainen"
PRINT "4) ruskea"
PRINT "5) valkoinen"
PRINT "6) harmaa"
PRINT "7) vaalean sininen"
PRINT "8) vaalean vihreä"
PRINT "9) vaalean punainen"
PRINT "10) keltainen"
PRINT "11) korkea jännitys valkoinen"
INPUT colo$
IF colo$ = "1" THEN COLOR 1
IF colo$ = "2" THEN COLOR 2
IF colo$ = "3" THEN COLOR 4
IF colo$ = "4" THEN COLOR 6
IF colo$ = "5" THEN COLOR 7
IF colo$ = "6" THEN COLOR 8
IF colo$ = "7" THEN COLOR 9
IF colo$ = "8" THEN COLOR 10
IF colo$ = "9" THEN COLOR 12
IF colo$ = "10" THEN COLOR 14
IF colo$ = "11" THEN COLOR 15
GOTO 80
92 PRINT "VAIKEUSTASO!"
PRINT "a) EASYEST"
PRINT "b) EASY"
PRINT "c) NORMAL"
PRINT "d) HARD"
PRINT "e) HARDEST"
INPUT diffy$
IF diffy$ = "a" THEN man% = 300
IF diffy$ = "b" THEN man% = 200
IF diffy$ = "c" THEN man% = 120
IF diffy$ = "d" THEN man% = 90
IF diffy$ = "e" THEN man% = 70
GOTO 20


100 CLS
tiime% = 1
sped% = 0
vii% = 10
car% = 0
card% = 0
tyo% = 0
cloc% = 0
bos% = 0
los% = 0
kaappi% = 0
radio% = 0

PRINT "Mikä on nimesi?"
INPUT nimi$
CLS
IF nimi$ = "money man" THEN man% = 2000
IF nimi$ = "clock man" THEN cloc% = 1
IF nimi$ = "the boss" THEN juo$ = "COM"
IF nimi$ = "i am the richest man in the world" THEN man% = 7000
PRINT "Rahat: "; man%
PRINT "Olet juoppo mitä teet"
101 PRINT "a)Mene Alkoon"
PRINT "b)älä mene Alkoon"
PRINT "c)Kakkaa housuun!!"
INPUT q$
IF q$ = "a" THEN GOTO 107
IF q$ = "b" THEN GOTO 102
IF q$ = "c" THEN GOTO 105
GOTO 101
102
IF man% = 10000 THEN GOTO 99999999
IF tiime% <= 0 THEN GOTO 99999
IF cloc% >= 1 THEN PRINT "Kello on: "; TIME$
IF cloc% >= 1 THEN PRINT "Tarkenna aika painamalla ENTER"
PRINT "Minne sitten?"
PRINT "1)pankkiin"
PRINT "2)poliisilaitokselle"
PRINT "3)huvipuistoon"
PRINT "4)alkoon"
PRINT "5)kauppaan"
PRINT "6)autokauppaan"
PRINT "7)maalle"
PRINT "8)pormestarin talolle"
PRINT "9)kultasepän liikkeeseen"
PRINT "10)Postiin"
PRINT "11)karkkikauppaan"
PRINT "12)Juoppo Taloon"
PRINT "13)kodinkone liikkeeseen"
PRINT "x)Lopeta"
INPUT min$
IF min$ = "1" THEN GOTO 110
IF min$ = "2" THEN GOTO 150
IF min$ = "3" THEN GOTO 200
IF min$ = "4" THEN GOTO 107
IF min$ = "5" THEN GOTO 240
IF min$ = "6" THEN GOTO 265
IF min$ = "7" THEN GOTO 290
IF min$ = "8" THEN GOTO 330
IF min$ = "9" THEN GOTO 380
IF min$ = "10" THEN GOTO 430
IF min$ = "11" THEN GOTO 460
IF min$ = "12" THEN GOTO 490
IF min$ = "13" THEN GOTO 560
IF min$ = "x" THEN GOTO 10
GOTO 102
104 PRINT "Viina loppuu osta lisää!!"
PLAY sdrink$
GOTO 107

105 PRINT "Eei Me niin voida tehdä!"
GOTO 102
106 PRINT "Raha ei riitä!!"
BEEP
107
PRINT "Rahaa: "; man%
man2% = man%
IF man2% <= 0 THEN GOTO 999990
IF cloc% >= 1 THEN PRINT "Kello on: "; TIME$
PRINT "Minkä laista viinaa ostetaan!"
PRINT "a)Kolmos kaljaa  40 rahaa"
PRINT "b)Koskenkorvaa 60 rahaa"
PRINT "c)Salmiakki kossua 70 rahaa"
PRINT "d)Suomi vodkaa 80 rahaa"
PRINT "e)Ykkös kaljaa 20 rahaa"
PRINT "f)Kakkos kaljaa 30 rahaa"
PRINT "g)Nelos kaljaa 50 rahaa"
IF juo$ = "COM" THEN PRINT "h)Super Pontikkaa 150 rahaa"
PRINT "+ viinavero: "; vii%; " rahaa"
PRINT "x) En osta mitään"
INPUT alk$
IF alk$ = "x" THEN GOTO 102
IF alk$ = "a" THEN man2% = man2% - 40
IF alk$ = "b" THEN man2% = man2% - 60
IF alk$ = "c" THEN man2% = man2% - 70
IF alk$ = "d" THEN man2% = man2% - 80
IF alk$ = "e" THEN man2% = man2% - 20
IF alk$ = "f" THEN man2% = man2% - 30
IF alk$ = "g" THEN man2% = man2% - 50
IF alk$ = "h" THEN man2% = man2% - 150
IF alk$ = "a" THEN tiime% = tiime% + 3
IF alk$ = "b" THEN tiime% = tiime% + 5
IF alk$ = "c" THEN tiime% = tiime% + 6
IF alk$ = "d" THEN tiime% = tiime% + 7
IF alk$ = "e" THEN tiime% = tiime% + 1
IF alk$ = "f" THEN tiime% = tiime% + 2
IF alk$ = "g" THEN tiime% = tiime% + 4
IF alk$ = "h" THEN tiime% = tiime% + 12
man2% = man2% - vii%
IF man2% < 0 THEN GOTO 106
man% = man2%
GOTO 102


110
PRINT "Mitä teet?"
PRINT "a) Lainaa rahaa"
PRINT "b) Varasta rahaa"
INPUT w$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF w$ = "a" THEN GOTO 115
IF w$ = "b" THEN GOTO 130
GOTO 110
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
115
PRINT "Kuinka paljon haluat lainata?"
INPUT lairah$
PRINT "Lainasit "; lairah$; " rahaa, mutta rosvo tuli vastaan ja varasti kaikki rahasi."
man% = 0
PLAY sunlucky$
GOTO 102
130
PRINT "Kuinka paljon rahaa haluat varastaa?"
PRINT "a) 50"
PRINT "b) 100"
PRINT "c) 5000"
INPUT e$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF e$ = "a" THEN GOTO 135
IF e$ = "b" THEN GOTO 145
IF e$ = "c" THEN GOTO 140
GOTO 130
135
PRINT "Et onnistunut ja poliisit pidättivät sinut."
PLAY sunlucky$
GOTO 999999
140 PRINT "Varastit 5000, mutta rosvot veivät sinulta kaikki rahasi."
man% = 0
PLAY sunlucky$
GOTO 102
145 PRINT "Sait 100. Onneksi olkoon!"
PLAY slucky$
man% = man% + 100
GOTO 102
150
IF y$ = "a" THEN GOTO 154
IF w$ = "b" THEN GOTO 155
IF u$ = "b" THEN GOTO 153
IF d$ = "a" THEN GOTO 151
PRINT "Olet poliisilaitoksella. Mitä teet?"
PRINT "a) Vetäise poliiseja turpaan."
PRINT "b) Varasta poliiseilta rahaa."
PRINT "c) Mene alkoon."
INPUT e$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF e$ = "a" THEN GOTO 156
IF e$ = "b" THEN GOTO 157
IF e$ = "c" THEN GOTO 107
GOTO 150
151 PRINT "Sinut pidätettiin, koska olet syyllinen kulta sepän liikkeen ryöstöön!"
PLAY sunlucky$
GOTO 999999
152 PRINT "Sinut pidätettiin, koska olet syyllinen pormestarin murhaan!"
PLAY sdeath$
GOTO 999999
153 PRINT "Sinut pidätettiin, koska olet syyllinen auto kaupan ryöstöön!"
PLAY sunlucky$
GOTO 999999
154 PRINT "Sinut pidätettiin, koska olet syyllinen kaupan ryöstöön!"
PLAY sunlucky$
GOTO 999999
155 PRINT "Sinut pidätettiin, koska olet syyllinen pankin ryöstöön!"
PLAY sunlucky$
GOTO 999999
156
PRINT "Sinut jätettiin yöksi putkaan, koska vedit poliisipäällikköä turpaan!"
PRINT "KAUNIITA UNIA!"
SLEEP 10
PRINT "Huonoja uutisia viina vero on noussut 10 rahaa!"
PLAY unlucky$
vii% = vii% + 10
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 150
GOTO 102
157 PRINT "Keneltä haluat varastaa?"
PRINT "a) Poliisipääliköltä"
PRINT "b) Vartijalta"
PRINT "c) Pormestarilta, joka on vierailulla poliisilaitokselta"
PRINT "d) Tavalliselta poliisilta"
PRINT "e) Pormestarin Hovimestarilta"
INPUT r$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF r$ = "a" THEN GOTO 160
IF r$ = "b" THEN GOTO 170
IF r$ = "c" THEN GOTO 180
IF r$ = "d" THEN GOTO 190
IF r$ = "e" THEN GOTO 192
GOTO 157
160
IF e$ = "a" THEN GOTO 165
PRINT "Vietit yösi vankilassa, koska yritit varastaa rahaa poliisipääliköltä"
PLAY sunlucky$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
GOTO 102
165 PRINT "Sinulle annettiin kuolemantuomio väkivaltaisesta käytöksestäsi!"
PLAY sdeath$
SLEEP 7
GOTO 10
170 PRINT "Sait 50 rahaa"
PLAY slucky$
man% = man% + 50
GOTO 102
180 PRINT "Sinulle annettiin viikon vankilatuomio väkivaltaisesta käytöksestäsi ja viinavero nousi 10 rahaa!"
PLAY sunlucky$
vii% = vii% + 10
tiime% = 0
SLEEP 8

PRINT "Viikon päästä..."
GOTO 104
190 PRINT "Tavalisilla poliiseilla ei ole rahaa, mutta varastit pyssyn ja pyssy laukesi vahingossa ja poliisit pidättivät sinut ja antoivat sakkoja 500 rahaa!"
man% = man% - 500
PLAY sunlucky$
SLEEP 10

PRINT "HUOMENNA..."
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
GOTO 102
192 PRINT "Varastit Hovimestarilta käyntikortin."
PLAY slucky$
card% = 1
GOTO 102
195 PRINT "Raha ei riitä!!"
SLEEP 2
200
202 PRINT "laite lippuja: "; lipp%
PRINT "Rahaa: "; man%
PRINT "Olet huvipuistossa mitä teet?"
PRINT "a)Osta lippu"
PRINT "b)Mene vuoristorataan"
PRINT "c)Mene arvonta kojuun"
PRINT "d)Mene kieputtimeen"
PRINT "e)palaa kadulle"
INPUT t$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF t$ = "a" THEN GOTO 205
IF t$ = "b" THEN GOTO 210
IF t$ = "c" THEN GOTO 215
IF t$ = "d" THEN GOTO 220
IF t$ = "e" THEN GOTO 102
GOTO 200
205 IF man% <= 0 THEN GOTO 195
PRINT "Liput Maksavat 50 rahaa per kpl Haluatko varmasti ostaa?"
PRINT "a)kyllä"
PRINT "b)ei"
INPUT varm$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF varm$ = "a" THEN GOTO 207
IF varm$ = "b" THEN GOTO 202
GOTO 205
207 IF man% <= 50 THEN GOTO 195
PRINT "Ostit lipun!"
lipp% = lipp% + 1
man% = man% - 50
GOTO 205
210 IF lipp% = 0 THEN GOTO 230
lipp% = lipp% - 1
PRINT "Kävit vuoristoradassa!! virkistyit vähän!!"
tiime% = tiime% + 1
GOTO 202
215 IF lipp% = 0 THEN GOTO 230
lipp% = lipp% - 1
PRINT "Olet arvonta kojulla mistä narusta vedät!!"
PRINT "arvonta maksaa yhden lipun."
PRINT "a) oikean puolimmaisesta narusta!"
PRINT "b) keskimmäisestä narusta"
PRINT "c) Vasemmasta narusta"
INPUT nar$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF nar$ = "a" THEN GOTO 216
IF nar$ = "b" THEN GOTO 217
IF nar$ = "c" THEN GOTO 216
GOTO 215
216 PRINT "Ei mitään!!"
PLAY sunlucky$
GOTO 202
217 PRINT "Voitit päävoiton joka on 200 rahaa"
man% = man% + 200
PLAY slucky$
GOTO 202
220
IF lipp% = 0 THEN GOTO 230
lipp% = lipp% - 1
PRINT "Kävit kieputtimessa ja virkistyit hieman!!"
tiime% = tiime% + 1
GOTO 202
230 PRINT "Sinulla ei ole lippuja!!"
BEEP
GOTO 205
240 IF y$ = "a" THEN GOTO 241
PRINT "Olet työpaikassasi kaupassa. Mitä teet?"
PRINT "a) Varasta rahat kassasta"
PRINT "b) Mene myyjäksi ja tee töitä"
PRINT "c) Palaa kadulle"
INPUT y$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF y$ = "a" THEN GOTO 250
IF y$ = "b" THEN GOTO 260
IF y$ = "c" THEN GOTO 102
GOTO 240
241 PRINT "Poliisit pidättivät sinut, koska olit jo kerran ryöstänyt pankin!"
SLEEP 3
GOTO 9999
250 PRINT "Varastit rahat kassasta ja menetit työpaikkasi, mutta sait myös 50 rahaa! Onneksi olkoon!"
PLAY slucky$
man% = man% + 50
GOTO 240
260 PRINT "Teit töitä ja ansaitsit 20 rahaa!"
SLEEP 2
man% = man% + 20
GOTO 240

262 PRINT "Raha ei riitä!!"
BEEP
GOTO 265

265
PRINT man%; " rahaa"
PRINT "olet auto kaupassa!"
PRINT "a)Osta auto."
PRINT "b)Varasta auto ja rahat."
PRINT "c)Mene myyjäksi ja tee töitä"
PRINT "d)Palaa kadulle"
INPUT u$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF u$ = "a" THEN GOTO 270
IF u$ = "b" THEN GOTO 275
IF u$ = "c" THEN GOTO 280
IF u$ = "d" THEN GOTO 102
GOTO 265
270 man2% = man%
PRINT "Minkä merkkisen auton ostat."
PRINT "a) Saab 99 500 rahaa"
PRINT "b) Mercedenz Benz C sarja 2000 rahaa"
PRINT "c) Lada 300 rahaa"
PRINT "d) Takaisin"
INPUT car$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF car$ = "a" THEN man2% = man2% - 500
IF car$ = "b" THEN man2% = man2% - 2000
IF car$ = "c" THEN man2% = man2% - 300
IF car$ = "a" THEN sped% = 140
IF car$ = "b" THEN sped% = 200
IF car$ = "c" THEN sped% = 100
IF car$ = "d" THEN GOTO 265
IF man2% < 0 THEN GOTO 262
man% = man2%
GOTO 265

275 PRINT "Autoa et saanut mutta Menetit työ paikkasi jos se oli autokaupassa mutta sait 100 Rahaa onneksi olkoon"
PLAY slucky$
man% = man% + 100
GOTO 102

280 CLS
IF u$ = "b" THEN GOTO 282
PRINT "Teit töitä ja ansaitsit 30 rahaa!!"
SLEEP 2
man% = man% + 30
GOTO 265











282 PRINT "Muista että menetit työ paikkasi koska ryöstit kassan!!"
BEEP
GOTO 265






290 IF sped% <= 0 THEN GOTO 292
GOTO 295
292 PRINT "Sinulla ei ole autoa ja ilman autoa et pääse maalle!!"
BEEP
GOTO 102
295
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
maa% = 200
maa% = maa% - sped%
PRINT "Ajat juuri maalle!"
SLEEP sped%
297
PRINT "Olet maalla mitä teet."
PRINT "a) varasta lehmä."
PRINT "b) varasta rahaa."
PRINT "c) mene juna asemalle."
PRINT "d) palaa kaupunkiin."
PRINT "e) Tee pontikkaa"
INPUT i$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF i$ = "a" THEN GOTO 300
IF i$ = "c" THEN GOTO 305
IF i$ = "b" THEN GOTO 310
IF i$ = "d" THEN GOTO 102
IF i$ = "e" THEN GOTO 320
GOTO 297
300
PRINT "Varastit lehmän ja kukaan ei huomannut. mitä sillä teet?"
PRINT "a) myy se."
PRINT "b) ammu se."
PRINT "c) lypsä"
INPUT o$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF o$ = "a" THEN GOTO 302
IF o$ = "b" THEN GOTO 301
IF o$ = "c" THEN GOTO 303
GOTO 300
301 PRINT "Sinulla ei ole pyssyä!"
PLAY sunlucky$
SLEEP 3
GOTO 300
302 PRINT "Myit lehmän ja sait 50 rahaa onneksi olkoon!"
PLAY slucky$
man% = man% + 50
SLEEP 4
GOTO 297
303 PRINT "Sinä et osaa lypsää!!"
BEEP
SLEEP 3
GOTO 300
310 PRINT "Keneltä?"
PRINT "a) lehmältä"
PRINT "b) talon isännältä"
PRINT "c) talon emännältä"
INPUT p$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF p$ = "a" THEN GOTO 311
IF p$ = "b" THEN GOTO 312
IF p$ = "c" THEN GOTO 313
GOTO 310
311 PRINT "Lehmällä ei ole rahaa!!"
PLAY sunlucky$
GOTO 310
312 PRINT "Sait talon isännältä rahaa mutta hän ampui sinut haulikolla."
PLAY sdeath$
GOTO 999999
313 PRINT "Sait 50 rahaa"
PLAY slucky$
man% = man% + 50
GOTO 297
305 PRINT "Olet juna asemalla mitä teet?"
PRINT "Sinulla sattuu olemaan taskussa "; lipp%; "Junalippua."
PRINT "a) Ryöstä kassa ja tunkeudu junaan!"
PRINT "b) mene junalla kaupunkiin"
PRINT "c) Mene pomppiimaan juna raiteille kun juna tulee!"
INPUT a$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF a$ = "a" THEN GOTO 306
IF a$ = "b" THEN GOTO 307
IF a$ = "c" THEN GOTO 308
GOTO 305
306 PRINT "Sait 500 rahaa ja pääsit livahtamaan ilman lippua kaupungin junaan!!"
PLAY lucky$
man% = man% + 500
sped% = 0
SLEEP 2
GOTO 102
307 IF lipp% <= 0 THEN GOTO 309
PRINT "Menit junalla kaupunkiin Ja menetit autosi!"
BEEP
sped% = 0
lipp% = lipp% - 1
SLEEP 3
GOTO 102
308 PRINT "Juna ajoi päällesi!!"
PLAY sdeath$
GOTO 999999
309 PRINT "Sinulla ei ole lippuja!"
PLAY sunlucky$
GOTO 305

320 PRINT "Teit pontikkaa sillä sinun pitäisi pärjätä vähän aikaa!"
tiime% = tiime% + 4
SLEEP 1
GOTO 297



330 PRINT "Olet pormestarin talon portilla mitä teet."
PRINT "a) mene sisään."
PRINT "b) varasta pormestarin auto."
PRINT "c) puhu oviradiosta"
PRINT "d) Palaa kadulle"
INPUT s$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF s$ = "b" THEN GOTO 335
IF s$ = "c" THEN GOTO 340
IF s$ = "a" THEN GOTO 350
IF s$ = "d" THEN GOTO 102
GOTO 330
335 PRINT "Yritit varastaa pormestarin autoa mutta siinä oli varashälytin ja poliisit pidättivät sinut!!"
PLAY sunlucky$
GOTO 999999
340 PRINT "Pormestari sanoo: KUKA SIELLŽ! "
PRINT "Mitä sanot?"
INPUT say$
PRINT "Pormestari: HŽIVY!!! "
GOTO 330
350 IF card% = 0 THEN GOTO 352
GOTO 355
352 PRINT "Sinulla ei ole käyntikorttia!"
BEEP
GOTO 330
355 IF por$ = "b" THEN GOTO 375
PRINT "Olet pormestarin talossa mitä teet!"
PRINT "a)Tekeydy hovimestariksi ja tee töitä"
PRINT "b)Tapa pormestari puukolla joka on pöydällä"
PRINT "c)Palaa kadulle"
INPUT por$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF por$ = "a" THEN GOTO 360
IF por$ = "b" THEN GOTO 370
IF por$ = "c" THEN GOTO 102
GOTO 355
360 IF tyo% = 5 THEN GOTO 362
PRINT "Teit töitä!"
tyo% = tyo% + 1
GOTO 355
362 PRINT "Tili päivä !! 1000 rahaa."
PLAY slucky$
man% = man% + 1000
tyo% = 0
GOTO 355
370 PRINT "Tapoit pormestarin ja sait 2000 rahaa!"
PLAY slucky$
man% = man% + 2000
GOTO 330

375 PRINT "Siellä oli poliiseja ja he pidättivät sinut koska olet syyllinen pormestarin murhaan!!!"
PLAY sunlucky$
GOTO 999999










380 PRINT "Olet kultasepän liikkellä mitä teet?"
PRINT "a)Ota tiili ja heitä se näyte ikkunaan!"
PRINT "b)Mene sisään."
PRINT "c)Palaa kadulle"
INPUT d$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF d$ = "a" THEN GOTO 385
IF d$ = "b" THEN GOTO 400
IF d$ = "c" THEN GOTO 102
GOTO 380
385 PRINT "CRASH!!"
BEEP
PRINT "Heitit tiilen näyte ikkunaan mitä teet!!"
PRINT "a)Ota kaikki mitä syliin mahtuu ja juokse kujalle!"
PRINT "b)Palaa kadulle (Juosten)"
INPUT cras$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF cras$ = "a" THEN GOTO 387
IF cras$ = "b" THEN GOTO 102
GOTO 385
387 PRINT "Sait melkein kaikki Mitä teet nuin hirveällä kulta määrällä?"
PRINT "a) Myy"
PRINT "b) Riko"
PRINT "c) Pelaa kaverisi kanssa niillä pesäpalloa!"
INPUT gol$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF gol$ = "a" THEN GOTO 390
IF gol$ = "b" THEN GOTO 392
IF gol$ = "c" THEN GOTO 394
GOTO 387
390 PRINT "Myit ne kaikki ja sait yhteensä 1000 rahaa!!"
man% = man% + 1000
GOTO 102
392 PRINT "Rikoit kaikki kullat ja jätit sinne!"
GOTO 102
394 PRINT "Sinulla ei ole kaveria!"
GOTO 387
400 PRINT "Olet sisällä mitä teet!"
PRINT "a)Osta ranne kello"
PRINT "b)Tee töitä myyjänä"
PRINT "c)Palaa kadulle"
INPUT f$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF f$ = "a" THEN GOTO 405
IF f$ = "b" THEN GOTO 415
IF f$ = "c" THEN GOTO 102
GOTO 400
405 PRINT "Ranne kello Maksaa 1000 rahaa haluatko varmasti ostaa?"
PRINT "a)Kyllä"
PRINT "b)Ei"
INPUT clo$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF clo$ = "a" THEN GOTO 410
IF clo$ = "b" THEN GOTO 400
GOTO 405
410 man2% = man%
man2% = man2% - 1000
IF man2% <= 0 THEN GOTO 412
man% = man2%
PRINT "Ostit hienon kellon!"
cloc% = 1
GOTO 102
412 PRINT "Sinulla ei ole tarpeeksi rahaa!"
BEEP
GOTO 400
415 IF d$ = "a" THEN GOTO 420
PRINT "Teit töitä ja ansaitsit 10 rahaa"
man% = man% + 10
GOTO 400
420 PRINT "Menetit työpaikkasi koska särjit näyte ikkunan."
GOTO 104




430 PRINT "Olet Postissa mitä teet?"
PRINT "a)Tee töitä"
PRINT "b)Varasta kirjeitä"
PRINT "c)Varasta Posti auto"
PRINT "d)Palaa kadulle"
INPUT g$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF g$ = "a" THEN GOTO 435
IF g$ = "b" THEN GOTO 440
IF g$ = "c" THEN GOTO 450
IF g$ = "d" THEN GOTO 102
GOTO 430
435 PRINT "Teit töitä ansaitsit 30 rahaa."
man% = man% + 30
GOTO 430
440 PRINT "Kenen kirjeen haluat varastaa?"
PRINT "a) Pormestarin"
PRINT "b) Poliisi päällikön"
PRINT "c) Merirosvon"
INPUT kirj$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF kirj$ = "a" THEN GOTO 442
IF kirj$ = "b" THEN GOTO 444
IF kirj$ = "c" THEN GOTO 448
GOTO 440
442 PRINT "Pormestarin kirjeessä oli 100 rahaa"
man% = man% + 100
PLAY slucky$
GOTO 430
444 PRINT "Poliisi päälikön kirjeessä oli sinun pidätys määräyksesi!! Halauatko repiä sen?"
PRINT "a)kyllä"
PRINT "b)ei"
INPUT polis$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF polis$ = "a" THEN GOTO 445
IF polis$ = "b" THEN GOTO 446
GOTO 444
445 PRINT "Revit sen"
SLEEP 2
GOTO 430
446 PRINT "Ei sitte"
SLEEP 2
GOTO 430
448 PRINT "Merirosvon kirjeessä oli 50 rahaa"
man% = man% + 50
PLAY slucky$
GOTO 430


450 PRINT "Varastit posti auton ja kukaan ei huomannut!"
PLAY slucky$
sped% = 80
GOTO 430




460
PRINT "Olet karkki kaupassa mitä teet."
PRINT "a)Tee töitä myyjänä"
PRINT "b)Osta karkkia"
PRINT "c)Ryöstä kassa"
PRINT "d)Palaa kadulle"
INPUT h$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF h$ = "a" THEN GOTO 465
IF h$ = "b" THEN GOTO 470
IF h$ = "c" THEN GOTO 480
IF h$ = "d" THEN GOTO 102
GOTO 460
465 PRINT "Teit töitä ansaitsit 20 rahaa"
man% = man% + 20
GOTO 460
470 man2% = man%
PRINT "Minkä laista"
PRINT "a)Pantteri pussi 10 rahaa"
PRINT "b)Lauantai pussi 20 rahaa"
PRINT "c)Dumble Original pussi 30 rahaa"
INPUT pus$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF pus$ = "a" THEN GOTO 472
IF pus$ = "b" THEN GOTO 474
IF pus$ = "c" THEN GOTO 476
GOTO 460
472
man2% = man2% - 10
IF man2% < 0 THEN GOTO 478
man% = man2%
tiime% = tiime% + 2
PRINT "Ostit Pantteri pussin"
GOTO 460

474
man2% = man2% - 20
IF man2% < 0 THEN GOTO 478
man% = man2%
tiime% = tiime% + 3
PRINT "Ostit Lauantai pussin"
GOTO 460


476
man2% = man2% - 30
IF man2% < 0 THEN GOTO 478
man% = man2%
tiime% = tiime% + 4
PRINT "Ostit dumble pussin"
GOTO 460



478 PRINT "Raha ei riitä!"
GOTO 460



480 PRINT "Et onnistunut, koska poliisi oli ostamassa karkkia!"
PLAY sunlucky$
GOTO 999999



490 IF juo$ = "COM" THEN GOTO 500
IF man% < 5000 THEN GOTO 900000
500 PRINT "Olet niin sanotussa juoppojen pesässä!"
IF juo$ = "COM" THEN PRINT "Sinä olet johtaja!"
PRINT "a)lahjo kavereita"
PRINT "b)mene kokoukseen"
PRINT "c)pyri johtajaksi"
IF radio% >= 1 THEN PRINT "d)kuuntele radiota"
IF kaappi% >= 1 THEN PRINT "e)pistä viinaa baari kaappiin"
IF kaappi% >= 1 THEN PRINT "f)juo viinaa baari kaapista"
PRINT "x)Palaa kadulle"
INPUT j$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF j$ = "a" THEN GOTO 510
IF j$ = "b" THEN GOTO 520
IF j$ = "c" THEN GOTO 550
IF j$ = "d" THEN GOTO 505
IF j$ = "e" THEN GOTO 507
IF j$ = "f" THEN GOTO 508
IF j$ = "x" THEN GOTO 102
GOTO 500
505 IF y$ = "a" THEN PRINT "RADIO :JA UUTISIA YKSI JUOPUNUT MIES ON RY™STŽNYT KAUPAN!"
IF w$ = "b" THEN PRINT "RADIO :JA UUTISIA YKSI JUOPUNUT MIES ON RY™STŽNYT PANKIN!"
IF u$ = "b" THEN PRINT "RADIO :JA UUTISIA YKSI JUOPUNUT MIES ON RY™STŽNYT AUTO KAUPAN"
IF d$ = "a" THEN PRINT "RADIO :JA UUTISIA YKSI JUOPUNUT MIES ON RY™STŽNYT KULTA SEPŽN LIIKKEEN"
IF por$ = "b" THEN PRINT "RADIO :JA UUTISIA YKSI JUOPUNUT MIES ON TAPPANUT PORMESTARIN"
IF y$ = "a" OR w$ = "b" THEN PRINT "RADIO :VIINA VERO NOUSI 10 RAHAA"
IF y$ = "a" OR w$ = "b" THEN GOTO 517
IF u$ = "b" OR d$ = "a" THEN GOTO 518
IF u$ = "b" OR d$ = "a" THEN PRINT "RADIO :VIINA VERO ON LASKENUT 10 RAHAA"
GOTO 500

507
tiime% = tiime% - 1
PRINT "Pistit viina pullon baari kaappiin"
bar% = bar% + 1
IF tiime% = 0 THEN GOTO 104
GOTO 500
508 IF bar% <= 0 THEN GOTO 509
PRINT "Otit viina pullon baari kaapista"
bar% = bar% - 1
tiime% = tiime% + 5
GOTO 500
509 PRINT "Sinulla ei ole mitään baari kaapissa!"
GOTO 500



GOTO 500
510 man2% = man%
PRINT "Paljonko haluat lahjoa?"
INPUT los%
man2% = man2% - los%
IF man2% < 0 THEN GOTO 515
bos% = bos% + los%
man% = man2%
GOTO 500
515 PRINT "Sinulla ei ole niin paljon rahaa."
GOTO 500
517 vii% = vii% + 10
GOTO 500
518 vii% = vii% - 10
GOTO 500

520 IF juo$ = "COM" THEN GOTO 540
PRINT "Olet kokouksessa"
IF man% >= 5000 THEN PRINT "Siellä päätettiin että menisit postiin"
IF man% >= 6000 THEN PRINT "Siellä päätettiin että menisit poliisi laitokselle"
IF man% >= 7000 THEN PRINT "Siellä päätettiin että menisit pankkiin"
IF man% >= 8000 THEN PRINT "Siellä päätettiin että menisit auto kauppaan"
IF man% >= 9000 THEN PRINT "Siellä päätettiin että menisit karkki kauppaan"
IF man% >= 10000 THEN PRINT "Siellä päätetiin että menisit pormestarin talolle"
GOTO 500
540 PRINT "Mitä haluat ehdottaa kokouksessa"
INPUT ehd$
PRINT "Siellä päätettiin että "; ehd$
SLEEP 3
GOTO 500

550 IF bos% >= 2000 THEN GOTO 555
PRINT "Et päässyt johtajaksi"
PLAY sunlucky$
GOTO 500
555 PRINT "Pääsit johtajaksi!! Onneksi olkoon!"
PLAY slucky$
juo$ = "COM"
GOTO 500

560 man2% = man%
PRINT "Olet kodin kone liikkessä mitä ostat!"
PRINT "a)Baari kaapin 1000 rahaa"
PRINT "b)Radion 500 rahaa"
PRINT "c)Palaa kadulle"
INPUT k$
tiime% = tiime% - 1
IF tiime% = 0 THEN GOTO 104
IF k$ = "a" THEN man2% = man2% - 1000
IF k$ = "b" THEN man2% = man2% - 500
IF k$ = "c" THEN GOTO 102
IF man2% < 0 THEN GOTO 565
man% = man2%
IF k$ = "a" THEN GOTO 570
IF k$ = "b" THEN GOTO 575
GOTO 560
565 PRINT "Raha ei riitä!"
GOTO 560
570 PRINT "Ostit baari kaapin"
kaappi% = 1
GOTO 102
575 PRINT "Ostit radion!"
radio% = 1
GOTO 102


















99999 PRINT "Et ostanut viinaa!!"
PLAY sdrink$
GOTO 999999

900000 PRINT "Tarvitset 5000 että pääset juoppojen pesään."
GOTO 102


999990 PRINT "Sinulla ei ole rahaa!!"
999999 PLAY sdeath$
OPEN TIE$ FOR OUTPUT AS #1
PRINT #1, nimi$, man%; "Rahaa"
CLOSE #1
9999
PRINT "Haluatko lopettaa?"
PRINT "y/n"
INPUT lop$
IF lop$ = "n" THEN GOTO 10
END

99999999
PRINT "Hip Hei!! Sinä "; nimi$; " pääsit peli läpi pelaathan uudestaan"
PLAY swin$
GOTO 999999