HSPTV!掲示板

この記事は投稿者により削除されました。
2015/1/9(Fri) 17:55:45

・あらかじめ配列変数で用意しておいて、repeat〜Loop内でcntを使って呼び出す。
・数値変化の規則性を利用してcntを使って毎回計算させる。
ですかね。

これではアカンですか？

pos ginfo_winx/2-200,ginfo_winy/2-200

repeat 3
	gcopy 0,cnt*400,0,400,400
	await 100
loop 

最初からある外側のrepeat〜loop処理は必要なのでしょうか？

たんす様、ZAP様、返信ありがとうございます。
ZAP様が載せてくださったスクリプトを実行しましたところ、マウスを押す前に終了してしまいました。
どうしたらマウスを押してから終了できますでしょうか？

gcopyで描画したあと、無限ループを廻すとか

pos ginfo_winx/2-200,ginfo_winy/2-200

repeat 3
gcopy 0,cnt*400,0,400,400
await 100
loop

repeat
await 100
loop

>>内容は別として上の3つのgcopyを1つにまとめたいのですがどうしたらいいですか？

たんすさんも仰っているように、配列変数を使うと良かもしれないです。

//----初期化
onclick *label	;クリック割り込み
pics=3	;画像数
dim id,pics	;画像ID
dim posx,pisc	;画像位置X
dim posy,pisc	;画像位置Y
dim sizx,pisc	;画像サイズX
dim sizy,pisc	;画像サイズY

//----画像表示情報登録
id.0=0	:posx.0=0	:posy.0=0	:sizx.0=400	:sizy.0=400	;画像1
id.1=0	:posx.1=400	:posy.1=0	:sizx.1=400	:sizy.1=400	;画像2
id.2=0	:posx.2=800	:posy.2=0	:sizx.2=400	:sizy.2=400	;画像3

//----メイン
repeat
	_cnt=cnt\3	;表示させる画像ID
	gcopy id._cnt , posx._cnt ,  posy._cnt ,  sizx._cnt , sizy._cnt
	await 100	;一時的に待つ
loop

//----終了？
*label
end

初期設定が少々多いです。

Thankyou！！