今回も僕のゲームが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

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



KidsPod;アプリの海上救出ゲームが配信されました!
海で遭難した人達を助け、ヘリコプターまで連れていくアクションゲームです。
タッチで上下、傾きで左右に動きます。
先に画面をロックしてから、遊んでください。

App Storeから
Google Playから

これからも地中脱出ゲーム、海上救出ゲーム共によろしくお願いします!
 


ドット絵を描くKidsPod;アプリです。
IchigoJam用に8×8になっています。
リアルタイムで、データを16進数表記します。
写真は、例の新キャラ、めがねくんです。

こちらから遊べます。
ドット絵ディター

IchigoJamでゲームを作る時に使ってみてください。

KidsPod;の地中脱出ゲームもよろしく!


イチゴガリイチゴガリ2に続く、イチゴガリシリーズです。
イチゴだけを30個とるゲームです。
よく似たラズベリーは取らないようにしましょう。


左がイチゴ、右がPOKEで描いたラズベリー

ラズベリーをとるとゲームオーバーです。
わかりにくいので気を付けましょう。

またIchigoJam1周年記念のIchigoJamの歌をアレンジしたものを、PanCakeの音だけつなげて演奏しています。
じっくり遊んでください。

プログラム バージョン1.2b13 ※赤文字はAltキーで入力

1 ?"PC MUSIC SCORE 00 01 60 $AR8AR8>C2<AR8AR8>C2<AR8AR8A8>C~~~<R~~"
10 CLS:CLV:X=12:Y=15:T=0:P=0:POKE #700,#04,#3E,#67,#52,#AA,#96,#4C,#30
20 LC0,0:?"TIME:";T:LC17,0:?"POINT:";P:I=0:GOSUB 110:CLT
30 LCX,Y:?"ì":LC5,0:?T:LC23,0:?P
40 IF TICK()/60>T T=T+1
50 K=INKEY():IF K=0 GOTO 90 ELSE LCX,Y:?" "
60 X=X-(K=28)+(K=29):Y=Y-(K=30)+(K=31)
70 IF X=-1 X=25 ELSE IF X=26 X=0
71 IF Y=-1 Y=20 ELSE IF Y=21 Y=0
80 IF SCR(X,Y)=255 P=P+1
81 IF SCR(X,Y)=224 LC5,10:?"GAME OVER":END
90 IF P=30 LC5,10:?"GAME CLEAR!":END
100 GOTO 30
110 A=RND(25):B=RND(19)+1
120 IF (SCR(A,B)!=0)+((A=X)*(B=Y)) GOTO 110
130 LCA,B:?"V":I=I+1
140 IF (I<30) GOTO 110 ELSE I=0
150 A=RND(25):B=RND(19)+1
160 IF (SCR(A,B)!=0)+((A=X)*(B=Y)) GOTO 150
170 LCA,B:?"0":I=I+1
180 IF (I<5) GOTO 150
190 RETURN

地中脱出ゲームも是非どうぞ!


 


PCNこどもプロコン2015冬で、
凧上ゲーム」が最優秀賞、
海上救出ゲーム」がNTTぷらら賞をいただきました。

商品はこちらです。



おかげさまで4連覇を達成することが出来ました。
これからも「MASAHARUの魂のプログラム」、地中脱出ゲームをよろしくお願いします。



今季の電子工作マガジンにも、僕が作ったプログラムが掲載されました。
凧揚ゲーム」、「スイングバイバイ」の2つです。
ぜひ見てください。

地中脱出ゲームも好評発売中です!


そこら中に散らばっているスペースデブリを回収するゲームです。
スマホでは傾き、パソコンではカーソルキーで操作できます。
ブラックホールに吸い込まれると、別の場所に移動します。
赤い玉を吸うと、制限時間が10秒延びます。
スマホの場合は、画面が回転するのをロックしてから遊んでください。
頑張ってたくさんのごみを集めましょう。
(音が聞こえない場合は、ホーム画面に追加して遊んでください。)

スペースデブリ回収ゲーム

地中脱出ゲームもどうぞ!


Hana道場の3Dプリンター・レーザーカッターを使って、師匠にも手伝ってもらいながら、ペン立て(黒ペン立て、赤ペン立て、白ベース)を作りました。
黒と赤は、白いベースにはめることができ、分解するとペン立て(黒、赤)と小物入れ(白)になります。
黒にはMも彫りました。
1個でも作るのに約6時間、彫るのに約20分かかり、失敗しすぎて合計11個作りました。



右上の白いものは、その左にあるものの下半分です。
Kと彫ってあったはずが、上半分の尖っている部分が垂れてきて、プラットホームから取り外す時に割れてしまいました。
右下のMなんかもそうで、最終的には無地のものを3Dプリンターで作り、レーザーカッターで印刷しました。
3Dプリンターとレーザーカッターには、それぞれ得意、不得意があるみたいです。
2つを組み合わせて、すごいものを作りましょう。