【はじめてのプチコン】移動の終了判定

チェックポイント 前回はＵＦＯの移動を行うプログラムを作成しました。 しかしＵＦＯは画面左上から右上に移動するだけでそれ以降は移動しません。 今回は移動の終了を判定する部分を追加してみたいと思います。

前回のサンプルプログラムは下記の通りです。

■プログラム

0001 X = 0 0002 @LOOP 0003 VSYNC 1 0004 CLS 0005 LOCATE X, 0 0006 PRINT "A" 0007 X = X + 1 0008 GOTO @LOOP

このプログラムを実行するとＵＦＯが画面左上から右上に移動しなぜか左上で止まったままになります。
これは LOCATE文のＸ方向の指定で使える値が０から３１の間なのですがＵＦＯが右上に移動した後も右に行こうとしているからＸ方向の値が不適切な値になっているためです。

プログラムではこの様なことが起きないようにしなければなりません。
次のプログラムは右上に到達した場合プログラムを終了します。

■プログラム

0001 X = 0 0002 @LOOP 0003 VSYNC 1 0004 CLS 0005 LOCATE X, 0 0006 PRINT "A" 0007 X = X + 1 0008 IF X < 32 GOTO @LOOP 0009 END

■実行画面

┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　仝┃ ┃ＯＫ　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃＿　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃ ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛

しかしこのままではすぐにプログラムは終了してしまうのでゲームにはなりません。
そこでこのＵＦＯを画面上で左右に移動するように変更してみましょう。

■プログラム

0001 X = 0 0002 @LOOP1 0003 VSYNC 1 0004 CLS 0005 LOCATE X, 0 0006 PRINT "A" 0007 X = X + 1 0008 IF X < 32 GOTO @LOOP1 0009 X = 31 0010 @LOOP2 0011 VSYNC 1 0012 CLS 0013 LOCATE X, 0 0014 PRINT "A" 0015 X = X - 1 0016 IF X >= 0 GOTO @LOOP2 0017 X = 0 0018 GOTO @LOOP1

これでＵＦＯは左右に移動するようになりました。
言い忘れたわけではないのですが新しい命令が使われています。

■書式

IF 条件式 GOTO @ラベル

条件式が成り立つときラベルのあるプログラム位置へジャンプする

この命令は IF 条件式 THEN GOTO @ラベルと同じです。

チェックポイント ゲームのプログラムはキャラクタが移動したりする場合この様に処理を繰り返し行わなければなりません。 このような繰り返しはループと呼ばれていますが、特にゲームの１回のループの間にゲーム中で表示されているキャラクタすべてを実行しなければなりません。 このようなループをゲームループと呼んでいます。

このプログラムには問題があります。
ゲームループはゲーム中にひとつだけでないと不都合なのです。
このサンプルの場合ループが２つありますよね。
しかしこの説明もゲームの中での時間の概念を説明しなければならないのである程度理解ができたで頃に説明することにします。
ここでは『何故？』ではなくそうしなければならない理由があるということで勘弁してください。

それではこのループを一つにしてみましょう。

■プログラム

0001 ' initialize 0002 UFO_X = 0 0003 UFO_F = 0 0004 ' game loop 0005 @LOOP 0006 VSYNC 1 0007 CLS 0008 ' UFO 0009 IF UFO_F!=0 GOTO @UFO1 0010 ' move right 0011 LOCATE UFO_X, 0 0012 PRINT "A" 0013 UFO_X = UFO_X + 1 0014 IF UFO_X < 32 GOTO @LOOP 0015 UFO_X = 31 0016 UFO_F = 1 0017 ' move left 0018 @UFO1 0019 LOCATE UFO_X, 0 0020 PRINT "A" 0021 UFO_X = UFO_X - 1 0022 IF UFO_X >= 0 GOTO @LOOP 0023 UFO_X = 0 0024 UFO_F = 0 0025 GOTO @LOOP

今回は思い切ってプログラムを変更しました。
変更点は以下の通りです。
１）移動のために使っていた変数Ｘを今後のために変数ＵＦＯ_Xに変更した。
２）ゲームループの中にＵＦＯの移動プログラムがあるが右へ移動と左へ移動するプログラムを判断するためのフラグ変数ＵＦＯ＿Ｆを作った。
３）ゲームループを一つにした
４）プログラムに注釈を加えた。

ＵＦＯの移動は変数ＵＦＯ_Fの値が０の時右へ移動、０でない時に左へ移動します。
右へ移動するプログラムも左に移動するプログラムもＵＦＯの一つの動作を表しています。
そしてこの動作は同時には起きません。
この様に同じキャラクタのプログラムでありながら同時に実行されることがなくそれらが集まることでＵＦＯが多彩な動きをすることができるこのようなプログラムをタスクと呼んでいます。

要するにＵＦＯにとって0011行から0016行までが右移動のタスク、0018行から0025行までが左移動のタスクになります。