dodałem drobiazg na PMG...
ps1) mono nie wiem tylko czy nie dodawałem zmian kiedy Ty robiłeś poprawki, mam nadzieję że nie bo będzie trzeba merge robić :P
ps2) widzę że Sikor też w międzczasie dodał coś od siebie, to co wklejałem poniżej nie ma jego zmian, zatem pozostaje merge. Kto robi? bo jak się zabiorą znowu dwie osoby to będzie rzeźnia :P @mono poprawisz?
1 GRAPHICS 9:POKE 106,PEEK(106)-16:GRAPHICS 9:REM -- set the mode by Adam K.
10010 GOSUB 31900:GOSUB 32000:Z20=20:POKE Z20,X:C20=X
11000 FOR Z=Z0 TO Z1:T20=PEEK(Z20):POKE PM0,T20:IF T20<>C20 THEN C20=T20:C=C+Z1
29800 IF C<Z6 THEN Z=Z0:NEXT Z
29810 C=0
29820 IF T0=Z0 THEN P0=F(N):V0=VF(N):S0=VT(N):T0=L(N):POKE PF0,P0:N=N+Z1:IF N>E THEN N=Z0
29830 POKE PC0,V0:IF V0>S0 THEN V0=V0-Z2
29840 T0=T0-Z1
29850 IF T1=Z0 THEN P1=F(N):V1=VF(N):S1=VT(N):T1=L(N):POKE PF1,P1:N=N+Z1:IF N>E THEN N=Z0
29860 POKE PC1,V1:IF V1>S1 THEN V1=V1-Z2
29870 T1=T1-Z1
29880 IF T2=Z0 THEN P2=F(N):V2=VF(N):S2=VT(N):T2=L(N):POKE PF2,P2:N=N+Z1:IF N>E THEN N=Z0
29890 POKE PC2,V2:IF V2>S2 THEN V2=V2-Z2
29900 T2=T2-Z1
29910 IF T3=Z0 THEN P3=F(N):V3=VF(N):S3=VT(N):T3=L(N):POKE PF3,P3:N=N+Z1:IF N>E THEN N=Z0
29920 POKE PC3,V3:IF V3>S3 THEN V3=V3-Z2
29930 T3=T3-Z1
29980 IF PEEK(GC)=7 THEN Z=Z0:NEXT Z
29990 END
31900 REM -- let's start by Seban/Slt -- +sound by Mq
31901 DL=PEEK(560)+256*PEEK(561)
31902 FOR I=1536 TO 1548:READ A:POKE I,A:NEXT I:POKE DL+134,143:POKE 512,0:POKE 513,6:POKE 54286,192
31903 FOR Y=128 TO 191
31904 COLOR Y/4:PLOT 0,Y:DRAWTO 79,Y
31905 R=RND(0)*79:COLOR R
31906 PLOT R,RND(0)*127
31907 SOUND 0,4,5,Y:NEXT Y
31908 FOR X=60 TO 76
31909 COLOR X+3:PLOT X/1.5,128:DRAWTO X,191
31910 SOUND 0,7,8,X:NEXT X
31911 FOR X=0 TO 31
31912 COLOR X/2:PLOT 30,12:DRAWTO X+14,51:DRAWTO 30,91
31913 SOUND 0,1,2,X:NEXT X:SOUND 0,0,0,0
31914 DATA 72,169,192,141,27,208,169,4,141,26,208,104,64
31920 REM -- PMG init --
31921 X=48:PM0=53248:POKE 54279,PEEK(106):POKE 559,58:POKE 704,56:POKE 53277,2:POKE 53256,1: POKE PM0,X
31922 DIM T$(32):T$="BEHIND JAGGI LINES!":PM0A=(PEEK(106)+4)*256+32
31923 FOR I=1 TO LEN(T$)
31924 A=57344+(ASC(T$(I))-32)*8
31925 FOR J=0 TO 7:POKE PM0A+J,PEEK(A+J)
31926 NEXT J:PM0A=PM0A+8:NEXT I
31927 RETURN
31915 REM -- end of let's start --
31990 REM -- Mono part
32000 Z0=0:Z1=1:Z2=2:Z6=6:T0=Z0:T1=Z0:T2=Z0:T3=Z0
32010 GC=53279:PF0=53760:PC0=PF0+Z1:PF1=PC0+Z1:PC1=PF1+Z1:PF2=PC1+Z1:PC2=PF2+Z1:PF3=PC2+Z1:PC3=PF3+Z1
32020 E=409:DIM F(E),VF(E),VT(E),L(E):RESTORE 32050
32030 FOR I=Z0 TO E:SOUND Z0,Z2,10,Z6*RND(Z0):READ F,VF,VT,L:F(I)=F:VF(I)=VF:VT(I)=VT:L(I)=L:NEXT I
32040 C=Z0:N=Z0:RETURN
32050 DATA 255,168,161,4
32051 DATA 0,160,160,32
32052 DATA 0,160,160,32
32053 DATA 0,160,160,32
32054 DATA 128,168,161,4
32055 DATA 173,168,161,4
32056 DATA 162,168,161,4
32057 DATA 255,168,161,4
32058 DATA 128,168,161,4
32059 DATA 173,168,161,4
32060 DATA 162,168,161,4
32061 DATA 255,168,161,4
32062 DATA 0,160,160,32
32063 DATA 85,170,162,4
32064 DATA 64,170,162,4
32065 DATA 128,168,161,4
32066 DATA 96,170,162,4
32067 DATA 72,170,162,4
32068 DATA 173,168,161,4
32069 DATA 85,170,162,8
32070 DATA 64,170,162,8
32071 DATA 162,168,161,4
32072 DATA 255,168,161,4
32073 DATA 0,160,160,16
32074 DATA 0,160,160,16
32075 DATA 128,168,161,4
32076 DATA 173,168,161,4
32077 DATA 162,168,161,4
32078 DATA 255,168,161,4
32079 DATA 0,160,160,32
32080 DATA 85,170,162,4
32081 DATA 64,170,162,4
32082 DATA 128,168,161,4
32083 DATA 96,170,162,4
32084 DATA 72,170,162,4
32085 DATA 173,168,161,4
32086 DATA 85,170,162,8
32087 DATA 64,170,162,8
32088 DATA 162,168,161,4
32089 DATA 255,168,161,4
32090 DATA 0,160,160,16
32091 DATA 0,160,160,16
32092 DATA 128,168,161,4
32093 DATA 173,168,161,4
32094 DATA 162,168,161,4
32095 DATA 193,168,161,4
32096 DATA 0,160,160,32
32097 DATA 64,170,162,2
32098 DATA 47,170,162,2
32099 DATA 64,170,162,2
32100 DATA 47,170,162,2
32101 DATA 96,168,161,4
32102 DATA 64,170,162,2
32103 DATA 47,170,162,2
32104 DATA 64,170,162,2
32105 DATA 47,170,162,2
32106 DATA 193,168,161,4
32107 DATA 72,170,162,4
32108 DATA 53,170,162,4
32109 DATA 96,168,161,4
32110 DATA 64,170,162,4
32111 DATA 47,170,162,4
32112 DATA 193,168,161,4
32113 DATA 64,170,162,2
32114 DATA 47,170,162,2
32115 DATA 64,170,162,2
32116 DATA 47,170,162,2
32117 DATA 96,168,161,4
32118 DATA 64,170,162,2
32119 DATA 47,170,162,2
32120 DATA 64,170,162,2
32121 DATA 47,170,162,2
32122 DATA 193,168,161,4
32123 DATA 72,170,162,4
32124 DATA 53,170,162,4
32125 DATA 96,168,161,4
32126 DATA 64,170,162,4
32127 DATA 47,170,162,4
32128 DATA 255,168,161,4
32129 DATA 64,168,160,2
32130 DATA 85,170,162,4
32131 DATA 64,170,162,4
32132 DATA 108,168,160,2
32133 DATA 128,168,161,4
32134 DATA 85,168,160,2
32135 DATA 96,170,162,4
32136 DATA 72,170,162,4
32137 DATA 81,168,160,2
32138 DATA 173,168,161,4
32139 DATA 85,168,160,2
32140 DATA 85,170,162,8
32141 DATA 64,170,162,8
32142 DATA 108,168,160,2
32143 DATA 162,168,161,4
32144 DATA 57,168,160,2
32145 DATA 64,168,160,2
32146 DATA 255,168,161,4
32147 DATA 0,160,160,16
32148 DATA 0,160,160,16
32149 DATA 0,160,160,16
32150 DATA 128,168,161,4
32151 DATA 173,168,161,4
32152 DATA 162,168,161,4
32153 DATA 255,168,161,4
32154 DATA 64,168,160,2
32155 DATA 85,170,162,4
32156 DATA 64,170,162,4
32157 DATA 108,168,160,2
32158 DATA 128,168,161,4
32159 DATA 85,168,160,2
32160 DATA 96,170,162,4
32161 DATA 72,170,162,4
32162 DATA 81,168,160,2
32163 DATA 173,168,161,4
32164 DATA 85,168,160,2
32165 DATA 85,170,162,8
32166 DATA 64,170,162,8
32167 DATA 108,168,160,2
32168 DATA 162,168,161,4
32169 DATA 57,168,160,2
32170 DATA 64,168,160,2
32171 DATA 255,168,161,4
32172 DATA 0,160,160,16
32173 DATA 0,160,160,16
32174 DATA 0,160,160,16
32175 DATA 128,168,161,4
32176 DATA 173,168,161,4
32177 DATA 162,168,161,4
32178 DATA 193,168,161,4
32179 DATA 19,168,160,1
32180 DATA 64,170,162,2
32181 DATA 47,170,162,2
32182 DATA 23,168,160,1
32183 DATA 31,168,160,1
32184 DATA 64,170,162,2
32185 DATA 47,170,162,2
32186 DATA 40,168,160,1
32187 DATA 96,168,161,4
32188 DATA 47,168,160,1
32189 DATA 64,170,162,2
32190 DATA 47,170,162,2
32191 DATA 64,168,160,1
32192 DATA 81,168,160,1
32193 DATA 64,170,162,2
32194 DATA 47,170,162,2
32195 DATA 96,168,160,1
32196 DATA 193,168,161,4
32197 DATA 0,160,160,8
32198 DATA 72,170,162,4
32199 DATA 53,170,162,4
32200 DATA 96,168,161,4
32201 DATA 64,170,162,4
32202 DATA 47,170,162,4
32203 DATA 193,168,161,4
32204 DATA 19,168,160,1
32205 DATA 64,170,162,2
32206 DATA 47,170,162,2
32207 DATA 23,168,160,1
32208 DATA 31,168,160,1
32209 DATA 64,170,162,2
32210 DATA 47,170,162,2
32211 DATA 40,168,160,1
32212 DATA 96,168,161,4
32213 DATA 47,168,160,1
32214 DATA 64,170,162,2
32215 DATA 47,170,162,2
32216 DATA 64,168,160,1
32217 DATA 81,168,160,1
32218 DATA 64,170,162,2
32219 DATA 47,170,162,2
32220 DATA 96,168,160,1
32221 DATA 193,168,161,4
32222 DATA 0,160,160,8
32223 DATA 72,170,162,4
32224 DATA 53,170,162,4
32225 DATA 96,168,161,4
32226 DATA 64,170,162,4
32227 DATA 47,170,162,4
32228 DATA 114,168,161,2
32229 DATA 173,168,161,2
32230 DATA 68,168,162,8
32231 DATA 85,168,162,8
32232 DATA 114,168,161,2
32233 DATA 173,168,161,2
32234 DATA 114,168,161,2
32235 DATA 173,168,161,2
32236 DATA 114,168,161,2
32237 DATA 173,168,161,2
32238 DATA 128,168,161,4
32239 DATA 193,168,161,4
32240 DATA 76,168,162,4
32241 DATA 96,168,162,4
32242 DATA 114,168,161,4
32243 DATA 173,168,161,4
32244 DATA 68,168,162,4
32245 DATA 85,168,162,4
32246 DATA 114,168,161,2
32247 DATA 173,168,161,2
32248 DATA 68,168,162,8
32249 DATA 57,168,162,8
32250 DATA 114,168,161,2
32251 DATA 173,168,161,2
32252 DATA 114,168,161,2
32253 DATA 173,168,161,2
32254 DATA 114,168,161,2
32255 DATA 173,168,161,2
32256 DATA 128,168,161,4
32257 DATA 193,168,161,4
32258 DATA 76,168,162,4
32259 DATA 64,168,162,4
32260 DATA 114,168,161,4
32261 DATA 173,168,161,4
32262 DATA 68,168,162,4
32263 DATA 57,168,162,4
32264 DATA 114,168,161,2
32265 DATA 173,168,160,2
32266 DATA 68,170,162,12
32267 DATA 42,170,162,12
32268 DATA 114,168,161,2
32269 DATA 173,168,160,2
32270 DATA 114,168,161,2
32271 DATA 173,168,160,2
32272 DATA 114,168,161,2
32273 DATA 173,168,160,2
32274 DATA 128,168,161,4
32275 DATA 193,168,160,4
32276 DATA 114,168,161,4
32277 DATA 173,168,160,4
32278 DATA 0,160,160,4
32279 DATA 0,160,160,4
32280 DATA 173,168,161,2
32281 DATA 20,168,160,1
32282 DATA 20,170,162,1
32283 DATA 31,170,162,1
32284 DATA 28,168,160,1
32285 DATA 42,170,162,1
32286 DATA 64,170,162,1
32287 DATA 173,168,161,2
32288 DATA 33,168,160,1
32289 DATA 0,160,160,4
32290 DATA 0,160,160,4
32291 DATA 42,168,160,1
32292 DATA 173,168,161,2
32293 DATA 57,168,160,1
32294 DATA 68,168,160,1
32295 DATA 173,168,161,2
32296 DATA 85,168,160,1
32297 DATA 20,170,162,1
32298 DATA 31,170,162,1
32299 DATA 114,168,160,1
32300 DATA 42,170,162,1
32301 DATA 64,170,162,1
32302 DATA 173,168,161,2
32303 DATA 85,168,160,2
32304 DATA 0,160,160,4
32305 DATA 0,160,160,4
32306 DATA 0,160,160,6
32307 DATA 0,160,160,6
32308 DATA 0,160,160,4
32309 DATA 0,160,160,4
32310 DATA 255,167,161,4
32311 DATA 64,164,160,2
32312 DATA 85,169,162,4
32313 DATA 64,169,162,4
32314 DATA 108,164,160,2
32315 DATA 128,167,161,4
32316 DATA 85,164,160,2
32317 DATA 96,169,162,4
32318 DATA 72,169,162,4
32319 DATA 81,164,160,2
32320 DATA 173,167,161,4
32321 DATA 85,164,160,2
32322 DATA 85,169,162,8
32323 DATA 64,169,162,8
32324 DATA 108,164,160,2
32325 DATA 162,167,161,4
32326 DATA 57,164,160,2
32327 DATA 64,164,160,2
32328 DATA 255,167,161,4
32329 DATA 0,160,160,16
32330 DATA 0,160,160,16
32331 DATA 0,160,160,16
32332 DATA 128,167,161,4
32333 DATA 173,167,161,4
32334 DATA 162,167,161,4
32335 DATA 255,167,161,4
32336 DATA 64,164,160,2
32337 DATA 85,169,162,4
32338 DATA 64,169,162,4
32339 DATA 108,164,160,2
32340 DATA 128,167,161,4
32341 DATA 85,164,160,2
32342 DATA 96,169,162,4
32343 DATA 72,169,162,4
32344 DATA 81,164,160,2
32345 DATA 173,167,161,4
32346 DATA 85,164,160,2
32347 DATA 85,169,162,8
32348 DATA 64,169,162,8
32349 DATA 108,164,160,2
32350 DATA 162,167,161,4
32351 DATA 57,164,160,2
32352 DATA 64,164,160,2
32353 DATA 255,167,161,4
32354 DATA 0,160,160,16
32355 DATA 0,160,160,16
32356 DATA 0,160,160,16
32357 DATA 128,167,161,4
32358 DATA 173,167,161,4
32359 DATA 162,167,161,4
32360 DATA 255,165,161,4
32361 DATA 64,163,160,2
32362 DATA 85,167,162,4
32363 DATA 64,167,162,4
32364 DATA 108,163,160,2
32365 DATA 128,165,161,4
32366 DATA 85,163,160,2
32367 DATA 96,167,162,4
32368 DATA 72,167,162,4
32369 DATA 81,163,160,2
32370 DATA 173,165,161,4
32371 DATA 85,163,160,2
32372 DATA 85,167,162,8
32373 DATA 64,167,162,8
32374 DATA 108,163,160,2
32375 DATA 162,165,161,4
32376 DATA 57,163,160,2
32377 DATA 64,163,160,2
32378 DATA 255,165,161,4
32379 DATA 0,160,160,16
32380 DATA 0,160,160,16
32381 DATA 0,160,160,16
32382 DATA 128,165,161,4
32383 DATA 173,165,161,4
32384 DATA 162,165,161,4
32385 DATA 255,165,161,4
32386 DATA 64,163,160,2
32387 DATA 85,167,162,4
32388 DATA 64,167,162,4
32389 DATA 108,163,160,2
32390 DATA 128,165,161,4
32391 DATA 85,163,160,2
32392 DATA 96,167,162,4
32393 DATA 72,167,162,4
32394 DATA 81,163,160,2
32395 DATA 173,165,161,4
32396 DATA 85,163,160,2
32397 DATA 85,167,162,8
32398 DATA 64,167,162,8
32399 DATA 108,163,160,2
32400 DATA 162,165,161,4
32401 DATA 57,163,160,2
32402 DATA 64,163,160,2
32403 DATA 255,165,161,4
32404 DATA 0,160,160,16
32405 DATA 0,160,160,16
32406 DATA 0,160,160,16
32407 DATA 128,165,161,4
32408 DATA 173,165,161,4
32409 DATA 162,165,161,4
32410 DATA 255,163,161,4
32411 DATA 64,162,160,2
32412 DATA 85,164,161,4
32413 DATA 64,164,161,4
32414 DATA 108,162,160,2
32415 DATA 128,163,161,4
32416 DATA 85,162,160,2
32417 DATA 96,164,161,4
32418 DATA 72,164,161,4
32419 DATA 81,162,160,2
32420 DATA 173,163,161,4
32421 DATA 85,162,160,2
32422 DATA 85,164,161,8
32423 DATA 64,164,161,8
32424 DATA 108,162,160,2
32425 DATA 162,163,161,4
32426 DATA 57,162,160,2
32427 DATA 64,162,160,2
32428 DATA 255,163,161,4
32429 DATA 0,160,160,16
32430 DATA 0,160,160,16
32431 DATA 0,160,160,16
32432 DATA 128,163,161,4
32433 DATA 173,163,161,4
32434 DATA 162,163,161,4
32435 DATA 255,163,161,4
32436 DATA 64,162,160,2
32437 DATA 85,164,161,4
32438 DATA 64,164,161,4
32439 DATA 108,162,160,2
32440 DATA 128,163,161,4
32441 DATA 85,162,160,2
32442 DATA 96,164,161,4
32443 DATA 72,164,161,4
32444 DATA 81,162,160,2
32445 DATA 173,163,161,4
32446 DATA 85,162,160,2
32447 DATA 85,164,161,8
32448 DATA 64,164,161,8
32449 DATA 108,162,160,2
32450 DATA 162,163,161,4
32451 DATA 57,162,160,2
32452 DATA 64,162,160,2
32453 DATA 255,163,161,4
32454 DATA 0,160,160,16
32455 DATA 0,160,160,16
32456 DATA 0,160,160,16
32457 DATA 128,163,161,4
32458 DATA 173,163,161,4
32459 DATA 162,163,161,4
32460 REM -- end of Mono part
32760 REM --
32761 REM PRIMA APRILIS COMPO 2024 BY
32762 REM Mono, Adam Klobukowski, Seban/Slt, Mq