home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 48 / Digital_Talk_48_2001-04-16_Digital_Talk_de_Side_A.d64 / ...oxo... / ...oxo...0818 / ...oxo...a7ae (.txt)
Encoding:
Commodore BASIC  |  2001-01-01  |  7.9 KB  |  231 lines
  1. 0 lw=peek(186):si=54272:ifa=0thena=1:load"m1....oxo",lw,1
  2. 1 ifa=1thena=2:load"ms.*",lw,1
  3. 2 print"[147]":gosub3000:gosub2000
  4. 3 rem dimzw(299):dim zx(299):dimzu(299):dim zv(299):dim zf(299)
  5. 4 rem  hs$(1)="honey.......":hp(1)=1000
  6. 5 rem  hs$(2)="commodre 64.":hp(2)=900
  7. 6 rem  hs$(3)="player 2....":hp(3)=500
  8. 7 rem  hs$(4)="player 3....":hp(4)=300
  9. 8 rem  hs$(5)="player 4....":hp(5)=100:goto930
  10. 10 poke808,225:poke775,20:poke788,52:rem control+";" == ende
  11. 13 sys49152:sys828,1
  12. 14 kl=1:lv=80:rem hinternabder folge +     level-schleife
  13. 15 fg=2 :rem feld-groesse
  14. 16 m=0:zw=0:zx=0
  15. 17 pu=-10
  16. 18 si=54272:fl=si:fh=si+1:tl=si+2:th=si+3:w=si+4:a=si+5:h=si+6:l=si+24:pokew,0
  17. 19 :
  18. 31 open1,8,0,"hs....oxo"
  19. 32 forza=1to5:input#1,hs$(za):input#1,hp(za):nextza
  20. 33 close1
  21. 34 :
  22. 100 poke53280,0:poke53281,15:poke53334,24
  23. 101 print"[149]       [129][176][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][174][144][223]"
  24. 102 print"[144]punkte:[129][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221][144] [223]"
  25. 103 forz=0to6
  26. 104 printtab(07)"[129][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221][144]  "
  27. 105 printtab(07)"[129][171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179][144]  ":ifpu<0thenpu=0
  28. 106 printtab(07)"[129][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221][144]  ":next
  29. 108 print"[129]       [129][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221][144] [146][169]      ";
  30. 109 print"       [129][173][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][189][144][169][144]";:print"       ":print"[145]";pu
  31. 110 print"[144]level: ":print" 0":print"[144]time:  ":print" 0"
  32. 111 gosub1001:ifaq=0thengoto 600
  33. 199 :
  34. 200 rem  zufalls-feld
  35. 201 :
  36. 202 zu(n)=int(fg*rnd(1)):zv(n)=int(fg*rnd(1))
  37. 203 zf(n)=int(7*rnd(1))+1
  38. 204 :
  39. 209 forn=1tokl
  40. 210 poke55303+pl(zu(n))+((zv(n)+2*zv(n))*40),zf(n)
  41. 211 poke55303+40+pl(zu(n))+((zv(n)+2*zv(n))*40),zf(n)
  42. 212 poke55303+1+pl(zu(n))+((zv(n)+2*zv(n))*40),zf(n)
  43. 213 poke55303+41+pl(zu(n))+((zv(n)+2*zv(n))*40),zf(n):gosub1400
  44. 214 forld=0to1+lv:nextld:gosub501:nextn
  45. 219 goto 301
  46. 300 rem joystick-abfrage
  47. 301 ifpeek(56320)=127thenpoke55303+pl(zw)+((zx+2*zx)*40),1:goto301
  48. 302 ifpeek(56320)<>127thenpoke55303+pl(zw)+((zx+2*zx)*40),0
  49. 303 ifpeek(56320)=111then m=m+1:goto320
  50. 304 ifpeek(56320)=119thenzw=zw+1:goto313
  51. 305 ifpeek(56320)=123thenzw=zw-1:goto313
  52. 306 ifpeek(56320)=126thenzx=zx-1:goto313
  53. 307 ifpeek(56320)=125thenzx=zx+1:goto313
  54. 308 ifpeek(56320)=122thenzw=zw-1:zx=zx-1:goto313
  55. 309 ifpeek(56320)=121thenzw=zw-1:zx=zx+1:goto313
  56. 310 ifpeek(56320)=118thenzw=zw+1:zx=zx-1:goto313
  57. 311 ifpeek(56320)=117thenzw=zw+1:zx=zx+1:goto313
  58. 312 ifpeek(56320)=063thenend
  59. 313 ifzw<0thenzw=0
  60. 314 ifzw>(fg-1)thenzw=(fg-1)
  61. 315 ifzx<0thenzx=0
  62. 316 ifzx>(fg-1)thenzx=(fg-1)
  63. 317 poke55303+pl(zw)+((zx+2*zx)*40),1:poke55303+pl(zw)+((zx+2*zx)*40),0:goto301
  64. 320 :
  65. 321 ifzw=zu(m)andzx=zv(m)thengosub505:pu=pu+10:print"";pu:goto340
  66. 322 goto 520
  67. 340 print"";fg-1:print"";lv
  68. 349 ifm=kl then kl=kl+1:m=1:lv=lv-10:gosub700:goto200
  69. 350 ifpeek(56320)=127thengoto300
  70. 351 goto 350
  71. 500 rem feld wieder schwarz
  72. 501 poke55303+pl(zu(n))+((zv(n)+2*zv(n))*40),0
  73. 502 poke55303+40+pl(zu(n))+((zv(n)+2*zv(n))*40),0
  74. 503 poke55303+1+pl(zu(n))+((zv(n)+2*zv(n))*40),0
  75. 504 poke55303+41+pl(zu(n))+((zv(n)+2*zv(n))*40),0:return
  76. 505 rem feld farbe und dann schwarz
  77. 506 poke55303+pl(zw)+((zx+2*zx)*40),zf(m)
  78. 507 poke55303+40+pl(zw)+((zx+2*zx)*40),zf(m)
  79. 508 poke55303+1+pl(zw)+((zx+2*zx)*40),zf(m)
  80. 509 poke55303+41+pl(zw)+((zx+2*zx)*40),zf(m):gosub1411
  81. 511 poke55303+pl(zw)+((zx+2*zx)*40),0
  82. 512 poke55303+40+pl(zw)+((zx+2*zx)*40),0
  83. 513 poke55303+1+pl(zw)+((zx+2*zx)*40),0
  84. 514 poke55303+41+pl(zw)+((zx+2*zx)*40),0:return
  85. 519 rem demo
  86. 520 x=15:forza=0to14step0.5:zu=int(08*rnd(1)):poke53334,24+zu:gosub1310:nextza
  87. 521 pokew,0:poke53334,24:gosub702:goto800
  88. 522 ifpeek(56320)=111thenpoke53334,24:aq=0:sys828,1,25:goto 14
  89. 523 poke53334,24:da=int(8*rnd(1)):db=int(8*rnd(1))
  90. 524 dc=int(8*rnd(1))
  91. 525 poke55303+pl(da)+((db+2*db)*40),dc
  92. 526 poke55303+40+pl(da)+((db+2*db)*40),dc
  93. 527 poke55303+1+pl(da)+((db+2*db)*40),dc
  94. 528 poke55303+41+pl(da)+((db+2*db)*40),dc
  95. 529 goto 522
  96. 600 print""
  97. 601 printtab(10)"[129][219][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][219]"
  98. 602 printtab(10)"[129][221][150]                 [129][221]
  99. 603 [153][163]10)"for(NULL)def sqr step(NULL)wait(NULL)(NULL)wait   stepwaitstepstep(NULL)wait sqr for(NULL)
  100. 604 printtab(10)"[129][179][150]  [169][146][169][223][223][146][223][223][146] [169][146][169][169][146][169][223][223][146] [160][129][171]
  101. 605 [153][163]10)"for(NULL)def  (NULL)(NULL)stepwaitstepstepwaitstep (NULL)(NULL)wait(NULL)(NULL)stepwaitstep  for(NULL)
  102. 606 printtab(10)"[129][221][150] [186] [223][146][169][169][146][169]   [223][223][146][223][169] [186] [129][221]
  103. 607 [153][163]10)"for<defstop      !";[199](34):[153][163]19)"on#$wait       for-"
  104. 608 [153][163]10)"for(NULL)stop      atnpeeklenstr$valwait      for(NULL)
  105. 609 printtab(10)"[129][221][150]    [144]by  honey    [129][221]
  106. 610 [153][163]10)"for<defstop                 for-"
  107. 611 [153][163]10)"for(NULL)stop                 for(NULL)
  108. 612 print"";tab(10)"[129][221]     gruesse:   [160][129][221]
  109. 613 [153][163]10)"for<stop   second decay  for-
  110. 614 printtab(10)"[129][221][144]     kontrast    [129][221]
  111. 615 [153][163]10)"for(NULL)stop      chr$(NULL) 64wait!    closefor(NULL)
  112. 616 printtab(10)"[129][179][144]    bomb jack   [160][129][171]
  113. 617 [153][163]10)"for(NULL)stop   hoerer-club  closefor(NULL)
  114. 618 printtab(10)"[129][221] *druecke feuer* [129][221]
  115. 619 [153][163]10)"for(NULL)tantan=tantan=tantan=tantan=tantan=tantan(NULL)":y[178]1
  116. 620 :
  117. 621 [141]1001
  118. 622 [139][194](56320)[178]111[167] [151]53334,24:aq[178]1:[158]828,2:[158]828,0,0:[137] 14
  119. 623 [151]53265,27:[135]da:[135]db:[135]dd:[135]de:[139]de[178]111[167][140]:[145]y [137]630,612
  120. 624 dc[178][181](8[172][187](1)):df[178][181](8[172][187](1))
  121. 625 [151]55303[170]pl(da)[170]((db[170]2[172]db)[172]40),dc:     [151]55303[170]pl(dd)[170]((de[170]2[172]de)[172]40),df
  122. 626 [151]55303[170]40[170]pl(da)[170]((db[170]2[172]db)[172]40),dc:[151]55303[170]40[170]pl(dd)[170]((de[170]2[172]de)[172]40),df
  123. 627 [151]55303[170]1[170]pl(da)[170]((db[170]2[172]db)[172]40),dc:[151]55303[170]1[170]pl(dd)[170]((de[170]2[172]de)[172]40),df
  124. 628 [151]55303[170]41[170]pl(da)[170]((db[170]2[172]db)[172]40),dc:[151]55303[170]41[170]pl(dd)[170]((de[170]2[172]de)[172]40),df
  125. 629 [137]622
  126. 630 :
  127. 631 [153]"";[163]10)"for(NULL)   champion's:  closefor(NULL)
  128. 632 printtab(10)"[129][179][158]";hs$(1);tab(18)"[144]";hp(1)
  129. 633 printtab(10)"[129][221][144]";hs$(2);tab(18);hp(2)
  130. 634 printtab(10)"[129][221][144]";hs$(3);tab(18);hp(3)
  131. 635 printtab(10)"[129][179][144]";hs$(4);tab(18);hp(4)
  132. 636 printtab(10)"[129][221][144]";hs$(5);tab(18);hp(5)
  133. 637 printtab(10)"[129][221]  *press  fire* [160][129][221]":y=2:goto621
  134. 700 iflv<0thenlv=80:kl=1:m=0:zw=0:zx=0:fg=fg+1:iffg>8thenfg=8
  135. 701 print"";fg-1:return
  136. 702 forn=1tokl
  137. 703 poke55303+pl(zu(n))+((zv(n)+2*zv(n))*40),zf(n)
  138. 704 poke55303+40+pl(zu(n))+((zv(n)+2*zv(n))*40),zf(n)
  139. 705 poke55303+1+pl(zu(n))+((zv(n)+2*zv(n))*40),zf(n)
  140. 706 poke55303+41+pl(zu(n))+((zv(n)+2*zv(n))*40),zf(n):gosub1400
  141. 707 gosub500:nextn:return
  142. 800 ifpu<hp(5)then goto 900
  143. 801 ifpu>hp(1)thenpl=1:gosub940:goto806
  144. 802 ifpu>hp(2)thenpl=2:gosub940:goto806
  145. 803 ifpu>hp(3)thenpl=3:gosub940:goto806
  146. 804 ifpu>hp(4)thenpl=4:gosub940:goto806
  147. 805 pl=5
  148. 806 :
  149. 812 print"":a$="":hs$(pl)="":u=0
  150. 813 printtab(10)"[129][219][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][219]"
  151. 814 printtab(10)"[129][221]   champion's    [129][221]"
  152. 815 printtab(10)"[129][221][144]    platz:      [160][129][221]":print"[145]";tab(22);pl
  153. 816 printtab(10)"[129][179][144]                [160][129][171]
  154. 817 [153][163]10)"for(NULL)stop    wait........... closefor(NULL)
  155. 818 printtab(10)"[129][221][144]      name      [160][129][221]"
  156. 819 printtab(10)"[129][219][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][219][145][145]"
  157. 820 geta$:ifa$=""thengoto820
  158. 821 ifa$="[147]"ora$=""ora$=""ora$="[145]"ora$="[157]"ora$="[148]"ora$=""thengoto812
  159. 822 ifa$=chr$(13)thena$=" ":goto825
  160. 823 u=u+1:print"[145]"tab(13+u);a$+"[144] ":hs$(pl)=hs$(pl)+a$:gosub1400
  161. 824 ifu<12thengoto820
  162. 825 hp(pl)=pu:u=0
  163. 826 iflen(hs$(pl))=12thengosub 930:goto900
  164. 827 a$=".":hs$(pl)=hs$(pl)+a$:iflen(hs$(pl))=12then gosub930:goto900
  165. 828 goto827
  166. 899 goto900
  167. 900 :
  168. 910 print""tab(07)"[129][176][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][174][144][223]"
  169. 911 printtab(07)"[129][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221][144] [223]"
  170. 912 forz=0to6
  171. 913 printtab(07)"[129][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221][144]  "
  172. 914 printtab(07)"[129][171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179][144]  "
  173. 915 printtab(07)"[129][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221][144]  ":next
  174. 916 print"[129]       [129][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221]  [146][221][144] [146][169]      ";
  175. 917 print"       [129][173][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][189][144][169][144]";
  176. 918 print"";
  177. 919 printtab(8)"[144]g [146][129][191][157][221][144]a [146][129][221][144]m [146][129][221][144]e [146][129][221][144] o[146][129][221][144] v[146][129][221][144] e[146][129][221][144] r"
  178. 920 printtab(8)"[144]  [146][129][191][157][221][144]  [146][129][221][144]f [146][129][221][144]i [146][129][221][144] r[146][129][221][144] e[146][129][221][144]  [146][129][221][144]  "
  179. 921 goto522
  180. 930 :
  181. 931 open1,8,1,"@:hs....oxo"
  182. 932 forza=1to5:print#1,hs$(za)
  183. 933 print#1,hp(za):nextza
  184. 934 close1:return
  185. 940 pa=pl
  186. 941 hs$(pl+1)=hs$(pl):hp(pl+1)=hp(pl):pl=pl+1:ifpl=6then goto943
  187. 942 goto941
  188. 943 pl=pa:return
  189. 999 :
  190. 1000 rem
  191. 1001 forza=0to7:pl(za)=41+(3*za):nextza:return
  192. 1100 data0,0,7,7,0,1,7,6,0,2,7,5,0,3,7,4,0,4,7,3,0,5,7,2,0,6,7,1
  193. 1101 data0,7,7,0,1,7,6,0,2,7,5,0,3,7,4,0,4,7,3,0,5,7,2,0,6,7,1,0
  194. 1102 data 0,0,0,111
  195. 1300 rem sounds.
  196. 1310 x=x-0.5
  197. 1320 pokel,x:pokea,15:pokeh,0:pokefh,05:pokefl,103:pokew,129:return
  198. 1340 si=54272:fl=si:fh=si+1:tl=si+2:th=si+3:w=si+4:a=si+5:h=si+6:l=si+24:pokew,0
  199. 1400 pokesi+24,10:pokesi+7,0:pokesi+8,30*(zu(n)+zv(n))+7:pokesi+13,240
  200. 1410 pokesi+9,0:pokesi+10,8:pokesi+11,65:fort=0to15:nextt:pokesi+11,0:return
  201. 1411 :
  202. 1412 pokesi+10,8:pokesi+11,65:fort=0to15:nextt:pokesi+11,0:return
  203. 2000 a$="z1....oxo"
  204. 2001 sys(57812)a$,8,0
  205. 2002 poke780,0:poke781,0:poke782,48:rem file relativ nach 12288 (=48*256) laden
  206. 2003 sys62622:rem load-routine
  207. 2004 ifst and 191thenprint:print"ladefehler ?":goto2008
  208. 2005 poke657,128:rem shift/commodore ausschalten
  209. 2006 poke53272,29:rem zeichensatz bei 12288 einschalten (normal=21)
  210. 2007 return
  211. 2008 open1,8,15:input#1,nr$,na$,tr$,se$:close1
  212. 2009 printnr$","na$","tr$","se$
  213. 2010 poke198,0:wait198,1:return
  214. 3000 print"[147]":poke53280,0:poke53281,0
  215. 3001 print"  oxo - taktikspiel by honey (c) 1996 "
  216. 3002 print"  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]  "
  217. 3003 print"       geschrieben in 3 stunden        "
  218. 3004 print"  joystick port (1) spielstart : space "
  219. 3005 print"  um das level zu beginnen gehen sie   "
  220. 3006 print"  mit dem cursor auf das erste feld    "
  221. 3007 print"  links oben und druecken sie den knopf"
  222. 3008 print"  das spiel ist aehnlich dem sensor    "
  223. 3009 print"  der computer gibt ihnen eine feld-   "
  224. 3010 print"  folge vor die sie wiederholen muessen"
  225. 3011 print"  wobei sich die folge und die feld-   "
  226. 3012 print"  dimension mit den levels steigert.   "
  227. 3013 print"  viel spass !                  [space]";
  228. 3014 geta$:ifa$=" "thenprint"[147]":poke53265,11:return
  229. 3015 goto3014
  230. 3999 return
  231.