HSPTV!掲示板

C言語のscanfみたいなのができず困っています。
ためしにmesboxを使ってやろうと思ったのですが、いきませんでした。
mesboxに、"exit"と打ち込むと指定したラベルに行く…
ということができませんか？

scanfは分かりませんが、
mesbox asm,100,100
というように変数を指定すれば、
監視でき麻酔。

mesbox内にある特定のキーワードの文字を打ちEnterを押すと
指定したラベルに行くという形です。

例えば、flと打ち込むと、*flというラベルに行きファイルの読み込みのダイアログが出てくる
（*flに関しては完成してるので大丈夫です）

という形にしたいのですが無理ですか？

できます。
私のレスポンスを参考に自分でがんばってみるのもまた一興。

面白そうなので作ってみました。

	label = *fl, *exit
	wd = "fl", "exit"
	count = 0, 0
	sdim mbox
	onkey gosub *k
	mesbox mbox, ginfo(12), ginfo(13)
	stop
	
*fl
	dialog "LABEL:*fl"
	return
	
*exit
	end
	return
	
*k
	if wparam = 13 {
		c = 0
		repeat length(label)
			i = instr(mbox, 0, wd(cnt))
			if i != -1 : mbox = strmid(mbox, 0, i) + strmid(mbox, i + strlen(wd(cnt)), strlen(mbox) - (i + strlen(wd(cnt)))) : objprm 0, mbox : count++ : gosub label(cnt) : break
			wait 0
		loop
	}
	return

flと入力してEnterキーを押すと、そのコマンドが消えて*flのラベルにジャンプします。
exitと入力してEnterキーを押すと終了します。

hexa.hemiさんありがとうございます。
あとお願いします。
このmesboxの大きさ指定をできませんか？

mesboxの大きさは、mesboxの二番目と三番目の引数で変更できます。
（二番目の引数が横方向のサイズで、三番目の引数が縦方向のサイズです。）
マニュアルにも書いてあるはずですが…

なんかいつもどうりやってるんですけど、エラーが出ていきません
mesboxを866×539にしたソースをもう一度書いていただければありがたいです。

	label = *fl, *exit
	wd = "fl", "exit"
	sdim mbox, 1024
	onkey gosub *k
	mesbox mbox, 866, 539//ここの866, 539がサイズ
	stop
	
*fl
	dialog "LABEL:*fl"
	return
	
*exit
	end
	return
	
*k
	if wparam = 13 {
		c = 0
		repeat length(label)
			i = instr(mbox, 0, wd(cnt))
			if i != -1 {
				mbox = strmid(mbox, 0, i) + strmid(mbox, i + strlen(wd(cnt)), strlen(mbox) - (i + strlen(wd(cnt))))
				objprm 0, mbox
				gosub label(cnt)
				break
			}
			wait 0
		loop
	}
	return

無駄な部分がありましたので修正しました。
このスクリプトで動くはずですがscreenの大きさがデフォルトでは
640×480になっているため、mesboxの横の部分がはみ出てしまいます。
事前にscreenまたはbgscr命令でサイズを866×539以上にしておいてください。

お手数かけました。
無事完成しました
ありがとうございます

>mesboxを866×539にしたソースをもう一度書いていただければありがたいです。

なんやコイツ。