home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1988 #1 / Floppy_Magazine_88-1_1988_Megasystems_Oy_fi_Side_B.d64 / snoopy-puzzle (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  103 lines
  1. 0 rem  snoopy-puzzle
  2. 1 rem by tommi tenhula
  3. 2 rem 1986 in oulainen
  4. 3 :
  5. 10 poke808,234:poke53280,2:poke53281,2:printchr$(8):poke53272,21
  6. 12 forr=0to77:readd:next:gosub1000:clr
  7. 14 v=53248
  8. 16 pokev+21,0:gosub800:gosub700:pokev+21,255:poke214,22:print
  9. 18 print"[158]  press 'return'"
  10. 20 gett$:ift$=chr$(13)then24
  11. 22 goto20
  12. 24 print"[145]                "
  13. 99 rem *** palasten sekoitus ***
  14. 100 forr=1to8
  15. 102 a=int(9*rnd(0))+1:ift(a)=1then102
  16. 104 t(a)=1:a(r)=a:next:forr=1to9:ift(r)=0thenvp=r
  17. 106 next:pokev+21,0:forr=1to8:pokev+px(r),x(a(r)):pokev+py(r),y(a(r)):next
  18. 108 pokev+21,255:mo=1
  19. 149 rem *** palasten liikutus ***
  20. 150 poke214,8:print:print"[158]  move:"mo
  21. 152 b=1:forr=1to9:ifs1(r)=vpors2(r)=vpors3(r)=vpors4(r)=vpthensi(b)=r:b=b+1
  22. 154 next:print"  press:";:forr=1tob-1:printsi(r)"  ";:next:print
  23. 156 forr=2tob-1:print"[145]"tab(11+5*(r-2))"or":next
  24. 158 gett$:ift$=""then158
  25. 160 t=asc(t$)-48:ift<1ort>9ort=vpthen158
  26. 162 ifs1(t)<>vpands2(t)<>vpands3(t)<>vpands4(t)<>vpthen158
  27. 164 forr=1to8:ifa(r)=tthenb=r
  28. 166 nextr:pokev+px(b),x(vp):pokev+py(b),y(vp):a(b)=vp:vp=t
  29. 168 b=0:forr=1to8:ifa(r)=b(r)thenb=b+1
  30. 170 next:print"[145]                 ":ifb=8then200
  31. 172 mo=mo+1:goto150
  32. 199 rem *** peli onnistui ***
  33. 200 poke214,8:print:print"[158]  great! you did it":print"  you need"mo"[157] moves"
  34. 202 poke214,22:print:print"[158]  press 'return'"
  35. 204 gett$:ift$=chr$(13)then14
  36. 206 goto204
  37. 699 rem *** muuttujia ***
  38. 700 forr=0to7:poke2040+r,248+r:next:forr=39to46:pokev+r,0:next
  39. 702 restore:forr=1to8:reada(r):b(r)=a(r):next:forr=1to8:readpx(r),py(r):next
  40. 704 forr=1to9:readx(r),y(r):next
  41. 706 forr=1to8:pokev+px(r),x(a(r)):pokev+py(r),y(a(r)):next
  42. 708 forr=1to9:reads1(r),s2(r),s3(r),s4(r):next
  43. 710 forr=1to9:t(r)=0:next
  44. 712 return
  45. 799 rem *** snoopy-puzzle teksti ***
  46. 800 print"[147][158]  [213][192][201]"
  47. 802 print"  [221]  "
  48. 804 print"  [202][192][201][171][201][213][201][213][201][176][201][174][176]"
  49. 806 print"    [221][221][221][221][221][221][221][221][221][221][221] [192] puzzle"
  50. 808 print"  [202][192][203][177][173][202][203][202][203][171][203][202][179]"
  51. 810 print"           [221]  [221]"
  52. 812 print"  ** by tommi tenhula **"
  53. 814 poke214,13:print:forr=0to7:print"[155]           ":next
  54. 816 return
  55. 899 rem *** spritejen paikat ***
  56. 900 data 1,2,4,5,6,7,8,9
  57. 902 data 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
  58. 904 data 40,162,64,162,88,162,40,183,64,183,88,183,40,204,64,204,88,204
  59. 906 data ,2,4,,,3,5,1,,,6,2,1,5,7,,2,6,8,4,3,,9,5,4,8,,,5,9,,7,6,,,8
  60. 999 rem *** musiikki ja spritet ***
  61. 1000 print"[147][158]please wait 40s !"
  62. 1002 ao=49152:rl=8:gosub1006:sys49152
  63. 1004 ao=15872:rl=15:gosub1006:return
  64. 1006 forr=0torl:reada$,tl:ta=0
  65. 1008 iflen(a$)<>64then1050
  66. 1010 fort=1to63step2:a=asc(mid$(a$,t,1))-48:b=asc(mid$(a$,t+1,1))-48
  67. 1012 ifa>10thena=a-7
  68. 1014 ifb>10thenb=b-7
  69. 1016 c=a*16+b:ifc>255then1050
  70. 1018 pokeao,c:ao=ao+1:ta=ta+c:nextt:iftl<>tathen1050
  71. 1020 nextr:return
  72. 1050 print"virhe rivilla";
  73. 1052 ifrl=8thenprint1100+r*2
  74. 1054 ifrl=15thenprint1200+r*2
  75. 1056 end
  76. 1099 rem *** musiikki datat ***
  77. 1100 data 78a9318d1403a9c08d150358a90f8d18d4a9178d02d48d05d4a90f8d03d48d06,3269
  78. 1102 data d4a9008d04d485fda97385fba9c085fc60a000a5fdc900f005c6fd4c31eaa940,4701
  79. 1104 data 8d04d4b1fb8d01d4e6fbb1fb8d00d4e6fbb1fb85fde6fba9418d04d4a5fbc900,5385
  80. 1106 data d002e6fcc91bd008a97385fba9c085fc4c31ea133f08159a08183f0f1cd60f1c,3569
  81. 1108 data d60f205e0f1cd60f183f0f133f0f159a0f183f0f183f0f159a0f133f0f159a2d,1727
  82. 1110 data 133f08159a08183f0f1cd60f1cd617205e081cd60f183f0f133f17159a08183f,1765
  83. 1112 data 0f183f0f159a0f159a0f133f3c19b11e19b11e204b0f204b1e204b08204b081c,1620
  84. 1114 data d60f1cd60f183f0f133f0f159a2d133f08159a08183f0f1cd60f1cd60f204b0f,1916
  85. 1116 data 1cd60f183f0f133f0f159a0f183f0f183f0f159a0f159a0f133f640000000000,1412
  86. 1199 rem *** sprite datat ***
  87. 1200 data 0000000000000000000000000000000000000000000000000000000000180000,24
  88. 1202 data 2400002c00001800007e00018100020000020000040000040000080000080000,388
  89. 1204 data 0000000000000000000000000000000000000000000000000000000000000000,0
  90. 1206 data 0000000000000000000080000040000040000020000020000010000010000000,352
  91. 1208 data 0008000008000008000008000008000008000008000008000010000013000010,115
  92. 1210 data c000200000200000200000200000100000100000080001fe030201fc02003000,923
  93. 1212 data 0800000800000800000803c0080c300410080420040420040540020380020300,610
  94. 1214 data 01030001030001031fe10600110600080600080f0008f6ff0804010f0000f000,1111
  95. 1216 data 00000001e0000210000430000448000808000818000828000808000408000404,503
  96. 1218 data 00040400020400020400f204000c0400000400000400000780f8044007f84000,1060
  97. 1220 data 0200300200700200700200700200f00200f007ffff0400f00400f00400f00400,2129
  98. 1222 data f00400700400700400600800600800000fffff08000008000008000008000000,1241
  99. 1224 data 000000000000000000000000000000000000ffffff0000000000000000000000,765
  100. 1226 data 00000000000000000000000000000000ffffff00000000000000000000000000,765
  101. 1228 data 000040000040000040000040000040000040ffffe00000200000200000200000,1214
  102. 1230 data 20000020000020000020000010000010fffff000001000001000001000001000,974
  103.