home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / 64er / suburbia / levlcrtr.p00 / level-creator (.txt)
Encoding:
Commodore BASIC  |  1994-09-29  |  3.1 KB  |  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.