home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 March / 64er_Magazin_88-03_1988_Markt__Technik_de_Side_A.d64 / level-creator (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  96 lines
  1. 10 rem*********************************
  2. 20 rem*                               *
  3. 30 rem*   das level construction set  *
  4. 40 rem*                               *
  5. 50 rem*   fuer das spiel  'suburbia'  *
  6. 60 rem*                               *
  7. 70 rem*    (c)'87 by thorsten meier   *
  8. 80 rem*                               *
  9. 90 rem*                               *
  10. 100 rem********************************
  11. 110 poke53,128:poke56,128
  12. 120 ifa=0thenpoke53280,6:poke53281,6:print"[147][154]suburbia construction set by mac meier.
  13. 130 [151]157,192
  14. 140 [151]58631,255
  15. 150 a[178]a[170]1:[139]a[178]1[167][147]"suburbia.crunch",8,1
  16. 160 [139]a[178]2[167][147]"suburbia.script",8,1
  17. 170 [139]a[178]3[167][151]38677,224:[158]38661:[147]"suburbia-level a",8,1
  18. 180 [139]a[178]4[167][151]38677,129:[158]38661:[147]"suburbia-packer",8,1
  19. 190 [159]15,8,15,"m-w
  20. 200 v=53248:z=37404:j1=56320:vi=52224:c=38689
  21. 210 dima(18):forl=0to14:a(l)=(129+l)*256:next:forl=15to18:a(l)=(140+l)*256:next
  22. 220 forl=1to800:next:rem warten bis floppy aus
  23. 230 poke252,0:poke176,0:poke158,0:poke56576,252:poke53272,57:poke648,204
  24. 240 poke888+z,22:poke931+z,241:poke932+z,82:poke182,75
  25. 250 poke873+z,2:poke882+z,33:poke910+z,6:poke911+z,0
  26. 260 poke912+z,14:poke920+z,0:poke921+z,24:poke922+z,24
  27. 270 pokev+34,11:pokev+35,12:poke2,40:poke186,.:poke954+z,160:poke36933,113
  28. 280 print"[155][147][192][193][196][197][200][201][204][205][208][209][212][213][221][221][220][220][255][255]    [169][170][171][172] screen finish[155]";
  29. 290 print"[194][195][198][199][202][203][206][207][210][211][214][215][221][221][220][220][255][255]    [173][174][175][176] clear [144]scroll
  30. 300 [153]"list(NULL)(NULL)(NULL)(NULL)tanatnpeeklen(NULL)(NULL)(NULL) (NULL)closetab(togetnewfnspc( then>=<sgn stopload  save
  31. 310 ifpeek(c)thenpoke646,peek(c+5)
  32. 320 sys49626
  33. 330 poke53240,.:poke53241,.:pokev+21,3:forl=0to63:poke49152+l,.:next
  34. 340 poke49152,255:forl=0to5:poke49155+l*3,129:next:poke49152+21,255
  35. 350 pokev,24:pokev+1,50:pokev+2,24:pokev+3,50:pokev+39,1:pokev+40,0:pokev+16,0
  36. 360 sys38224
  37. 370 j=peek(j1):if(jand16)=.goto430
  38. 380 if(jand4)=.thenpoke182,(peek(182)-1)and255
  39. 390 if(jand8)=.thenpoke182,(peek(182)+1)and255
  40. 400 poke53280,6:ifpeek(182)=75thenpoke53280,2
  41. 410 geta$:ifa$<>""thengosub720
  42. 420 sys37024:goto370
  43. 430 x=peek(v):y=peek(v+1):goto530
  44. 440 j=peek(j1):geta$:ifa$<>""thengosub720
  45. 450 if(jand1)=.theny=y-8:ify<50theny=226
  46. 460 if(jand2)=.theny=y+8:ify>226theny=50
  47. 470 if(jand4)=.thenx=x-8:ifx<24thenx=336
  48. 480 if(jand8)=.thenx=x+8:ifx>336thenx=24
  49. 490 pokev+1,y:ifx<256thenpokev,x:pokev+16,peek(v+16)and254
  50. 500 ifx>255thenpokev+16,peek(v+16)or1:pokev,x-256
  51. 510 if(jand16)=.goto530
  52. 520 goto440
  53. 530 ify>80goto600
  54. 540 ify=58thenifx<240goto440
  55. 550 ify=50thenpokev+23,3:pokev+29,3
  56. 560 ify=66thenpokev+23,.:pokev+29,.
  57. 570 pokev+2,peek(v):pokev+3,peek(v+1):pokev+16,3*(peek(v+16)and1)
  58. 580 ifx>232goto660
  59. 590 goto440
  60. 600 x1=peek(v+2):y1=peek(v+3)
  61. 610 w=vi+int(x-24)/8+40*(y-50)/8:r=vi+int(x1-24)/8+40*(y1-50)/8
  62. 620 ify1>50thenpokew,peek(r)
  63. 630 ify1<>50 or x>335 or y>225goto650
  64. 640 pokew,peek(r):pokew+1,peek(r+1):pokew+40,peek(r+40):pokew+41,peek(r+41)
  65. 650 goto440
  66. 660 ify=58thenifx>280thenwaitj1,16,0:goto350
  67. 670 ify=58thensys49601:goto440
  68. 680 ify=50thengosub780
  69. 690 ify=66thenifx>282thenpokec+5,peek(55666):goto870
  70. 700 ify=66goto810
  71. 710 goto440
  72. 720 ifa$="1"thenpokev+34,(peek(v+34)+1)and15
  73. 730 ifa$="2"thenpokev+35,(peek(v+35)+1)and15
  74. 740 ifa$="3"thenpoke646,(peek(646)+1)and15:sys49626
  75. 750 ifa$="4"thenpoke911+z,(peek(911+z)+1)and15
  76. 760 ifa$="5"thenpoke912+z,(peek(912+z)+1)and15
  77. 770 return
  78. 780 forl=0to39:poke53280,l:form=0to18
  79. 790 pokea(m)+((l+peek(182)-39)and255),peek(vi+(4+m)*40+l):next:next:poke53280,6
  80. 800 goto440
  81. 810 sys38398:pokev+22,8:poke53281,6:pokev+21,.:print"[147][154]
  82. 820 [133]"load level no.";a
  83. 830 [158]57812"suburbia-level "[170][199](a[170]64),8,1:[151]780,.:[158]65493
  84. 840 [139][194](c)[178]0[137]860
  85. 850 [151]911[170]z,[194](c[170]1):[151]912[170]z,[194](c[170]2):[151]v[170]34,[194](c[170]3):[151]v[170]35,[194](c[170]4)
  86. 860 [151]38677,129:[158]38661:[137]230
  87. 870 [158]38398:[151]v[170]22,8:[151]53281,6:[151]v[170]21,.:[153]"loadcont
  88. 880 w=0:input"wieviele mauern ";w:ifw=0goto230
  89. 890 poke36960,w
  90. 900 input"save level no.";a
  91. 910 pokec,1:pokec+1,peek(911+z):pokec+2,peek(912+z):pokec+3,peek(v+34)
  92. 920 pokec+4,peek(v+35):poke36933,49
  93. 930 print#15,"s:suburbia-level "+chr$(a+64)
  94. 940 sys49408:sys49652"suburbia-level "+chr$(a+64),8
  95. 950 goto230
  96.