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

2019/09/16 10:44:00

MixJuice GET URL : kidspod.club/mj/906

ワンライン 追尾ミサイル

開始少し後にミサイルが発射されます。
ミサイルはプレイヤーを容赦なく追ってきます。
できるだけ長い時間生きのびてください。

操作はカーソルキーです。
画面左右と下へのプレイヤーの移動範囲制限をしていないので、動かしすぎると不利になります。
ゲームレベルは超ハードですが、気に入っているのでそのままにしています。
U=!!(T%7)のところの数字を小さくすると易しくなります。

友達の家で見せてもらったこんな感じのゲームが、初めて見た一行プログラムだったので、思い出して作ってみました。

----------------------------

行に分けると、こんな感じになります。

10 CLV:Z=70
20 A="*|/-\"   ←ここの「\」マークはバックスラッシュです
30 FOR I=0 TO 1
40 X=X-BTN(28)+BTN(29)
50 Y=Y-BTN(30)*(Y>1)+BTN(31)
60 M=(X>Z)-(X<Z):N=(Y>V)-(Y<V)
70 T=T+1:U=!!(T%7)
80 Z=Z+M*U:V=V+N*U
90 CLS:? T
100 LC X,Y:? "M";
110 LC Z,V:I=SCR():? STR$(A+ABS(M*3+N),1)
120 NEXT

  • 1
  • 1

SOURCE CODE

10 CLV:Z=70:A="*|/-\":FORI=0TO1:X=X-BTN(28)+BTN(29):Y=Y-BTN(30)*(Y>1)+BTN(31):M=(X>Z)-(X<Z):N=(Y>V)-(Y<V):T=T+1:U=!!(T%7):Z=Z+M*U:V=V+N*U:CLS:?T:LC X,Y:?"M";:LC Z,V:I=SCR():?STR$(A+ABS(M*3+N),1):NEXT

COMMENT

Kidspod運営チーム
Kidspod運営チーム2019/09/27 16:29:34

すごく単純なのにすごく面白いですね、このゲーム。ミサイルがまさしく強敵! 数秒逃げるだけでも大変です。しかし集中力さえ切らさなければ、なんとか……!