| | |
|
投稿者：KAZU 2006/01/15(日) 19:53
(2),(3),(6)については修正されていましたが、
残りのエラーはまだ発生します。
こちらでは以下のようにしてムービーを再生しています。
特に問題になりそうな場所はないと思うのですが…。
----- ソース開始 -----
// オープニングムービーの再生
// ファイルの終端まで再生されるか、Enterキー・左クリックが押されると終了
#PLAY_OPENING
INT[@RESULT]
MOVIE[FILE="movie/op.mpg" PLAY=1]
LOOP[]
WAIT[FRAME=1]
MOVIEINFO[PLAY=1 LET=@RESULT]
IF[@RESULT==0||(@_KEY_ENTER==1&&@_KEY_ALT==0)||@_MOUSE_LBUTTON==1]
LOOPBREAK[]
IFEND[]
LOOPEND[]
MOVIEEND[]
RETURN[]
----- ソース終了 -----
なお、実行中の画面モード切り替えは、以下のスクリプトを
別タスクで走らせて処理しています。
----- ソース開始 -----
// スクリーンモードの監視
#TASK_SCREEN
INT[@SCREEN]
LOOP[]
WAIT[FRAME=1]
IF[@_KEY_ENTER==1&&@_KEY_ALT]
WINDOWINFO[NO=0 FULLSCREEN=1 LET=@SCREEN]
IF[@SCREEN==1]
WINDOW[NO=0 FULLSCREEN=0]
ELSE[]
WINDOW[NO=0 FULLSCREEN=1]
IFEND[]
IFEND[]
LOOPEND[]
RETURN[]
----- ソース終了 -----
| |
| | |
|
