bexecをはじめて使った。

bexecを初めて使ってみた。
ただ単にキー入力をcaptionで表示するだけ。

00.txt

*define
game
*start
saveoff
lsp 0,":l/3,200,2;cursor0.bmp",100,100
print 1
~
my_click $1
jumpb

system.lua

-- system

NSExec("luasub my_click")
local before
local count = 0
function NSCOM_my_click()
	local res = NSPopStrRef()
	NSExec("bclear")
	NSExec("bcursor")
	local input = ""
	NSExec("bexec $0,%0")
	input = NSGetStrValue(0)
	if input == before then count = count + 1 else count = 0 end
	before = input
	NSExec('caption "'..input..' '..count..'"')
	NSSetStrValue(res, input)
end

感想

bexecが入力待ちありだったとは知らなかった。いまさらだが。