Triggers have a basic response to character collision

I've hacked the trigger system to create a really basic teleport pad,
using the dirt tile as an indicator. This behaviour is not coded into the
engine, but is in fact scripted in lua.

This commit is messy, due to lack of sleep.

rsc/scripts/map_maker.lua

@@ -62,24 +62,6 @@ function mapMaker.SmoothEdgesSimple(r)
 	end
 end
 
-function mapMaker.PlaceMonsterSpawn(r, x, y, script)
-	--place monster spawns here, highlighted by dirt patches
-
-	--wrong region
-	if  x < Region.GetX(r) or x >= Region.GetX(r) + Region.GetWidth(r) or
-		y < Region.GetY(r) or y >= Region.GetY(r) + Region.GetHeight(r)
-		then
-		return
-	end
-
-	--place a dirt tile, clearing the above layers
-	Region.SetTile(r, x - Region.GetX(r), y - Region.GetY(r), 1, mapMaker.dirt)
-	Region.SetTile(r, x - Region.GetX(r), y - Region.GetY(r), 2, mapMaker.blank)
-	Region.SetTile(r, x - Region.GetX(r), y - Region.GetY(r), 3, mapMaker.blank)
-
-	--TODO: (1) create a monster spawn trigger using the given script
-end
-
 --custom generation systems here
 function mapMaker.DebugIsland(r)
 	--basic distance check for each tile, placing an island around the world origin
@@ -109,9 +91,6 @@ function mapMaker.DebugIsland(r)
 
 	--A generic edge system
 	mapMaker.SmoothEdgesSimple(r)
-
-	--place monster spawns
-	mapMaker.PlaceMonsterSpawn(r, -5, -5, nil)
 end
 
 return mapMaker

rsc/scripts/setup_server.lua

@@ -2,6 +2,7 @@ print("Lua script check")
 
 mapMaker = require("map_maker")
 mapSaver = require("map_saver")
+mapSystem = require("map_system")
 roomSystem = require("room_system")
 characterSystem = require("character_system")
 networkSystem = require("network")
@@ -47,6 +48,17 @@ end)
 local overworld, uid = roomSystem.RoomManager.CreateRoom("overworld", "overworld.bmp")
 roomSystem.Room.Initialize(overworld, mapSaver.Load, mapSaver.Save, mapMaker.DebugIsland, mapSaver.Save)
 
+--debug: test the trigger system
+local pager = roomSystem.Room.GetPager(overworld)
+mapSystem.RegionPager.SetTile(pager, 0, 0, 0, mapMaker.dirt)
+local triggerMgr = roomSystem.Room.GetTriggerMgr(overworld)
+--TODO: (1) What does the trigger script take as a parameter?
+triggerSystem.TriggerManager.Create(triggerMgr, "dirt", 0, 0, 0, 0, 32, 32, function(character)
+	local x, y = characterSystem.Character.GetOrigin(character)
+	characterSystem.Character.SetOrigin(character, x, y + 128)
+	networkSystem.PumpCharacterUpdate(character)
+end)
+
 --debugging
 function dumpTrigger(t)
 	local originX, originY = triggerSystem.Trigger.GetOrigin(t)
@@ -55,6 +67,7 @@ function dumpTrigger(t)
 	print(triggerSystem.Trigger.GetHandle(t), originX, originY, bx, by, bw, bh, s)
 end
 
+--[[
 triggerMgr = roomSystem.Room.GetTriggerMgr(overworld)
 trigger1, uid1 = triggerSystem.TriggerManager.Create(triggerMgr, "handle1")
 trigger2, uid2 = triggerSystem.TriggerManager.Create(triggerMgr, "handle2", 30.2, 40.2)
@@ -63,5 +76,6 @@ trigger3, uid3 = triggerSystem.TriggerManager.Create(triggerMgr, "handle3", 30.2
 dumpTrigger(trigger1)
 dumpTrigger(trigger2)
 dumpTrigger(trigger3)
+--]]
 
 print("Finished the lua script")