HSPTV!掲示板

お久しぶりです。
最初に"質問・教えて"としておきながら少しずつ内容は違うかもしれません。すみません
ダイアログで編集したい画像を選択し、それをウィンドウに表示。マウスでクリックしたところに
ランダムで色がつく。❎ボタンでコントロール画面が表示され保存・再編集・終了。そのようなものを作りました。
現在パソコンがなく、スクリプトを試せないので、どなたか上の一連の動作ができるのか確かめてもらえないでしょうか？
以下スクリプト
< pre>
randomize

//コントロールパネルの作成
screen 1
button"保存",*save
button"再編集",*remake
button"終了",finished
gsel 1,-1

//仮想画面に写真を保存
dialog ,16
buffer 2
picload"refstr",0
xsize = ginfo(12)
ysize = ginfo(13)

*main
screen 0
gmode 0,xsize,ysize
onexit*finish
repeat
stick key
if key=512｛
color rnd(255),rnd(255),rnd(255)
circle mousex-5,mousey-5,mousex+5,mousey+5
await
loop
*finish
gsel 1,2 //コントロールパネルを表示

*save
gsel 1,-1 //コントロールパネルを非表示
bmpsave "gazou"
end

*remake
gsel 1,-1 //コントロールパネルを非表示
goto*main

*finished
end
< pre/>

私の環境だから起こるのかわかりませんが、エラー内容を書きます。

#未初期化の変数があります(finished)
#未初期化の変数があります(key)
???(23) : error 4 : パラメーター式の記述が無効です (23行目)

ちなみに、23行目は
if key=512｛
と書いてあります。

NO.81797・NO.81799さん
NO.81799さんのエラーは「｛」が全角だから、つまり半角にすれば問題ありません。
また、終了ボタンの「*」の抜けも修正すればエラー無く動きます。
が、一先ず、自分の環境では画像が表示されませんでした。

全角半角ミスはすみませんでした。スマホで書いていたものなので...
訂正です。awaitの上に
｝
をお願いします。

なんとなく直すべきところがわかりました。皆さんありがとうございました。
この件については解決とします。
ところでですが、実は画像を流れ作業的な感じで次々と読み込んで編集、保存のような感じにしたいのです。
読み込むファイルはドキュメント内全ファイルが対象です。dirlistを使おうと思ったのですが、ファイル名
しか取得できずドキュメント内全ファイルの絶対パスをまとめて取得すること方法はないでしょうか？

これは順序だてて考えれば分かる事ですが
dirlistで取得出来るファイル名は
カレントディレクトリ内にあるファイルになるので
「カレントディレクトリ+ファイル名」
がフルパスって事になる

full_path=dir_cur+"\\"+"ファイル名"

それはそうなのですが、実際dirlistの返り値は"ファイル名\nファイル名\n"のようになるのでどの
タイミングで足せば良いのかわからないのです。
たとえsplitで\nで分割したとしても保存先の変数を指定しなければなりません。ファイルがいくつあるか
わからない状態ではそれができないかと...。
もしファイル数が100とかだったら手に負えないかと...(配列変数で勝手にやってくれるならありがたい)。

調べてみたら...配列変数にできるのですね。
読み込むところはこんな感じでどうでしょう？試していただけると助かります
dirlist list,"カレントディレクトリ*.*",1
split list,"\n",picture
repeat stat
picture(cnt)="カレントディレクトリ"+ picture(cnt)
loop

screen 0
repeat
exist"picture("+cnt+")"
if strsize = -1 {end｝
picload"picture("+cnt+")",0
loop

皆さんありがとうございました。