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

2022/07/31 18:06:36

MixJuice GET URL : kidspod.club/mj/2130

押すだけ ステージ3

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

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

IchigoJam webでの動物コードは、
「クスクス」「ツパイ」「クロサイ」
です。IchigoJam webの象のマークから読み込んでください。

  • 1
  • 2
  • 1
  • 2

SOURCE CODE

POKE#F0A,16,11
POKE#F0C,0,0,0,0,0,0,0,0,0,0
POKE#F16,0,0,0,0,0,0,0,0,0,0
POKE#F20,0,0,0,0,0,0,0,0,0,0
POKE#F2A,0,0,0,0,0,0,0,0,0,0
POKE#F34,0,0,0,6,6,6,6,6,0,0
POKE#F3E,0,0,0,6,0,0,231,6,0,0
POKE#F48,0,0,0,6,0,232,0,6,0,0
POKE#F52,0,0,0,6,231,232,0,6,0,0
POKE#F5C,0,0,0,6,6,6,6,6,0,0
POKE#F66,0,0,0,0,0,0,0,0,0,0
POKE#F70,0,0,0,0,0,0,0,0,0,0
POKE#F7A,0,0,0,0,0,0,0,0,0,0
POKE#F84,13,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,6,6,6,6,0,0
POKE#FA4,0,0,0,6,6,0,231,6,0,0
POKE#FAE,0,0,6,6,0,0,231,6,0,0
POKE#FB8,0,6,6,0,0,0,0,6,0,0
POKE#FC2,0,6,0,232,0,0,6,6,0,0
POKE#FCC,0,6,0,232,0,6,6,0,0,0
POKE#FD6,0,6,0,0,6,6,0,0,0,0
POKE#FE0,0,6,6,6,6,0,0,0,0,0
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