5 'Nawatobi Sacchan Plus 10 POKE #700,15,16,31,31,63,255,127,255,0,0,248,254,254,239,247,251 20 POKE #710,207,119,107,87,72,176,160,87,203,187,77,165,69,130,106,20 30 POKE #720,163,223,92,55,47,31,127,207,19,243,22,236,244,244,248,252 40 POKE #730,53,72,40,27,4,4,2,1,250,145,138,108,144,144,188,206 50 POKE #740,15,16,31,31,63,255,127,255,0,0,248,254,254,239,247,251 60 POKE #750,226,93,98,72,72,136,160,87,59,221,61,151,134,132,86,43 70 POKE #760,35,23,28,15,55,111,111,255,23,241,16,248,236,246,247,255 80 POKE #770,233,73,137,246,9,9,31,62,39,19,18,254,32,32,240,248 90 FOR I=0 TO 1:FOR J=0 TO 3:T=#E0+I*8+J*2:POKE #780+I*21+J*5,T,T+1,31,28,28:NEXT:NEXT 100 'The following code is based on "Nawatobi Sacchan" - CC BY PCN 110 Y=18:V=99:X=15:U=5:S=0 120 IF V!=99 Y=Y+V:V=V+1 130 IF Y>18 Y=18:V=99:S=S+1 140 X=X+U 150 IF X>15 U=U-1 160 IF X<15 U=U+1 170 IF INKEY()=32 V=-3 180 CLS 190 LC 15,Y:?STR$(#780+(V=99)*21,17); 200 LC X,22:?"-"; 210 LC 0,0:?"SCORE:";S 220 IF Y=18 AND X=15 END 230 WAIT 5 : GOTO 120
「縄跳びさっちゃん」の改造、ありがとうございます! ものすごくかわいらしくなりましたね。やはりグラフィックは素敵な方が面白い!