ドキュメント無し版α！

NScripter Lua うみねこのなく頃に ひぐらしのなく頃に 月姫 オリスク

経過報告 - 永字八法の続き。
ドキュメントが整備されていないけれども、できた。

導入

  • nscr.exeをluaの使えるバージョンに。最新版にするのがベスト。
  • nslua.dllをnscr.exeに同梱。
  • 下記の内容をsystem.luaにコピペして保存。nscr.exeに同梱。
  • 下記の内容をgame_list.txtにコピペして保存。nscr.exeに同梱。

以上。
サンプルの00.txtもつける。

注意書き

以下の命令について、自動的にファイルの場所を探す機能を加えた。

  • bg
  • ld
  • lsp
  • lsph
  • bgm
  • bgmonce
  • loopbgm（ただし、この命令は潜在的なogg関係のバグを持っている）
  • dwave
  • dwaveload
  • dwaveloop

あー、print文の後のdll指定とかにもいるなあ。次のバージョンでつけますよ、と。

2009-08-141追記

bg命令の使い方の一つ、bg white や bg black は対応していません。
これを使う場合は、_bg white と言う風にbgの前にアンダーバーをつけてください。
これはLuaの仕様に関係する制限ですので、今後解決される見通しは立っていません。

system.lua

-- む式 ver.lua おくだけ 2009-05-29
NSExec("nsa")

function error_end(message)
	NSOkBox(message, "む式。")
	NSSystemCall("end")
end

-- nsaも探すよ！
function fileexist_in_nsa(file)
	local temp = NSGetIntValue(0)
	NSExec('_fileexist %0,"'..file..'"')
	local res = NSGetIntValue(0)
	NSSetIntValue(0, temp)
	return res
end

-- nsaは探さないよ！
function fileexist_not_nsa(file)
	local fh = io.open(file)
	if io.type(fh) == nil then
		return 0
	else
		fh:close()
		return 1
	end
end

-- addnsadir を上書き
local add_nsa_dir = ""
NSExec("luasub addnsadir")
function NSCOM_addnsadir()
	addnsadir(NSPopStr())
end
function addnsadir(dir)
	if add_nsa_dir ~= dir then
		NSExec('_addnsadir "'..dir..'"')
		add_nsa_dir = dir
		return true
	end
	return false
end

-- インストールされているゲームの情報を取得
local install_game = {} -- ゲームの情報を格納するテーブル
local keyword2install_game = {} -- ゲームのエイリアスの定義テーブル
local base_dir = 0 -- インストールされている中で一番最後のゲーム番号=デフォルト
do
	local reg1 = ""
	local reg2 = ""
	for line in io.lines("game_list.txt") do -- game_list.txtの中に書いてある。
		local temp1 = {}
		for word in string.gmatch(line, "([^%,]+)%,") do -- 一行をばらす
			table.insert(temp1, word)
		end
		local temp2 = {}
		temp2.title = table.remove(temp1, 1) -- ゲームのタイトルを登録
		reg1 = table.remove(temp1, 1) -- reg1
		reg2 = table.remove(temp1, 1) -- reg2
		NSExec('_getreg $0,"'..reg1..'","'..reg2..'"') -- レジストリを探る
		temp2.dir = NSGetStrValue(0) -- レジストリを登録
		if temp2.dir ~= "" then
			if string.char(temp2.dir:byte(temp2.dir:len())) ~= '\\' then
				temp2.dir = temp2.dir .. '\\' -- 末尾に\がなければ\をつける。
			end
			if fileexist_not_nsa(temp2.dir.."arc.nsa") == 0 then
				temp2.dir = "" -- 存在しないならないことにする。
			end
		end
		table.insert(install_game, temp2)
		temp2.num = # install_game
		for i = 1, # temp1 do
			local temp3 = table.remove(temp1)
			keyword2install_game[temp3] = temp2.num
			keyword2install_game['<'..temp3..'>'] = temp2.num
		end
		if temp2.dir ~= "" then base_dir = temp2.num end
	end
end

-- fileexist
local fileexist_list = {} -- ファイルの有無のキャッシュ
NSExec("luasub fileexist_lua")
function NSCOM_fileexist_lua()
	local res = NSPopIntRef()
	NSPopComma()
	local file = NSPopStr()
	NSPopComma()
	local mode = NSPopInt()
	if mode == 0 then mode = nil end
	if mode == 1 then mode = true end
	NSSetIntValue(res, fileexist(file, mode))
end
function fileexist(file, mode, ...) -- ファイルの有無をディレクトリを切り替えながら調べる。なければnil、あれば、ディレクトリの番号を返す。
	fileexist_list[file] = fileexist_list[file] or {} -- 初期化
	local dir_code = ... -- 初期検索ディレクトリを決定
	dir_code = dir_code or base_dir
	return fileexist_recursion(file, mode, dir_code) -- 実行
end
-- fileexist の本体
function fileexist_recursion(file, mode, dir_code)
	if dir_code == 0 then return nil end -- 再帰終了
	if install_game[dir_code].dir == "" then -- そのディレクトリ番号がなければ。
		return fileexist_recursion(file, mode, dir_code - 1) -- 再帰
	end
	if fileexist_list[file][dir_code] == nil then -- キャッシュがなければ
		if mode == nil then
			if chnsa(dir_code) then
				fileexist_list[file][dir_code] = fileexist_in_nsa(file)
			else
				fileexist_list[file][dir_code] = 0
			end
		else
			fileexist_list[file][dir_code] = fileexist_not_nsa(install_game[dir_code].dir..file)
		end
	end
	if fileexist_list[file][dir_code] == 1 then return dir_code end
	return fileexist_recursion(file, mode, dir_code - 1) -- 再帰
end

-- chnsaを作成
NSExec("luasub chnsa")
function NSCOM_chnsa()
	local id = NSPopID()
	local new_dir = keyword2install_game[id:lower()]
	if type(new_dir) == "number" then
		base_dir = new_dir
		chnsa(base_dir)
	else
		error_end(id.."は有効なIDではありません。")
	end
end
NSExec("luasub music_set")
NSCOM_music_set = NSCOM_chnsa
function chnsa(code)
	if install_game[code].dir == "" then return false end
	addnsadir(install_game[code].dir)
	return true
end

-- recommend を作成
NSExec("luasub recommend")
function NSCOM_recommend()
	local id = NSPopID()
	local new_dir = keyword2install_game[id:lower()]
	if type(new_dir) == "number" then
		if install_game[new_dir].dir == "" then
			error_end(install_game[new_dir].title.."はインストールされていません。")
		end
	else
		error_end(id.."は有効なIDではありません。")
	end
end

-- ファイルを判別し、必要ならchnsaする。もしなければそこで止まる。
NSExec("luasub file_identify")
function NSCOM_file_identify()
	local res = NSPopStrRef()
	NSPopComma()
	NSSetStrValue(res, file_identify(NSPopStr(), true))
end
function file_identify(fulltag, mode)
	local tag = ""
	local file = ""
	tag, file = head_cutter(fulltag, ";") -- タグとファイル部分に分ける。
	local time_param = ""
	local head = string.char(file:byte(1)) -- 最初の一文字を取得。
	if head == "#" then -- 文字列スプライトの場合
		return fulltag
	elseif head == ">" then -- 塗りつぶし長方形の場合
		return fulltag
	elseif head == "(" then -- oggのアレの場合
		time_param, file = head_cutter(file, ")")
	end
	local dir = ""
	dir, file = head_cutter(file, ">") -- 独自仕様
	local dir_code = base_dir
	if dir ~= "" then dir_code = keyword2install_game[dir:lower()] end
	if dir_code == nil then error_end(dir.."は無効なIDです。") end
	if mode then
		if fileexist_not_nsa(file) == 1 then return time_param..file end
	end
	dir_code = fileexist(file, mode, dir_code)
	if dir_code == nil then error_end(file.."は存在しません。") end
	if mode == nil then
		chnsa(dir_code)
		return tag..file
	else
		return time_param..install_game[dir_code].dir..file
	end
end

-- ある文字列の先頭にある形式のものがあれば、それを分離して返す。
function head_cutter(str, rep)
	local flag = false
	local head = ""
	local body = ""
	local letter = ""
	for i = 1, str:len() do
		letter = string.char(str:byte(i))
		if flag == false then
			head = head .. letter
		else
			body = body .. letter
		end
		if letter == rep then flag = true end
	end
	if body == "" then head, body = body, head end
	return head, body
end

-- ld を上書き
NSExec("luasub ld")
function NSCOM_ld()
	local id = NSPopID()
	NSPopComma()
	local str = file_identify(NSPopStr())
	NSPopComma()
	NSExec('_ld '..id..',"'..str..'",'..NSPopInt())
	chnsa(base_dir)
end
-- bg を上書き
NSExec("luasub bg")
function NSCOM_bg()
	local str = file_identify(NSPopStr())
	NSPopComma()
	NSExec('_bg "'..str..'",'..NSPopInt())
	chnsa(base_dir)
end
-- lsp, lsph を上書き
NSExec("luasub lsp")
NSExec("luasub lsph")
function NSCOM_lsp()
	lsp(true)
end
function NSCOM_lsph()
	lsp(false)
end
function lsp(visible)
	local sp = NSPopInt()
	NSPopComma()
	local str = file_identify(NSPopStr())
	NSPopComma()
	local x = NSPopInt()
	NSPopComma()
	local y = NSPopInt()
	local alpha = 255
	if NSCheckComma() then
		NSPopComma()
		alpha = NSPopInt()
	end
	NSSpLoad(sp, str)
	NSSpMove(sp, x, y, alpha)
	NSSpVisible(sp, visible)
end
-- 既存命令の上書き
NSExec("luasub bgm")
function NSCOM_bgm()
	NSExec('_bgm "'..file_identify(NSPopStr(), true)..'"')
end
NSExec("luasub bgmonce")
function NSCOM_bgmonce()
	NSExec('_bgmonce "'..file_identify(NSPopStr(), true)..'"')
end
NSExec("luasub loopbgm")
function NSCOM_loopbgm()
	local file1 = NSPopStr()
	NSPopComma()
	local file2 = NSPopStr()
	NSExec('_loopbgm "'..file_identify(NSPopStr(), true)..'","'..file_identify(NSPopStr(), true)..'"')
end
NSExec("luasub dwave")
function NSCOM_dwave()
	local ch = NSPopInt()
	NSPopComma()
	NSExec('_dwave '..ch..',"'..file_identify(NSPopStr(), true)..'"')
end
NSExec("luasub dwaveload")
function NSCOM_dwaveload()
	local ch = NSPopInt()
	NSPopComma()
	NSExec('_dwaveload '..ch..',"'..file_identify(NSPopStr(), true)..'"')
end
NSExec("luasub dwaveloop")
function NSCOM_dwaveloop()
	local ch = NSPopInt()
	NSPopComma()
	NSExec('_dwaveloop '..ch..',"'..file_identify(NSPopStr(), true)..'"')
end

game_list.txt

歌月十夜,Software\TYPE-MOON\歌月十夜,directory,sm,singingmoon,
ひぐらしのなく頃に　鬼隠し編,Software\07th_Expansion\higurasi,gamedir,h1,higurasi1,
ひぐらしのなく頃に　綿流し編,Software\07th_Expansion\higurasi2,gamedir,h2,higurasi2,
ひぐらしのなく頃に　祟殺し編,Software\07th_Expansion\higurasi3,gamedir,h3,higurasi3,
ひぐらしのなく頃に　暇潰し編,Software\07th_Expansion\higurasi4,gamedir,h4,higurasi4,
ひぐらしのなく頃に解　目明し編,Software\07th_Expansion\higurasi5,gamedir,h5,higurasi5,
ひぐらしのなく頃に解　罪滅し編,Software\07th_Expansion\higurasi6,gamedir,h6,higurasi6,
ひぐらしのなく頃に解　皆殺し編,Software\07th_Expansion\higurasi7,gamedir,h7,higurasi7,
ひぐらしのなく頃に解　祭囃し編,Software\07th_Expansion\higurasi8,gamedir,h8,higurasi8,
ひぐらしのなく頃に礼,Software\07th_Expansion\higurasi9,gamedir,h9,higurasi9,
うみねこのなく頃に　Legend of the golden witch,Software\07th_Expansion\Umineko1,gamedir,u1,umineko1,
うみねこのなく頃に　Turn of the golden witch,Software\07th_Expansion\Umineko2,gamedir,u2,umineko2,
うみねこのなく頃に　Banquet of the golden witch,Software\07th_Expansion\Umineko3,gamedir,u3,umineko3,
うみねこのなく頃に　Alliance of the golden witch,Software\07th_Expansion\Umineko4,gamedir,u4,umineko4,
うみねこのなく頃に５,Software\07th_Expansion\Umineko5,gamedir,u5,umineko5,
うみねこのなく頃に６,Software\07th_Expansion\Umineko6,gamedir,u6,umineko6,
うみねこのなく頃に７,Software\07th_Expansion\Umineko7,gamedir,u7,umineko7,
うみねこのなく頃に８,Software\07th_Expansion\Umineko8,gamedir,u8,umineko8,

00.txt

*define
killmenu 7
killmenu 4
killmenu 2
game
*start
caption "月下の魔女たち"
bgm "WAV\LP\depressive paranoia(心象音楽系).mp3"
bg "image\bg\ima_18.jpg",0
ld r,":a;image\tachi\ren_t06.jpg",0
ld c,":a;bmp\tati\rika\nekomimi\ri_waraia1.bmp",0
ld l,":a;bmp\TATI\ber\1\ber_akuwaraia1.bmp",0
print 1
click
end