Initial commit
This commit is contained in:
397
devtools/create_ultima/files/ultima6/scripts/common/common.lua
Normal file
397
devtools/create_ultima/files/ultima6/scripts/common/common.lua
Normal file
@@ -0,0 +1,397 @@
|
||||
--note nuvie direction values aren't the same as the original it uses the following scheme
|
||||
--701
|
||||
--6 2
|
||||
--543
|
||||
|
||||
DIR_NORTH = 0
|
||||
DIR_EAST = 1
|
||||
DIR_SOUTH = 2
|
||||
DIR_WEST = 3
|
||||
DIR_NORTHEAST = 4
|
||||
DIR_SOUTHEAST = 5
|
||||
DIR_SOUTHWEST = 6
|
||||
DIR_NORTHWEST = 7
|
||||
DIR_NONE = 8
|
||||
|
||||
|
||||
UI_STYLE_ORIG = 0
|
||||
UI_STYLE_NEW = 1
|
||||
UI_STYLE_ORIG_PLUS_CUTOFF_MAP = 2
|
||||
UI_STYLE_ORIG_PLUS_FULL_MAP = 3
|
||||
|
||||
STACK_OBJECT_QTY = true
|
||||
|
||||
movement_offset_x_tbl = {0, 1, 1, 1, 0, -1, -1, -1}
|
||||
movement_offset_y_tbl = {-1, -1, 0, 1, 1, 1, 0, -1 }
|
||||
|
||||
if not setfenv then -- Lua 5.2
|
||||
-- based on http://lua-users.org/lists/lua-l/2010-06/msg00314.html
|
||||
-- this assumes f is a function
|
||||
local function findenv(f)
|
||||
local level = 1
|
||||
repeat
|
||||
local name, value = debug.getupvalue(f, level)
|
||||
if name == '_ENV' then return level, value end
|
||||
level = level + 1
|
||||
until name == nil
|
||||
return nil
|
||||
end
|
||||
getfenv = function (f) return(select(2, findenv(f)) or _G) end
|
||||
setfenv = function (f, t)
|
||||
local level = findenv(f)
|
||||
if level then debug.setupvalue(f, level, t) end
|
||||
return f
|
||||
end
|
||||
end
|
||||
|
||||
function get_target()
|
||||
local loc = coroutine.yield("target")
|
||||
|
||||
return loc
|
||||
end
|
||||
|
||||
function get_direction(prompt)
|
||||
|
||||
if prompt ~= nil then
|
||||
print(prompt)
|
||||
end
|
||||
|
||||
local dir = coroutine.yield("dir")
|
||||
|
||||
return dir
|
||||
end
|
||||
|
||||
function really_get_direction(prompt)
|
||||
|
||||
if prompt ~= nil then
|
||||
print(prompt)
|
||||
end
|
||||
|
||||
local dir = coroutine.yield("need_dir")
|
||||
|
||||
return dir
|
||||
end
|
||||
|
||||
function direction_string(dir)
|
||||
if dir ~= nil then
|
||||
if dir == DIR_NORTH then return "north" end
|
||||
if dir == DIR_NORTHEAST then return "northeast" end
|
||||
if dir == DIR_EAST then return "east" end
|
||||
if dir == DIR_SOUTHEAST then return "southeast" end
|
||||
if dir == DIR_SOUTH then return "south" end
|
||||
if dir == DIR_SOUTHWEST then return "southwest" end
|
||||
if dir == DIR_WEST then return "west" end
|
||||
if dir == DIR_NORTHWEST then return "northwest" end
|
||||
end
|
||||
|
||||
return "unknown"
|
||||
end
|
||||
|
||||
local dir_rev_tbl =
|
||||
{
|
||||
[DIR_NORTH] = DIR_SOUTH,
|
||||
[DIR_NORTHEAST] = DIR_SOUTHWEST,
|
||||
[DIR_EAST] = DIR_WEST,
|
||||
[DIR_SOUTHEAST] = DIR_NORTHWEST,
|
||||
[DIR_SOUTH] = DIR_NORTH,
|
||||
[DIR_SOUTHWEST] = DIR_NORTHEAST,
|
||||
[DIR_WEST] = DIR_EAST,
|
||||
[DIR_NORTHWEST] = DIR_SOUTHEAST
|
||||
}
|
||||
|
||||
function direction_reverse(dir) return dir_rev_tbl[dir] end
|
||||
|
||||
local g_dir_offset_tbl =
|
||||
{
|
||||
[DIR_NORTH] = {["x"]=0, ["y"]=-1},
|
||||
[DIR_NORTHEAST] = {["x"]=1, ["y"]=-1},
|
||||
[DIR_EAST] = {["x"]=1, ["y"]=0},
|
||||
[DIR_SOUTHEAST] = {["x"]=1, ["y"]=1},
|
||||
[DIR_SOUTH] = {["x"]=0, ["y"]=1},
|
||||
[DIR_SOUTHWEST] = {["x"]=-1, ["y"]=1},
|
||||
[DIR_WEST] = {["x"]=-1, ["y"]=0},
|
||||
[DIR_NORTHWEST] = {["x"]=-1, ["y"]=-1},
|
||||
[DIR_NONE] = {["x"]=0, ["y"]=0}
|
||||
}
|
||||
|
||||
function direction_get_loc(dir, from_x, from_y)
|
||||
return g_dir_offset_tbl[dir].x + from_x, g_dir_offset_tbl[dir].y + from_y
|
||||
end
|
||||
|
||||
function abs(val)
|
||||
if val < 0 then
|
||||
return -val
|
||||
end
|
||||
|
||||
return val
|
||||
end
|
||||
|
||||
--collect Yes/No input from user and return true if Yes selected. false otherwise.
|
||||
function input_should_proceed()
|
||||
local input = input_select("yn", true)
|
||||
print("\n")
|
||||
if input == nil or input == "N" or input == "n" then
|
||||
return false
|
||||
end
|
||||
|
||||
return true
|
||||
end
|
||||
|
||||
function play_midgame_sequence(seq_num)
|
||||
local ui_style = game_get_ui_style()
|
||||
|
||||
canvas_show()
|
||||
canvas_hide_all_sprites()
|
||||
canvas_set_opacity(0xff);
|
||||
canvas_set_update_interval(25)
|
||||
canvas_rotate_game_palette(true)
|
||||
|
||||
local bg = sprite_new(nil, 8, 16, true)
|
||||
local avatar = sprite_new(nil, 8, 16, false)
|
||||
|
||||
local text_sprite
|
||||
--local text_sprite_bg
|
||||
|
||||
if ui_style == UI_STYLE_ORIG then
|
||||
canvas_set_solid_bg(false)
|
||||
else
|
||||
--[[
|
||||
text_sprite_bg = sprite_new(nil, 8, 160, true)
|
||||
text_sprite_bg.text_align = 2
|
||||
text_sprite_bg.text_color = 14
|
||||
--]]
|
||||
text_sprite = sprite_new(nil, 8, 160, true)
|
||||
text_sprite.text_align = 2
|
||||
text_sprite.text_color = 15
|
||||
bg.x = 80
|
||||
bg.y = 12
|
||||
avatar.x = 80
|
||||
avatar.y = 12
|
||||
end
|
||||
|
||||
local midgame_data = midgame_load("midgame"..string.format("%x", seq_num)..".lzc")
|
||||
local i = 0
|
||||
local data = midgame_data[i]
|
||||
|
||||
|
||||
|
||||
while data ~= nil do
|
||||
bg.image = data.images[0]
|
||||
if data.images[1] ~= nil then
|
||||
local gender = player_get_gender()
|
||||
avatar.image = data.images[1+gender]
|
||||
avatar.visible = true
|
||||
else
|
||||
avatar.visible = false
|
||||
end
|
||||
|
||||
local j = 0
|
||||
local text = data.text[j]
|
||||
while text ~= nil do
|
||||
if text ~= "*END*" then
|
||||
if ui_style == UI_STYLE_ORIG then
|
||||
clear_scroll()
|
||||
print(text)
|
||||
else
|
||||
text_sprite.text = text
|
||||
--text_sprite_bg.text = text
|
||||
end
|
||||
|
||||
local input = nil
|
||||
while input == nil do
|
||||
canvas_update()
|
||||
input = input_poll()
|
||||
if input ~= nil then
|
||||
break
|
||||
end
|
||||
end
|
||||
end
|
||||
j = j + 1
|
||||
text = data.text[j]
|
||||
end
|
||||
i = i + 1
|
||||
data = midgame_data[i]
|
||||
end
|
||||
|
||||
if ui_style == UI_STYLE_ORIG then
|
||||
clear_scroll()
|
||||
end
|
||||
canvas_set_solid_bg(true)
|
||||
canvas_rotate_game_palette(false)
|
||||
canvas_hide()
|
||||
end
|
||||
|
||||
function get_wrapped_dist(pt1, pt2)
|
||||
local diff
|
||||
|
||||
if pt2 >= pt1 then
|
||||
diff = pt2 - pt1
|
||||
else
|
||||
diff = pt1 - pt2
|
||||
end
|
||||
|
||||
if diff > 512 then
|
||||
diff = 1024 - diff
|
||||
end
|
||||
|
||||
return diff
|
||||
end
|
||||
|
||||
function get_anim_index_for_tile(tile_number)
|
||||
local total_anims = anim_get_number_of_entries()
|
||||
for i=0,total_anims-1 do
|
||||
if anim_get_tile(i) == tile_number then
|
||||
return i
|
||||
end
|
||||
end
|
||||
|
||||
return nil
|
||||
end
|
||||
|
||||
function altcode_242_set_actor_talk_flag()
|
||||
print("NPC: ")
|
||||
local input = input_select(nil, true)
|
||||
local actor_num = tonumber(input, 16)
|
||||
local actor = Actor.get(actor_num)
|
||||
print("\n"..actor.name.."\n")
|
||||
print("flags: \n") --FIXME print talk flags
|
||||
print("\nBit: ")
|
||||
local bit = input_select_integer(nil, true)
|
||||
local value = Actor.get_talk_flag(actor, bit)
|
||||
local value_str = "off"
|
||||
if value == true then
|
||||
value_str = "on"
|
||||
end
|
||||
print(" is "..value_str..".\n")
|
||||
print("New value? ")
|
||||
value = input_select_integer(nil, true)
|
||||
|
||||
value_str = "off"
|
||||
|
||||
if value == 1 or value == "o" then
|
||||
value_str = "on"
|
||||
Actor.set_talk_flag(actor, bit)
|
||||
else
|
||||
Actor.clear_talk_flag(actor, bit)
|
||||
end
|
||||
print("\n"..value_str.."\n")
|
||||
end
|
||||
|
||||
function altcode_250_create_object()
|
||||
print("Create Item:\nType:0x")
|
||||
local input = input_select(nil, true)
|
||||
local obj_n = tonumber(input, 16)
|
||||
local obj = Obj.new(obj_n)
|
||||
local tmp_obj = Obj.new(obj_n+1)
|
||||
if tmp_obj ~= nil and tmp_obj.tile_num - obj.tile_num > 1 then
|
||||
print("\nFrame:0x")
|
||||
input = input_select(nil, true)
|
||||
obj.frame_n = tonumber(input, 16)
|
||||
end
|
||||
|
||||
print("\nQual:0x")
|
||||
input = input_select(nil, true)
|
||||
obj.quality = tonumber(input, 16)
|
||||
|
||||
if obj.stackable or create_object_needs_quan(obj_n) then
|
||||
print("\nQuan:0x")
|
||||
input = input_select(nil, true)
|
||||
obj.qty = tonumber(input, 16)
|
||||
end
|
||||
Obj.moveToInv(obj, Actor.get(1).actor_num)
|
||||
print("\n")
|
||||
end
|
||||
|
||||
function altcode_913_export_tmx_map_files()
|
||||
print("\nExport maps to savedir? ")
|
||||
|
||||
if not input_should_proceed() then
|
||||
return
|
||||
end
|
||||
|
||||
print("saving.\n")
|
||||
script_wait(1)
|
||||
if map_export_tmx_files() == true then
|
||||
print("done.\n\n")
|
||||
else
|
||||
print("error!!\n\n")
|
||||
end
|
||||
end
|
||||
|
||||
function altcode_914_export_tileset()
|
||||
print("Exporting tileset to \"data/images/tiles/"..config_get_game_type().."/custom_tiles.bmp\" in the savegame directory.\n")
|
||||
if not tileset_export() then
|
||||
print("file already exists. Overwrite? ")
|
||||
if not input_should_proceed() then
|
||||
return
|
||||
end
|
||||
tileset_export(true)
|
||||
end
|
||||
print("done.\n\n")
|
||||
end
|
||||
|
||||
function altcode_999_find_objs_on_map()
|
||||
print("Find Object\nObj_n: ")
|
||||
local input = input_select(nil, true)
|
||||
local obj_n = tonumber(input, 10)
|
||||
if obj_n == nil then
|
||||
print("Nothing.\n")
|
||||
return
|
||||
end
|
||||
print("\nFrame: ")
|
||||
input = input_select(nil, true)
|
||||
local frame_n = tonumber(input, 10)
|
||||
print("\nQuality: ")
|
||||
input = input_select(nil, true)
|
||||
local quality = tonumber(input, 10)
|
||||
print("\nz: ")
|
||||
input = input_select(nil, true)
|
||||
local z = tonumber(input, 10)
|
||||
if z == nil then
|
||||
z = 0
|
||||
end
|
||||
print("\n")
|
||||
for obj in find_obj(z, obj_n, frame_n, quality) do
|
||||
print(string.format("OBJ: (%x,%x,%x)\n", obj.x, obj.y, obj.z))
|
||||
party_move(obj.x, obj.y, obj.z)
|
||||
print("continue? ")
|
||||
input = input_select("yn", false)
|
||||
print("\n")
|
||||
if input == "N" or input == "n" then
|
||||
return
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
local altcode_tbl = {
|
||||
[242]=altcode_242_set_actor_talk_flag,
|
||||
[250]=altcode_250_create_object,
|
||||
[913]=altcode_913_export_tmx_map_files,
|
||||
[914]=altcode_914_export_tileset,
|
||||
[999]=altcode_999_find_objs_on_map,
|
||||
}
|
||||
|
||||
function handle_alt_code(altcode)
|
||||
local func = altcode_tbl[altcode]
|
||||
if func ~= nil then
|
||||
func()
|
||||
end
|
||||
end
|
||||
|
||||
function get_actor_or_obj_from_loc(location)
|
||||
local target = map_get_actor(location)
|
||||
if target == nil then
|
||||
target = map_get_obj(location)
|
||||
end
|
||||
return target
|
||||
end
|
||||
|
||||
--load other common functions
|
||||
|
||||
local lua_file = nil
|
||||
|
||||
lua_file = nuvie_load("common/lang.lua");
|
||||
lua_file();
|
||||
lang_init("game")
|
||||
|
||||
lua_file = nuvie_load("common/actor.lua"); lua_file();
|
||||
Reference in New Issue
Block a user