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 or register to post comments