home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_027_19xx_-_de_Side_B.d64 / versenken (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  6KB  |  172 lines
  1. 5 poke53280,0:poke53281,0:printchr$(14)chr$(9):fori=49152to49177:readx:pokei,x:nexti
  2. 10 le$="                     [146]"
  3. 15 gosub1010:print"[196]u setzt wie beim normalen [211]chiffever-
  4. 20 [153]"senken 1x sys    wait 2x sys   wait 3x sys  wait 4x sys wait, die du";
  5. 30 [153]"so setzen musst, dass sie sich nicht be-";
  6. 31 [153]"ruehren, auch nicht ueber valck; nicht be-";
  7. 32 [153]"schummeln, das merkt der lenomputer nicht.";
  8. 33 [153]"ascalls du ein (NULL)chiff falsch gesetzt hast,gib einfach '**' ein.
  9. 34 print"[215]enn der [195]omputer deine [211]chiffe setzen  soll gib gleich '@@' ein.
  10. 35 [153]"valr positioniert danach seine peekoote, die
  11. 36 print"du nicht siehst, genausowenig wie er    deine sieht.
  12. 40 [153]"(NULL)enn du schiesst, gib zuerst die peekuch-  staben, dann die (NULL)ahlen ein.
  13. 42 print"[196]er [195]omputer gibt dir darauf die [203]oordi-naten von seinem [211]chuss an.
  14. 44 [153]"(NULL)enn du keine (NULL)ust mehr hast, gib '**'  ein und er zeigt dir seine (NULL)chiffe.
  15. 60 print"[215]er zuerst die [211]chiffe des [199]egners ver-
  16. 61 [153]"senkt, hat gewonnen.
  17. 62 print"[196]ruecke die return[146]-[212]aste ...[145]
  18. 90 [161]a$:[139]a$[179][177][199](13)[167]90
  19. 100 l$[178]"                                      ":le$[178]"                     wait"
  20. 110 ys[178]49152:[141]1010:[158]ys,8,6,"opento0123456789waitto0123456789waitto":[129]i[178]1[164]10
  21. 120 [153][163]8)""[199](i[170]64)"waitcontooooooooooopen"[199](i[170]64)"waitcontooooooooooopen"[199](i[170]64)
  22. 130 [130]i:[158]ys,8,17,"tab(0123456789waittab(0123456789waittab("
  23. 140 [158]ys,0,19,"(NULL)ositioniere deine (NULL)chiffe!":[129]i[178]1[164]20
  24. 150 i$[178]"":[158]ys,0,21,"for"i:[158]ys,10,21,"clr";:[133]i$:[139][195](i$)[179][177]2[167]150
  25. 155 u[178]0:[139]i$[178]"@@"[175]i[178]1[167]158
  26. 156 [137]160
  27. 158 u[178]1:[158]ys,0,19,"defchr$eduld, ich positioniere deine (NULL)chiffe
  28. 159 sysys,0,21,l$:gosub210:goto200
  29. 160 ifi$="**"ands=0andi>2theni=i-1:s=1:a(a,b)=0:pokec,15:pokec+54272,14:goto150
  30. 170 a=asc(left$(i$,1))-65:b=val(right$(i$,1))
  31. 180 ifa<0ora>9orb<0orb>9orb=0andright$(i$,1)<>"0"then150
  32. 185 ifa(a,b)=1then150
  33. 190 c=1313+b+40*a:pokec,160:pokec+54272,8:a(a,b)=1:s=0:nexti
  34. 200 sysys,0,19,"[156][199]eduld, ich positioniere meine [211]chiffe":sysys,0,21,l$
  35. 205 u=0:gosub210:goto4000
  36. 210 gosub1000:s=1:ifx>4thens=2
  37. 220 onsgoto230,280
  38. 230 gosub1000:ifx>6then230
  39. 240 forf=0to3:m(f+x,y)=1:nextf:goto300
  40. 280 gosub1000:ify>6then280
  41. 285 forf=0to3:m(x,f+y)=1:nextf
  42. 300 fort=1to2:gosub1000:s=1:ifx>4thens=2
  43. 320 onsgoto330,400
  44. 330 gosub1000:ifx>7then330
  45. 340 forz=xtox+2:r=y:gosub3000:ife=1then330
  46. 370 nextz:forz=xtox+2:m(z,y)=1:nextz:goto450
  47. 400 gosub1000:ify>7then400
  48. 410 forr=ytoy+2:z=x:gosub3000:ife=1then400
  49. 445 nextr:forr=ytoy+2:m(x,r)=1:nextr
  50. 450 nextt
  51. 460 fort=1to3:gosub1000:s=1:ifx>4thens=2
  52. 480 onsgoto490,560
  53. 490 gosub1000:ifx>8then490
  54. 500 forz=xtox+1:r=y:gosub3000:ife=1then490
  55. 530 nextz:forz=xtox+1:m(z,y)=1:nextz:goto660
  56. 560 gosub1000:ify>8then560
  57. 570 forr=ytoy+1:z=x:gosub3000:ife=1then560
  58. 620 nextr:forr=ytoy+1:m(x,r)=1:nextr
  59. 660 nextt
  60. 700 fort=1to4
  61. 710 gosub1000:r=y:z=x:gosub3000:ife=1then710
  62. 720 m(x,y)=1:nextt
  63. 725 ifu=0thenforr=0to9:fort=0to9:b(r,t)=m(r,t):nextt,r
  64. 730 ifu=1thenforr=0to9:fort=0to9:a(r,t)=m(r,t):m(r,t)=0:nextt,r:gosub2200
  65. 790 return
  66. 1000 x=int(rnd(1)*10):y=int(rnd(1)*10):return
  67. 1010 print"[147]"tab(9)le$spc(19)"  [211][195][200][201][198][198][197][160][214][197][210][211][197][206][203][197][206]  [146]"spc(19)le$:return
  68. 2000 forv=0to9:forj=0to9:ifb(v,j)=1thenpoke1324+v+j*40,160
  69. 2010 nextj,v:return
  70. 2200 forv=0to9:forj=0to9:ifa(v,j)=1thenpoke55585+v+j*40,8:poke1313+v+j*40,160
  71. 2210 nextj,v:return
  72. 3000 e=0:fore1=z-1toz+1:fore2=r-1tor+1:ife1<0ore1>9ore2<0ore2>9then3020
  73. 3010 ifm(e1,e2)=1thene=1
  74. 3020 nexte2,e1:return
  75. 4000 sysys,0,19,l$:sysys,0,21,l$
  76. 4010 b$="":sysys,0,19,"[129][194]itte schiesse![156]":inputb$:iflen(b$)<>2then4010
  77. 4015 ifb$="**"thene=21:gosub2000:goto10030
  78. 4020 b=asc(left$(b$,1))-65:a=asc(right$(b$,1))-48
  79. 4030 ifa<0ora>9orb<0orb>9ora=0andright$(b$,1)<>"0"then4010
  80. 4040 ifb(a,b)<>0andb(a,b)<>1then4010
  81. 4050 c=1324+a+40*b
  82. 4100 ifb(a,b)=0thenpokec,24:b(a,b)=3
  83. 4110 ifb(a,b)=1thenpokec,160:b(a,b)=2
  84. 4120 pokec+54272,5:sysys,0,19,l$:sysys,0,21,l$
  85. 4140 ifb(a,b)=3thensysys,0,19,"[154][215]asser"
  86. 4150 ifb(a,b)=2thensysys,0,19,"[129][212]reffer":gosub9000:ifv2=10thenv4=2:goto10000
  87. 4160 forw=1to900:nextw:ifb(a,b)=2then4000
  88. 4200 sysys,0,19,l$:goto5000
  89. 4205 b$=chr$(y+65)+chr$(x+48):ifc(x,y)<>0thengosub1000:goto4205
  90. 4210 d=1313+x+40*y:sysys,0,19,"[156][201]ch schiesse auf "b$
  91. 4230 sysys,0,21,"[158][215]=[215]asser   [212]=[212]reffer   [214]=[214]ersenkt"
  92. 4240 u=0:gett$:ift$=""then4240
  93. 4245 ift$="w"anda(x,y)<>0thengosub4500:goto4240
  94. 4250 if(t$="t"ort$="v")anda(x,y)<>1thengosub4500:goto4240
  95. 4255 ift$="w"thenu=24:c(x,y)=1
  96. 4260 ift$="t"thenu=160:c(x,y)=2
  97. 4270 ift$="v"thenu=160:c(x,y)=2
  98. 4275 ifu=0then4240
  99. 4280 ifu=24thenpoked,u:poked+54272,5
  100. 4285 ifu=160thenpoked,u:poked+54272,2
  101. 4287 ift$="v"thengosub9300:v1=v1+1:ifv1=10thenv4=1:gosub2000:wait203,1:goto10000
  102. 4288 ift$="t"ort$="v"then4200
  103. 4290 goto4000
  104. 4500 sysys,0,23,"[129][206]icht beschummeln, mein [198]reundchen!":forw=1to2000:nextw
  105. 4510 sysys,0,23,l$:return
  106. 5000 gosub1000:forr=0to9:fort=0to9
  107. 5010 ifc(r,t)=2thengosub5500
  108. 5020 nextt,r
  109. 5030 forr=0to9:fort=0to9
  110. 5040 ifc(r,t)=2thengosub5600
  111. 5050 nextt,r:goto4205
  112. 5500 ift>0thenifc(r,t-1)=0thenx=r:y=t-1
  113. 5510 ift<9thenifc(r,t+1)=0thenx=r:y=t+1
  114. 5520 ifr>0thenifc(r-1,t)=0thenx=r-1:y=t
  115. 5530 ifr<9thenifc(r+1,t)=0thenx=r+1:y=t
  116. 5540 return
  117. 5600 ift>0andt<9thenifc(r,t-1)=0andc(r,t+1)=2thenx=r:y=t-1
  118. 5610 ift>0andt<9thenifc(r,t+1)=0andc(r,t-1)=2thenx=r:y=t+1
  119. 5620 ifr>0andr<9thenifc(r+1,t)=0andc(r-1,t)=2thenx=r+1:y=t
  120. 5630 ifr>0andr<9thenifc(r-1,t)=0andc(r+1,t)=2thenx=r-1:y=t
  121. 5700 return
  122. 9000 v=1
  123. 9010 ifb>0thenifb(a,b-1)=1thenv=0
  124. 9015 ifb>1thenifb(a,b-2)=1thenifb(a,b-1)<>0thenv=0
  125. 9017 ifb>2thenifb(a,b-3)=1thenifb(a,b-2)<>0thenifb(a,b-1)<>0thenv=0
  126. 9020 ifa>0thenifb(a-1,b)=1thenv=0
  127. 9025 ifa>1thenifb(a-2,b)=1thenifb(a-1,b)<>0thenv=0
  128. 9027 ifa>2thenifb(a-3,b)=1thenifb(a-2,b)<>0thenifb(a-1,b)<>0thenv=0
  129. 9030 ifa<9thenifb(a+1,b)=1thenv=0
  130. 9035 ifa<8thenifb(a+2,b)=1thenifb(a+1,b)<>0thenv=0
  131. 9037 ifa<7thenifb(a+3,b)=1thenifb(a+2,b)<>0thenifb(a+1,b)<>0thenv=0
  132. 9040 ifb<9thenifb(a,b+1)=1thenv=0
  133. 9045 ifb<8thenifb(a,b+2)=1thenifb(a,b+1)<>0thenv=0
  134. 9047 ifb<7thenifb(a,b+3)=1thenifb(a,b+2)<>0thenifb(a,b+1)<>0thenv=0
  135. 9050 ifv=0thenreturn
  136. 9060 ifv=1thensysys,8,19,"und versenkt"
  137. 9070 forr=0to9:fort=0to9:ifb(r,t)=2thengosub9500
  138. 9080 nextt,r:v2=v2+1:return
  139. 9300 forr=0to9:fort=0to9:ifc(r,t)=2thengosub9400
  140. 9310 nextt,r:return
  141. 9400 c=1313+r+40*t
  142. 9410 ifr>0andt>0thenpokec-41,24:pokec+54231,5:c(r-1,t-1)=1
  143. 9420 ifr<9andt>0thenpokec-39,24:pokec+54233,5:c(r+1,t-1)=1
  144. 9430 ifr<9andt<9thenpokec+41,24:pokec+54313,5:c(r+1,t+1)=1
  145. 9440 ifr>0andt<9thenpokec+39,24:pokec+54311,5:c(r-1,t+1)=1
  146. 9450 ift>0thenifc(r,t-1)<>2thenpokec-40,24:pokec+54232,5:c(r,t-1)=1
  147. 9460 ift<9thenifc(r,t+1)<>2thenpokec+40,24:pokec+54312,5:c(r,t+1)=1
  148. 9470 ifr>0thenifc(r-1,t)<>2thenpokec-1,24:pokec+54271,5:c(r-1,t)=1
  149. 9480 ifr<9thenifc(r+1,t)<>2thenpokec+1,24:pokec+54273,5:c(r+1,t)=1
  150. 9490 return
  151. 9500 c=1324+r+40*t
  152. 9510 ifr>0andt>0thenpokec-41,24:pokec+54231,5:b(r-1,t-1)=3
  153. 9520 ifr<9andt>0thenpokec-39,24:pokec+54233,5:b(r+1,t-1)=3
  154. 9530 ifr<9andt<9thenpokec+41,24:pokec+54313,5:b(r+1,t+1)=3
  155. 9540 ifr>0andt<9thenpokec+39,24:pokec+54311,5:b(r-1,t+1)=3
  156. 9550 ift>0thenifb(r,t-1)<>2thenpokec-40,24:pokec+54232,5:b(r,t-1)=3
  157. 9560 ift<9thenifb(r,t+1)<>2thenpokec+40,24:pokec+54312,5:b(r,t+1)=3
  158. 9570 ifr>0thenifb(r-1,t)<>2thenpokec-1,24:pokec+54271,5:b(r-1,t)=3
  159. 9580 ifr<9thenifb(r+1,t)<>2thenpokec+1,24:pokec+54273,5:b(r+1,t)=3
  160. 9590 return
  161. 10000 e=8:gosub1010:onv4goto10010,10020
  162. 10010 sysys,0,5,"[196]u haettest noch"10-v2"[211]chiffe treffen
  163. 10011 [158]ys,0,6,"muessen und hast somit verloren!":[137]10030
  164. 10020 [158]ys,0,5,"right$ch haette noch"10[171]v1"(NULL)chiffe treffen
  165. 10021 sysys,0,6,"muessen und habe somit verloren!
  166. 10030 [158]ys,0,e,"clr(NULL)och ein (NULL)piel? (j/n)
  167. 10040 a$="":geta$:ifa$="j"thenrun100
  168. 10041 ifa$="n"thensysys,23,e," [198]eigling! [146][144]":end
  169. 10042 goto10040
  170. 20000 data32,253,174,32,158,183,138,72,32,253,174,32,158,183,104,168,24,32,240
  171. 20010 data255,32,253,174,76,164,170
  172.