Kayne Ruse
decc77e21c
This will only work for userdata decented from the Entity base class. Using something else results in undefined behavior.
60 lines
1.7 KiB
Lua
60 lines
1.7 KiB
Lua
print("Lua script check")
|
|
|
|
--requirements
|
|
roomManagerAPI = require("room_manager")
|
|
roomAPI = require("room")
|
|
|
|
mapMaker = require("map_maker")
|
|
mapSaver = require("map_saver")
|
|
|
|
--test the room hooks
|
|
roomManagerAPI.SetOnCreate(function(room, index)
|
|
print("", "Creating room: ", roomAPI.GetName(room), index)
|
|
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, uid = roomManagerAPI.CreateRoom("overworld", "overworld.bmp")
|
|
roomAPI.Initialize(overworld, mapSaver.Load, mapSaver.Save, mapMaker.DebugIsland, mapSaver.Save)
|
|
|
|
--debug: test the trigger system
|
|
--TODO: (0) What userdata type does the trigger script take as a parameter?
|
|
|
|
regionPagerAPI = require("region_pager")
|
|
triggerManagerAPI = require("trigger_manager")
|
|
|
|
function createTrigger(handle, room, x, y, script)
|
|
local pager = roomAPI.GetPager(room)
|
|
|
|
--place the indicator tile
|
|
regionPagerAPI.SetTile(pager, x, y, 0, mapMaker.dirt)
|
|
regionPagerAPI.SetTile(pager, x, y, 1, mapMaker.blank)
|
|
regionPagerAPI.SetTile(pager, x, y, 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
|
|
|
|
characterAPI = require("character")
|
|
entityAPI = require("entity")
|
|
networkAPI = require("network")
|
|
|
|
--simple teleporter
|
|
createTrigger("trigger 1", overworld, 0, 0, function(entity)
|
|
if entityAPI.GetType(entity) ~= "character" then
|
|
return
|
|
end
|
|
local x, y = characterAPI.GetOrigin(entity)
|
|
characterAPI.SetOrigin(entity, x, y + 128)
|
|
networkAPI.PumpCharacterUpdate(entity)
|
|
end)
|
|
|
|
print("Finished the lua script")
|