こちらから遊べます↓

モンスターバキューン

 

スマートフォンで遊べるシューティングゲームを作りました。

スマートフォンを横に傾けると横に移動し、画面タッチで弾を発射します。

敵を一体倒すごとに10ポイント入ります。

敵が一番近づいたら(大きくなったら)正面衝突してゲームオーバーになります。

パソコンでもカーソルキーとスペースキーでできるので、ぜひ遊んでみてください。

同じくスマホアプリ、「地中脱出ゲーム」「海上救出ゲーム」もよろしくお願いします。

  

PCNこどもプロコン2015冬の最優秀賞作品の

凧上ゲーム(MASAHARUの魂のプログラム)」が発売されました。

 

ダンブンとゲーム作り 凧上ゲーム

 

ぜひ見てみてください。

 

スマホアプリ、「地中脱出ゲーム」、「海上救出ゲーム」もよろしくお願いします!

  


スイカ割り」(無料です!!!)

 

スイカを割るゲームです。

KidsPod;で実装しています。

スマートフォン本体を前に振ってスイカを割ります。

スイカの大きさに合わせて割る強さを加減してください。

場合によっては、ぐちゃぐちゃになってしまうものもあります。

ヘルプ機能も搭載しています。

※スマートフォンの破損などについては、一切の責任を負い兼ねます。

 

同じくKidsPod;の「地中脱出ゲーム」「海上救出ゲーム」も好評発売中!

  

 

気になる二人の相性をチェックするプログラムです。

親子、兄弟、カップルなど、いろいろな人とチェックしてみてください。

(しなっと結果を変えられる機能があるとかないとか...)

 

 

プログラム バージョン:1.2b21

 

10 CLS:CLV:LC5,5:?”アイショウ チェッカー”:LC5,8:?”ヒトリメノタンジョウビヲ(0101)ノ”:LC7,9:?”ヨウニ、ニュウリョクシテクダサイ­":LC3,11:INPUT" ",A
20 B=A/100:C=A-(A/100*100):IF B>9 B=1+(B-10)
30 IF C>9 C=C/10+(C-(C/10*10))
40 IF C>9 GOTO30
50 D=B+C:IF D>9 D=D/10+(D-(D/10*10))
51 X=B*C
52 IF X>9 X=X/10+(X-(X/10*10)):IF X>9 GOTO52
58 D=D*10:D=D+X
59 IF D>99 D=D/10+(D-(D/10*10)):IF D>99 GOTO52
60 CLS:LC5,8:?”フタリメノタンジョウビヲ”:LC7,9:?"ニュウリョクシテクダサイ­":LC3,11:INPUT" ",E
70 F=E/100:G=E-(E/100*100):IF F>9 F=1+(F-10)
80 IF G>9 G=G/10+(G-(G/10*10))
90 IF G>9 GOTO80
100 H=F+G:IF H>9 H=H/10+(H-(H/10*10))
101 Y=F*G
102 IF Y>9 Y=Y/10+(Y-(Y/10*10)):IF Y>9 GOTO102
108 H=H*10:H=H+Y
109 IF H>99 H=H/10+(H-(H/10*10)):IF H>99 GOTO102
110 I=D+H:IF I>99 I=100
120 CLS:LC5,8:?”フタリノアイショウハ、 ";:WAIT60:K=INKEY():IF K=10 I=100:ELSE IF K=127 I=2
130 ?I;”%デス”:LC0,22

 

誕生日を指示にしたがって入力してもらい、

ラッキーアイテムとラッキーカラーを占います。

占い中のギミックもあります。

 

福井弁が多いので、わからない言葉があればコメントしてください。

 

 

プログラム バージョン:1.2b21

 

10 CLS:CLV:A=RND(3)+1:LC5,2:?”キョウノ”:LC7,3:?”ラッキーアイテム・カラー ウラナイ”:WAIT60:GOSUB100:LC10,8:?”ウラナイチュウ­"
20 WAIT60:LC17,8:?".";:WAIT60:?".";:WAIT60:?".":WAIT60:LC17,8:?"   ":B=B+1:IF B<A GOTO 20
30 LC10,8:?" ラッキーアイテム:”:LC11,10:?”ラッキーカラー :":WAIT60
40 LC20,8:GOSUB120:A=RND(10):LC20,10
50 IF A=0 ?”アカ”:ELSE IF A=1 ?”アオ”:ELSE IF A=2 ?”キイロ”:ELSE IF A=3 ?”ミドリ”:ELSE IF A=4 ?”シロ”:ELSE IF A=5 ?”オレンジ”:ELSE IF A=6 ?”ピンク”:ELSE IF A=7 ?”ムラサキ”:ELSE IF A=8 ?”クロ”
60 IF A=9 ?”ミズイロ”
70 LC0,20:END
100 LC3,8:?”セイネンガッピヲ(0101)ノヨウニ”:LC6,9:?”ニュウリョクシテクダサイ­"
110 LC10,12:INPUT" ",D:LC10,7:?CHR$(12):RETURN
120 LC20,8:C=RND(7):IF C=0 ?”ソトズック”:ELSE IF C=1 ?”ウチズック”:ELSE IF C=2 ?”ツルツルイッパイノオチャ”:ELSE IF C=3 ?”オチョキン”:ELSE IF C=4 ?”チューブ":ELSE IF C=5 ?”ツマッタノート”:ELSE IF C=6 ?”ジャミジャミ”
130 RETURN

 

バスケゲーム

無料です↑

選手・コート等はオリジナルです。

 

5対5で、対戦!

自分は赤チームです。

背景の矢印の方向に攻めます。

 

パソコンはカーソルキー、スマホは傾けることで操作します。

 

 

ー分がボールを持っている時、味方をタップすればパスをできます。その後は、パスをされた選手を操作します。

⊆分がボールを持っていると、敵チーム(青)がボールを取りに来ます。

A蠎蠢手と重なることで、取ったり取られたりします。

ぅ棔璽襪鮖ってゴールリングに重なると、シュートです。

ゥ轡紂璽箸鬚靴討皹筺垢搬海ので、暇つぶしにどうぞ。

 

 

同じKidsPod;で作った「地中脱出ゲーム」「海上救出ゲーム」も宜しくお願いします!

 

  

電子工作マガジンに載っていた「いちごるふ」(A1さん)を改造して、いちごるふZを創りました。

難易度はそこそこ上げてあります。

 

 

 

こんな感じです。

中には激ムズコースもあります↓

 

 

簡単に改造しただけですが、大変難しくなっています。

ぜひ遊んでみてください。

 

挑戦者求む!!!

 

プログラム ※Windowsでご覧の方は、プログラムの中に変な四角が混ざっているかもしれません。その場合は、無視していただいて結構です。

スロット1
100 'IchiGOLF 1OF3
110 CLV:L=FILE():LRUNL+2
120 @ST:V=0:W=1:LRUNL+1
130 GSB@PUT
140 @SHOT:[R]=[R]+1:G=0:Q=6:LC6,23:?DEC$([R],2);
150 @D1:LC14,23:?STR$(#7D8+Q*2,2);:WAIT9
160 Q=Q+BTN(29)*(Q<9)-BTN(28)*(Q>0):IF!BTN(32)GOTO@D1
170 E=[20+Q]:F=-[30+Q]:A=1:P=0
180 @D2:B=1-2*((P+A<1)+(P+A>8))
190 A=A*B:P=P+A
200 LC22,23:?STR$(#7F8-P,8);:WAIT9
210 IFBTN(32)GOTO@D2
220 E=E*P/8:F=F*P/8
230 J=X:K=Y
240 @MV:Z=4
250 @LP
260 S=(X+E)/80:T=(Y+F)/80
270 U=(SCR(S,Y/80)=1)+(SCR(X/80,T)=1)*2+(SCR(S,T)=1)*4
280 IFUGSB@PUT:GSB@RFL:GOTO@MV
290 X=X+E:Y=Y+F
300 IFX<0ORX>2559LRUNL+2,250
310 Z=Z-1:IFZGOTO@LP
320 GSB@PUT
330 IFF<20F=F+1
340 IFG<>99GOTO@MVELSEIFX/80=CANDY/80=DLRUNL+2,310
350 GOTO@SHOT
360 @RFL
370 G=F:IFU<>2IFU<>6E=-E*4/5
380 IFU<>1IFU<>5E=E*9/10:F=-F/2:IFABS(F)<3ANDABS(E)<3IFG>0G=99
390 RTN
400 @PUT
410 M=X/80:N=Y/80:IFN>1LCM,N:?CHR$(224+X%80/20+Y%80/20*4)
420 IFV=MIFW=N:GOTO@PF
430 IFN>0LCV,W:?CHR$(0):V=M:W=N
440 @PF:LCC,D:?CHR$(250):RTN

 

スロット2
100 'IchiGOLF 2OF3
110 '___ PUT STAGE ___
120 IFR>8GOTO@ED
130 G="0000000010053430C121100905007330E7024AEE00100330AA005500AA12724020A3232B03016140E78094B78010635020E581E7041320F001051455551370500424547450125050"
140 [10+R]=PEEK(G+R*16+14)-48
150 CLS:?"HOLE:";R+1;" PAR:";[10+R]
160 FORA=0TO9
170 C=PEEK(G+R*16+A):C=C-48-(C>64)*7
180 FORB=0TO3
190 IFC>>(3-B)&1FORD=0TO2:LCA%2*16+B*4,A/2*3+D+6:?CHR$(1,1,1,1):NEXT
200 NEXT:NEXT
210 LC0,21:FORA=0TO31:?CHR$(1);:NEXT
220 LC1,23:?"SHOT: 1 DIR:[  ] POW:";STR$(#7F7,8);
230 A=G+R*16
240 X=(PEEK(A+10)-48)*320+40
250 Y=(PEEK(A+11)-48)*240+400+79
260 C=(PEEK(A+12)-48)*4+1
270 D=(PEEK(A+13)-48)*3+5
280 LCC,D:?CHR$(250)
290 LRUNL,130
300 '___ END ___
310 @ED:CLS:B=0:C=0
320 IFBTN(32)GOTO@ED
330 LC13,3:?"RESULT":LC0,6:?"ROUND":?:?"PAR":?:?"SHOTS"
340 FORA=0TO8
350 LC7+A*3,6:?A+1
360 LC7+A*3,8:?[A+10]
370 LC5+A*3,10:?DEC$([A],3)
380 B=B+[A+10]:C=C+[A]
390 NEXT
400 LC9,14:?"TOTAL PAR:";DEC$(B,5)
410 LC9,16:?"TOTAL SHOTS:";DEC$(C,3)
420 LC8,20:?"HIT SPC TO RESTART"
430 @S:IF!BTN(32)GOTO@SELSELRUNL

 

スロット3
100 'IchiGOLF 3OF3
110 '___ PCG SET ___
120 CLS:COPY#700,#900,208
130 FORA=0TO15:B=#C0>>(A%4*2):POKE#700+A*8+A/4*2,B,B:NEXT
140 A=32:B=128:C=219:D=144
150 POKE#786,240,15,0,0,0,0,96,24,6,1,0,0,A,16,8,4,2,1,0,8,8,4,4,2,2,1,2,2,2,2,1,1,1,1
160 POKE#7A8,64,64,64,64,B,B,B,B,0,16,A,A,A,64,64,B,0,0,4,8,16,A,64,B,0,0,0,0,6,24,96,B,0,0,0,0,0,0,15,240,16,16,28,31,28,16,16,126,126
170 '___DIR SET ___
180 POKE#7D8,240,A,241,A,242,A,243,A,244,A,245,A,246,A,247,A,248,A,249
190 '___ POW METER ___
200 POKE#7F0,C,C,C,C,C,C,C,C,D,D,D,D,D,D,D
210 '___ X,Y ADD ___
220 LET[20],-20,-18,-15,-10,-6,6,10,15,18,20,10,12,15,18,20,20,18,15,12,10
230 LRUN L,120
240 '___ OB ___
250 LCM,N:?CHR$(0);
260 COPY#8C6,#A6D,6
270 LC13,11:?"_ OB _":WAIT120
280 X=J:Y=K
290 COPY#A6D,#8C6,6
300 LRUN L,130
310 '___ CUP IN ___
320 IF[R]=1LC6,10:?"<< HOLE IN ONE !! >"ELSELC9,10:?"<< CUP IN!! >>"
330 LC9,12:?" HIT SPC KEY "
340 @S:IF!BTN(32)GOTO@S
350 R=R+1:LRUNL,120

 

今回も僕のゲームがBASICマガジンに掲載されました。

金魚すくい

プログラム20行目の□は気にしないでください。

 

こどもプログラミングロボットpaprikaの紹介もされています。

ぜひ見てみてください。

 

スマホアプリ「地中脱出ゲーム」「海上救出ゲーム」もよろしくお願いします!

 



Hana道場の3Dプリンターを使って、
オリジナルIchigoJamUケースを作りました。



ピンソケット用の穴の間には、JamNum(何号機か分かるようにするための番号)も良く見える穴があります。
さらに写真の左側にMASAHARUと彫り、自分のものと分かるようにしてあります。



キーボードや電源などの穴もぴったり。



分かりにくいですが、ケースの外側に凹凸を作り、うまくはまるようにしました。
中にある棒は、IchigoJamの穴を差すところです。
持ち運びにも良さそうなこのケース、
しっかり使わせてもらいます。

地中脱出ゲーム海上救出ゲームもよろしく!
 



カーソルキーで網を動かして、IchigoJam本体のボタンで金魚をすくうゲームです。



網を3秒以上水の中に沈めているとゲームオーバーになります。



この金魚もドット絵ディターで作りました。
金魚は1ポイント、出目金(めがねくん)は5ポイントです。
出目金をとると、音が出ます。
難易度は結構高めです。
網をうまく操作してポイントを稼ぎましょう。

プログラム バージョン:1.2B21 ※赤小文字と赤数字はAlt、赤大文字はAlt + Shiftキーで入力してください。また、Windowsのパソコンでご覧の方は、20行目、40行目の□は無視してください

10 CLS:CLV:Y=1:POKE#700,#08,#13,#3C,#45,#A3,#45,#38,#10:
    POKE#708,#10,#C8,#3C,#A2,#C5,#A2,#1C,#08
20 LCX,1:?"H":LCX,20:?"H":LC0,Y:?"I":LC30,Y:?"I"
30 Y=Y+1:IFY>20Y=Y-1
40 X=X+1:IFX>30LC0,1:?"O":LC30,1:?"P":LC0,20:?"Q";:LC30,20:?"R";:GOTO60
50 GOTO20
60 C=25:D=15:LCC,D:?"9":LC0,0:?"SCORE:";P
70 X=RND(28)+1:Y=RND(18)+2:A=RND(5)
80 LCX,Y:IFA=0?CHR$(11):ELSEIF(A=1)+(A=2)?"0":ELSE?"1"
90 [N]=X:[N+1]=Y:[N+2]=SCR(X,Y):N=N+3
100 I=I+1:IFI<25GOTO70
110 GOSUB140
120 GOSUB200
130 GOTO110
140 N=0
150 I=[N+2]
160 LC[N],[N+1]:?" "
170 A=[N]+(RND(3)-1):B=[N+1]+(RND(3)-1)
180 IFA>0ANDA<30ANDB>1ANDB<20[N]=A:[N+1]=B:LCA,B:?CHR$(I):ELSELC[N],[N+1]:?CHR$([N+2])
190 N=N+3:IFN<75GOTO150:ELSERETURN
200 LCC,D:?" ":E=BTN()
210 IFE=1ANDZ=0F=1:CLT:ELSEIFZ=1ANDE=0F=0:N=0:GOSUB250
211 K=INKEY()
212 C=C-(K=28)+(K=29):D=D-(K=30)+(K=31)
220 LCC,D:IFF=0?"9":ELSE?"8"
230 IFF=1GOSUB300
240 Z=E:RETURN
250 IFC=[N]ANDD=[N+1]IF[N+2]=11P=P+5:BEEP:ELSEP=P+1
260 N=N+3:IFN<75GOTO250
270 LC6,0:?P
280 RETURN
300 IFTICK()>180LCC,D:?"k":?"GAME OVER":END
310 RETURN

地中脱出ゲーム海上救出ゲームもよろしく!