home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Playback_07_1992_-_de.d64 / einsiedler (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  68 lines
  1. 10 rem einsiedlerspiel =========64
  2. 95 gosub1000:poke646,0:poke53281,1
  3. 100 printcl$c1$"           das einsiedlerspiel"
  4. 110 printc1$" zum setzen faehrst du mit den cursor-
  5. 120 [153]c1$" steuertasten unter den zu setzenden
  6. 130 printc1$" stein, drueckst space und faehrst dann
  7. 140 [153]c1$" unter die zielposition und drueckst
  8. 150 printc1$" erneut space."
  9. 160 printc1$" mit (*) kannst du das spiel beenden."
  10. 170 printc1$c1$" waehle eine der 2 moeglichkeiten
  11. 180 [153]c1$" 1 = loesung
  12. 190 printc1$" 2 = volles feld
  13. 200 [161]a$:a[178][197](a$):[139]a[179]1[176]a[177]2[167]200
  14. 210 [145]a[137]220,220
  15. 220 [153]cl$c1$"           das einsiedlerspiel
  16. 230 print:print"*****************************************
  17. 240 [153]r1$"                (NULL) (NULL) (NULL)
  18. 245 printr1$"                [209] [209] [209]
  19. 250 [153]r1$"            (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)
  20. 260 printr1$"            [209] [209] [209] [215] [209] [209] [209]
  21. 270 [153]r1$"            (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)
  22. 275 printr1$"                [209] [209] [209]
  23. 280 [153]r1$"                (NULL) (NULL) (NULL)
  24. 285 printc4$"**
  25. 290 [153]c4$"**
  26. 295 printc4$"*****************************************"
  27. 300 x=1403:pokex,30:pokex+54272,0:za=32
  28. 310 ifa=1then340
  29. 320 geta$:ifa$="*"then540
  30. 330 gosub410:goto320
  31. 340 readx$:i=1
  32. 350 w=val(mid$(x$,i,1)):a$=mid$(sc$,w,1):ifa$=kl$then540
  33. 360 fort=1to 00:next
  34. 370 gosub410:i=i+1:ifi<=len(x$)then350
  35. 380 goto340
  36. 410 ifa$<>" "then480
  37. 420 ify<>0then450
  38. 430 ifpeek(x-40)<>81thenreturn
  39. 440 y=x-40:pokey,42:return
  40. 450 ifpeek(x-40)<>87or(abs(y-x+40)<>4andabs(y-x+40)<>160)thenpokey,81:y=0:return
  41. 460 ifpeek((y-x+40)/2+x-40)<>81thenpokey,81:y=0:return
  42. 470 pokex-40,81:poke(y-x+40)/2+x-40,87:pokey,87:y=0:z=z+1:return
  43. 480 ifa$=c3$andpeek(x-80)=32thenpokex,32:x=x-80
  44. 490 ifa$=c1$andpeek(x+80)=32thenpokex,32:x=x+80
  45. 500 ifa$=c4$andpeek(x-2)=32thenpokex,32:x=x-2
  46. 510 ifa$=c2$andpeek(x+2)=32thenpokex,32:x=x+2
  47. 520 pokex,30:pokex+54272,0
  48. 530 return
  49. 540 ifa<>1then560
  50. 545 poke782,1:poke781,23:sys65520:print"der computer hat dir jetzt die loesung"
  51. 550 print" gezeigt. nun bist du an der reihe.":goto590
  52. 560 poke782,7:poke781,23:sys65520:print"du hast":printz"steine geschlagen."
  53. 570 ifza-z>1thenprint"     es sind noch"za-z"steine uebrig.":goto590
  54. 580 print"           das ist optimal !!!
  55. 590 [161]a$:[139]a$[178]""[167]590
  56. 600 [138]
  57. 610 [131]"51153445225433511533225445111533535115254452111533"
  58. 620 [131]"53445225511534452255115344522533222544521153351122"
  59. 630 [131]"54453345225254453511515335122544535115452254115335"
  60. 640 [131]"254455445221153353511541533545225153356"
  61. 1000 c1$[178][199](017):c2$[178][199](029)
  62. 1010 c3$[178][199](145):c4$[178][199](157)
  63. 1020 kl$[178][199](064):cl$[178][199](147)
  64. 1030 sc$[178]c1$[170]c2$[170]c3$[170]c4$[170]" "[170]kl$
  65. 1040 r1$[178]c4$[170]"**"[170]c1$[170]c4$[170]c4$[170]"**"
  66. 2000 [142]
  67. 3300 [143] programmende=============
  68.