チェックポイント
このままではゲームとしては寂しいものがあります。
そこで敵を増やしてみたいと思います。
ただ、敵のプログラムを今までと同様に作っていくのは大変なので同じ種類の敵を複数だすことを考えてみます。
ただその場合に重要なプログラムの要素である配列を知っておかないといけません。
そこで今回はシンプルなプログラムを使い配列に挑戦してみましょう。
|
では下記のプログラムは実行するとどうなるでしょうか？
| ■プログラム |
0001 ' initialize
0002 GOSUB @TMR_INI
0003 GOSUB @TK1_INI
0004 @LOOP
0005 VSYNC 1
0006 CLS
0007 GOSUB @TMR_TASK
0008 GOSUB @TK1_TASK
0009 GOTO @LOOP
0010 '
0011 @TMR_INI
0012 TMR_INT = 2*60
0013 TMR_C = TMR_INT
0014 RETURN
0015 '
0016 @TMR_TASK
0017 TMR_C = TMR_C - 1
0018 IF TMR_C >= 0 THEN RETURN
0019 TMR_C = TMR_INT
0020 '
0021 IF TK1_F THEN RETURN
0022 TK1_F = 1
0023 TK1_X = 0
0024 TK1_Y = 0
0025 RETURN
0026 '
0027 @TK1_INI
0028 TK1_F = 0
0029 RETURN
0030 '
0031 @TK1_TASK
0032 ON TK1_F GOTO @TK1_WAIT,@TK1_MOVE
0033 STOP
0034 '
0035 @TK1_WAIT
0036 RETURN
0037 '
0038 @TK1_MOVE
0039 LOCATE TK1_X,TK1_Y
0040 PRINT "@"
0041 TK1_Y = TK1_Y + 0.1
0042 IF TK1_Y < 23 THEN RETURN
0043 TK1_F = 0
0044 RETURN
0945 'End of line |
このプログラムは今までのプログラムとほとんど同じです。
プログラムを入力しながらその部分が何をしているのかを考えてください。
今回は一度考えていただきたいのでしばらくしてから更新します。
では問題ですがこのプログラムでは敵が画面に１体だけしか現れません。
同じ敵を画面に２体以上出すにはどうしたらいいでしょうか？
