Here is the listing of 'SKY', as published in MSXFAN 13 (Oktober, 1992)
1 SCREEN1,0:COLOR15,5,10:KEYOFF:DEFINTA-Z:SPRITE$(0)="<~~<":FORI=0TO7:VPOKEI+840,ASC(MID$("ff"+STRING$(4,0),I+1,1)):NEXT:FORI=1TO3:VPOKE8205+I,ASC(MID$("Dェ・",I,1)):NEXT:DEFFNR(A)=RND(1)*A 2 WIDTH32:FORI=-1TO0:I=STRIG(0):NEXT:E$=CHR$(27)+"Y":PRINTE$"+*TRY STAGE";U+1:GOSUB6:CLS:X=127:Y=120:F=8:LOCATEU*2+4,16:PRINTSTRING$(24-U*4,"i"):PRINTE$"3 "STRING$(128,"p");CHR$(11) 3 S=STICK(0):G=G-(S=3)+(S=7):X=X+G:Y=Y-F:F=F+1*(F>-8):PUTSPRITE0,(X-3,Y-1),8:V=VPEEK(6144+X\8+(Y\8+1)*32):IFV=105THENLOCATEX\8,Y\8+1:PRINT" ":BEEP:LOCATEFNR(30)+1,FNR(12)+6:P=P+9+F:F=8:IFC<20THENPRINT"i":C=C+1ELSEPRINT"・ELSEIFV=133THEN5 4 PRINTE$"##SCORE";P*10:IFY>151ORX<4ORX>251THENPUTSPRITE0,(0,209):H=H-(P-H)*(P>H):PRINTE$"%#HIGH ";H*10:PRINTE$"++GAME OVER":GOSUB6:P=0:G=0:C=0:U=0:GOTO1ELSE3 5 G=0:C=0:PRINTE$"+)STAGE";U+1;"CLEAR!":IFU<4THENGOSUB6:U=U+1:CLS:GOTO2ELSEPRINTE$"-+ALL CLEAR!":GOSUB6:P=0:U=0:GOTO1 6 R=RND(-TIME):IFSTRIG(0)THENRETURNELSE6
Here is the listing of 'Mururoa', as released by Near Dark to the MRC Bounce Challenge in 2004.
10 ' BOUNCING SMILE --- PROGRAMMED BY IVOR BOSLOPER 20 ' MUSIC BY JELLE JELSMA 30 ' COPYRIGHTS BY NEAR DARK 1995 40 ' 50 ' ALLRIGHT !!!! IT'S PUBLIC DOMAIN !!!!!! 60 ' 70 BLOAD"mururoa.001",R 80 IFINP(&HC0)=255THEN90ELSE_MBKLOAD("mururoa.002") 90 IFPEEK(&HF9FF)=0THEN_MBMLOAD("mururoa.004") 100 IFPEEK(&HF9FF)=2THEN_MBMLOAD("mururoa.003") 110 DEFINTA-Z:SCREEN1 120 WIDTH32 130 SCREEN1,0:A$="-8):PUTSPRITE0,(X-3,Y-1),8:V=VPEEK(6144+X\8+(Y\8+1)*32):IFV=105THENLOCATEX\8,Y\8+1:PRINT" ":LOCATERND(1)*30+1,RND(1)*12+6:P=P+9+F:F=8:IFC<20THENPRINT"i":C=C+1ELSEPRINT"z"ELSEIFV=122THEN180 170 PRINTE$"##SCORE";P*10:IFY>151THENPUTSPRITE0,(0,209):H=H-(P-H)*(P>H):PRINTE$"%#HIGH ";H*10:PRINTE$"++GAME OVER":GOSUB190:P=0:G=0:C=0:GOTO140ELSE200 180 G=0:C=0:PRINTE$"+)STAGE";U+1;"CLEAR!":IFU<4THENGOSUB190:U=U+1:CLS:GOTO150ELSEPRINTE$"-+ALL CLEAR!":GOSUB190:P=0:U=0:GOTO140 190 R=RND(-TIME):IFSTRIG(0)THENRETURNELSE190 200 'REM player 2 210 'S=STICK(2):Q=Q-(S=3)+(S=7):Z=Z+QAND255:B=B-L:L=L+1*(L>-8):PUTSPRITE1,(Z-3,B-1),12:E=VPEEK(6144+Z\8+(B\8+1)*32):IFE=105THENLOCATEZ\8,B\8+1:PRINT" ":LOCATERND(1)*30+1,RND(1)*12+6:R=R+9+L:L=8:IFT<20THENPRINT"i":T=T+1ELSEPRINT"z"ELSEIFE=122THEN200 220 SPRITEON:IFB>151THENPUTSPRITE1,(0,209):J=J-(R-J)*(R>J):PRINTE$"++GAME OVER":GOSUB190:R=0:Q=0:T=0:D=0:GOTO140ELSE160 230 Q=0:T=0:PRINTE$"+)STAGE";D+1;"CLEAR!":IFD<4THENGOSUB190:D=D+1:CLS:GOTO150ELSEPRINTE$"-+ALL CLEAR!":GOSUB190:R=0:GOTO140 240 SPRITEOFF:SWAPX,Z:SWAPY,B:RETURN
As you can see the listings are strikingly similar, which is the reason why Mururoa has been disqualified for the MRC Bounce Challenge.
Для того, чтобы оставить комментарий, необходимо регистрация или !login