home *** CD-ROM | disk | FTP | other *** search
/ Golden Disk / Golden_Disk_90-08_1990_-_de_Side_A.d64 / kudk.hpt (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  29KB  |  571 lines
  1. 0 ifigoto564
  2. 1 v=53248:pokev+33,0:pokev+32,0:pokev+24,18:d$="":dimw$(1):w$(0)="[154]":w$(1)="[154]":b$="[146]":deffnr(i)=int(i*rnd(ti)):i=rnd(-ti):fori=1to20:w$(0)=w$(0)+"mn":w$(1)=w$(1)+"op":b$=b$+"  ":next:s=54272:sys4096
  3. 2 dima(86),f(30),r(1,5),v(30,30):fori=0to86:a(i)=99:next:sys4535:pokev+21,0:fori=0to1:forj=0to5:readr(i,j):nextj,i:fori=710to717:pokei,.:next:fori=0to4:forj=0to8:a(12+11*i+j)=.:nextj,i:a(68)=.:a(70)=.:a(72)=.:a(74)=.:dimb(30),m(30),t(13),rg(30):print"[147]":z0=8:z1=1:z2=10:z3=36:gosub289
  4. 3 print"[158]^ k r i e g  u m  d i e  k r o n e [145]_":print"[159] @ 1989 by the  german design group":printspc(90)"[154]was wird gew]nscht?":poke707,123:poke708,138:print"[150](spielstand laden)   [153](neues spiel)
  5. 4 [158]4438:[139][194](708)[179]119[176][194](708)[177]146[137]4
  6. 5 [139][194](707)[179]90[137]563
  7. 6 [141]296:u$[178]"   cmdcmdcmd   cmdcmdcmd   onon":[153]"";:[129]i[178]1[164]5:[129]j[178]1[164]4:[153]u$"onon"u$"";:[130]:[153]u$"";:[130]:[153]"onon";:[129]i[178]1[164]4:[153]u$"";:[130]:[153]"":[129]i[178]0[164]4:[153][200](d$,4[172]i[170]4)"print#";:[129]j[178]1[164]4:[153]"lencmdstr$cmdpeekontantantanatncmdlenoncmdonpeek";:[130]j,i:[129]i[178]0[164]3:[153][200](d$,7[170]4[172]i)"";
  8. 7 [129]j[178]1[164]4:[153]"tantantanatn   str$";:[130]:[153]"tantantan":[130]
  9. 8 i[178][165]r(27)[170]25:[139]a(i)[177].[176]i[178]30[176]i[178]57[137]8
  10. 9 z[178]i[171][181](i[173]11)[172]11:[139]z[178]1[176]z[178]9[137]8
  11. 10 a(i)[178]90:z[178]i:[141]288:[153]"contoncmdnmnmncmdcmdcmdcmdcmdpopopcmdcmdcmdcmdcmdnmnmncmdcmdcmdcmdcmdpopopcmdcmdcmdcmdcmdnmnmn":[129]i[178]1[164]6
  12. 11 z[178][165]r(63)[170]12:[139]a(z)[137]11
  13. 12 [141]288:j[178][194](211)[170]40[172]([194](211)[177]39)[170]40[172][194](214)[170]1024:[139][194](j[171]84)[178]94[176][194](j[171]160)[178]94[176][194](j[171]76)[178]94[137]11
  14. 13 [139][194](j[170]84)[178]94[176][194](j[170]160)[178]94[176][194](j[170]76)[178]94[137]11
  15. 14 [153]"poke(NULL)(NULL)(NULL)cmdcmdcmd(NULL)oncmd(NULL)list"[202]("yz]^%&=>peeklenascchr$",i[170]i[171]1,2);:[153]"cmdcmd"[202]("[\_ '(?tanstr$valleft$right$",[170]i[170]i[171]1,2):f(24[170]i)[178]z:a(z)[178]24[170]i:[130]:[129]i[178]1[164]24
  16. 15 z[178][165]r(63)[170]12:[139]a(z)[137]15
  17. 16 [141]288:[139]i[179]5[167][153]"tototocmdcmdcmdtototocmdcmdcmdtototo":[137]22
  18. 17 [139]i[179]9[167][153]"systototocmdcmdcmdtototocmdcmdcmdtototo":[137]22
  19. 18 [139]i[179]13[167][153]"freusrfrecmdcmdcmdabsintabscmdcmdcmdfreusrfre":[137]22
  20. 19 [139]i[179]17[167][153]"@waitsin@waitcmdcmdcmdcospossqrcmdcmdcmd@waitrndlog":[137]22
  21. 20 [139]i[179]21[167][153]"listtstcmdcmdcmdrqrcmdcmdcmdtst":[137]22
  22. 21 [153]"listdcdcmdcmdcmdbefcmdcmdcmddgh
  23. 22 a(z)=i:f(i)=z:next:fori=0to4:forj=0to4:z=12+i+i+11*j:ifa(z)goto29
  24. 23 y=fnr(6):k=.
  25. 24 k=k+1:y=y+1:ify=6theny=.
  26. 25 x=r(0,y):ifk>6goto28
  27. 26 if(a(z+x)>.anda(z+x)<25)or(a(z+x)=99)thengosub37:goto29
  28. 27 goto24
  29. 28 x=0:a(z)=99:gosub37
  30. 29 nextj:forj=0to5:z=13+i+i+11*j:ifa(z)goto36
  31. 30 y=fnr(6):k=.
  32. 31 k=k+1:y=y+1:ify=6theny=.
  33. 32 x=r(1,y):ifk>6goto35
  34. 33 if(a(z+x)>.anda(z+x)<25)or(a(z+x)=99)thengosub37:goto36
  35. 34 goto31
  36. 35 x=0:a(z)=99:gosub37
  37. 36 nextj,i:goto46
  38. 37 gosub288:ifa(z+x)=99thenprint"[157][145][154]nmnmn[157][157][157][157][157]popop[157][157][157][157][157]nmnmn[157][157][157][157][157]popop";
  39. 38 ifa(z+x)=99thenprint"[157][157][157][157][157]nmnmn":a(z)=90:return
  40. 39 ifa(z+x)<5thenprint"[164][164][164][157][157][157][164][164][164][157][157][157][164][164][164]":goto45
  41. 40 ifa(z+x)<9thenprint"[158][164][164][164][157][157][157][164][164][164][157][157][157][164][164][164]":goto45
  42. 41 ifa(z+x)<13thenprint"[184][183][184][157][157][157][182][181][182][157][157][157][184][183][184]":goto45
  43. 42 ifa(z+x)<17thenprint"@[146][191]@[146][157][157][157][190][185][186][157][157][157]@[146][187][188]":goto45
  44. 43 ifa(z+x)<21thenprint"[155]tst[157][157][157]rqr[157][157][157]tst":goto45
  45. 44 print"[155]dcd[157][157][157]bef[157][157][157]dgh
  46. 45 a(z)[178]a(z[170]x):[142]
  47. 46 [129]i[178]0[164]8:[129]j[178]0[164]4:z[178]23[170]i[170]11[172]j:[139]a(z)[177]24[176]a(z)[179][177]a(z[171]11)[137]53
  48. 47 [141]288:[139]a(z)[179]5[167][153]"ontototo":[137]53
  49. 48 [139]a(z)[179]9[167][153]"onsystototo":[137]53
  50. 49 [139]a(z)[179]13[167][153]"onabsintabs":[137]53
  51. 50 [139]a(z)[179]17[167][153]"oncosexpcos":[137]53
  52. 51 [139]a(z)[179]21[167][153]"onlistrqr":[137]53
  53. 52 [153]"onlistbab
  54. 53 nextj,i:forn=0to1:fori=0to3:forj=0to4:z=12+i+i+n+11*j:k=z+12-11*n:ifa(z)>24ora(k)>24ora(z)<>a(k)goto60
  55. 54 z=k:gosub288:ifa(z)<5thenprint"[157][164]":goto60
  56. 55 ifa(z)<9thenprint"[157][158][164]":goto60
  57. 56 ifa(z)<13thenprint"[157][183]":goto60
  58. 57 ifa(z)<17thenprint"[157][191]":goto60
  59. 58 ifa(z)<21thenprint"[157][155]s":goto60
  60. 59 print"[157][155]c
  61. 60 [130]j,i,n:[129]n[178]0[164]1:[129]i[178]0[164]3:[129]j[178]0[164]4:z[178]12[170]i[170]i[170]12[172]n[170]11[172]j:k[178]z[170]1[171]11[172]n:[139]a(z)[177]24[176]a(k)[177]24[176]a(z)[179][177]a(k)[137]67
  62. 61 [141]288:[139]a(z)[179]5[167][153]"to":[137]67
  63. 62 [139]a(z)[179]9[167][153]"systo":[137]67
  64. 63 [139]a(z)[179]13[167][153]"usr":[137]67
  65. 64 [139]a(z)[179]17[167][153]"sin":[137]67
  66. 65 [139]a(z)[179]21[167][153]"lists":[137]67
  67. 66 [153]"listc
  68. 67 nextj,i,n:fori=0to3:forj=0to4:z=12+i+i+11*j:ifa(z)>24ora(z)<>a(z+1)ora(z)<>a(z+12)goto69
  69. 68 z=1189+8*i+160*j:pokez+s,peek(z+2+s):pokez,peek(z+2)
  70. 69 nextj,i:fori=0to3:forj=0to4:z=13+i+i+11*j:ifa(z)>24ora(z)<>a(z+1)ora(z)<>a(z+11)goto71
  71. 70 z=1193+8*i+160*j:pokez+s,peek(z+2+s):pokez,peek(z+2)
  72. 71 nextj,i:fori=0to3:forj=0to3:z=12+i+i+11*j:ifa(z)>24ora(z)<>a(z+12)ora(z)<>a(z+11)goto73
  73. 72 z=1269+8*i+160*j:pokez+s,peek(z-2+s):pokez,peek(z-2)
  74. 73 nextj,i:fori=0to3:forj=0to3:z=24+i+i+11*j:ifa(z)>24ora(z)<>a(z+1)ora(z)<>a(z-10)goto75
  75. 74 z=1273+8*i+160*j:pokez+s,peek(z+2+s):pokez,peek(z+2)
  76. 75 nextj,i
  77. 76 y=fnr(4):x=fnr(6):z=1353+80*y+4*x:if(peek(z+s)and15)<>12goto76
  78. 77 pokez,142:pokes+z,3:i=0:j=fnr(4)
  79. 78 i=i+1:ifi=5goto90
  80. 79 j=j+1+4*(j=4):onj+1goto80,84,86,88
  81. 80 if(peek(z+s-40)and15)<>12or(peek(z+s-80)and15)=3goto78
  82. 81 z=z-40:pokez,144:pokez+s,3:z=z-40
  83. 82 j=peek(z+s)and15:ifj=3orj=14goto90
  84. 83 goto77
  85. 84 if(peek(z+s+1)and15)<>12or(peek(z+s+4)and15)=3goto78
  86. 85 forj=0to1:pokez,142:pokez+s,3:z=z+1:pokez,141:pokez+s,3:z=z+1:next:goto82
  87. 86 if(peek(z+s+40)and15)<>12or(peek(z+80+s)and15)=3goto78
  88. 87 z=z+40:pokez,144:pokez+s,3:z=z+40:goto82
  89. 88 if(peek(z+s-1)and15)<>12or(peek(z-4+s)and15)=3goto78
  90. 89 forj=0to1:pokez,142:pokez+s,3:z=z-1:pokez,141:pokez+s,3:z=z-1:next:goto82
  91. 90 gosub166:sys4466:print" sagt das spielfeld zu? [153](ja) [150](nein) ":poke707,122:poke708,7
  92. 91 sys4438:ifpeek(708)>10orpeek(707)<102orpeek(707)>150goto91
  93. 92 ifpeek(707)>122thenrun
  94. 93 gosub144:z0=10:z1=9:z2=5:z3=19:gosub289:print"[158]wieviele spieler?"spc(69)"> 1 <[157][157][157][157]";:n=1
  95. 94 j=peek(56320):if(jand16)=.goto98
  96. 95 if(jand4)=.andn>1thenn=n-1
  97. 96 if(jand8)=.andn<4thenn=n+1
  98. 97 printn"[157][157][157]";:goto94
  99. 98 sys4508:pl=n:dimn$(n),f$(n),c$(n),g$(n),t$(n),z(5):forn=1topl:z1=9:z3=18:z2=6:z0=10:gosub289:print"[155]spieler"n", gib"spc(25)"deinen namen ein.":printspc(11)">[157]";:k=0:j=1
  100. 99 j=1-j:printmid$("* ",j+1,1)"[157]";:getu$:ifu$=chr$(13)andk>2goto103
  101. 100 ifchr$(20)=u$andk>0thenprint" [157][157] [157]";:k=k-1:n$(n)=left$(n$(n),k):goto99
  102. 101 ifu$<"a"oru$>"]"ork=12goto99
  103. 102 n$(n)=n$(n)+u$:printu$;:k=k+1:goto99
  104. 103 sys4508:z2=7:gosub289:print"[159]"n$(n)"?":u$=right$(n$(n),1):j=0:ifu$="a"oru$="e"thenj=1
  105. 104 u$=right$(n$(n),1):ifu$="is"oru$="id"oru$="in"oru$="es"thenj=1
  106. 105 printspc(11)"du bist "mid$("m[nnweib",4*j+1,4)"lich,"spc(23)"nicht wahr?":printspc(51)"[153]( ja )    [150](nein)":poke707,76:poke708,125
  107. 106 sys4438:ifpeek(708)<115orpeek(708)>135goto106
  108. 107 ifpeek(707)>76thengosub289:print"entschuldigung!":j=1-j:fori=1to1e3:next
  109. 108 g$(n)=" ":ifjtheng$(n)="in "
  110. 109 t$(n)="baron"+g$(n)
  111. 110 sys4508:poke707,76:poke708,119:z0=10:z2=5:z1=8:z3=22:gosub289:print"[154]"t$(n)n$(n)",":printspc(10)"w[hle dein wappen:":printspc(11)"[158][210] [211] [212] [213] [214] [215] [216] [217] [218]
  112. 111 [158]4438:[139][194](708)[177]127[176][194](708)[179]112[176][194](707)[179]43[176][194](707)[177]113[137]111
  113. 112 c$(n)[178][202]("(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)",([194](707)[171]34)[173]8,1):[139]n[178]1[137]116
  114. 113 [129]i[178]1[164]n[171]1:[139]c$(n)[178][201](c$(i),1)[137]115
  115. 114 [130]:[137]116
  116. 115 z0[178]14:z1[178]16:z2[178]5:z3[178]13:[141]289:[153]"dieses wappen"[166]28)"wurde schon";:[153][166]29)"gew[hlt!":[151]707,111:[151]708,152:[158]4438:[137]110
  117. 116 [158]4508:z0[178]10:z2[178]5:z1[178]8:z3[178]22:[141]289:[153]"cont"t$(n)n$(n)",":u$[178]"openclrsysdefprintcont":[151]707,76:[151]708,119:[153][166]10)"w[hle deine farbe:":[153][166]13);:[129]i[178]1[164]7:[153][202](u$,i,1)c$(n)" ";:[130]
  118. 117 [158]4438:[139][194](708)[177]127[176][194](708)[179]112[176][194](707)[179]52[176][194](707)[177]105[137]117
  119. 118 f$(n)[178][202](u$,([194](707)[171]42)[173]8,1):[139]n[178]1[137]122
  120. 119 [129]i[178]1[164]n[171]1:[139]f$(n)[178]f$(i)[137]121
  121. 120 [130]:[137]122
  122. 121 z0[178]14:z1[178]18:z2[178]5:z3[178]11:[141]289:[153]"diese farbe"[166]29)"wurde schon";:[153][166]30)"gew[hlt!":[151]707,115:[151]708,152:[158]4438:[137]116
  123. 122 c$(n)[178]f$(n)[170]c$(n):[158]4508:z0[178]11:z1[178]7:z2[178]4:z3[178]24:[141]289:[153]""c$(n)" "t$(n)n$(n)" "c$(n):[153][166]10)"w[hle ein schloss...":[151]707,122:[151]708,122:[158]4438:[158]4508:[151]707,80:[151]708,100
  124. 123 [158]4438:x[178][181](([194](707)[171]6)[173]16):j[178]1[175]x:[139]x[179].[176]x[177]8[137]123
  125. 124 y[178][181](([194](708)[171]20[170]16[172]j)[173]32):[139]y[179].[176]y[177]4[170]j[137]123
  126. 125 z[178]a(12[170]x[170]11[172]y):[139]z[179]25[176]z[177]30[137]123
  127. 126 [139]b(z)[177].[137]123
  128. 127 b(z)[178]n:m(z)[178]1:z[178]f(z):[141]288:[153]c$(n)"1":[158]4466:[130]n:z0[178]11:z1[178]14:z2[178]5:z3[178]10:[141]289:[151]707,92:[151]708,130:[153]"systrolle"[166]33)"bewohnen"[166]32)"das land":[158]4438:[158]4508:[134]nf(5):nf(5)[178]30[171]pl[172]4:[129]i[178]25[164]30:[139]b(i)[137]129
  129. 128 b(i)[178]5:m(i)[178]2:z[178]f(i):[141]288:[153]"(NULL)2
  130. 129 next:fori=0to1:forj=1to21step4:z=i+j:m(z)=2:b(z)=5:z=f(z):gosub288:print"[223]2":nextj,i:sys4466:fork=1to3:forn=1topl:nf(n)=4:z0=11:z1=7:z2=5:z3=24:gosub289:print""c$(n)" "t$(n)n$(n)" "c$(n):printspc(10)"w[hle ein gebiet...":poke707,122:poke708,122:sys4438:sys4508:poke707,80:poke708,100
  131. 130 sys4438:x=int((peek(707)-6)/16):j=1andx:ifx<.orx>8goto130
  132. 131 y=int((peek(708)-20+16*j)/32):ify<.ory>4+jgoto130
  133. 132 z=a(12+x+11*y):ifz>30goto130
  134. 133 ifb(z)>.goto130
  135. 134 b(z)=n:m(z)=1:z=f(z):gosub288:printc$(n)"1":sys4466:nextn,k:fori=3to24:ifb(i)goto136
  136. 135 b(i)=5:m(i)=2:z=f(i):gosub288:print"[223]2
  137. 136 [130]:[158]4466:[137]152
  138. 137 zz[178]0:[139]b(z)[178]n[176]z[178]t1[176]z[178]t2[167]zz[178]1:[142]
  139. 138 [129]k[178]0[164]13:[139]t(k)[178]z[167]zz[178]1:[142]
  140. 139 [130]:[142]
  141. 140 [158]4438:[151]53265,11:[158]4508:[129]i[178]0[164]13:[139]t(i)[167][141]143
  142. 141 [130]:[151]53265,27:[158]4466:[142]
  143. 142 z0[178]11:z1[178]12:z2[178]3:z3[178]13:[141]289:[153]"troll-phase":[129]i[178]0[164]333:[130]:[142]
  144. 143 x[178]k:k[178]t(i):m(k)[178]m(k)[170]1:[141]292:z[178]f(k):[141]288:[153]"close":k[178]x:[142]
  145. 144 j[178]0:[129]i[178]74[164]12[169][171]1:j[178]1[171]j:[139]i[173]11[178][181](i[173]11)[167]j[178]1[171]j
  146. 145 z[178]i:[139]a(z)[177]89[137]149
  147. 146 [141]288:[153]"print56cmdcmd78":[129]k[178]0[164]5:zz[178]a(z[170]r(j,k)):[139]zz[177]89[176]zz[178]a(z)[137]148
  148. 147 v(a(z),zz)[178]1:v(zz,a(z))[178]1
  149. 148 [130]k:[158]4508
  150. 149 [130]:i[178][165]r(24)[170]1
  151. 150 j[178][165]r(24)[170]1:[139]i[178]j[176]v(i,j)[178]1[137]150
  152. 151 v(i,j)[178]1:v(j,i)[178]1:z[178]f(i):[141]288:[153]"print#not":t1[178]i:z[178]f(j):[141]288:[153]"print#not":t2[178]j:[158]4466:[142]:[129]i[178]3[164]23[169]4:[129]j[178]0[164]1:z[178]j[170]i:b(z)[178]1:m(z)[178]1:z[178]f(z):[141]288:[153]c$(1)"1":[130]j,i:[158]4466
  153. 152 z0[178]11:z1[178]12:z2[178]5:z3[178]12:[141]289:[151]707,92:[151]708,130:[153]"sysdie truhen"[166]32)"werden"[166]33)"verteilt
  154. 153 z=fnr(24)+1:ifb(z)<5orz=t1orz=t2goto153
  155. 154 t(0)=z:forn=1topl
  156. 155 z=fnr(6)+25:gosub137:ifzzgoto155
  157. 156 t(fnr(3)-2+n*3)=z:fori=0to2:j=n*3-2+i
  158. 157 ift(j)goto160
  159. 158 z=fnr(24)+1:gosub137:ifzzgoto157
  160. 159 t(j)=z
  161. 160 nexti,n:gosub140:forn=1topl:z0=11:z1=7:z2=4:z3=24:gosub289:print""c$(n)" "t$(n)n$(n)" "c$(n):printspc(10)"plaziere deine armee.":poke707,122:poke708,122:sys4438:sys4508:poke707,80:poke708,100
  162. 161 sys4438:x=int((peek(707)-6)/16):j=1andx:ifx<.orx>8goto161
  163. 162 y=int((peek(708)-20+16*j)/32):ify<.ory>4+jgoto161
  164. 163 k=a(12+x+11*y):ifk>30goto161
  165. 164 ifb(k)<>ngoto161
  166. 165 m(k)=m(k)+10:gosub292:sys4466:nextn:goto548
  167. 166 k=1:forn=12to74:k=1-k:ifn/11=int(n/11)thenk=1-k
  168. 167 ifa(n)<>90goto180
  169. 168 j=int(n/11):z=1023+160*j+4*(n-11*j)-80*k:j=a(n+r(k,5)):ifj>89ora(n-11)>89goto171
  170. 169 x=z-82:if(peek(x+s-40)and15)=3goto171
  171. 170 gosub255
  172. 171 j=a(n+r(k,1)):ifj>89ora(n-11)>89goto174
  173. 172 x=z-78:if(peek(x+s-40)and15)=3goto174
  174. 173 gosub255
  175. 174 j=a(n+r(k,4)):ifj>89ora(n+11)>89goto177
  176. 175 x=z+78:if(peek(x+s+40)and15)=3goto177
  177. 176 gosub255
  178. 177 j=a(n+r(k,2)):ifj>89ora(n+11)>89goto180
  179. 178 x=z+82:if(peek(x+s+40)and15)=3goto180
  180. 179 gosub255
  181. 180 nextn:ifa(12)<90anda(13)<90thenx=1109:if(peek(x+40+s)and15)<>3thenj=a(13):gosub255
  182. 181 ifa(19)<90anda(20)<90thenx=1137:if(peek(x+40+s)and15)<>3thenj=a(19):gosub255
  183. 182 ifa(56)<90anda(68)<90thenx=1909:if(peek(x-40+s)and15)<>3thenj=a(68):gosub255
  184. 183 ifa(74)<90anda(64)<90thenx=1937:if(peek(x-40+s)and15)<>3thenj=a(74):gosub255
  185. 184 forn=0to2:j=a(13+n+n):ifj>89ora(14+n+n)>89goto186
  186. 185 x=1113+8*n:if(peek(x+40+s)and15)<>3thengosub255
  187. 186 j=a(15+n+n):ifj>89ora(14+n+n)>89goto188
  188. 187 x=1117+8*n:if(peek(x+40+s)and15)<>3thengosub255
  189. 188 j=a(68+n+n):ifj>89ora(58+n+n)>89goto190
  190. 189 x=1913+8*n:if(peek(x-40+s)and15)<>3thengosub255
  191. 190 j=a(70+n+n):ifj>89ora(58+n+n)>89goto192
  192. 191 x=1917+8*n:if(peek(x-40+s)and15)<>3thengosub255
  193. 192 nextn:return
  194. 193 sys4508:jh=jh+1:z0=10:z1=14:z2=8:z3=10:gosub289:print"";:u$=str$(int((jh-1)/4)+1)+". jahr":fori=1to7:printmid$("[144][151][152][155]",i,1)u$spc(40-len(u$))"[145]";:forj=0to99:nextj,i:print"";:u$=mid$("fr]hling sommer  herbst  winter ",((jh-1)and3)*8+1,8):fori=1to7
  195. 194 printmid$("[144][151][152][155]",i,1)u$spc(40-len(u$))"[145]";:forj=0to99:nextj,i:printleft$(d$,16)spc(15)"[158]spielende?"spc(70)"[153](nein)[150](ja)":poke707,73:poke708,144
  196. 195 sys4438:ifpeek(708)<131orpeek(708)>148orpeek(707)<58orpeek(707)>101goto195
  197. 196 ifpeek(707)>83goto535
  198. 197 ifnf(5)=0goto229
  199. 198 gosub142:z0=14:z1=18:z2=5:z3=10:gosub289:print"[158]die trolle"spc(30)"vermehren"spc(33)"sich...":poke707,110:poke708,154:sys4438:sys4508:fori=1to7:rg(i)=.:next:forn=1totv
  200. 199 k=fnr(7)+1:ifrg(k)goto199
  201. 200 rg(k)=1:z0=10:z1=12:z2=4:z3=13:gosub289:print"[158]...in den"spc(29);:u$=" grasebenen   sandw]sten  buschl[ndern waldgebieten h]gelregionen":u$=u$+"  gebirgen    schl\ssern":printmid$(u$,13*k-12,13):poke707,98:poke708,114:sys4438:ifk=7goto262
  202. 201 sys4508:k=k*4-4:fori=1to4:k=k+1:ifb(k)<5goto207
  203. 202 z=f(k):gosub290:m(k)=m(k)+1:gosub292:forj=25to30:ifv(k,j)=.orb(j)<5goto206
  204. 203 z=f(j):pokev+21,0:gosub290:m(j)=m(j)+1:gosub288:print"";:ifm(j)>99thenprint"[150]";
  205. 204 ifm(j)<10thenprint"[151][255]"right$(str$(m(j)),1)
  206. 205 ifm(j)>9thenprintmid$(str$(m(j)),2,2)
  207. 206 nextj
  208. 207 pokev+21,0:nexti:sys4466:nextn:ifnf(5)=.goto229
  209. 208 z0=10:z1=12:z2=5:z3=14:gosub289:print"[158]^die trolle [145]_"spc(67)"planen einen":printspc(17)"[145]krieg!"spc(30)"^"spc(12)"_":poke707,87:poke708,119:sys4438
  210. 209 sys4508:n=5:iftkgoto516
  211. 210 fork=1to30:ifb(k)<5orm(k)<fnr(4)+4-(k>24)*4goto228
  212. 211 forg=1to30:ifb(g)=5orv(k,g)=.org=drthennext:goto228
  213. 212 ifm(k)-1+(k>24)*5<m(g)*(2+(g<25))andta=1goto228
  214. 213 z=f(k):gosub290:if(peek(56320)and16)=.goto215
  215. 214 z=f(g):gosub290:if(peek(56320)and16)=16goto213
  216. 215 pokev+21,0:a=m(k)-1:m(k)=1:ifk>24thena=a-5:m(k)=6
  217. 216 gosub292:sys4466:ak=35:gk=25
  218. 217 ifg>8thengk=gk+5:ifg>12thengk=gk+5:ifg>20thengk=gk+5:ifg>24thengk=gk+5:ak=21
  219. 218 gosub566:ifz(b(g))=gthengk=gk+15
  220. 219 z=int((g-1)/4):goto367
  221. 220 m(g)=1:a=a-1:z=f(g):gosub288:print"[223][157]";:k=g:i=int((k-1)/4):printmid$("[146][164][146][158][164][146][182][146][190][155]r[155]b[146][151][255][146][151][255]",i*3+1,3):gosub292:ifa<1thensys4466:goto209
  222. 221 j=-1:fori=1to30:ifv(i,g)=1andg<>iandb(i)=5thenj=j+1:rg(j)=i
  223. 222 next:ifb(g)=5thenj=j+1:rg(j)=g
  224. 223 x=int(a/(j+1)):ifx=.theni=j:goto225
  225. 224 fori=0toj:k=rg(i):m(k)=m(k)+x:a=a-x:gosub292:next:i=j
  226. 225 ifa<1thensys4466:goto209
  227. 226 i=i+1:ifi>jtheni=.
  228. 227 k=rg(i):m(k)=m(k)+1:a=a-1:gosub292:goto225
  229. 228 nextk:ifnf(5)=30goto515
  230. 229 ifdd>.orjh=1goto266
  231. 230 z0=11:z1=11:z2=3:z3=15:gosub289:print"drachen-phase":poke707,104:poke708,114:sys4438:sys4508:k=dr
  232. 231 dr=fnr(24)+1:ifdr=kgoto231
  233. 232 ifk=.goto242
  234. 233 z=f(k):gosub288:print"";:x=peek(211):y=peek(214)+1:ifx>39thenx=x-40:y=y+1
  235. 234 ifk<5thenprint"[164][164][157][157][164][164]":goto240
  236. 235 ifk<9thenprint"[158][164][164][157][157][164][164]":goto240
  237. 236 ifk<13thenprint"[181][182][157][157][183][184]":goto240
  238. 237 ifk<17thenprint"[185][186][157][157][146][187][188]":goto240
  239. 238 ifk<21thenprint"[155]qr[157][157]st":goto240
  240. 239 print"[155]ef[157][157]gh
  241. 240 [158]4466:z[178]f(dr):[141]288:i[178][194](211)[170]1:j[178][194](214)[170]1:[139]i[177]39[167]i[178]i[171]40:j[178]j[170]1
  242. 241 x[178]x[170][180](i[171]x):y[178]y[170][180](j[171]y):[153][200](d$,y)[166]x)"print56cmdcmd78":[129]k[178]1[164]99:[130]:[139]x[179][177]i[176]y[179][177]j[167][158]4508:[137]241
  243. 242 z[178]f(dr):[141]288:[153]"print56cmdcmd78":k[178]dr:[158]4466:[139]m(k)[179]2[137]253
  244. 243 [151]709,(dr[171]1)[173]4:[158]50183:[153]""[166]33)"listrndlogexpcmdcmdcmdsqrwait";:[139]b(dr)[178]5[167][153]"(NULL)";:[137]245
  245. 244 [153]c$(b(dr));
  246. 245 [153]"listsincmdcmdcmdposcoscmdcmdfrecmdusr":k[178]m(dr)[171]1:[139]z(b(dr))[178]dr[167]k[178]k[170]1
  247. 246 [139]k[177]29[167]k[178]29
  248. 247 u$[178]"(NULL)(NULL)cmdcmd(NULL)(NULL)":[139]b(dr)[179]5[167]u$[178]")*cmdcmd+,
  249. 248 fori=0tok:printleft$(d$,int(i/6)*3+7)spc((i-int(i/6)*6)*4+9)u$;:next:ifz(b(dr))=drthenprint"[157][157][217][218][145][157][157][215][216]
  250. 249 [158]4612:z[178][165]r(5)[170]1:[139]m(dr)[179][178]z[167]z[178]m(dr)[171]1
  251. 250 [151]v[170]2,38:[151]v[170]3,0:[151]v[170]4,80:[151]v[170]5,82:[151]v[170]21,2:[129]i[178]2[164]66[169].1:[151]v[170]3,i:[130]:[153][200](d$,7)[166]9);:zz[178]2:[129]n[178]1[164]z:[129]j[178]0[164]222:[130]:[151]v[170]21,6:[129]j[178]0[164]11:zz[178]9[171]zz:[151]53289,zz:[130]:[151]v[170]23,6:[151]v[170]29,6:[139]b(dr)[178]5[167][153]"listmid$(NULL)cmdcmd(NULL)(NULL)on";:[137]252
  252. 251 [153]"list-.cmdcmd/0on";
  253. 252 [129]j[178]0[164]23:zz[178]9[171]zz:[151]53289,zz:[130]:[151]v[170]23,2:[151]v[170]29,2:[129]j[178]0[164]9:zz[178]9[171]zz:[151]53289,zz:[130]:[151]v[170]21,2:[129]i[178]1[164]32:[151]v[170]4,[194](v[170]4)[170]1:[151]v[170]2,[194](v[170]2)[170]1:j[178]2[174]2:[130]i,n:m(dr)[178]m(dr)[171]z:[153]:[129]i[178]66[164].[169][171].2:[151]v[170]3,i:[130]:k[178]dr:[129]j[178]0[164]222:[130]:[151]53265,11:[158]4508:[151]v[170]21,0:[141]292:[151]53265,27
  254. 253 [158]4466:k[178]dr:[139]b(dr)[178]5[175][165]r(4)[177].[137]231
  255. 254 [137]266
  256. 255 [139]j[179]5[167][151]x,100:[151]x[170]s,5:[142]
  257. 256 [139]j[179]9[167][151]x,100:[151]x[170]s,7:[142]
  258. 257 [139]j[179]13[167][151]x,117:[151]x[170]s,5:[142]
  259. 258 [139]j[179]17[167][151]x,125:[151]x[170]s,5:[142]
  260. 259 [139]j[179]21[167][151]x,145:[151]x[170]s,15:[142]
  261. 260 [139]j[179]25[167][151]x,129:[151]x[170]s,15:[142]
  262. 261 [151]x,94:[151]x[170]s,11:[142]
  263. 262 [158]4508:[129]i[178]25[164]30:k[178]i:[139]b(i)[179]5[137]207
  264. 263 z[178]f(k):[141]290:m(k)[178]m(k)[170]1:[141]292:[129]j[178]1[164]24:[139]v(i,j)[178].[176]b(j)[179]5[137]265
  265. 264 z[178]f(j):[151]v[170]21,0:[141]290:m(j)[178]m(j)[170]1:k[178]j:[141]292
  266. 265 [130]j:[137]207
  267. 266 n[178]0
  268. 267 n[178]n[170]1:[139]n[177]pl[137]314
  269. 268 [139]nf(n)[178]0[137]267
  270. 269 [139]z(n)[178].[137]300
  271. 270 [137]300
  272. 271 z0[178]24
  273. 272 z0[178]z0[170]1:[139]z0[177]30[167]z0[178]1
  274. 273 [139]b(z0)[179][177]n[137]272
  275. 274 z[178]f(z0):[141]290:a[178]0
  276. 275 [153]""k[171]a"cmd mann   ";:[139]k[171]a[177]1[167][153]"cmdcmdcmdcmdcmdcmd[nner "
  277. 276 j[178][194](56320):[139](j[175]16)[178].[137]286
  278. 277 [139](j[175]8)[178].[175]a[179]k[167]a[178]a[170]1:[137]282
  279. 278 [139](j[175]4)[178].[175]a[177].[167]a[178]a[171]1:[137]282
  280. 279 [139](j[175]1)[178].[167]a[178]a[170]10:a[178]a[170](a[177]k)[172](a[171]k):[137]282
  281. 280 [139](j[175]2)[178].[167]a[178]a[171]10:a[178][171]a[172](a[177].):[137]282
  282. 281 [137]276
  283. 282 j[178]m(z0)[170]a:z[178]f(z0):[141]288:[153]"";:[139]j[177]9[137]284
  284. 283 [153][202]("waittowaitsystowaitusrwaitsinlistslistcwaitpoke(NULL)waitpoke(NULL)",[181]((z0[171]1)[173]4)[172]3[170]1,3)"wait"[201]([196](j),1):[137]275
  285. 284 [139]j[177]99[167][153]"def";
  286. 285 [153][202]([196](j),2,2):[137]275
  287. 286 [151]v[170]21,0:k[178]k[171]a:m(z0)[178]m(z0)[170]a:[139]k[137]272
  288. 287 [153]""w$(0):[158]4466:[142]
  289. 288 zz[178][181](z[173]11):[153][200](d$,zz[172]4[171]2[171]2[172]((z[171]11[172]zz)[173]2[177][181]((z[171]11[172]zz)[173]2)))[166]4[172](z[171]11[172]zz)[171]2);:[142]
  290. 289 [153][200](d$,z0)[166]z1)[202]("openclrsysfordefprint#printcontlist",[165]r(11)[170]1,1)"^";:[129]i[178]1[164]z3:[153]"and";:[130]:[153]"="[166]38[171]z3);:[129]i[178]1[164]z2:[153]"<"[200](b$,z3[170]1)"<"[166]38[171]z3);:[130]:[153]"or";:[129]i[178]1[164]z3:[153]">";:[130]:[153]"sgn"[200](d$,z0[170]1)[166]z1[170]1);:[142]
  291. 290 y[178][181](z[173]11):x[178]z[171]11[172]y:y[178]46[170]32[172]y[170]16[172](x[175]1):x[178]30[170]32[172]x:[151]v[170]16,0:[139]x[177]255[167][151]v[170]16,1:x[178]x[171]256
  292. 291 [151]v,x:[151]v[170]1,y:[151]v[170]21,1:[129]zz[178]0[164]500:[130]:[142]
  293. 292 z[178]f(k):[141]288:[153]"";:[139]m(k)[177]9[137]294
  294. 293 [153][202]("waittowaitsystowaitusrwaitsinlistslistcwaitpoke(NULL)waitpoke(NULL)",[181]((k[171]1)[173]4)[172]3[170]1,3)"wait"[201]([196](m(k)),1):[142]
  295. 294 [139]m(k)[177]99[167][153]"def";
  296. 295 [153][202]([196](m(k)),2,2):[142]
  297. 296 [153]"load";:[129]i[178]1[164]12:[153]w$(0)w$(1);:[130]:[153][200](w$(0),40)"ncmd"[199](148)"m":[142]
  298. 297 [139]y[178]5[167][142]
  299. 298 [151]709[170]y,[194](709[170]y)[170]1:[139][194](709[170]y)[177]4[167][151]709[170]y,.:[151]713[170]y,[194](713[170]y)[170]1
  300. 299 [142]
  301. 300 z0[178]10:z2[178]5:z1[178]8:z3[178]22:[141]289:[153]c$(n)[166]20)c$(n)[166]19)"sys"t$(n)n$(n)",":[153][166]10)"verst[rkung trifft":[153][166]10)"onein:";:k[178][181](nf(n)[173]2[170].5):[129]i[178]25[164]30:[139]b(i)[178]n[167][129]j[178]1[164]24:k[178]k[171](v(i,j)[178]1[175]b(j)[178]n):[130]
  302. 301 [130]:[129]i[178]1[164]21[169]4:[139]b(i)[178]n[175]b(i[170]1)[178]n[175]b(i[170]2)[178]n[175]b(i[170]3)[178]n[167]k[178]k[170]2
  303. 302 [130]:[139]k[179]4[167]k[178]4
  304. 303 [153]k"mann":[151]707,117:[151]708,119:[158]4438:[139]z(n)[137]313
  305. 304 z0[178]15:z1[178]16:z2[178]6:z3[178]18:[141]289:[153]"syswillst du einen":[153][166]17)"zauberer anwerben?":[153][166]18)"print( ja )    def(nein)":[151]707,106:[151]708,164
  306. 305 [158]4438:[139][194](708)[179]154[176][194](708)[177]174[137]305
  307. 306 [139][194](707)[177]114[137]313
  308. 307 k[178]k[171]2:[158]4508:[153]" wohin? ":[151]707,80:[151]708,100
  309. 308 [158]4438:x[178][181](([194](707)[171]6)[173]16):j[178]1[175]x:[139]x[179].[176]x[177]8[137]308
  310. 309 y[178][181](([194](708)[171]20[170]16[172]j)[173]32):[139]y[179].[176]y[177]4[170]j[137]308
  311. 310 j[178]a(12[170]x[170]11[172]y):[139]j[177]30[137]308
  312. 311 [139]b(j)[179][177]n[137]308
  313. 312 z(n)[178]j:z[178]f(j):[141]288:[153]"thencontmnmnmnmnmn":[158]4466
  314. 313 [158]4508:[141]271:[137]267
  315. 314 n[178]0:[129]i[178]1[164]4:[151]717[170]i,2:[130]
  316. 315 n[178]n[170]1:[139]n[177]pl[137]193
  317. 316 [139]nf(n)[178].[137]315
  318. 317 [158]4508:[139][194](717[170]n)[179]2[175][194](713[170]n)[178].[137]315
  319. 318 [139][194](717[170]n)[178].[137]315
  320. 319 z0[178]8:z2[178]9:z1[178]7:z3[178]22:[141]289:[153]c$(n)[166]20)c$(n)[166]19)"sys"t$(n)n$(n)",":[153][166]9)"w[hle das gebiet an,":[153][166]9)"onwelches du angreifen":[153][166]9)"m\chtest. willst du":[153][166]9)"onkeinen krieg f]hren,":[153][166]9)"so w[hle eins deiner":[153][166]9)"oneigenen felder an...":[153][166]8)c$(n)[166]20)c$(n)
  321. 320 [139][194](717[170]n)[178]1[167][153][200](d$,9)[166]10)"extra-angriff (";
  322. 321 [139][194](717[170]n)[178]1[167][153][202]([196]([194](713[170]n)),2)")
  323. 322 poke707,113:poke708,137:sys4438:sys4508:poke707,80:poke708,100
  324. 323 sys4438:x=int((peek(707)-6)/16):j=1andx:ifx<.orx>8goto323
  325. 324 y=int((peek(708)-20+16*j)/32):ify<.ory>4+jgoto323
  326. 325 g=a(12+x+11*y):ifg>30ordr=ggoto323
  327. 326 ifb(g)=ngoto315
  328. 327 z0=9:z1=12:z2=4:z3=14:gosub289:print"rekrutiere"spc(29)"deine armee!":poke707,100:poke708,105:sys4438:sys4508:a=0
  329. 328 fori=1to30:ifv(i,g)=.goto340
  330. 329 ifb(i)<>norm(i)<2goto340
  331. 330 z=f(i):gosub290:k=0
  332. 331 print" ^ armee:"a+k"[157] _ ":j=peek(56320):z=0:if(jand16)=.goto339
  333. 332 if(jand8)=.thenifm(i)>1thenz=1
  334. 333 if(jand4)=.thenifkthenz=-1
  335. 334 if(jand1)=.thenz=10:ifm(i)<11thenz=m(i)-1
  336. 335 if(jand2)=.thenz=-10:ifk<10thenz=-k
  337. 336 ifz=.goto331
  338. 337 k=k+z:m(i)=m(i)-z:z=f(i):gosub288:z=int((i-1)/4):print"";:ifm(i)>9thenprintmid$("[150]",1-(m(i)>99),1)mid$(str$(m(i)),2,2):goto331
  339. 338 printmid$("[146][164][146][158][164][146][183][146][191][155]s[155]c[146][151][255][146][151][255]",z*3+1,3)"[146]"right$(str$(m(i)),1):goto331
  340. 339 pokev+21,0:print""w$(0):a=a+k
  341. 340 nexti:sys4466:ifagoto342
  342. 341 z0=10:z1=14:z2=5:z3=9:gosub289:print"angriff"spc(34)"nicht"spc(34)"m\glich":poke707,92:poke708,121:sys4438:sys4508:goto319
  343. 342 z0=10:z1=11:z2=9:z3=16:gosub289:print"[158]^truppenst[rke:[145]_":poke707,80:poke708,141:printspc(15)a"mann":printspc(13)"willst du mehr":printspc(13)"[145]mobilisieren?":printspc(92)"^[145][153]( ja )  [150](nein)[158]_
  344. 343 [158]4438:[139][194](708)[179]132[176][194](708)[177]151[137]343
  345. 344 [139][194](707)[179]81[167][158]4508:[137]328
  346. 345 [139]z(n)[178]0[137]351
  347. 346 z0[178]16:z1[178]16:z2[178]7:z3[178]14:[141]289:[153]"listm\chtest du"[166]29)"den zauberer":[151]707,96:[151]708,172:[153][166]18)"onhinzuziehen?":[153][166]58)"print( ja )def(nein)
  348. 347 sys4438:ifpeek(708)<165orpeek(708)>181goto347
  349. 348 z(0)=0:ifpeek(707)<97thenz(0)=1
  350. 349 sys4508:ifz(0)=.goto351
  351. 350 z=f(z(n)):gosub288:print"";:z=int((z(n)-1)/4):printmid$("[146][164][146][158][164][146][182][146][190][155]r[155]b[146][151][255][146][151][255]",z*3+1,3):sys4466
  352. 351 gosub566:z0=5:z1=4:z2=10:z3=30:gosub289:print"[158]angriff geplant gegen:":ifb(g)=5thenprintspc(7)"[223] das reich der trolle [223]":goto353
  353. 352 printspc(6)c$(b(g))" "t$(b(g))n$(b(g))" "c$(b(g))
  354. 353 gk=0:printspc(5)"[158]"m(g)"mann besatzung ";:ifz(b(g))=gthenprint"+ [167] ";:gk=15
  355. 354 fori=0to12:ift(i)=gthenprint"[150]([160])";
  356. 355 next:print:z=int((g-1)/4):printspc(6)"[129][145]terrain: ";:ifz=0thenprint"gras
  357. 356 [139]z[178]1[167][153]"syssand
  358. 357 ifz=2thenprint"b]sche (+5%)":gk=gk+5
  359. 358 ifz=3thenprint"wald (+10%)":gk=gk+10
  360. 359 ifz=4thenprint"[155]h]gel (+10%)":gk=gk+10
  361. 360 ifz=5thenprint"[155]berge (+15%)":gk=gk+15
  362. 361 ifz>5thenprint"[155]burg (+20%)":gk=gk+20
  363. 362 j=25:ifb(g)>4thenj=35
  364. 363 gk=gk+j:printspc(6)"[158]verteidigungsst[rke:"gk"[157]%":printspc(6)"angriffsarmee:"a"mann ";:ak=25:ifz(0)thenprint"+ [207]";:ak=40
  365. 364 ifg>24thenak=ak*.6
  366. 365 print:printspc(6)"[145]angriffsst[rke:"ak"[157]%":poke707,132:poke708,122:sys4438:z0=9:z1=6:z2=8:z3=31:gosub289:print"[158]^in der nun folgenden schlacht[145]_":printspc(8)"kann "c$(n)" "t$(n)n$(n)" "c$(n):printspc(8)"[158]mit dem feuerknopf das signal":printspc(8)"[145]zum r]ckzug geben oder mit
  367. 366 [153][166]8)"einer joystickbewegung den":[153][166]7)"^onangriff fortsetzen..."[166]8)"_":[151]707,143:[151]708,136:[158]4438
  368. 367 [158]4508:z[178][181]((g[171]1)[173]4):[139]z[178]7[167]z[178]6
  369. 368 [139][194](717[170]n)[178]1[167][151]713[170]n,[194](713[170]n)[171]1
  370. 369 [151]709,z:[158]50156:[153]""[166]36)"listrndlogexpcmdcmdcmdsqrwait";:[139]b(g)[178]5[167][153]"(NULL)";:[137]371
  371. 370 [153]c$(b(g));
  372. 371 [153]"listsincmdcmdcmdposcoscmdcmdfrecmdusr":[153][202](d$,20)[166]36)"listrndlogexpcmdcmdcmdsqrwait";:[139]n[178]5[167][153]"(NULL)";:[137]373
  373. 372 [153]c$(n);
  374. 373 [153]"listsincmdcmdcmdposcoscmdcmdfrecmdusr":zg[178]m(g):[139]z(b(g))[178]g[167]zg[178]zg[170]1
  375. 374 xg[178]0:yg[178]0:[139]zg[177]64[167]zg[178]64:[137]379
  376. 375 [139]zg[177]48[167]379
  377. 376 [139]zg[177]44[167]yg[178]1:[137]379
  378. 377 [139]zg[177]33[167]xg[178]1:[137]379
  379. 378 xg[178]1:yg[178]1
  380. 379 u$[178]"(NULL)(NULL)cmdcmd(NULL)(NULL)on":[139]b(g)[178]5[167]u$[178]"12cmdcmd34on
  381. 380 j=0:i=16-5*xg:printleft$(d$,9)"";:ifz(b(g))=gthenj=1:print"[215][216][157][157][217][218][145]";:ifxgthenprint"";
  382. 381 printu$;:j=j+1:ifxgthenprint"";
  383. 382 ifzg=jgoto385
  384. 383 ifj/i=int(j/i)thenprintspc(8-xg)"[145][145][145]";:ifygthenprint"[145]";
  385. 384 goto381
  386. 385 za=a:ifz(0)thenza=za+1
  387. 386 xa=0:ya=0:ifza>64thenza=64:goto391
  388. 387 ifza>48then391
  389. 388 ifza>44thenya=1:goto391
  390. 389 ifza>33thenxa=1:goto391
  391. 390 xa=1:ya=1
  392. 391 x=0:u$=")*[157][157]+,[145]":ifn=5thenu$="[206][207][157][157][208][209][145]
  393. 392 j[178]0:i[178]16[171]5[172]xa:[153][200](d$,17)"";:[139]z(0)[167]j[178]1:[153]"(NULL)(NULL)cmdcmd(NULL)(NULL)on";:[139]xa[167][153]"";
  394. 393 [153]u$;:j[178]j[170]1:[139]xa[167][153]"";
  395. 394 [139]za[178]j[137]414
  396. 395 [139]j[173]i[178][181](j[173]i)[167][153][166]8[171]xa)"";:[139]ya[167][153]"";
  397. 396 [137]393
  398. 397 va[178][165]r(gk[172]m(g)[173]100[170].5)[170][181](m(g)[173]6):[139]va[178].[167][139][165]r(99)[179]gk[167]va[178]1
  399. 398 vg[178][165]r(ak[172]a[173]100[170].5)[170][181](a[173]6[173](2[170](g[179]25))):[139]vg[178].[167][139][165]r(99)[179]ak[167]vg[178]1
  400. 399 [139]vg[177]m(g)[167]vg[178]m(g)
  401. 400 [139]va[177]a[167]va[178]a
  402. 401 [139]a[171]va[178].[175]m(g)[171]vg[178]0[167]vg[178]vg[171]1
  403. 402 x[178]1:[139]va[178].[137]408
  404. 403 u$[178]"list-.cmdcmd/0":[139]n[178]5[167]u$[178]"listmid$(NULL)cmdcmd(NULL)(NULL)
  405. 404 fori=1tova:a=a-1:k=int((za-1)/(16-5*xa)):ifa=>za+(z(0)>.)goto407
  406. 405 za=za-1:printleft$(d$,17+k*(2+ya))spc(2+(2+xa)*(za-k*(16-5*xa)))u$;:ifxathenprint"[157]";
  407. 406 ifa=0andza=1thenprint"[157][157][157][157][145]"u$:z(n)=0:z(0)=0
  408. 407 nexti
  409. 408 ifvg=.goto414
  410. 409 u$="[155]-.[157][157]/0":ifb(g)=5thenu$="[155][202][203][157][157][204][205]
  411. 410 [129]i[178]1[164]vg:m(g)[178]m(g)[171]1:k[178][181]((zg[171]1)[173](16[171]5[172]xg)):[139]m(g)[178][177]zg[170](z(b(g))[178]g)[137]413
  412. 411 zg[178]zg[171]1:[153][200](d$,9[171]k[172](2[170]yg))[166]2[170](2[170]xg)[172](zg[171]k[172](16[171]5[172]xg)))u$;:[139]xg[167][153]"cmd";
  413. 412 [139]m(g)[178]0[175]zg[178]1[167][153]"cmdcmdcmdcmdon"u$:z(b(g))[178]0
  414. 413 [130]i
  415. 414 [153]"wait"[166]35)[202]([196](m(g))[170]"  ",1,4)"cmdcmdcmdcmdmanncmdcmdcmdcmd_";:[153][201]([196](gk),2)"%"d$"onon"[166]36)[202]([196](a)[170]"  ",1,4)"cmdcmdcmdcmdmann":[151]2020,31:[151]56292,1:[151]2021,48[170]ak[173]10:[151]56293,1:[151]2022,48[170]ak[171]10[172][181](ak[173]10):[151]56294,1:[151]2023,37:[151]56295,1:[139]m(g)[178]0[137]426
  416. 415 [139]a[178]0[137]420
  417. 416 j[178][194](56320):[139](j[175]16)[178].[175]x[178]1[175]n[179]5[137]451
  418. 417 [139](j[175]31)[178]31[137]416
  419. 418 [139]n[178]5[175]ta[178]1[167][139]a[170]a[179][178]m(g)[137]457
  420. 419 [137]397
  421. 420 [139]b(g)[179]5[167][153]" "c$(b(g))" "t$(b(g))n$(b(g))" hat gesiegt! "c$(b(g))" "
  422. 421 y[178]b(g):[141]297:[139]b(g)[178]5[167][153]" (NULL) die trolle haben gesiegt! (NULL) "
  423. 422 [151]707,80:[151]708,99:[158]4438:[139]n[178]5[167]k[178]g:[158]4508:[141]292:[158]4466:[137]209
  424. 423 z(0)[178]0:k[178]g:[158]4508:[141]292:[158]4466
  425. 424 [139]n[179]5[167][151]717[170]n,[194](717[170]n)[171]1:[139][194](717)[170]n[177].[137]317
  426. 425 [137]315
  427. 426 [139]n[178]5[167][153]d$" (NULL) die trolle haben gesiegt! (NULL) 
  428. 427 y=n:gosub297:ifn<5thenprintd$" "c$(n)" "t$(n)n$(n)" hat gesiegt "c$(n)" 
  429. 428 nf(b(g))[178]nf(b(g))[171]1:nf(n)[178]nf(n)[170]1:b(g)[178]n:[151]707,80:[151]708,99:[158]4438:[158]4508:[139]n[178]5[137]220
  430. 429 m(g)[178]1:a[178]a[171]1:z[178]f(g):[141]288:[153]c$(n):k[178]g:[141]292:i[178][181]((g[171]1)[173]4):z[178]f(g):[141]288:[153]""[202]("waittowaitsystowaitabswaitcoslistrlistbwaitpoke(NULL)waitpoke(NULL)",i[172]3[170]1,3):[139]z(0)[167]z(n)[178]g:z(0)[178].:z[178]f(g):[141]288:[153]"then
  431. 430 sys4466:ifa=.goto449
  432. 431 z0=6:z1=8:z2=12:z3=22:gosub289:printc$(n)spc(20)c$(n)spc(19);:print"[158]"t$(n)n$(n)",":printspc(10):print"es sind"a"soldaten":printspc(10)"[145]]brig, die auf die":printspc(10)"an der schlacht be-":printspc(10)"[145]teiligten felder ver-":printspc(10)"teilt werden k\nnen.
  433. 432 [153][166]10)"onverteilung durch joy-":[153][166]10)"stickbewegung, feld-":[153][166]10)"onwechsel mit dem"[166]25)"feuerknopf.":[151]707,117:[151]708,146:[158]4438:[158]4508:z0[178]30
  434. 433 z0[178]z0[170]1:[139]z0[177]30[167]z0[178]1:[139]b(g)[178]n[167]z0[178]0:[137]435
  435. 434 [139]b(z0)[179][177]n[176]v(z0,g)[178].[137]433
  436. 435 z1[178]z0:[139]z1[178]0[167]z1[178]g
  437. 436 z[178]f(z1):[141]290:k[178]0
  438. 437 [153]""a[171]k"cmd mann   ";:[139]a[171]k[177]1[167][153]"cmdcmdcmdcmdcmdcmd[nner "
  439. 438 j[178][194](56320):[139](j[175]16)[178].[137]448
  440. 439 [139](j[175]8)[178].[175]k[179]a[167]k[178]k[170]1:[137]444
  441. 440 [139](j[175]4)[178].[175]k[177].[167]k[178]k[171]1:[137]444
  442. 441 [139](j[175]1)[178].[167]k[178]k[170]10:k[178]k[170](k[177]a)[172](k[171]a):[137]444
  443. 442 [139](j[175]2)[178].[167]k[178]k[171]10:k[178][171]k[172](k[177].):[137]444
  444. 443 [137]438
  445. 444 j[178]m(z1)[170]k:z[178]f(z1):[141]288:[153]"";:[139]j[177]9[137]446
  446. 445 [153][202]("waittowaitsystowaitusrwaitsinlistslistcwaitpoke(NULL)waitpoke(NULL)",[181]((z1[171]1)[173]4)[172]3[170]1,3)"wait"[201]([196](j),1):[137]437
  447. 446 [139]j[177]99[167][153]"def";
  448. 447 [153][202]([196](j),2,2):[137]437
  449. 448 [151]v[170]21,0:a[178]a[171]k:m(z1)[178]m(z1)[170]k:[139]a[137]433
  450. 449 [153]""w$(0):[158]4466:[129]k[178]0[164]13:[139]g[178]t(k)[175]n[178]b(g)[137]462
  451. 450 [130]:[137]424
  452. 451 z0[178]16:z1[178]8:z2[178]7:z3[178]22:[141]289:[153]c$(n)[166]20)c$(n)[166]19);:[153]"sys"t$(n)n$(n)",":[153][166]10):[153]"deine armee flieht!":k[178][165]r(gk[172]m(g)[173]100[170].5):[139]k[178].[167][139][165]r(99)[179]gk[167]k[178]1
  453. 452 [139]k[177]a[167]k[178]a
  454. 453 a[178]a[171]k:[139]a[178].[167][139]z(0)[167]z(0)[178].:z(n)[178].
  455. 454 [139]k[167][153][166]9)"on"k"soldaten verlierst":[153][166]10)"du auf der flucht.
  456. 455 printspc(9)"^[145]welch eine schande! _":poke707,117:poke708,186:sys4438:sys4508:k=g:gosub292:ifz(.)thenz(0)=.:z=f(z(n)):gosub288:print"[167]
  457. 456 [137]430
  458. 457 z0[178]16:z1[178]8:z2[178]6:z3[178]23:[141]289:[153]"(NULL)die trolle ziehen  on(NULL)":y[178]b(g):[141]297:[153][166]10):[153]"sich vom kampf zur]ck!":k[178][165]r(gk[172]m(g)[173]100[170].5):[139]k[178].[167][139][165]r(99)[179]gk[167]k[178]1
  459. 458 [139]k[177]a[167]k[178]a
  460. 459 a[178]a[171]k:[139]k[167][153][166]9)"on"k"trolle fallen auf":[153][166]10)"der flucht.
  461. 460 poke707,117:poke708,186:sys4438:sys4508:k=g:gosub292:ifa=.thensys4466:goto209
  462. 461 goto221
  463. 462 z0=5:z1=4:z2=15:z3=30:gosub289:printc$(n)spc(28)c$(n)spc(12)"[158]"t$(n)n$(n)",":printspc(5)"[145]^ du hast eine truhe erobert _":fori=0to1:printleft$(d$,19+i)spc(5)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":next:printspc(6)"[145][145][145][153]ij[157][157][129]kl[213][214][145][157][157][210][211][210][211][157][157][213][214][213][214][145][157][157][210][211][129][179][180][157][157][181][182]";
  464. 463 print"[213][214][145][157][157][210][211]!#[157][157]$[193]":poke707,130:poke708,162:sys4438:fori=0to8:printleft$(d$,18)spc(14+i)" [157][164]+,[145][157][157])*":forj=0to299:nextj,i:fori=1to1e3:next:ifk<=n*3andk=>n*3-2goto465
  465. 464 printleft$(d$,15)spc(20)"ich bekomme[157][157][157][157][157][157][157][157][157][157][157][157]sie nicht auf![157][157][157][157][157][157][157][157]/":poke707,130:poke708,162:sys4438:sys4508:goto424
  466. 465 t(k)=0:k=k-n*3+3:u$="[158][173][174][145][157][157]":ifk>1thenu$="[159][175][176][145][157][157]":ifk=3thenu$="[158][171][157][150][172][145][157]
  467. 466 [153][200](d$,18)[166]25)"for>=onononcmdcmd";:[129]i[178]0[164]1e3:[130]:[129]i[178]0[164]100[169]2:[153]"wait cmd  oncmdcmd";:[129]j[178]i[164]100:[130]:[153]u$;:[129]j[178]0[164]i:[130]j,i:u$[178]"e krone":[139]k[177]1[167]u$[178]" zepter":[139]k[178]3[167]u$[178]"en reichsapfel
  468. 467 printleft$(d$,10)spc(7)"[146][150]du hast dein"u$:printspc(7)"gefunden. daher wirst du":printspc(7)"[145]hiermit zum";:ifright$(t$(n),3)="in "thenprint"[157]r";
  469. 468 print" ";:ifleft$(t$(n),1)="f"thent$(n)="k\nig
  470. 469 [139][200](t$(n),1)[178]"g"[167]t$(n)[178]"f]rst
  471. 470 ifleft$(t$(n),1)="b"thent$(n)="graf
  472. 471 [139][194](1481)[178]18[167]t$(n)[178]t$(n)[170]"in":[139][200](t$(n),1)[178]"g"[167]t$(n)[178]"gr[fin
  473. 472 t$(n)=t$(n)+" ":printt$(n)"ernannt.":poke707,130:poke708,162:sys4438:sys4508:z=f(g):gosub288:print""mid$("[146][164][146][158][164][146][184]@[155]t[155]d[146][151][255][146][151][255]",int((g-1)/4)*3+1,3):sys4466:ifleft$(t$(n),1)="k"goto499
  474. 473 z0=9:z1=8:z2=7:z3=22:gosub289:printc$(n)spc(20)c$(n)spc(19)"[158]"t$(n)n$(n)",":printspc(10)"[145][158]dies gew[hrt es dir,":ifk=1thenprintspc(10)"8 soldaten beliebig":printspc(10)"[145]auf deine felder zu
  475. 474 [139]k[178]1[167][153][166]10)"verteilen.
  476. 475 ifk=3thenprintspc(10)"12 m[nner auf einem":printspc(10)"[145]deiner felder zu
  477. 476 [139]k[178]3[167][153][166]10)"plazieren.
  478. 477 ifk=2thenprintspc(10)"10 belibige m[nner":printspc(10)"[145]eines gegnern zu
  479. 478 [139]k[178]2[167][153][166]10)"vernichten.
  480. 479 poke707,117:poke708,130:sys4438:sys4508:poke707,80:poke708,100:onkgoto480,492,487
  481. 480 a=8
  482. 481 print""a"[157] mann ":sys4438:x=int((peek(707)-6)/16):j=1andx:ifx<.orx>8goto481
  483. 482 y=int((peek(708)-20+16*j)/32):ify<.ory>4+jgoto481
  484. 483 k=a(12+x+11*y):ifk>30goto481
  485. 484 ifb(k)<>ngoto481
  486. 485 m(k)=m(k)+1:gosub292:a=a-1:ifagoto481
  487. 486 print""w$(0):sys4466:goto424
  488. 487 sys4438:x=int((peek(707)-6)/16):j=1andx:ifx<.orx>8goto487
  489. 488 y=int((peek(708)-20+16*j)/32):ify<.ory>4+jgoto487
  490. 489 k=a(12+x+11*y):ifk>30goto487
  491. 490 ifb(k)<>ngoto487
  492. 491 m(k)=m(k)+12:gosub292:sys4466:goto424
  493. 492 a=10
  494. 493 print""a"[157] mann ":sys4438:x=int((peek(707)-6)/16):j=1andx:ifx<.orx>8goto493
  495. 494 y=int((peek(708)-20+16*j)/32):ify<.ory>4+jgoto493
  496. 495 k=a(12+x+11*y):ifk>30goto493
  497. 496 ifb(k)=ngoto493
  498. 497 m(k)=m(k)+(m(k)>1):gosub292:a=a-1:ifagoto493
  499. 498 print""w$(0):sys4466:goto424
  500. 499 z0=9:z1=8:z2=9:z3=22:fork=1to9:gosub289:next:printc$(n)spc(20)c$(n)spc(19)"[158]"t$(n)n$(n)",":printspc(10)"[145][158]du wirst als erfolg-":printspc(10)"reichster spieler":printspc(10)"[145]zum k\nig ausgerufen.":printspc(10)"du hast das spiel":printspc(10)"[145]gewonnen!":printspc(49)"_[159][175][176][158][173][174][150][172][145][157][158][171][146]^
  501. 500 [151]707,115:[151]708,145
  502. 501 [158]4438:[158]4508:[139]pl[178]1[137]507
  503. 502 [129]i[178]1[164]pl:rg(i)[178]nf(i):u$[178][200](t$(i),1):[139]u$[178]"k"[167]rg(i)[178]300
  504. 503 [139]u$[178]"f"[167]rg(i)[178]rg(i)[170]200
  505. 504 [139]u$[178]"g"[167]rg(i)[178]rg(i)[170]100
  506. 505 [130]:[129]i[178]2[164]pl:[129]j[178]1[164]i:[139]rg(i)[177]rg(j)[167][141]514
  507. 506 [130]j,i
  508. 507 z0[178]2:z1[178]5:z2[178]16[170]pl:z3[178]27:[141]289:[153]"^        spielende        on_":[129]i[178]1[164]pl:[153][200](d$,5[170]i)[166]7)c$(i)" "t$(i)n$(i);:[139]i[179]pl[167][153]",
  509. 508 printleft$(d$,5+i)spc(32)c$(i):next:printleft$(d$,7+pl)spc(10)"[158]wenn du";:ifpl>1thenprint"[157][157]ihr";
  510. 509 print" an weiteren":printleft$(d$,8+pl)spc(7)"spielen von uns interesse":printleft$(d$,9+pl)spc(8)"has";:ifpl>1thenprint"[157]b";
  511. 510 print"t, dann schreibe";:ifpl>1thenprint"[157]t";
  512. 511 print" an:"left$(d$,11+pl)spc(10)"german design group";:printspc(21)"r]diger rinscheidt"spc(22)"buchholzstrasse 17";:printspc(22)"4755 holzwickede"spc(23)"[150]hotline: (02301) 12647";:printspc(16)"(freitags 16.00-18.00 uhr)"spc(15)"[158]du";:ifpl>1thenprint"[157][157]ihr";
  513. 512 print" erh[ls";:ifpl>1thenprint"[157][157][157]alte";
  514. 513 print"t dann unseren"spc(17)"kostenlosen katalog...":poke707,118:poke708,126:sys4438:run
  515. 514 u$=t$(i):t$(i)=t$(j):t$(j)=u$:u$=c$(i):c$(i)=c$(j):c$(j)=u$:k=rg(i):rg(i)=rg(j):rg(j)=k:u$=n$(i):n$(i)=n$(j):n$(j)=u$:return
  516. 515 z0=9:z1=8:z2=8:z3=22:fork=1to9:gosub289:next:print"[206][207][157][157][208][209][146]   die trolle   34[145][157][157]12":printspc(90)"haben alle menschen":printspc(10)"[145]vom antlitz der erde":printspc(10)"vertilgt. die trolle":printspc(10)"[145]haben gewonnen.":printspc(10)"was f]r eine schande!":poke707,115:poke708,138:goto501
  517. 516 g=1
  518. 517 ifb(g)=5org=drgoto526
  519. 518 iftagoto529
  520. 519 a=0:fork=1to30:ifb(k)<5orv(g,k)=.orm(k)<fnr(4)+4-(k>24)*4goto522
  521. 520 z=f(k):gosub290:a=a+m(k)-1:m(k)=1:ifk>24thena=a-5:m(k)=6
  522. 521 gosub292
  523. 522 nextk:z=f(g):ifa=.goto526
  524. 523 gosub290
  525. 524 ifpeek(56320)and16goto524
  526. 525 pokev+21,0:sys4466:ak=35:gk=25:goto217
  527. 526 g=g+1:ifg<31goto517
  528. 527 ifnf(5)=30goto515
  529. 528 goto229
  530. 529 fori=1to7:rg(i)=0:next:j=0:a=0:fork=1to30:ifb(k)<5orv(g,k)=.orm(k)<fnr(4)+4-(k>24)*4goto531
  531. 530 a=a+m(k)-1+(k>24)*5:j=j+1:rg(j)=k
  532. 531 nextk:ifa<m(g)*(2+(g<25))goto526
  533. 532 fori=1to7:ifrg(i)=.goto534
  534. 533 k=rg(i):z=f(k):gosub290:m(k)=1-(k>24)*5:gosub292
  535. 534 nexti:z=f(g):goto523
  536. 535 z0=17:z1=21:z2=6:z3=12:gosub289:print"spielabbruch":poke707,100:poke708,182:printspc(22)"[158]ganz sicher?":printspc(22)"[153](nein)[150]( ja )
  537. 536 [158]4438:[139][194](708)[179]172[176][194](708)[177]185[176][194](707)[179]86[176][194](707)[177]136[137]536
  538. 537 [139][194](707)[179]113[137]197
  539. 538 z0[178]14:z1[178]15:z2[178]5:z3[178]16:[141]289:[153]"spiel speichern?":[151]707,86:[151]708,142:[153][166]57)"print( ja )def  (nein)
  540. 539 sys4438:ifpeek(708)<134orpeek(708)>148orpeek(707)<66orpeek(707)>142goto539
  541. 540 ifpeek(707)>96goto546
  542. 541 z0=11:z1=19:z2=6:z3=16:gosub289:print"spiel speichern!":printspc(20)"[158]bitte eine disk"spc(27)"einlegen und";:poke198,0:printspc(28)"(f7) [158]dr]cken.
  543. 542 [161]u$:[139]u$[179][177]"let"[137]542
  544. 543 [158]4508:[160]1:[159]1,8,15,"s:sav?.kudk":[160]1:[159]1,8,1,"sava.kudk,p,w":[152]1,[199](0)[199](160);:[129]i[178]1024[164]2047:[152]1,[199]([194](i));:[130]:[129]i[178]55296[164]56295:[152]1,[199]([194](i));:[130]:[160]1:[159]1,8,1,"savb.kudk,p,w":[152]1,pl:[129]n[178]1[164]pl:[152]1,n$(n):[152]1,t$(n):[152]1,c$(n):[152]1,z(n)
  545. 544 [152]1,f$(n):[152]1,nf(n):[130]:[152]1,nf(5):[129]i[178]0[164]86:[152]1,a(i):[130]:[129]i[178]0[164]30:[152]1,f(i):[152]1,b(i):[152]1,m(i):[130]:[129]i[178]0[164]13:[152]1,t(i):[130]:[129]i[178]1[164]30:[129]j[178]1[164]30:[152]1,v(i,j):[130]j,i:[152]1,jh:[152]1,dr:[152]1,tv:[152]1,ta:[152]1,tk:[152]1,dd:[129]i[178]710[164]721:[152]1,[194](i):[130]
  546. 545 [160]1:jh[178]jh[171]1:[137]193
  547. 546 [158]4508:[139]pl[178]1[137]507
  548. 547 [137]502
  549. 548 z0[178]9:z1[178]9:z2[178]7:z3[178]19:[141]289:[153]"(NULL)syswie oft pro rundeon(NULL)":[153][166]52)"syssollen sich die":[153][166]11)"trolle vermehren?":[153][166]17)"def>   <cmdcmdcmdcmd";:tv[178]pl
  550. 549 [153]tv"cmdcmdcmd";:j[178][194](56320):[139](j[175]16)[178].[137]553
  551. 550 [139](j[175]4)[178].[175]tv[177]pl[167]tv[178]tv[171]1
  552. 551 [139](j[175]8)[178].[175]tv[179]6[167]tv[178]tv[170]1
  553. 552 [137]549
  554. 553 [158]4508:z0[178]11:z1[178]4:z2[178]5:z3[178]30:[141]289:[153]"(NULL)openwie sollen die trolle im  on(NULL)":[153][166]6)"openkrieg die armeen aufstellen?":[153][166]6)"print(nur feldweise) def(im verbund)":[151]707,84:[151]708,126:tk[178].
  555. 554 [158]4438:[139][194](708)[179]119[176][194](708)[177]131[176][194](707)[179]24[176][194](707)[177]136[137]554
  556. 555 [139][194](707)[177]84[167]tk[178]1
  557. 556 [158]4508:z0[178]9:z1[178]8:z2[178]7:z3[178]21:[141]289:[153]"(NULL)listsollen die trolle on(NULL)":[153][166]50)"listvor einem kampf die":[153][166]12)"erfolgsaussicht":[153][166]15)"onabw[gen?":[153][166]52)"print(nein)    def( ja )":[151]707,79:[151]708,126
  558. 557 [158]4438:[139][194](708)[179]116[176][194](708)[177]132[176][194](707)[179]45[176][194](707)[177]115[137]557
  559. 558 [139][194](707)[177]79[167]ta[178]1
  560. 559 [158]4508:z0[178]10:z1[178]7:z2[178]6:z3[178]23:[141]289:[153]"print56cmdcmd78wait  soll ein drache  print78oncmdcmd56":[153][166]48)"das land terrorisieren?":[151]707,79:[151]708,126:[153][166]51)"def( ja )     print(nein)
  561. 560 sys4438:ifpeek(708)<116orpeek(708)>132orpeek(707)<40orpeek(707)>113goto560
  562. 561 ifpeek(707)>79thendd=1
  563. 562 sys4508:goto193
  564. 563 z0=16:z1=18:z2=6:z3=17:gosub289:print"spielstand laden!":printspc(60)"[158]bitte speicher-"spc(26)"disk einlegen.":poke707,136:poke708,178:sys4438:print"[144][147]":fori=1to9:print"r[213]":next:print"":poke631,13:poke198,1:load"sava.kudk",8,1
  565. 564 gosub296:sys4508:open1,8,0,"savb.kudk,p,r":input#1,pl:dimn$(pl),f$(pl),c$(pl),g$(pl),t$(pl),z(5):forn=1topl:input#1,n$(n):input#1,t$(n):input#1,c$(n):input#1,z(n):input#1,f$(n):input#1,nf(n):next:input#1,nf(5):fori=0to86:input#1,a(i):next:fori=0to30:input#1,f(i):input#1,b(i):input#1,m(i):next
  566. 565 fori=0to13:input#1,t(i):next:fori=1to30:forj=1to30:input#1,v(i,j):nextj,i:input#1,jh:input#1,dr:input#1,tv:input#1,ta:input#1,tk:input#1,dd:fori=710to721:input#1,j:pokei,j:next:goto545
  567. 566 sys4508:ifz(b(g))=.orz(b(g))=gthenreturn
  568. 567 z0=9:z1=6:z2=12:z3=26:gosub289:print""c$(b(g))" "t$(b(g))n$(b(g))" "c$(b(g)):printspc(9)"du wirst angegriffen!":printspc(8)"[145]"a"mann ";:ifn<5thenifz(0)thenprint"+[167] ";
  569. 568 print"gegen deine":printspc(8)m(g)"[157]-mann verteidigung":printspc(9)"[158]willst du den zauberer":printspc(9)"[145]zum kampf hinzuziehen?":poke707,80:poke708,158:printspc(52)"[153]( ja )    [150](nein)":sys4438:sys4508:ifpeek(707)>80thenreturn
  570. 569 z=f(z(b(g))):gosub288:print"";:z=int((z(b(g))-1)/4):printmid$("[146][164][146][158][164][146][182][146][190][155]r[155]b[146][151][255][146][151][255]",z*3+1,3):z=f(g):gosub288:print"[167]":sys4466:z(b(g))=g:return:data-11,1,12,11,10,-1,-11,-10,1,11,-1,-12
  571.