• Ichigojam

10 CLV:LET[0],32256,48766,60381,65527,766,19066,16986,126,15360,32382,32382,60,16128,64512,16128,10752,32256,23106,23106,90,26112,59136,42369,59265,41642,41608,41608,43656,0,48766,52894,31669,48510
20 LET[33],59355,39363,65340,32256,6333,23205,48474,24290,31804,6585,62379,14844,51091,37831,31801,126,59265,59367,33243,16510,16469,25463,7241,21930,54702,21930,54698
30 @S:CLS:X=1:Y=1:G=-1:FORI=0TO9:FORJ=0TO9:LCJ,I:?CHR$(6):NEXT:NEXT:FORI=0TO3:FORJ=0TO15:LCJ%8+1,I*2+J/8+1:K=[S*4+I]>>J&1:G=G+!K:?CHR$(K*6):NEXT:NEXT:LC11,0:?S+1;"メン"
40 @B:LCX,Y:?CHR$(237):K=INKEY():IFK=71||K=103GOTO@S
50 IFK=77||K=109LC0,10:INPUT"ナンメン(1-15)",S:S=S-1:IFS<0||S>14CONTELSEGOTO@S
60 P=(K=51||K=54||K=57)-(K=49||K=52||K=55):Q=(K=49||K=50||K=51)-(K=55||K=56||K=57):IFP||QIF!SCR(X+P,Y+Q)LCX,Y:?CHR$(238):X=X+P:Y=Y+Q:G=G-1
70 LCX,Y:?" ":LC11,1:?"ノコリ";G;" ":LC11,2:?"G:ヤリナオシ":LC11,3:?"M:メンセレクト":IF!GLC11,5:?"CLEAR!":WAIT99:S=S+1:IFS<>15GOTO@SELSE?"ALL CLEAR!":END
80 GOTO@B

Kidspod運営チーム2023/01/06 17:57:47

見事なパズル！　ナナメ移動があると、少しかんたんになるかも？と思いましたけど、作れる問題がふえそうな気がします。それに、ナナメがあると、考えなくちゃいけない動きがふえますね。面白い！

Pagetop