home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug013.ark / KINGDOM.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  6.6 KB  |  222 lines
  1. 10 FOR I=1 TO 10:PRINT:NEXT I
  2. 20 PRINT TAB(20);"*** KINGDOM ***":FOR I=1 TO 10:PRINT:NEXT I
  3. 30 N5=8:N4=8
  4. 380 PRINT "YOUR GOAL: TO COMPLETE YOUR ";N4;" YEAR TERM."
  5. 390 PRINT "GOOD LUCK"
  6. 400 M=INT(70000+(RND*1000)-(RND*1000))
  7. 410 P=INT(500 +(RND*10)-(RND*10))
  8. 420 L=2000
  9. 430 W=0:X2=0:E0=0:X1=0:E1=0:S9=0:S0=0:M5=0:S1=0
  10. 440 D1=INT(P/3)
  11. 450 L1=INT((RND*5)+10)
  12. 460 L0=INT(RND*10+95)
  13. 470 GOSUB 2220
  14. 480 PRINT "YOU HAVE ";M;" RALLODS, ";
  15. 490 PRINT P;" COUNTRYMEN,";
  16. 500 IF W=0 THEN 520
  17. 510 PRINT W;" FOREIGN WORKERS,";
  18. 520 PRINT " AND ";L;" SQ. MILES OF LAND."
  19. 530 PRINT "THIS YEAR INDUSTRY WILL BUY LAND FOR ";L0;" RALLODS/SQ. MILE"
  20. 540 PRINT "LAND CURRENTLY COSTS ";L1;" RALLODS/SQ. MILE TO PLANT"
  21. 550 IF S1=0 THEN 570
  22. 560 PRINT "POLLUTION LEVEL IS ";S1;" UNITS."
  23. 570 GOSUB 2220
  24. 580 INPUT"HOW MANY SQ. MILES TO SELL TO INDUSTRY ";L2
  25. 600 IF L2<0 THEN 580
  26. 610 IF L2<(L-1000) THEN 680
  27. 620 PRINT "  THINK AGAIN. YOU'VE ONLY ";L-1000;" SQ. MILES OF FARM LAND"
  28. 630 IF X<>1 THEN 580
  29. 640 PRINT "(FOREIGN INDUSTRY NOT INTERESTED IN FOREST LAND BECAUSE"
  30. 650 PRINT "OF GREATER DEVELOPMENT COST)"
  31. 660 X1=1
  32. 670 GOTO 580
  33. 680 M=INT(M+L2*L0)
  34. 690 L=INT(L-L2)
  35. 700 X9=INT(44*(2000-L))
  36. 710 M2=0
  37. 720 M3=0
  38. 730 M4=0
  39. 740 INPUT"HOW MANY RALLODS TO DISTRIBUTE TO YOUR COUNTRYMEN ";M1
  40. 770 IF M1<0 THEN 740
  41. 780 IF M1<=M THEN 810
  42. 790 GOSUB 2250
  43. 800 GOTO 740
  44. 810 M=INT(M-M1)
  45. 820 IF M=0 THEN 1170
  46. 830 INPUT"HOW MANY SQ. MILES TO PLANT ";L3
  47. 850 IF L3<0 THEN 830
  48. 860 IF L3<=P*2 THEN 890
  49. 870 PRINT "EACH COUNTRYMAN CAN ONLY PLANT 2 SQ. MILES":GOTO 950
  50. 890 IF L3<=L-1000 THEN 920
  51. 900 PRINT "ONLY GOT ";L-1000;" SQ. MILES OF FARM LAND."
  52. 910 GOTO 950
  53. 920 M4=INT(L3*L1)
  54. 930 IF M4<=M THEN 990
  55. 940 GOSUB 2250
  56. 950 PRINT "YOU CAN AFFORD ";INT(M/L1);
  57. 960 PRINT " AND HAVE LABOR FOR ";P*2;
  58. 970 PRINT " AND HAVE ";L-1000;" SQ. MILES":GOTO 830
  59. 990 M=INT(M-M4)
  60. 1000 IF M=0 THEN 1170
  61. 1010 INPUT"HOW MUCH TO SPEND FOR EDUCATION ";M2
  62. 1030 IF M2<0 THEN 1010
  63. 1040 IF M2<M THEN 1070
  64. 1050 GOSUB 2250
  65. 1060 GOTO 1010
  66. 1070 M=INT(M-M2)
  67. 1080 IF M=0 THEN 1170
  68. 1090 IF L=2000 THEN 1170
  69. 1100 INPUT"HOW MUCH TO SPEND TO COMBAT POLLUTION ";M3
  70. 1120 IF M3<0 THEN 1100
  71. 1130 IF M3<=M THEN 1160
  72. 1140 GOSUB 2250
  73. 1150 GOTO 1100
  74. 1160 M=INT(M-M3)
  75. 1170 GOSUB 2220
  76. 1180 D0=0
  77. 1190 E2=M2/P
  78. 1200 D2=INT(P-M1/100)
  79. 1210 IF D2<=0 THEN 1240
  80. 1220 D0=D2
  81. 1230 PRINT  D2;" COUNTRYMEN DIED OF STARVATION."
  82. 1240 D3=INT((S1/100000)*(.1+.4*RND)*P)
  83. 1250 IF D3<=0 THEN 1280
  84. 1260 PRINT  D3;" COUNTRYMEN DIED OF EXCESS POLLUTION."
  85. 1270 D0=D0+D3
  86. 1280 IF D0<=0THEN 1400
  87. 1290 F=D0*9
  88. 1300 PRINT "YOU WERE FORCE TO SPEND ";F;" RALLODS FOR FUNERAL EXPENSES"
  89. 1310 M=INT(M-F)
  90. 1320 IF M<=0 THEN 1400
  91. 1330 PRINT "INSUFFICIENT RESOURCES FORCED SALE OF LAND."
  92. 1340 T0=-INT((M-L0+1)/L0)
  93. 1350 L=L-T0
  94. 1360 IF L>=1000 THEN 1390
  95. 1370 PRINT "NOT ENOUGH LAND TO SELL"
  96. 1380 GOTO 2270
  97. 1390 M=M+T0*L0
  98. 1400 IF D0>200 THEN 2300
  99. 1410 P=P-D0
  100. 1420 D1=D1-D0
  101. 1430 IF D1<0 THEN 2410
  102. 1440 IF D2<=2 THEN 1460
  103. 1450 IF M>500 THEN 2520
  104. 1460 IF L2=0 THEN 1520
  105. 1470 T0=INT(L2+L2*RND*2)
  106. 1480 IF W=0 THEN 1500
  107. 1490 T0=INT(T0+.1*W)
  108. 1500 PRINT  T0;" WORKERS CAME TO THE ISLAND AND"
  109. 1510 W=W+T0
  110. 1520 T0=INT(((500-P)/10-D3/3-D2/5)*.75*(1+RND))
  111. 1530 PRINT  ABS(T0);" COUNTRYMEN ";
  112. 1540 IF T0<0 THEN 1570
  113. 1550 PRINT "CAME TO ";
  114. 1560 GOTO 1580
  115. 1570 PRINT "LEFT ";
  116. 1580 PRINT " THE ISLAND."
  117. 1590 P=P+T0
  118. 1600 IF P<W THEN 2480
  119. 1610 T0=0
  120. 1620 IF L=2000 THEN 1680
  121. 1630 T0=INT((S1/100000)*L3)
  122. 1640 IF T0<=L3 THEN 1660
  123. 1650 T0=L3
  124. 1660 IF T0=0 THEN 1680
  125. 1670 PRINT "OF ";L3;" SQ. MILES PLANTED, ";
  126. 1680 PRINT "YOU HARVESTED ";L3-T0;" SQ. MILES OF CROPS."
  127. 1690 IF T0=0 THEN 1760
  128. 1700 IF X2>=2 THEN 1760
  129. 1710 PRINT "  (DUE TO ";
  130. 1720 IF X2=0 THEN 1740
  131. 1730 PRINT "INCREASED ";
  132. 1740 PRINT "POLLUTION LEVEL)"
  133. 1750 X2=X2+1
  134. 1760 T1=INT((39+RND*20)*(1+.25*(E0+E1)/20))
  135. 1770 PRINT "  MAKING ";INT(T1*(L3-T0));" RALLODS."
  136. 1780 M=M+INT(T1*(L3-T0))
  137. 1790 E0=E1
  138. 1800 IF E2<=10 THEN 1820
  139. 1810 E2=10
  140. 1820 E1=E2
  141. 1830 T0=2000-L
  142. 1840 IF T0<2 THEN 2100
  143. 1850 IF T0<=26 THEN 1870
  144. 1860 T0=26
  145. 1870 T0=INT(T0*500*(.52+.5*RND))
  146. 1880 T1=S1/100000
  147. 1890 IF T1<=1 THEN 1910
  148. 1900 T1=1
  149. 1910 T1=T1*T0
  150. 1920 PRINT "YOU MADE ";INT(T0-T1);" RALLODS FROM TOURIST TRADE"
  151. 1930 M=M+INT(T0-T1)
  152. 1940 IF INT(T0-T1)<=M5 THEN 2080
  153. 1950 IF S1<=S9 THEN 2080
  154. 1960 PRINT "  DECREASE BECAUSE ";
  155. 1970 T2=RND*10
  156. 1980 ON (T2/2)+1 GOTO 1990,2010,2030,2050,2070,2070
  157. 1990 PRINT "FISH POPULATIN HAS DWINDLED DUE TO WATER POLLUTION"
  158. 2000 GOTO 2080
  159. 2010 PRINT "AIR POLLUTION IS KILLING GAME BIRD POPULATION"
  160. 2020 GOTO 2080
  161. 2030 PRINT "MINERAL BATHS ARE BEING RUINED BY WATER POLLUTION"
  162. 2040 GOTO 2080
  163. 2050 PRINT "UNPLEASANT SMOG IS DISCOURIGING SUN BATHERS"
  164. 2060 GOTO 2080
  165. 2070 PRINT "HOTEL ARE LOOKING SHABBY DUE TO SMOG GRIT"
  166. 2080 M5=INT(T0-T1)
  167. 2090 S9=S1
  168. 2100 S2=(2000-L)^2-M3/.44
  169. 2110 PRINT "YOU RECEIVED ";X9;" RALLODS FROM TAXES ON INDUSTRY"
  170. 2120 IF S2>=0 THEN 2170
  171. 2130 S1=INT(S1+S2/2)
  172. 2140 IF S1>=S0 THEN 2160
  173. 2150 S1=S0
  174. 2160 GOTO 2190
  175. 2170 S1=INT(S1+S2)
  176. 2180 S0=INT(S0+S2/10)
  177. 2190 N5=N5-1
  178. 2200 IF N5>0 THEN 450
  179. 2210 GOTO 2570
  180. 2220 PRINT :PRINT :RETURN
  181. 2250 PRINT "ONLY GOT ";M;" RALLODS LEFT!":RETURN
  182. 2270 PRINT "YOU HAVE BEEN THROWN OUT OF OFFICE AND YOU ARE NOW"
  183. 2280 PRINT "RESIDING IN PRISON."
  184. 2290 STOP
  185. 2300 PRINT D0;" COUNTRYMEN DIED IN ONE YEAR!!!!!"
  186. 2310 PRINT "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY"
  187. 2320 PRINT "BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU"
  188. 2330 T0=INT(RND*2.01)+1
  189. 2340 ON T0 GOTO 2350,2370,2390
  190. 2350 PRINT "ALSO HAD YOUR LEFT EYE GOUGED OUT."
  191. 2360 STOP
  192. 2370 PRINT "HAVE ALSO GAINED A VERY BAD REPUTATION."
  193. 2380 STOP
  194. 2390 PRINT "HAVE ALSO BEEN DECLARED NATIONAL FINK."
  195. 2400 STOP
  196. 2410 PRINT "OVER ONE THIRD OF THE POPULATION HAS DIED SINCE YOU"
  197. 2420 PRINT "WERE ELECTED TO OFFICE.  THE PEOPLE (REMAINING)"
  198. 2430 PRINT "HATE YOUR GUTS."
  199. 2440 GOTO 2450
  200. 2450 IF RND<.25 THEN 2270
  201. 2460 PRINT "YOU HAVE BEEN ASSASINATED."
  202. 2470 STOP
  203. 2480 PRINT "THE NUMBER OF FOREIGN WORKERS HAS EXCEEDED THE NUMBER"
  204. 2490 PRINT "OF COUNTRYMEN. AS A MAJORITY THEY HAVE REVOLTED AND"
  205. 2500 PRINT "TAKEN OVER THE COUNTRY."
  206. 2510 GOTO 2450
  207. 2520 PRINT "MONEY WAS LEFT OVER IN THE TREASURY WHICH YOU DID NOT"
  208. 2530 PRINT "SPEND.  AS A RESULT SOME OF YOUR COUNTRYMEN DIED OF "
  209. 2540 PRINT "STARVATION.  THE PUBLIC IS ENRAGED AND YOU HAVE BEEN"
  210. 2550 PRINT "FORCED TO EITHER RESIGN OR COMMIT SUICIDE."
  211. 2560 STOP
  212. 2570 PRINT 
  213. 2580 PRINT "CONGRATULATIONS"
  214. 2590 PRINT "YOU HAVE SUCCESSFULLY COMPLETED YOUR ";N4;" YEAR TERM"
  215. 2600 PRINT "OF OFFICE.  YOU HAVE DONE SUCH A GOOD JOB THAT YOU MIGHT"
  216. 2610 PRINT "WANT TO RUN FOR ELECTION AGAIN THIS TIME."
  217. 2620 PRINT "TYPE 0 (ZERO) IF YOU DO";
  218. 2630 INPUT Q
  219. 2640 N5=N4
  220. 2650 IF Q=0 THEN 440
  221. 2660 STOP
  222.