home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 4 / 004.d81 / spiders (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  8KB  |  207 lines
  1. 1 rem ---------------------------------       grade 12 computer science project
  2. 2 rem  spiders         by ian phillips
  3. 3 rem ---------------------------------
  4. 4 rem                                     :
  5. 5 gosub6000
  6. 6 rem                                         ---------------------------------
  7. 7 rem      redefining characters              ---------------------------------
  8. 8 rem                                     :
  9. 10 poke53272,(peek(53272)and240)+12:poke52,48:poke56,48:clr
  10. 20 poke56334,peek(56334)and254:poke1,peek(1)and251:fori=0to511
  11. 30 pokei+12288,peek(i+53248):next:poke1,peek(1)or4:poke56334,peek(56334)or1
  12. 40 :    fori=13128to13135:reada:pokei,a:next
  13. 50 :    fori=13040to13047:reada:pokei,a:next
  14. 60 :    fori=13304to13311:reada:pokei,a:next
  15. 70 :    fori=12536to12543:reada:pokei,a:next
  16. 71 :    fori=13104to13111:reada:pokei,a:next
  17. 72 :    fori=13008to13015:reada:pokei,a:next
  18. 73 :    fori=13048to13055:reada:pokei,a:next
  19. 74 :    fori=12936to12943:reada:pokei,a:next
  20. 78 :
  21. 80 data 153,219,126,60,231,60,102,219,24,189,66,126,255,231,231,195,24,126,255
  22. 81 data 0,255,255,255,255,60,102,231,231,102,60,24,60,255,255,255,255,255,255
  23. 82 data 255,255,0,0,0,120,120,0,0,0,126,199,254,220,140,134,195,126,28,62,255
  24. 83 data 255,126,62,28,8
  25. 85 print"[145]                          "
  26. 86 print"[145]     press return to play "
  27. 87 getg$:ifg$<>chr$(13)then85
  28. 88 rem                                         --------------------------------
  29. 89 rem    set up game, counters etc...         --------------------------------
  30. 90 rem                                     :
  31. 91 c=5:poke53281,0:poke53280,11:forl=54272to54296:pokel,0:next:poke54296,15
  32. 92 poke54271,128:poke54284,64:poke54291,128:poke54278,128:poke54285,248
  33. 93 tv=8:tw=8:b=0:cf=0:print"[147]":poke54292,64:sc=0
  34. 100 rem                                         -------------------------------
  35. 101 rem    game board set up                    -------------------------------
  36. 102 rem                                     :
  37. 105 print"[129] [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]
  38. 106 [153]" spc((NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)spc((NULL)(NULL)(NULL)(NULL)spc((NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)spc(
  39. 107 print" [166][218][166][166][166][166][166][166][218][166][166][166][166][166][166][218][166][218][166][166][218][166][218][166][166][166][166][166][166][218][166][166][166][166][166][166][218][166]
  40. 108 [153]" spc((NULL)spc((NULL)(NULL)(NULL)(NULL)spc((NULL)(NULL)(NULL)spc(spc((NULL)(NULL)(NULL)spc((NULL)spc(spc((NULL)spc((NULL)(NULL)(NULL)spc(spc((NULL)(NULL)(NULL)spc((NULL)(NULL)(NULL)(NULL)spc((NULL)spc(
  41. 109 print" [166][218][218][218][166][166][218][166][218][166][218][166][166][218][166][218][166][218][166][166][218][166][218][166][218][166][166][218][166][218][166][218][166][166][218][218][218][166]
  42. 110 [153]" spc((NULL)spc((NULL)spc(spc((NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)spc((NULL)spc((NULL)spc(spc((NULL)spc((NULL)spc((NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)spc(spc((NULL)spc((NULL)spc(
  43. 111 print" [166][218][166][218][166][166][218][166][218][166][166][166][166][166][166][218][166][218][166][166][218][166][218][166][166][166][166][166][166][218][166][218][166][166][218][166][218][166]
  44. 112 [153]" spc((NULL)spc((NULL)(NULL)(NULL)(NULL)spc((NULL)spc((NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)spc((NULL)spc((NULL)(NULL)(NULL)(NULL)spc((NULL)spc(
  45. 113 print" [166][218][166][166][218][166][166][166][218][166][218][166][166][218][166][218][166][218][166][166][218][166][218][166][218][166][166][218][166][218][166][166][166][218][166][166][218][166]
  46. 114 [153]" spc((NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)spc((NULL)spc(spc((NULL)spc((NULL)spc((NULL)spc(spc((NULL)spc((NULL)spc((NULL)spc(spc((NULL)spc((NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)spc(
  47. 115 print" [166][218][166][166][166][166][166][166][218][166][218][166][166][218][166][218][166][218][166][166][218][166][218][166][218][166][166][218][166][218][166][166][166][166][166][166][218][166][166]";
  48. 116 print"[166][166][218][166][218][218][218][218][166][218][166][218][218][218][218][166][218][166][218][218][218][218][166][218][166][218][218][218][218][166][218][166][218][218][218][218][166][218][218][218]";
  49. 117 print"[218][218][218][166][218][166][166][218][218][218][218][218][166][166][218][218][218][166][218][166][166][218][166][218][218][218][166][166][218][218][218][218][218][166][166][218][166][218][166][166]";
  50. 118 print"[166][166][218][166][218][166][166][218][166][218][166][218][218][218][218][166][218][218][218][166][166][218][218][218][166][218][218][218][218][166][218][166][218][166][166][218][166][218][166]
  51. 119 [153]" spc((NULL)spc((NULL)spc(spc((NULL)spc((NULL)spc(spc(spc(spc(spc(spc((NULL)spc((NULL)(NULL)(NULL)(NULL)spc((NULL)spc(spc(spc(spc(spc(spc((NULL)spc((NULL)spc(spc((NULL)spc((NULL)spc(
  52. 120 print" [166][218][218][218][166][166][218][218][218][166][218][218][218][218][166][218][166][166][166][166][166][166][218][166][218][218][218][218][166][218][218][218][166][166][218][218][218][166]
  53. 121 [153]" spc((NULL)spc((NULL)spc(spc((NULL)spc((NULL)spc((NULL)spc(spc((NULL)spc((NULL)spc((NULL)(NULL)(NULL)(NULL)spc((NULL)spc((NULL)spc(spc((NULL)spc((NULL)spc((NULL)spc(spc((NULL)spc((NULL)spc(
  54. 122 print" [166][218][166][218][166][166][218][166][218][166][218][166][166][218][166][218][166][218][166][166][218][166][218][166][218][166][166][218][166][218][166][218][166][166][218][166][218][166]
  55. 123 [153]" spc((NULL)spc((NULL)spc(spc((NULL)spc((NULL)(NULL)(NULL)spc(spc((NULL)(NULL)(NULL)spc((NULL)spc(spc((NULL)spc((NULL)(NULL)(NULL)spc(spc((NULL)(NULL)(NULL)spc((NULL)spc(spc((NULL)spc((NULL)spc(
  56. 124 print" [166][218][166][218][218][218][218][166][218][166][218][166][166][218][166][218][166][218][218][218][218][166][218][166][218][166][166][218][166][218][166][218][218][218][218][166][218][166]
  57. 125 [153]" spc((NULL)spc(spc(spc(spc((NULL)spc((NULL)spc((NULL)spc(spc((NULL)(NULL)(NULL)(NULL)(NULL)spc(spc((NULL)(NULL)(NULL)(NULL)(NULL)spc(spc((NULL)spc((NULL)spc((NULL)spc(spc(spc(spc((NULL)spc(
  58. 126 print" [166][218][218][218][218][218][218][218][218][218][218][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][218][218][218][218][218][218][218][218][218][218][166]
  59. 127 [153]" spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(
  60. 128 :
  61. 130 rem **** place game characters ****     :
  62. 135 ifc>30thenc=30
  63. 140 :    forl=1to(2*c)
  64. 150 x=int(1000*rnd(1))+1024:ifpeek(x)<>90then150
  65. 160 pokex,127:pokex+54272,7:next:forl=1toc
  66. 170 x=int(1000*rnd(1))+1024:ifpeek(x)<>90then170
  67. 180 pokex,31:pokex+54272,4:next:forl=1toc
  68. 190 fly=int(1000*rnd(1))+1024:ifpeek(fly)=90thenpokefly,94:pokefly+54272,1
  69. 195 ifpeek(fly)<>94thengoto190
  70. 200 spi=int(1000*rnd(1))+1024:ifpeek(spi)=90thenpokespi,105:pokespi+54272,1
  71. 205 ho=spi:ifpeek(spi)<>105thengoto200
  72. 210 mc=int(1000*rnd(1))+1024:ifpeek(mc)<>90then210
  73. 220 pokemc,127:pokemc+54272,7
  74. 240 :
  75. 250 rem ******* set timer *************     :
  76. 260 me=ti
  77. 290 :
  78. 500 rem                                         -------------------------------
  79. 501 rem    movement of spider                   -------------------------------
  80. 502 rem                                     :
  81. 505 ifcf=1thenfly=spi
  82. 506 pokeho+54272,1:pokeho,8:poke54272+fly,1
  83. 510 getg$:poke56322,0:j=peek(56320):t=jand16:j=15-(jand15):poke56322,255
  84. 511 ifcm=3thengosub1000
  85. 512 ifcf<>0thenff=0:goto514
  86. 513 ifff=40thengosub1000
  87. 514 ff=ff+1:cm=cm+1:ifcf=1thensc=sc-1
  88. 515 ifg$=" "then7000
  89. 516 print"score:"sc"[157] [166][166][166][166][166][166][166]"
  90. 520 ifj=1thenmove=-40:goto530
  91. 521 ifj=2thenmove=+40:goto530
  92. 522 ifj=4thenmove=-1:goto530
  93. 523 ifj=8thenmove=+1:goto530
  94. 524 ift=16thenpokeho+54272,0:pokefly+54272,0:goto505
  95. 525 goto580
  96. 530 ifpeek((spi+move))=8then5000
  97. 531 ifpeek((spi+move))<>90then600
  98. 540 pokespi,90:pokespi+542