[初心者用] 文字色を変更しながら表示するサンプル | Codetter（こーどったー）

;
;ちらちらなしで文字を表示させるサンプル
;

	screen 0,500,300,,(ginfo_dispx-500)/2,(ginfo_dispy-300)/2

	repeat				;repeat-loop で無限ループを作成
	redraw 0			;画面の更新をいったん停止

	font"tahoma",30,17		;書式を定義
	pos -1000,-1000:mes"TEXT"	;文字サイズを取得するために見えないところに文字を表示

	size_x=ginfo_mesx
	size_y=ginfo_mesy

	hsvcolor cnt*2,255,255		;文字色を定義
	pos (500-size_x)/2,(300-size_y)/2:mes"TEXT"

	redraw 1			;描画開始
	wait 5				;少し待つ　※これがないと応答なしになります
	loop				;repeatのところに戻る