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

2023/01/15 17:53:48

MixJuice GET URL : kidspod.club/mj/2173

荷物運びパズル

■説明
いちごをGに運ぶゲームです。
2人のキャラを操作してクリアを目指して下さい。
#とイチゴは押すと動きます。
上に何か乗っていると動かせません。
全部で4面あります。


■操作
7:左ななめ上  9:右ななめ上
4:左      6:右

C:キャラチェンジ

G:やりなおし

  • 1
  • 1

SOURCE CODE

1 CLV:LET[3],20480,1280,80,4,0,890,498,0,13056,5456,16384,48,5397,0,4417,1082,401,0,48,5204,0,0,17684,65,4096,1065,3860,48,340,12292,21508,84,1344,12,4420,1764,4076
2 CLS:A=35:D=32:E=237:F=255:VIDEO3:FORI=0TO9:FORJ=0TO9:LCJ,I:?CHR$(6):NEXT:NEXT:FORI=0TO7:FORJ=0TO7:U=[M*10+I]>>(J*2)&3:LCJ+1,I+1:?CHR$((U=3)*A+(U=1)*6+!U*D):NEXT:NEXT
3 U=[M*10+8]:V=[M*10+9]:X=U>>3&7+1:Y=U&7+1:G=U>>9+1:H=U>>6&7+1:R=V>>9+1:S=V>>6&7+1:LCG,H:?CHR$(E):LCR,S:?"G":LCV>>3&7+1,V&7+1:?CHR$(F):LC0,10:?"STAGE:";M+1
4 LCX,Y:?CHR$(E):K=INKEY():IFK=71||K=103GOTO2ELSEIFK=67||K=99T=G:G=X:X=T:T=H:H=Y:Y=T
5 LCX,Y:?" ":L=SCR(X,Y-1):IFL!=D&&L!=6GOTO4ELSEN=(K=54)-(K=52):P=X+N:Q=Y:T=SCR(P,Y):U=SCR(P+N,Y):V=SCR(P,Y-1):IFN&&T=DX=P
6 IF(T=A||T=F)&&(U=D||U=71)&&(V=D||V=6)X=P:LCX,Y:?CHR$(E):LCP+N,Q:?CHR$(T):W=SCR(P+N,Q+1):IFW=D||W=71WAIT5:LCP+N,Q:?" ":Q=Q+1:CONT
7 N=(K=57)-(K=55):T=SCR(X+N,Y-1):U=SCR(X,Y-1):IFN&&T=D&&U=DX=X+N:Y=Y-1
8 IFSCR(R,S)=FGOTO11
9 LCX,Y:?CHR$(E):IFSCR(X,Y+1)=DWAIT5:LCX,Y:?" ":Y=Y+1:CONT
10 GOTO4
11 M=M+1:IFM<>4GOTO2

COMMENT

Kidspod運営チーム
Kidspod運営チーム2023/01/19 15:37:45

お、おもしろい! 2人のキャラクタと#をうまく使って……というところに、ただならぬ魅力を感じます。パズルとしてのむずかしさもあって、たくさんのステージを解きたくなりました。ステージ4がまだ解けていないので、がんばります! これは解きたい!