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

2018/05/31 11:22:46

MixJuice GET URL : kidspod.club/mj/488

ダイフクセイジンヲタオセ

<ゲームの説明>
ダイフクセイジンが4つの場所をワープして行ったり来たりする。
ランダムで自分の前にくる。
そのしゅんかんにスペースキーをおす。すると(攻撃の絵文字)が出てきて、ダイフクセイジンをこうげきできる。
自分がこうげきしたときは、5ポイント入る。
ダイフクセイジンにこうげきされたときは、10ポイントマイナスされる。
せいげん時間内に自分のポイントが0よりも少なくなったら負け。
たえきったら勝ち。

<操作方法>
スペースキー  自分のこうげき

<工夫したところ>
ダイフクセイジンというてきの名前を工夫しました。
なぜダイフクセイジンという名前かというと、(てきの絵文字)は少し頭の部分が大福ににていておいしそうだったからです。
少しきちくだけれど、自分ではおもしろいゲームだと思っています。

[まないたくん本人に代わり投稿]

  • 1
  • 2
  • 1
  • 2

SOURCE CODE

5 S=10:CLT
10 CLS:LC 16,12:?CHR$(249)
30 R=RND(5)
40 IF R==0 X=16:Y=7
50 IF R==1 X=13:Y=7
60 IF R==2 X=16:Y=4
70 IF R==3 X=16:Y=10
80 IF R==4 X=19:Y=7
85 LC X,Y:?CHR$(237)
90 LC 16,11
100 K=INKEY()
110 IF K==32 ?CHR$(239) ELSE ?CHR$(0):WAIT 6:GSB 600
120 IF SCR(16,10)==237 AND SCR(16,11)==239 BEEP 7,15:LC 13,9:?" バシッ":S=S+5
130 ?S 
140 ?TICK()/60
150 IF TICK()>3600 END
160 IF S<0 END
170 WAIT 15
180 GOTO 10
600 IF R==3 LC 16,11:?CHR$(242):S=S-10:RTN ELSE WAIT 5:RTN
610 WAIT 5
620 LC 16,11:?CHR$(242):BEEP20,20:WAIT 20
640 RTN

COMMENT

Kidspod運営チーム
Kidspod運営チーム2018/06/01 17:34:33

ダイフクセイジン! たしかに大福みたいですね……。ステキなネーミングです。ゲームは、かなりきちくでした。ダイフクセイジンがむちゃくちゃ強い! 勝てるまで何度でもチャレンジしたくなりますね。