home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Floppy Magazine 1987 #4
/
Floppy_Magazine_87-4_1987_Megasystems_Oy_fi_Side_B.d64
/
kaivos
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
8KB
|
276 lines
1 gosub 25000
10 rem *** jukka-pekka ***
20 rem *** 1985 ***
30 rem *** kaivos ***
40 poke53280,54:poke53281,54:print"[147]tassa pelissa sinun taytyy hoitaa kaivosta"
50 print"alkupaaomaa sinulla on 10000$,jonka voit kayttaa mielesi mukaan"
60 print"peli paattyy jos rahasi loppuvat tai tyolaiset tekevat lakon"
70 print"lakko syntyy kun erotat liikaa tyolaisiatai maksat liian vahan palkkaa"
80 print"lisaa rahaa saat kun myyt kaivoksen tuottamaa malmia"
90 print"malmin maara vaihtelee tyolaisten innos tuksen ja maaran mukaan"
100 print"paina nappia tilastotietoihin"
110 get m$:if m$=""then 110
120 n=10000:b=100:v=5:l=175:j=10:f=100:ff=30:x=0
200 if jj>2 then 1700
201 o=int((33-1)*rnd(1))+1
202 if o=1 then 1500
204 if b<10 then 1000
206 if l<75 then 500
207 if v<0 then 500
208 if n<0 then 1000
210 pp=int((10-1)*rnd(1))+1
211 if pp=1 and oo=0 then gosub 1900
212 ll=int((30-1)*rnd(1))+1
213 if ll=1 and uu=0 then gosub 2100
216 d=int((j-1)*rnd(1))+1
217 if d=1 then 1600
218 x=x+1:print"[147]kaivos,";x;"viikolta":print:print:print:if pt>0 then x1=x1+1
219 print"suosiosi on:";v
220 j=j-1
221 k=k+b*(1.3*(l/350))*(v*0.7)
222 jl=j/2
223 print"kaivoksesi malmivarasto on:";k;"tonnia"
224 print"rahaa sinulla on:";n;"$"
225 print"tyoturvallisuus on:";jl
226 if jj>0 then print"kaivoksessasi on ollut sortumia:";jj
230 c=int((f-ff)*rnd(1))+ff
231 ll=int((30-1)*rnd(1))+1
240 print"malmin hinta on:";c;"$ tonnilta"
250 print"tyolaisia sinulla on:";b;"henkea"
260 print"tyolaisten palkka on:";l;"$ viikossa":print
300 print"montako tonnia haluat myyda malmia ?"
310 input q
311 if q<0 then 300
320 if q>k then 300
326 if q>1000 and oo=0 then gosub 1900
327 if q<100 then yy=yy+1
328 if yy>5 then gosub 2100
329 if uu>0 then uu=uu-1
330 n=n+q*c
331 if uu=1 then gosub 2000
332 if oo>0 then oo=oo-1
333 if oo=1 then gosub 2000
335 k=k-q
340 print"rahaa sinulla on:";n;"$"
350 print"kuinka monta dollaria tahdot laskea tyolaisten palkkoja ?"
360 input w
365 if w<0 then 350
370 if w>25 then 500
380 if w>0 then v=v-1
390 l=l-w
395 if l<50 then 500
400 print"kuinka monta dollaria tahdot nostaa tyolaisten palkkoja ?"
410 input e
415 if e<0 then 400
420 l=l+e
430 if e>10 then v=v+1
440 print"montako tyolaista tahdot irtisanoa ?"
450 input r
460 if r>0 then v=v-1
462 if r<0 then 440
465 b=b-r
467 if r>50 then 500
470 if b<10 then 1000
480 if l<50 then 500
490 goto 600
500 print"[147]tyolaiset tekevat lakon irtisanomisten ja palkan alennusten takia !"
510 print"uusi peli alkaa napista."
520 get t$:if t$="" then 520
530 run 10
600 print"montako uutta tyolaista tahdot palkata ?"
610 input y
615 if y<0 then 600
620 b=b+y
625 goto 1800
630 print"[147]kaivoksen palkanmaksu"
640 print"sinulla on";b;"tyolaista,jotka kaikki vaativat";l;"$ palkkaa"
645 n=n-b*l
650 print"palkat maksettua sinulle jaa rahaa";n;"$"
660 print"paina nappia tilastoihin"
670 get u$:if u$=""then 670
680 goto 200
1000 print"[147]kaivoksesi teki konkurssin !"
1010 print"paina nappia uuteen peliin."
1020 get i$:if i$="" then 1020
1030 run10
1060 print"paina nappia"
1500 print"[147] erityisverotus"
1510 print"voimaan tuli erityisverotus,jotta valtio selviaisi vaikeuksistaan"
1520 print"verotus vahentaa jokaisen kaivoksen varoista puolet"
1530 n=n/2
1540 print"verotuksen jalkeen sinulla on rahaa";n;"$"
1550 print"paina nappia tilastotietoihin"
1560 get p$:if p$="" then 1560
1565 x=x-1
1570 goto 200
1600 print"[147]kaivoksessasi tapahtui sortuma !"
1610 print"uhrien omaiset haastoivat sinut oikeuteen ja joudut maksamaan 25000$"
1620 n=n-25000:jj=jj+1:v=v-1:j=j-1:b=b-15
1625 x=x-1
1630 print"rahaa sinulla on";n;"$"
1640 print"paina nappia tilastotietoihin"
1650 get d$:if d$=""then 1650
1660 goto 200
1700 print"[147]pakollinen kaivoksen uudistaminen":print:print
1710 print"kaivoksessasi on tapahtunut useita onnettomuuksia"
1720 print"onnettomuudet ovat aiheuttaneet halya,"
1730 print"jonka seurauksena sinun taytyy uudistaa vaarallista kaivostasi"
1740 print"uudistuskuluja tulee n.150000$"
1750 print"jos sinulla ei ole rahaa uudistaa kaivosta sen toiminta lopetetaan"
1760 n=n-150000:jj=0:j=j+7.5
1770 print"sinulle jaa rahaa:";n;"$"
1780 print"paina nappia jatkoon"
1790 get dd$:if dd$=""then 1790
1792 x=x-1
1795 goto 200
1800 print"kuinka monella dollarilla haluat uudistaa kaivostasi ?"
1810 input qq
1820 if qq>n then 1800
1825 if qq<0 then 1800
1830 n=n-qq
1840 j=j+qq/1000
1845 if n>100000 or qw=1 then gosub 10000
1847 if qe=1 then gosub 11100
1849 if pt>200000 and qe=0 then gosub 11000
1850 goto 630
1900 print"[147]laskusuhdanne":print:print
1910 print"malmin ylitarjonnan takia malmin hinnat romahtavat"
1920 print"hinnat romahtavat arviolta 50%"
1930 print"paina nappia jatkoon"
1940 f=50:ff=1:oo=10
1950 get rr$:if rr$=""then 1950
1955 x=x-1
1960 print"[147]":return
2000 print"[147]malmin hinnat palautuvat normaaleiksi":print:print
2010 print"hinnat ovat nyt 30-100 dollaria tonnilta"
2030 f=100:ff=30:yy=0:oo=0:uu=0
2040 print"paina nappia jatkoon"
2050 get tt$:if tt$="" then 2050
2060 print"[147]":return
2100 print"[147]noususuhdanne":print:print
2110 print"malmin alitarjonnan takia malmin hinnat nousevat"
2120 print"hinnat nousevat arviolta 35%"
2130 print"paina nappia"
2140 f=150:ff=80
2150 uu=5
2155 yy=0
2160 get ii$:if ii$=""then 2160
2170 print"[147]":return
9999 rem *** aliohjelma pankki ***
10000 print"paljonko rahaa talletat pankkiin ?":inputpp
10010 ifpp>nthen10000
10015 ifpp<0then10000
10020 n=n-pp:pt=pt+pp
10030 print"paljonko nostat pankkitilillasi olevasta $";pt;"?":inputnn
10031 if x1=9 then pt=pt*1.11:x1=0
10032 ifnn>pt then10030
10033 ifnn<0then10030
10035 pt=pt-nn
10037 n=n+nn:qw=1
10050 return
11000 rem *** sisaryhtio ***
11010 print"[147]haluatko ostaa malminrikastamon (k/e) ?"
11020 print"malminrikastamon hinta on 200000 dollaria"
11030 print"hintaan sisaltyy koneisto,malmin kuljetusvalineet ja tontti"
11040 input qr$:if qr$="k"then 11045:if qr$="e"then return
11042 return
11045 qe=1:sy=1:pt=pt-200000
11050 print"[147]sinulla on kaivos,malminrikastamo ja";n;"dollaria rahaa"
11060 print"paina nappia"
11070 get qt$:if qt$=""then 11070
11080 su=5:ny=5:he=100:ja=he*0.5*su+ny*20:pa=200:qe=1
11090 return
11100 ny=ny-0.5:ja=he*0.5*su+ny*20:if su<1 then 12000
11110 cj=int((200-130)*rnd(1))+130
11200 print"[147]malminrikastamo,";x;"viikolta":print:print
11210 print"kateisvarasi:";n;"$"
11215 print"kaivoksen malmivarasto:";k;"tonnia"
11220 print"nykyaikaisuus:";ny
11230 print"henkilokunta:";he;"henkea"
11240 print"palkka:";pa;"$ viikossa"
11250 print"rikastuskyky:";ja;"tonnia"
11260 print"rikastamon malmivarasto:";jm;"tonnia"
11265 print"rikastetun malmin hinta:";cj;"$ tonnilta"
11266 print"malmin hinta:";c;"$ tonnilta"
11267 print"suosio:";su
11270 print"rikastettua malmia:";ji;"tonnia":print
11280 print"kuinka monta tonnia malmia tuodaan rikastettavaksi ?"
11290 print"(tuontikulut 15$ tonnilta)"
11300 input qy
11310 if qy>k then 11280
11320 if qy<0 then 11280
11330 if qy*15>n then 11280
11340 n=n-qy*5:jm=jm+qy:k=k-qy
11350 print"sinulla on rahaa:";n;"$"
11360 print"kuinka monta tonnia malmia rikastat ? (kulut 30$ tonnilta)"
11370 input qu
11380 if qu>jm then 11350
11390 if qu*30>n then 11350
11400 if qu>ja then 11350
11401 jm=jm-qu:ji=ji+qu:n=n-30*qu
11410 print"sinulla on rahaa:";n;"$"
11420 print"kuinka monta tonnia myyt rikastamatonta malmia ?"
11430 input qi
11440 if qi>jm then 11410
11450 if qi<0 then 11410
11455 if qi>1000 then gosub 1900
11460 jm=jm-qi
11470 n=n+qi*c
11480 print"rahavarasi:";n;"$"
11490 print"kuinka monta tonnia myyt rikastettua malmia ?"
11500 input qo
11510 if qo>ji then 11480
11520 if qo<0 then 11480
11530 n=n+qo*cj
11540 ji=ji-qo
11550 print"rahavarasi:";n;"$"
11560 print"kuinka monella dollarilla nykyaikaistat rikastamoasi ?"
11570 input qp
11580 if qp<0 then 11550
11590 ny=ny+qp/2000
11600 print"montako tyontekijaa erotat ?"
11610 input ql
11620 if ql>25 then 12000
11625 if ql>0 then su=su-1
11630 if he<50 then 13000
11640 he=he-ql
11650 print"montako tyontekijaa palkkaat ?"
11660 input qk
11670 if qk<0 then 11650
11675 if qk>20 then su=su+1
11680 he=he+qk
11690 print"kuinka monta dollaria nostat palkkoja ?"
11700 input qj
11710 if qj<0 then 11690
11715 if qj>40 then su=su+1
11720 pa=pa+qj
11730 print"kuinka monta dollaria lasket palkkoja ?"
11740 input qh
11750 if qh<0 then 11730
11755 if qh>0 then u=u-1
11760 if qh>15 then 12000
11770 pa=pa-qh
11780 print"[147]rikastamon palkanmaksu":print:print
11790 print"malminrikastomossasi on";he;"tyontekijaa.kaikkien palkka on";pa;"$"
11800 print"kun olet maksanut tyontekijoiden palkat,sinulla on rahaa";n;"$"
11810 print"paina nappia"
11820 get qg$:if qg$=""then 11820
11830 return
12000 print"malminrikastamon tyontekijat tekevat lakon"
12010 print"et saa syntymaan sovintoa tyontekijoiden kanssa"
12020 print"joudut myymaan rikastamon pilkkahintaan,"
12030 print"koska et onnistu palkkaamaan tyontekijoita"
12040 print"saat rikastomosta 100000$"
12050 print"paina nappia"
12060 sy=0:qe=0:n=n+100000:ja=0:he=0:ny=0:pa=0:jt=0
12070 return
13000 print"[147]yrityksesi tekevat konkurssin"
13010 print"paina nappia"
13020 get qf:if qf=""then 13020
13030 run 10
25000 print"[147]kayta tassa pelissa vain kokonaislukuja"
25010 print"kayta uudistamiseen vain tuhansia"
25020 print:print"ps. talleta rahojasi pankkiin,jos voit"
25030 get j$:if j$="" then 25030
25100 return