カーソルキーで網を動かして、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

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

関連する記事
コメント
あと2,3ヶ月で夏祭りーーーー
金のWeekも楽しむぜよ
メッセージ送りすぎ?ありがとうございます(^ω^
  • by りょんよん
  • 2016/05/02 6:18 PM
ぜひ、遊んでつかあさい
  • by MASAHARU
  • 2016/05/03 8:29 AM
コメントする