home *** CD-ROM | disk | FTP | other *** search
/ Starlight / Starlight_10_19xx_Starlight_staff_de_Side_A.d64 / ash (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  173 lines
  1. 100 h$="1"
  2. 105 poke53280,0:poke53281,0:print"[147][153]":fl$="---":tl$="---"
  3. 110 print"            ashes of empire"
  4. 115 print"            auswertungshilfe"
  5. 120 print" nach der braunschen methode entwickelt"
  6. 125 print" bereits vielseitig erfolgreich getestet"
  7. 130 print"              auswahlmenue"
  8. 135 print" (f1) aenderungen"
  9. 140 print" (f3) daten laden"
  10. 145 print" (f5) daten sichern"
  11. 150 print" (f7) auswerten"
  12. 155 print" (i)nformation"
  13. 160 print" (v)ariablenreset"
  14. 165 print"      (c) by karamba soft in 1990"
  15. 170 geta$:ifa$=""goto170
  16. 175 ifa$="i"goto210
  17. 180 ifa$="v"thenclr:goto100
  18. 185 ifa$=chr$(133)goto430
  19. 190 ifa$=chr$(134)thengosub300:goto105
  20. 195 ifa$=chr$(135)goto335
  21. 200 ifa$=chr$(136)goto470
  22. 205 goto170
  23. 210 print"[147] dieses programm erleichtert die aus-"
  24. 215 print" wertung des spieles ashes of empire."
  25. 220 print" es berechnet den teil,der stets wieder"
  26. 225 print" auftaucht.der auswertungsvorgang zeigt"
  27. 230 print" die maximalen baumoeglichkeiten von"
  28. 235 print" fightern und transportern unter den"
  29. 240 print" gegebenen voraussetzungen.darueber-"
  30. 245 print" hinaus ermoeglicht er einen einblick"
  31. 250 print" in die naechste runde.spieltaktische"
  32. 255 print" zuege kann das programm nicht aus-"
  33. 260 print" arbeiten dies ist ja aber genau der"
  34. 265 print" reiz des spieles und sollte daher auch"
  35. 270 print" nicht dem computer ueberlassen werden."
  36. 275 print" aus diesem grunde rate ich ebenso ab,"
  37. 280 print" dieses programm zu oft einzusetzen,"
  38. 285 print" denn es ist perfekt."
  39. 290 geta$:ifa$=""goto290
  40. 295 goto105
  41. 300 input"[147] planetennummer";pl$
  42. 305 open2,8,2,"0:"+pl$+",s,r"
  43. 310 input#2,a,pr,f,o,r,fp,op,rp,fy,ty
  44. 315 close2
  45. 320 print" die daten sind nun im speicher."
  46. 325 geta$:ifa$=""goto325
  47. 330 return
  48. 335 print"[147]       bitte neue daten eingeben"
  49. 340 input" planetennummer";pl$:gosub305
  50. 345 print"altes a:";a
  51. 350 input"neues a";a
  52. 355 print"alte pr:";pr
  53. 360 input"neue pr";pr
  54. 365 print"fuel:";f,"ore:";o,"rare";r
  55. 370 input"fuel";f:input"ore";o:input"rare";r
  56. 375 print"fp:";fp,"op:";op,"rp:";rp
  57. 380 input"fp";fp:input"op";op:input"rp";rp
  58. 385 print"anzahl fy:";fy,"anzahl ty:";ty
  59. 390 input"anzahl fy";fy
  60. 395 input"anzahl ty";ty
  61. 400 c$=chr$(13):print" ende der eingabe"
  62. 405 open2,8,2,"@0:"+pl$+",s,w"
  63. 410 print#2,a;c$;pr;c$;f;c$;o;c$;r;c$;fp;c$;op;c$;rp;c$;fy;c$;ty
  64. 415 close2
  65. 420 print" die daten wurden gespeichert."
  66. 425 geta$:ifa$=""goto425
  67. 430 print"[147]     fighter/transporter"
  68. 435 print" (1)    ja       ja"
  69. 440 print" (2)    ja      nein"
  70. 445 print" (3)   nein      ja"
  71. 450 print" (4)   nein     nein"
  72. 455 print"      bitte auswaehlen!"
  73. 460 geth$:ifh$<>"1"andh$<>"2"andh$<>"3"andh$<>"4"goto460
  74. 465 goto105
  75. 470 a1=a:r2p=rp:o2p=op:f2p=fp:f1=f:r1=r:o1=o:t1y=ty:f3y=fy:goto535
  76. 475 ifa1<10thenfl$="a":return
  77. 480 ifr1<3thenfl$="rare":return
  78. 485 ifo1<1thenfl$="ore":return
  79. 490 iff1<1thenfl$="fuel":return
  80. 495 iff3y<1thenfl$="fighteryards":return
  81. 500 a1=a1-10:r1=r1-3:o1=o1-1:f1=f1-1:f3y=f3y-1:fi=fi+1:goto475
  82. 505 ifa1<20thentl$="a":return
  83. 510 ifr1<1thentl$="rare":return
  84. 515 ifo1<3thentl$="ore":return
  85. 520 iff1<2thentl$="fuel":return
  86. 525 ift1y<1thentl$="transporteryards":return
  87. 530 a1=a1-20:f1=f1-2:o1=o1-3:r1=r1-1:t1y=t1y-1:tr=tr+1:goto505
  88. 535 ifh$="1"thengosub475:gosub505:goto550
  89. 540 ifh$="2"thengosub475:goto550
  90. 545 ifh$="3"thengosub505
  91. 550 print"[147] anzahl der fighter";fi
  92. 555 print" baubegrenzung durch ";fl$
  93. 560 print" anzahl der transporter";tr
  94. 565 print" baubegrenzung durch ";tl$
  95. 570 print" uebrige arbeitskraft";a1
  96. 575 print" fighter zuerst festlegen (j/n)?"
  97. 580 getch$:ifch$<>"j"andch$<>"n"goto580
  98. 585 ifch$="n"goto625
  99. 590 print" wieviel fighter bauen (0-";fi;"[157])"
  100. 595 print" ";fi:input"[145]";f2i
  101. 600 iff2i<0thenprint"[145]";:goto595
  102. 605 iff2i>fithenprint"[145]";:goto595
  103. 610 di=fi-f2i:a1=a1+10*di:f1=f1+di:o1=o1+di:r1=r1+3*di:f3y=f3y+di
  104. 615 ifch$="n"goto685
  105. 620 gosub505
  106. 625 print" anzahl der transporter";tr
  107. 630 print" baubegrenzung durch ";tl$
  108. 635 print" wieviel transporter bauen (0-";tr;"[157])"
  109. 640 print" ";tr:input"[145]";t2
  110. 645 ift2<0thenprint"[145]";:goto640
  111. 650 ift2>trthenprint"[145]";:goto640
  112. 655 d2i=tr-t2:a1=a1+20*d2i:f1=f1+2*d2i:o1=o1+3*d2i:r1=r1+d2i:t1y=t1y+d2i
  113. 660 ifch$="j"goto685
  114. 665 gosub475
  115. 670 print" anzahl der fighter";fi
  116. 675 print" baubegrenzung durch ";fl$
  117. 680 goto590
  118. 685 print"[147] gebaute fighter:";f2i
  119. 690 print" gebaute transporter:";t2
  120. 695 print" uebrige arbeitskraft:";a1
  121. 700 print" fuelreserve:";f1
  122. 705 print" orereserve:";o1
  123. 710 print" rarereserve:";r1
  124. 715 print" fuelplants:";f2p
  125. 720 print" oreplants:";o2p
  126. 725 print" rareplants:";r2p
  127. 730 print" naechste runde:"
  128. 735 f3=f1+int(f2p*pr):print" fuel:";f3
  129. 740 o3=o1+int(o2p*pr):print" ore:";o3
  130. 745 r3=r1+int(r2p*pr):print" rare:";r3
  131. 750 print"             taste druecken!"
  132. 755 geta$:ifa$=""goto755
  133. 760 t5=ty+3:f5=fy+3
  134. 765 print"[147]"
  135. 770 forx=1tof5
  136. 775 f6=x-(f1+fp*pr)
  137. 780 o6=x-(o1+op*pr)
  138. 785 r6=x*3-(r1+rp*pr)
  139. 790 f8p=int(f6/pr+.5)
  140. 795 o8p=int(o6/pr+.5)
  141. 800 r8p=int(r6/pr+.5)
  142. 805 f7y=x-fy
  143. 810 print" zum bau von";x;"fightern fehlen:"
  144. 815 iff8p>0thenprint"fp:";f8p
  145. 820 ifo8p>0thenprint"op:";o8p
  146. 825 ifr8p>0thenprint"rp:";r8p
  147. 830 iff7y>0thenprint"fy:";f7y
  148. 835 geta$:ifa$=""goto835
  149. 840 nextx
  150. 845 input"[147] nochmal";a$:ifa$="j"goto765
  151. 850 print"[147]"
  152. 855 forx=1tot5
  153. 860 f6=x*2-(f1+int(fp*pr))
  154. 865 o6=x*3-(o1+int(op*pr))
  155. 870 r6=x-(r1+int(rp*pr))
  156. 875 f8p=int(f6/pr+.5)
  157. 880 o8p=int(o6/pr+.5)
  158. 885 r8p=int(r6/pr+.5)
  159. 890 t7y=x-ty
  160. 895 print" zum bau von";x;"transportern fehlen:"
  161. 900 iff8p>0thenprint"fp:";f8p
  162. 905 ifo8p>0thenprint"op:";o8p
  163. 910 ifr8p>0thenprint"rp:";r8p
  164. 915 ift7y>0thenprint"ty:";t7y
  165. 920 geta$:ifa$=""goto920
  166. 925 nextx
  167. 930 input"[147] nochmal";a$:ifa$="j"goto850
  168. 935 print"[147] ende des programms."
  169. 940 print" achtung:"
  170. 945 print" variablenreset nicht vergessen!"
  171. 950 geta$:ifa$=""goto950
  172. 955 clr:goto100
  173.