Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2017/07/19 22:14:05

MixJuice GET URL : kidspod.club/mj/225

泥棒ゲーム

あなたは泥棒です。
今夜もお金持ちの屋敷に忍び込みました。
鍵を開けて、お宝をたくさん盗んでください。
あまり時間はありませんよ。。。

■遊び方
鍵の型が見えています。
ぴったり合うように鍵を作ってください。
成功すると5秒位ボーナスがもらえます。
残り時間が0になったら終わりです。

■操作
↑↓:鍵の形を選択
←→:位置を選択
スペース:鍵を合わせてみる ぴったり合わないと鍵は開きません

■例
画像のように作るとぴったり合います。

■改造ヒント
10行にあるB=180で残り時間を調整できます。単位は秒です。
まだ118byte余っています。機能追加できるかも。

  • 1
  • 1

SOURCE CODE

1 'ト゛ロボウゲーム
10 CLV:CLT:A=140:B=180:LET[0],129,130,131,133,138,128,143,135,139,156,157,142,141,140,138,133,143,128,136,132,159,158
20 @S:CLS:CLK:B=B+10:X=7:Y=7:?"オタカラ";D;"コ":D=D+1:FORI=0TO10:LC1,I+2:?CHR$([I]):NEXT
30 FORI=7TO13:[23+I]=5:LCI,7:?CHR$(131):[33+I]=RND(11)+11:LCI,6:?CHR$([[33+I]]):NEXT:F=A:GSB@B:GOTO@V
40 @A:E=B-TICK()/60:LC8,0:?"ノコリ";E;" ":K=INKEY():V=(K=29)*(X<13)-(K=28)*(X>7):W=(K=31)*(Y<12)-(K=30)*(Y>2):IFE<1ENDELSEIFK=32GOTO@CELSEIFV+W=0GOTO@A
50 @V:LCX,2:?" ":X=X+V:LCX,2:?CHR$(227):LC0,Y:?" ":Y=[23+X]+2+W:LC0,Y:?CHR$(225):[23+X]=Y-2:GSB@D
60 GOTO@A
70 @B:FORI=7TO13:LCI,3+U:?CHR$(F):NEXT:RTN
80 @D:FORI=7TO13:LCI,4+U:?CHR$([[23+I]]):NEXT:RTN
90 @C:F=0:GSB@B:U=1:F=A:GSB@B:GSB@D:WAIT30:U=0
100 C=0:FORI=30TO36:C=C+([I]=[I+10]-11):NEXT:IFC=7F=0:U=1:GSB@B:F=A:U=2:GSB@B:F=143:U=3:GSB@B:U=0:WAIT30:LC0,14:?"カギアケセイコウ!!":WAIT150:GOTO@S
110 GSB@B:GSB@D:U=2:F=0:GSB@B:U=0
120 GOTO@A

COMMENT

Kidspod運営チーム
Kidspod運営チーム2017/07/21 17:32:07

スペース押すときにドキドキ感がありますね。合うのか合わないのか! カギがぴったりになる瞬間が気持ちいいです。コツがわかってくるとどんどん合わせられてとても楽しいです。