Kayne Ruse
121 lines
3.7 KiB
Lua
121 lines
3.7 KiB
Lua
print("Lua script check")
|
|
|
|
--requirements
|
|
roomManagerAPI = require("room_manager")
|
|
roomAPI = require("room")
|
|
|
|
mapMaker = require("map_maker")
|
|
mapSaver = require("map_saver")
|
|
|
|
characterAPI = require("character")
|
|
entityAPI = require("entity")
|
|
networkAPI = require("network")
|
|
|
|
regionPagerAPI = require("region_pager")
|
|
triggerAPI = require("trigger")
|
|
triggerManagerAPI = require("trigger_manager")
|
|
|
|
--test the room hooks
|
|
roomManagerAPI.SetOnCreate(function(room, index)
|
|
print("", "Creating room: ", roomAPI.GetName(room), index)
|
|
|
|
roomAPI.SetOnTick(room, function(room)
|
|
roomAPI.ForEachCharacter(room, function(character)
|
|
--
|
|
end)
|
|
end)
|
|
end)
|
|
|
|
roomManagerAPI.SetOnUnload(function(room, index)
|
|
print("", "Unloading room: ", roomAPI.GetName(room), index)
|
|
end)
|
|
|
|
--NOTE: room 0 is the first that the client asks for, therefore it must exist
|
|
local overworld, uidOne = roomManagerAPI.CreateRoom("overworld", "overworld.bmp")
|
|
roomAPI.Initialize(overworld, mapSaver.Load, mapSaver.Save, mapMaker.DebugIsland, mapSaver.Save)
|
|
local underworld, uidTwo = roomManagerAPI.CreateRoom("underworld", "overworld.bmp")
|
|
roomAPI.Initialize(underworld, mapSaver.Load, mapSaver.Save, mapMaker.DebugGrassland, mapSaver.Save)
|
|
|
|
--NOTE: test the trigger system
|
|
|
|
function createTrigger(handle, room, x, y, script)
|
|
local pager = roomAPI.GetPager(room)
|
|
|
|
--place the indicator tile
|
|
regionPagerAPI.SetTile(pager, x / 32, y / 32, 0, mapMaker.dirt)
|
|
regionPagerAPI.SetTile(pager, x / 32, y / 32, 1, mapMaker.blank)
|
|
regionPagerAPI.SetTile(pager, x / 32, y / 32, 2, mapMaker.blank)
|
|
|
|
--create the trigger object
|
|
triggerManagerAPI.Create(
|
|
roomAPI.GetTriggerMgr(room), handle, x, y,
|
|
0, 0, 32, 32, --size of the tiles
|
|
script
|
|
)
|
|
end
|
|
|
|
function createDoorPair(handle, roomOne, roomOneUID, Xone, Yone, roomTwo, roomTwoUID, Xtwo, Ytwo)
|
|
--create the scripts
|
|
local function scriptOne(entity)
|
|
if entityAPI.GetType(entity) ~= "character" then return end
|
|
|
|
--move the character
|
|
characterAPI.SetRoomIndex(entity, roomTwoUID)
|
|
characterAPI.SetOrigin(entity, Xtwo, Ytwo-16)
|
|
networkAPI.PumpCharacterUpdate(entity)
|
|
|
|
--disable the other trigger
|
|
local triggerTwo = triggerManagerAPI.GetTrigger(roomAPI.GetTriggerMgr(roomTwo), handle)
|
|
triggerAPI.PushExclusionEntity(triggerTwo, entity)
|
|
end
|
|
|
|
local function scriptTwo(entity)
|
|
if entityAPI.GetType(entity) ~= "character" then return end
|
|
|
|
--move the character
|
|
characterAPI.SetRoomIndex(entity, roomOneUID)
|
|
characterAPI.SetOrigin(entity, Xone, Yone-16) --NOTE: the 16 pixel margin for presentation
|
|
networkAPI.PumpCharacterUpdate(entity)
|
|
|
|
--disable the other trigger
|
|
local triggerOne = triggerManagerAPI.GetTrigger(roomAPI.GetTriggerMgr(roomOne), handle)
|
|
triggerAPI.PushExclusionEntity(triggerOne, entity)
|
|
end
|
|
|
|
--create the triggers proper
|
|
createTrigger(handle, roomOne, Xone, Yone, scriptOne)
|
|
createTrigger(handle, roomTwo, Xtwo, Ytwo, scriptTwo)
|
|
end
|
|
|
|
--call the monstrosity
|
|
createDoorPair("pair 1", overworld, uidOne, 0, -64, underworld, uidTwo, 0, 0)
|
|
createDoorPair("pair 2", overworld, uidOne, 64, -64, underworld, uidTwo, 64, 0)
|
|
createDoorPair("pair 3", overworld, uidOne, 128, -64, underworld, uidTwo, 128, 0)
|
|
|
|
--[[
|
|
--simple door pair
|
|
createTrigger("door 1", overworld, 128, -128, function(entity)
|
|
if entityAPI.GetType(entity) ~= "character" then
|
|
return
|
|
end
|
|
|
|
--move the character
|
|
characterAPI.SetRoomIndex(entity, uidTwo)
|
|
characterAPI.SetOrigin(entity, 0, 0)
|
|
networkAPI.PumpCharacterUpdate(entity)
|
|
end)
|
|
|
|
createTrigger("door 1", underworld, 128, -128, function(entity)
|
|
if entityAPI.GetType(entity) ~= "character" then
|
|
return
|
|
end
|
|
|
|
--move the character
|
|
characterAPI.SetRoomIndex(entity, uidOne)
|
|
characterAPI.SetOrigin(entity, 0, 0)
|
|
networkAPI.PumpCharacterUpdate(entity)
|
|
end)
|
|
--]]
|
|
|
|
print("Finished the lua script")
|