home *** CD-ROM | disk | FTP | other *** search
/ Starlight / Starlight_10_19xx_Starlight_staff_de_Side_B.d64 / dsa (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  12KB  |  368 lines
  1. 5 poke53281,18:poke53280,10
  2. 10 print"[147]"tab(5)"[176][174] [150][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] [176][174]"
  3. 15 printtab(5)"[173][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][189]"
  4. 20 printtab(5)"[150][221][221][153]        contact me:      [221][150][221]"
  5. 25 printtab(5)"[221][221][158]        peter braun      [221][150][221]"
  6. 30 printtab(5)"[221][221][158]    weissdorfer str.27   [221][150][221]"
  7. 31 printtab(5)"[221][221][158]       8663 sparneck     [221][150][221]"
  8. 35 printtab(5)"[176][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][174]"
  9. 40 printtab(5)"[173][189] [150][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] [173][189][155]"
  10. 50 print"[150]      thanx for this nice graphic"
  11. 60 print"       to the editor of apollo 7"
  12. 70 geta$:ifa$=""goto70
  13. 100 b$="        dsa - das schwarze auge [146]":dimf(3):dima$(255):dimx$(10)
  14. 105 dimx(10,7):dimz$(20)
  15. 110 c$="lf"
  16. 115 print"[147][158]";b$
  17. 120 e$="        written by karamba soft":print"";e$
  18. 125 print" kennst du karamba von stein und seine"
  19. 130 print" freunde den schlagkraeftigen troll,den"
  20. 135 print" gepanzerten waldschrat oder den"
  21. 140 print" grauenerregenden golem?"
  22. 145 print" es handelt sich um helden und monster"
  23. 150 print" des rollenspieles 'das schwarze auge'"
  24. 155 print" die unter anderem in diesem programm"
  25. 160 print" bezwungen werden koennen."
  26. 165 print"[160]das programm spricht den anwender"
  27. 170 print" direkt an,dadurch dass dieser den"
  28. 175 print" umfang der verwaltung selbst bestimmt."
  29. 180 print" durch geringe veraenderungen des"
  30. 185 print" programms kann es auch fuer andere"
  31. 190 print" fantasie rollenspiele verwendet"
  32. 195 print" werden."
  33. 200 print" infos (l)aden oder (f)estlegen?"
  34. 205 d$=e$:forx=1to35
  35. 210 geta$
  36. 215 ifa$="l"thenprint"[147][158]":clr:goto370
  37. 220 ifa$="f"thenprint"[158]":clr:goto300
  38. 225 ifa=249thena=0
  39. 230 a=a+1:poke646,a:print"";b$:printc$
  40. 235 a=a+5:poke646,a:a=a-5
  41. 240 ifx<=8thend$=mid$(d$,2,30):print"";d$;" ":nextx
  42. 245 ifx<=25thend$=" "+d$:print"";d$:nextx
  43. 250 ifx<=34thend$=mid$(d$,2,40):print"";d$;" ":nextx
  44. 255 goto205
  45. 260 print"[147] bitte mit der leertaste die gewuenschte"
  46. 265 print"[145]";a$
  47. 270 print" mit return geht es weiter..."
  48. 275 getb$:ifb$<>" "andb$<>chr$(13)goto275
  49. 280 ifb$=chr$(13)thenf(c)=peek(b):return
  50. 285 a=a+1:ifa=256thena=0
  51. 290 pokeb,a:ifc=3goto260
  52. 295 goto275
  53. 300 c=1:a$=" hintergrundfarbe waehlen.":b=53280:gosub260
  54. 305 c=2:a$=" vordergrundfarbe aussuchen.":b=53281:gosub260
  55. 310 c=3:a$=" schriftfarbe bestimmen.    ":b=646:gosub260
  56. 315 print"[147] nun noch eine letzte auskunft:"
  57. 320 print"[160]wie willst du dich nennen?"
  58. 325 print" (maximal 15 buchstaben)":input" name";f$
  59. 330 print"[147]   waren alle eingaben richtig?(j/n)":b$=chr$(13)
  60. 335 geta$:ifa$=""goto335
  61. 340 ifa$="n"goto300
  62. 345 open2,8,2,"@0:dsa/info,s,w":print#2,f(1);b$;f(2);b$;f(3);b$;f$:close2
  63. 350 print"[147] diese daten sind jetzt gespeichert"
  64. 355 print" und koennen immer am programmbeginn     geladen werden."
  65. 360 geta$:ifa$=""goto360
  66. 365 goto380
  67. 370 open2,8,2,"0:dsa/info,s,r":input#2,f(1),f(2),f(3),f$:close2
  68. 375 poke53280,f(1):poke53281,f(2):poke646,f(3)
  69. 380 print"[147] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  70. 385 print" [194][153] das schwarze auge [146]";:poke646,f(3):print"[194]                [194]"
  71. 390 print"";f$
  72. 395 print" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  73. 400 print" [194]befehl                         taste[194]"
  74. 405 print" [194][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][174][194]"
  75. 410 print" [194][194]held eingeben/verbessern       [194]f1[194][194]"
  76. 415 print" [194][194]monster eingeben/verbessern    [194]f2[194][194]"
  77. 420 print" [194][194]held neu erschaffen            [194]f3[194][194]"
  78. 425 print"[160][194][194]zufallszahlen entwerfen        [194]f4[194][194]"
  79. 430 print" [194][194]kampf zweier figuren           [194]f5[194][194]"
  80. 435 print" [194][194]zubehoer des helden            [194]f6[194][194]"
  81. 440 print" [194][194]zubehoer eingeben/aendern      [194]f7[194][194]"
  82. 445 print"[160][194][194]geld verwaltung                [194]f8[194][194]"
  83. 450 print" [194][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][179][194]"
  84. 455 print" [194][194]umschalten zum speicher        [194] u[194][194]"
  85. 460 print" [194][194]farben/namen aendern           [194] f[194][194]"
  86. 465 print" [194][194]abenteuer entwerfen/spielen    [194] a[194][194]"
  87. 470 print" [194][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][189][194]"
  88. 475 print" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  89. 480 print" [194]created by karamba soft in feb. 1991[194]"
  90. 485 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":x=0
  91. 490 d$="karamba":b$=d$:f$=" soft":z=31:e$="                               "+f$
  92. 495 x=x+1:z=z+1:ifx=62thenx=1:b$=d$
  93. 500 ifz=62thenz=1:e$=f$
  94. 505 fory=1to2:geta$
  95. 510 ifa$=chr$(133)thenm$="helden":goto750
  96. 515 ifa$=chr$(137)thenm$="monsters":goto750
  97. 520 ifa$=chr$(134)goto665
  98. 525 ifa$=chr$(138)goto595
  99. 530 ifa$=chr$(135)goto1385
  100. 535 ifa$=chr$(139)goto1200
  101. 540 ifa$=chr$(136)goto1080
  102. 545 ifa$=chr$(140)goto950
  103. 550 ifa$="u"goto1280
  104. 555 ifa$="f"goto300
  105. 560 ifa$="a"goto1835
  106. 565 nexty
  107. 570 ifx<=31thenb$=" "+b$:print"";b$;" "
  108. 575 ifz<=31thene$=" "+e$:print"";e$;" "
  109. 580 ifx>31thenb$=mid$(b$,2,38):print"";b$;" "
  110. 585 ifz>31thene$=mid$(e$,2,38):print"";e$;" "
  111. 590 goto495
  112. 595 print"[147] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][178][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][174]"
  113. 600 print" [194]zufallszahlen[194]1-20[194]1-6[194]1-10[194]1-12[194]1-3[194]"
  114. 605 print" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][219][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][179]"
  115. 610 print" [194]press 'space'[194]    [194]   [194]    [194]    [194]   [194]"
  116. 615 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][177][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][189]":goto625
  117. 620 z2=int(rnd(x)*z)+1:print"";:return
  118. 625 z=20:gosub620:printz2
  119. 630 z=6:gosub620:print"";z2
  120. 635 z=10:gosub620:print"";z2
  121. 640 z=12:gosub620:print"";z2
  122. 645 z=3:gosub620:print"";z2
  123. 650 geta$:ifa$=""goto650
  124. 655 ifa$=" "goto595
  125. 660 goto380
  126. 665 print"[147] werte des neuen helden:"
  127. 670 def fnw(x)=int(rnd(x)*6)+8
  128. 675 print" mut:";fnw(x):m=fnw(x)
  129. 680 print" klugheit:";fnw(x):kl=fnw(x)
  130. 685 print" charisma:";fnw(x):c=fnw(x)
  131. 690 print"[160]geschicklichkeit:";fnw(x):g=fnw(x)
  132. 695 print" koerperkraft:";fnw(x):ko=fnw(x)
  133. 700 print" nochmal wuerfeln?(j/n)"
  134. 705 geta$:ifa$=""goto705
  135. 710 ifa$="j"goto665
  136. 715 ifa$="n"goto725
  137. 720 goto700
  138. 725 print" speichern?(j/n)"
  139. 730 geta$:ifa$=""goto730
  140. 735 ifa$="j"thenwu=1:goto785
  141. 740 ifa$="n"goto380
  142. 745 goto705
  143. 750 print"[147]   (n)eu eingeben oder (v)erbessern?"
  144. 755 geta$:ifa$=""goto755
  145. 760 ifa$<>"v"goto785
  146. 765 input" name des helden/monsters";n$:w1=1:gosub770:goto785
  147. 770 open2,8,2,"0:"+n$+",s,r"
  148. 775 ifm$="monsters"theninput#2,m,l,at,pa,w$,s,r$,r,ap:close2:return
  149. 780 input#2,m,kl,c,g,ko,l,a,at,pa,v,w$,s
  150. 781 input#2,r$,r,ap:close2:return
  151. 785 print"[147] speichern eines ";m$:ifwu=1goto820
  152. 790 print" mut ";m:input"[145]";m
  153. 795 ifm$="monsters"goto820
  154. 800 print" klugheit ";kl:input"[145]";kl
  155. 805 print" charisma ";c:input"[145]";c
  156. 810 print" geschicklichkeit ";g:input"[145]";g
  157. 815 print" koerperkraft ";ko:input"[145]";ko
  158. 820 print" lebensenergie ";l:input"[145]";l
  159. 825 ifm$="monsters"goto835
  160. 830 print" astralenergie ";a:input"[145]";a
  161. 835 print" attacke ";at:input"[145]";at
  162. 840 print" parade ";pa:input"[145]";pa
  163. 845 ifm$="monsters"goto860
  164. 850 print"[147] vermoegen ";v:input"[145]";v
  165. 855 print" abenteuerpunkte ";ap:input"[145]";ap
  166. 860 print" waffe  ";w$:input"[145]";w$
  167. 865 print" trefferzuschlag ";s:input"[145]";s
  168. 870 print" ruestung  ";r$:input"[145]";r$
  169. 875 print" ruestungsschutz ";r:input"[145]";r
  170. 880 ifm$="monsters"thenprint" monsterklasse ";mk:input"[145]";mk
  171. 885 print" alle eingaben korrekt?(j/n)"
  172. 890 geta$:ifa$="n"goto785
  173. 895 ifa$<>"j"goto890
  174. 900 ifw1=1thenw1=0:goto915
  175. 905 print"[147] name des";m$;"=filename"
  176. 910 input" welcher name";n$
  177. 915 open2,8,2,"@0:"+n$+",s,w":c$=chr$(13)
  178. 920 ifm$="monsters"thenprint#2,m;c$;l;c$;at;c$;pa;c$;w$;c$;s;c$;r$;c$;r;c$;mk
  179. 925 ifm$="monsters"thenclose2:goto945
  180. 930 gosub935:goto945
  181. 935 print#2,m;c$;kl;c$;c;c$;g;c$;ko;c$;l;c$;a;c$;at;c$;pa;c$;v;c$;w$;c$;s;c$;
  182. 940 print#2,r$;c$;r;c$;ap:close2:return
  183. 945 print" ok.":forx=1to1000:nextx:goto380
  184. 950 print"[147] vermoegensverwaltung"
  185. 955 print" konto von ";n$;":";v;" dukaten"
  186. 960 print" (a)nderes konto"
  187. 965 print" (n)euer gewinnzugang"
  188. 970 print" (v)erlust"
  189. 975 print" (e)nde"
  190. 980 geta$:ifa$=""goto980
  191. 985 ifa$="a"goto1010
  192. 990 ifa$="n"thengm=1:goto1020
  193. 995 ifa$="v"thengm=-1:goto1020
  194. 1000 ifa$="e"goto380
  195. 1005 goto980
  196. 1010 input" von welchem helden";n$
  197. 1015 gosub770:goto950
  198. 1020 v1=v:print" anzahl der":input" dukaten";v2:v1=v1+v2*gm:v2=0
  199. 1025 input" silbertaler";v2:v1=v1+.1*v2*gm:v2=0
  200. 1030 input" heller";v2:v1=v1+.01*v2*gm:v2=0
  201. 1035 input" kreuzer";v2:v1=v1+.001*v2*gm
  202. 1040 v2=0:gm=0:print" neuer wert:";v1
  203. 1045 print" (o)k":print" (a)lter wert":print" (s)peichern"
  204. 1050 geta$:ifa$=""goto1050
  205. 1055 ifa$="a"goto950
  206. 1060 ifa$="o"thenv=v1:goto950
  207. 1065 ifa$<>"s"goto1050
  208. 1070 open2,8,2,"@0:"+n$+",s,w":c$=chr$(13)
  209. 1075 v=v1:gosub935:goto950
  210. 1080 print"[147] ausruestung eines helden speichern."
  211. 1085 input" welcher held";n$:l$=left$(n$,14)
  212. 1090 print" (maximal 255 gegenstaende)"
  213. 1095 print" (n)eu anlegen oder (e)ditieren?"
  214. 1100 geta$:ifa$=""goto1100
  215. 1105 ifa$="n"goto1140
  216. 1110 ifa$<>"e"goto1100
  217. 1115 open2,8,2,"0:"+l$+",s,r"
  218. 1120 input#2,info
  219. 1125 forx=1toinfo
  220. 1130 input#2,a$(x)
  221. 1135 nextx:close2
  222. 1140 print" um aufzuhoeren '0' druecken.":info=0
  223. 1145 info=info+1
  224. 1150 print"   ";a$(info):input"[145]";a$(info)
  225. 1155 ifa$(info)="0"thena$(info)="ende":goto1170
  226. 1160 ifinfo=255goto1170
  227. 1165 goto1145
  228. 1170 open2,8,2,"@0:"+l$+",s,w"
  229. 1175 c$=chr$(13):print#2,info;c$
  230. 1180 forx=1toinfo
  231. 1185 print#2,a$(x);c$
  232. 1190 nextx
  233. 1195 close2:print" ok.":forx=1to1000:nextx:goto380
  234. 1200 input"[147] die ausruestung welches helden soll     gezeigt werden";n$
  235. 1205 l$=left$(n$,14)
  236. 1210 open2,8,2,"0:"+l$+",s,r"
  237. 1215 input#2,info:forx=1toinfo:input#2,a$(x):nextx:close2
  238. 1220 print"[147] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  239. 1225 forx=1to22:x1=x1+1:gosub1265
  240. 1230 print" [194]";a$(x1):x1=x1+1:gosub1265:print"[145][194]";a$(x1)
  241. 1235 print"[145][194]"
  242. 1240 nextx
  243. 1245 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  244. 1250 geta$:ifa$=""goto1250
  245. 1255 ifx1=>infogoto380
  246. 1260 goto1220
  247. 1265 ifx1<=infothenreturn
  248. 1270 ifint(x/2)=x/2thenprint
  249. 1275 goto1245
  250. 1280 print"[147] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  251. 1285 print" [194]im speicher sind folgende kreaturen:[194]"
  252. 1290 print" [171][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][192][178][192][192][192][179]"
  253. 1295 print" [194]nr.[194]monster        [194]at [194]pa [194]le  [194]mk [194]"
  254. 1300 print" [171][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][192][219][192][192][192][179]"
  255. 1305 forx=1to10
  256. 1310 print" [194]   [194]               [194]   [194]   [194]    [194]   [194]"
  257. 1315 print"[145]";x:print"[145]";x$(x):a$="[145]"
  258. 1320 printa$;x(x,1):a$=a$+"":printa$;x(x,2):a$=a$+"":printa$;x(x,3)
  259. 1325 a$=a$+"":printa$;x(x,4)
  260. 1330 nextx
  261. 1335 print" [173][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][192][177][192][192][192][189]"
  262. 1340 print" 1-10 druecken um den speicher durch"
  263. 1345 print" ein anderes monster zu belegen,"
  264. 1350 print" 0 beendet."
  265. 1355 a=11:inputa:ifa<0ora>10thenprint"[145]";:goto1355
  266. 1360 ifa=0goto380
  267. 1365 input" welches monster";n$
  268. 1370 open2,8,2,"0:"+n$+",s,r":input#2,m,l,at,pa,w$,s,r$,r,mk:close2
  269. 1375 x(a,1)=at:x(a,2)=pa:x(a,3)=l:x(a,4)=mk:x$(a)=n$:x(a,5)=m:x(a,6)=r:x(a,7)=s
  270. 1380 goto1280
  271. 1385 print"[147] kampf menue"
  272. 1390 print" (1) monster/monster"
  273. 1395 print" (2) held/monster"
  274. 1400 print" (3) held/held"
  275. 1405 print" (4) abbruch"
  276. 1410 geta:ifa<1ora>4goto1410
  277. 1415 ifa=4goto380
  278. 1420 ifa=2goto1475
  279. 1425 ifa=3goto1520
  280. 1430 print" die beiden monster muessen aus dem"
  281. 1435 print"[160]speicher genommen werden koennen.bitte"
  282. 1440 print" gib die beiden zugehoerigen nummern"
  283. 1445 print"[160]ein:"
  284. 1450 inputa,b
  285. 1455 ifa<1ora>10orb<1orb>10goto380
  286. 1460 a1=x(a,1):p1=x(a,2):l1=x(a,3):m1$=x$(a):m1=x(a,5):r1=x(a,6):s1=x(a,7)
  287. 1465 a2=x(b,1):p2=x(b,2):l2=x(b,3):m2$=x$(b):m2=x(b,5):r2=x(b,6):s2=x(b,7)
  288. 1470 goto1550
  289. 1475 print" bitte geben sie zunaechst den namen"
  290. 1480 print"[160]des monsters ein,welches ueber den"
  291. 1485 print"[160]speicher erreichbar sein muss."
  292. 1490 inputa:ifa<1ora>10goto380
  293. 1495 a1=x(a,1):p1=x(a,2):l1=x(a,3):m1$=x$(a):m1=x(a,5):r1=x(a,6):s1=x(a,7)
  294. 1500 input" gegen welchen helden soll das monster   kaempfen";n$
  295. 1505 gosub770
  296. 1510 a2=at:p2=pa:l2=l:m2$=n$:m2=m:r2=r:s2=s
  297. 1515 goto1550
  298. 1520 input" wie lautet der name des ersten helden";n$
  299. 1525 gosub770
  300. 1530 a1=at:p1=pa:l1=l:m1$=n$:m1=m:r1=r:s1=s
  301. 1535 input" und wie heisst der zweite";n$
  302. 1540 gosub770
  303. 1545 a2=at:p2=pa:l2=l:m2$=n$:m2=m:r2=r:s2=s
  304. 1550 kr=kr+1:print"[147]";kr;".kampfrunde:";m1$;" gegen ";m2$;""
  305. 1555 def fnz(x)=int(rnd(x)*20)+1:def fns(x)=int(rnd(x)*6)+1
  306. 1560 ifkr<>1goto1610
  307. 1565 ifm1=>m2goto1605
  308. 1570 a3=a1:a1=a2:a2=a3
  309. 1575 p3=p1:p1=p2:p2=p3
  310. 1580 l3=l1:l1=l2:l2=l3
  311. 1585 m3$=m1$:m1$=m2$:m2$=m3$
  312. 1590 m3=m1:m1=m2:m2=m3
  313. 1595 r3=r1:r1=r2:r2=r3
  314. 1600 s3=s1:s1=s2:s2=s3
  315. 1605 print" ";m1$;" faengt an."
  316. 1610 at=fnz(x)
  317. 1615 ifat>a1thenprint" attacke von ";m1$;" gescheitert!(";at;")":gosub1630
  318. 1620 ifat>a1goto1670
  319. 1625 print" attacke von ";m1$;" gelungen!(";at;")":gosub1630:goto1640
  320. 1630 geta$:ifa$=""goto1630
  321. 1635 return
  322. 1640 pa=fnz(x)
  323. 1645 ifpa<p2thenprint" ";m2$;" hat parriert!(";pa;")":gosub1630:goto1670
  324. 1650 tp=fns(x)+s1:print" trefferpunkte von ";m1$;":";tp:gosub1630
  325. 1655 tp=tp-r2:iftp<0thentp=0
  326. 1660 l2=l2-tp:ifl2<=0goto1720
  327. 1665 print" lebensenergie von ";m2$;":";l2:gosub1630
  328. 1670 at=fnz(x)
  329. 1675 ifat>a2thenprint" attacke von ";m2$;" gescheitert!(";at;")":gosub1630
  330. 1680 ifat>a2goto1550
  331. 1685 print" attacke von ";m2$;" gelungen!(";at;")":gosub1630
  332. 1690 pa=fnz(x)
  333. 1695 ifpa<p1thenprint" ";m1$;" hat parriert!(";pa;")":gosub1630:goto1550
  334. 1700 tp=fns(x)+s2:print" trefferpunkte von ";m2$;":";tp:gosub1630
  335. 1705 tp=tp-r1:iftp<0thentp=0
  336. 1710 l1=l1-tp:ifl1<=0goto1720
  337. 1715 print" lebensenergie von ";m1$;":";l1:gosub1630:goto1550
  338. 1720 ifl1>0goto1760
  339. 1725 a3=a1:a1=a2:a2=a3
  340. 1730 p3=p1:p1=p2:p2=p3
  341. 1735 l3=l1:l1=l2:l2=l3
  342. 1740 m3$=m1$:m1$=m2$:m2$=m3$
  343. 1745 m3=m1:m1=m2:m2=m3
  344. 1750 r3=r1:r1=r2:r2=r3
  345. 1755 s3=s1:s1=s2:s2=s3
  346. 1760 print"[147] ";m2$;" hat verloren."
  347. 1765 ifspiel=1goto2035
  348. 1770 print" soll ";m1$;" weiterkaempfen?(j/n)"
  349. 1775 geta$:ifa$<>"j"anda$<>"n"goto1775
  350. 1780 ifa$="n"goto380
  351. 1785 print" gegen ein (m)onster oder einen          (h)elden"
  352. 1790 geta$:ifa$<>"m"anda$<>"h"goto1790
  353. 1795 ifa$="m"goto1815
  354. 1800 input" welcher held";n$:gosub770
  355. 1805 a2=at:p2=pa:l2=l:m2$=n$:m2=m:r2=r:s2=s
  356. 1810 kr=0:goto1550
  357. 1815 input" nummer des monsters";a
  358. 1820 ifa<1ora>10thenprint"[145]";:goto1815
  359. 1825 a2=x(a,1):p2=x(a,2):l2=x(a,3):m2$=x$(b):m2=x(a,5):r2=x(a,6):s2=x(a,7)
  360. 1830 kr=0:goto1550
  361. 1835 print"[147] abenteuer (e)ntwerfen oder (s)pielen?"
  362. 1840 geta$:ifa$<>"e"anda$<>"s"goto1840
  363. 1845 ifa$="s"goto1980
  364. 1850 print"[147] kreatives menue"
  365. 1855 print" dieser programmabschnitt ermoeglicht"
  366. 1860 print" das entwickeln eines kurzen abenteuers"
  367. 1865 print" dieses besteht aus einem tex
  368.