HSPTV!掲示板

あけましておめでとうございます。おぼです。

次のスクリプトを、Ubuntu18.04　HSPのLinux版で試したところ、真っ白な画面が表示されました。
どこが間違っているのかわからないので、おわかりの方おられましたらご教授願います。

1−1−1.hsp

#include "hsp3dish.as"
redraw 0
*main
	screen 0,600,400
	color $00,$00,$00:boxf
	color $00,$FF,$00
	font "TAKAOPGOTHIC",50
	;アニメ処理
	pos	0,200:mes "山":await 100
	pos	50,200:mes "山":await 100
	pos	100,200:mes "山":await 100
	pos	150,200:mes "山":await 100
	pos	200,200:mes "山":await 100
	pos	250,200:mes "山":await 100
	pos	300,200:mes "山":await 100
	pos	350,200:mes "山":await 100
	pos	400,200:mes "山":await 100
	pos	450,200:mes "山":await 100
	pos	500,200:mes "山":await 100
	pos	550,200:mes "山":await 100
redraw 0
stop

hsp3dish.ini

; hsp3dish settings
wx=600
wy=400
autoscale=0

です。
よろしくお願いいたします。

おぼです。
すいません。スクリプト間違ってました。

#include "hsp3dish.as"
redraw 0
*main
	screen 0,600,400,SCREEN_FIXEDSIZE
	color $00,$00,$00:boxf
	color $00,$FF,$00
	font "TAKAOPGOTHIC",50
	;アニメ処理
	pos	0,200:mes "山":await 100
	pos	50,200:mes "山":await 100
	pos	100,200:mes "山":await 100
	pos	150,200:mes "山":await 100
	pos	200,200:mes "山":await 100
	pos	250,200:mes "山":await 100
	pos	300,200:mes "山":await 100
	pos	350,200:mes "山":await 100
	pos	400,200:mes "山":await 100
	pos	450,200:mes "山":await 100
	pos	500,200:mes "山":await 100
	pos	550,200:mes "山":await 100
redraw 0
stop

です。
すいませんでした。

redraw 0 は画面に描き換えを反映させない命令であり，redraw 1 はそれを反映させる命令です．
そちらのスクリプトですと，redraw 0 の後に描画を行っていて，かつ redraw 1 が存在しないため，画面の描画が反映されません．
ですので，redraw 0 をループの先頭に移動し，ループ終了手前に redraw 1 を配置してみてはどうでしょう．

あ，ループではなかったのか．
いずれにせよ，redraw 0 以降描画をした後には redraw 1 を入れてそれを反映させなければいけません．

回答下さりありがとうございます。おぼです。
下記のようにしてみましたがおんなじ症状でした。
ここがおかしいのでは？というご意見ありましたらお願いいたします。

#include "hsp3dish.as"
*main
redraw 0

	screen 0,600,400,SCREEN_FIXEDSIZE
	color $00,$00,$00:boxf
	color $00,$FF,$00
	font "TAKAOPGOTHIC",50

	;アニメ処理
	pos	0,200:mes "山":await 100
	pos	50,200:mes "山":await 100
	pos	100,200:mes "山":await 100
	pos	150,200:mes "山":await 100
	pos	200,200:mes "山":await 100
	pos	250,200:mes "山":await 100
	pos	300,200:mes "山":await 100
	pos	350,200:mes "山":await 100
	pos	400,200:mes "山":await 100
	pos	450,200:mes "山":await 100
	pos	500,200:mes "山":await 100
	pos	550,200:mes "山":await 100
redraw 1
stop

hsp3dish の場合、画面更新は、redraw 0 で始まり redraw 1 で終わるようにしてください。

	screen 0,600,400,SCREEN_FIXEDSIZE
	font "TAKAOPGOTHIC",50

	;アニメ処理
	//一個目
	redraw 0
	color $00,$00,$00:boxf
	color $00,$FF,$00
	pos	0,200 : mes "山"
	redraw 1 : await 100
	//二個目
	redraw 0
	color $00,$00,$00:boxf
	color $00,$FF,$00
	pos	50,200 : mes "山"
	redraw 1 : await 100
	//三個目
	redraw 0
	color $00,$00,$00:boxf
	color $00,$FF,$00
	pos	100,200 : mes "山"
	redraw 1 : await 100
	//四個目
	redraw 0
	color $00,$00,$00:boxf
	color $00,$FF,$00
	pos	150,200 : mes "山"
	redraw 1 : await 100

//下記 goto でループするバージョン
*main
	if ps = 12 : ps = 0
	redraw 0
	color $00,$00,$00:boxf
	color $00,$FF,$00
	pos	ps * 50,200 : mes "山"
	redraw 1 : await 100
	ps++
goto *main

こんな感じです。

回答下さりありがとうございます。おぼです。

ありがとうございます。うまく行きました。どうも、フォントの指定が引っかかっていたようです。うまく行ったスクリプトを最後に乗せておきます。ありがとうございました。

#include "hsp3dish.as"
*main
screen 0,600,400,SCREEN_FIXEDSIZE
	
	;アニメ処理
	//一個目
	redraw 0
	color $00,$00,$00:boxf
	color $00,$FF,$00
	pos	0,200 : mes "山"
	redraw 1 : await 100
	//二個目
	redraw 0
	color $00,$00,$00:boxf
	color $00,$FF,$00
	pos	50,200 : mes "山"
	redraw 1 : await 100
	//三個目
	redraw 0
	color $00,$00,$00:boxf
	color $00,$FF,$00
	pos	100,200 : mes "山"
	redraw 1 : await 100
	//四個目
	redraw 0
	color $00,$00,$00:boxf
	color $00,$FF,$00
	pos	150,200 : mes "山"
	redraw 1 : await 100

	redraw 0
	color $00,$00,$00:boxf
	color $00,$FF,$00
	pos	200,200 : mes "山"
	redraw 1 : await 100

	redraw 0
	color $00,$00,$00:boxf
	color $00,$FF,$00
	pos	250,200 : mes "山"
	redraw 1 : await 100

	redraw 0
	color $00,$00,$00:boxf
	color $00,$FF,$00
	pos	300,200 : mes "山"
	redraw 1 : await 100

	redraw 0
	color $00,$00,$00:boxf
	color $00,$FF,$00
	pos	350,200 : mes "山"
	redraw 1 : await 100

	redraw 0
	color $00,$00,$00:boxf
	color $00,$FF,$00
	pos	400,200 : mes "山"
	redraw 1 : await 100

	redraw 0
	color $00,$00,$00:boxf
	color $00,$FF,$00
	pos	450,200 : mes "山"
	redraw 1 : await 100

	redraw 0
	color $00,$00,$00:boxf
	color $00,$FF,$00
	pos	500,200 : mes "山"
	redraw 1 : await 100

	redraw 0
	color $00,$00,$00:boxf
	color $00,$FF,$00
	pos	550,200 : mes "山"
	redraw 1 : await 100
stop

おぼです。チェックしてませんでした。すいません。