電子工作マガジンに載っていた「いちごるふ」(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

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



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秒延びます。
スマホの場合は、画面が回転するのをロックしてから遊んでください。
頑張ってたくさんのごみを集めましょう。
(音が聞こえない場合は、ホーム画面に追加して遊んでください。)

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

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