Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2023/07/20 13:51:55

MixJuice GET URL : kidspod.club/mj/2205

押すだけ ステージ6

押すだけ(プログラム番号2128)の別ステージ、第6弾です。

上下左右キーでキャラクターを動かして、丸をスペードの位置まで移動させます。
キャラクターは丸を押して動かすだけで、引くことはできません。
また、2つ以上押して運ぶことはできません。
戻る事もできませんが、スペースキーでリセットすることができます。
動いた数が、右上の「COUNT:」に表示されます。

今回のステージは少々難しいので、ヒントを書いておきます。
1つ目の部屋は、30行目を見ればわかると思います。
2つ目の部屋は、キャラクターがPOKEではなく?で表示されていて;がついていないこと、ダイヤは位置が移動しないことに注目してください。

IchigoJam webでの動物コードは、
「シャチ」「ミンク」「スイギュウ」
です。IchigoJam webの象のマークから読み込んでください。

  • 1
  • 2
  • 1
  • 2

SOURCE CODE

POKE#F0A,12,16
POKE#F0C,6,6,6,6,6,6,6,6,6,6
POKE#F16,6,6,6,6,0,0,0,0,0,6
POKE#F20,6,6,231,6,0,0,0,0,0,6
POKE#F2A,6,6,224,6,0,0,0,0,0,6
POKE#F34,6,0,0,0,0,6,6,6,0,6
POKE#F3E,6,0,0,0,0,224,232,224,0,6
POKE#F48,6,0,0,0,0,6,6,6,0,6
POKE#F52,6,0,0,0,0,0,0,0,0,6
POKE#F5C,6,6,6,6,0,0,0,0,0,6
POKE#F66,6,0,0,6,0,0,0,0,0,6
POKE#F70,6,0,0,224,0,0,0,0,0,6
POKE#F7A,6,6,6,6,6,6,6,6,6,6
POKE#F84,15,14
POKE#F86,0,0,0,0,0,0,0,0,0,0
POKE#F90,0,0,0,0,0,0,0,0,0,0
POKE#F9A,0,0,0,0,0,0,0,0,0,0
POKE#FA4,6,6,6,6,6,6,6,6,6,6
POKE#FAE,6,0,0,0,0,231,6,6,231,6
POKE#FB8,6,0,0,0,0,0,6,6,0,6
POKE#FC2,6,0,232,0,0,0,6,6,0,6
POKE#FCC,6,6,6,6,6,0,6,6,0,6
POKE#FD6,0,0,0,0,0,6,6,6,232,6
POKE#FE0,0,0,0,0,0,0,0,6,6,6
POKE#FEA,0,0,0,0,0,0,0,0,0,0
POKE#FF4,0,0,0,0,0,0,0,0,0,0

10 'JUST PUSH
20 CLV:F=#F0C
30 CLP:COPY#700,#30,8
40 CLS:FORI=0TO11:COPY#9CB+I*32,I*10+F,10:NEXT
50 FORY=6TO16:FORX=11TO21:LCX,Y:S=SCR():IFS=231ORS=233P=P+1:[P]=POS()
60 NEXT:NEXT:A=PEEK(F-2):B=PEEK(F-1):GOTO170
70 K=INKEY():IF!KCONT
80 IFK=32M=0:GOTO40
90 C=0:D=0:K=K-28
100 C=-(!K)+(K=1):A=X+C
110 D=-(K=2)+(K=3):B=Y+D
120 V=SCR(A,B)
130 IFV=6A=X:B=Y:GOTO70
140 Q=SCR(A+C,B+D)
150 IFV=232ORV=233IFQ=231OR!QLCA+C,B+D:?CHR$(232)ELSEA=X:B=Y:GOTO70
160 M=M+1
170 LCX,Y:?CHR$(0):LCA,B:?CHR$(237):X=A:Y=B
180 S=0:FORI=1TOP:LC[I]:IFSCR()=232ORSCR()=233?CHR$(233):S=S+1ELSEIFSCR()!=237?CHR$(231)
190 NEXT:LC0:?"COUNT",M:IFS=PIFF=#F0C:CLV:F=#F86:GOTO40ELSEEND
200 GOTO70

COMMENT