Well, that was annoying. Seems that emitted AI don't get the Firer link like they're supposed to. Or rather, they do but it disappears in some mysterious way that I can't track because it doesn't fire the listener callback! So I have to resort to manually adding the link.

And I can't access my FTP at the moment, so I'll just pastbin it.
(http://pastebin.com/YHSZzmyp)
(http://pastebin.com/fR6CNvAS)

Yes, "FireShadowFlee", not "FireShadowFree". And the old description wasn't very accurate. The TimeWarp property is a motion time scale, not speed. So the value has to be decreased to make it go faster. I couldn't remember what the actual values were so I made something up that is close enough. And instead of manually checking if the spawn point is visible, just set the flicker tweq to "Offscreen". You just need to make the trap have a RenderType. (Follow the property description in the comments.)

Have you read the language guide I wrote? (http://dromed.whoopdedo.org/lgscript/lua)

Those scripts will be included in PublicScripts. It's just easier and faster to try it out in Lua first. That took about 6 hours and half of that was figuring out why the Firer link wasn't working. (plus twenty minutes to track down a bug in darkhooks.)

T*edit* I'm also thinking of a different way to dispatch timed messages. Each message is delivered as a Timer message with a specific name. So you need a function named "Timer" that tests the name. Wouldn't it be easier to deliver the message to a function with the specific name instead? The message name would still be "Timer" so the function can tell if it's being called with a regular message or a timed message. There's just the concern that it would be too confusing since the same message name would come from two different events.

--[[
FireShadow {
Game\DamageModel\SlayResult = NoEffect
AI\AbilitySettings\FleeCondition = { OnLowHitpoints; 0; 100; }
Links\CorpsePart: FireCrystalPhys = Generic
Scripts = FireShadowFlee; SlayHaltSpeech
}
Metaproperty\M-FireShadowFlee {
AI\AbilitySettings\CombatNonhostile = AlwaysToPlayer
}
]]

-- Declare local constants: aliases for lgs services used by this script
local objsrv,linksrv,propsrv = lgs.ObjectSrv,lgs.LinkSrv,lgs.PropertySrv
-- Declare local constant:
-- object id of the M-FireShadowFlee metaproperty in the gamesys, = nil if none exists
local M_FireShadowFlee = objsrv.Named "M-FireShadowFlee"

-- Function to be executed when a "Slain" message is received by the script host object
function Slain()
-- create an objects of the type linked to with a CorpsePart link and drop them in place:
-- loop through the links looking for CorpsePart links from the script host
for l in pairs(linksrv.GetAllInheritedSingle("CorpsePart", script.objid)) do
-- found a CorpsePart link, get the object id of the object linked to
-- **** NOTE: the LinkGet service is not documented as a service of LinkSrv (http://dromed.whoopdedo.org/lgscript/linksrv) ****
-- **** but it is documented as a service of LinkToolsSrv (http://dromed.whoopdedo.org/lgscript/linktoolssrv) ****
-- **** need to check which is correct .......... ****
local drop = linksrv.LinkGet(l)
-- emit an object of that type with zero velocity and drop it
lgs.PhysSrv.LaunchProjectile(script.objid, drop, 0, "pushout,gravity")
end
-- if there is a metaproperty named M_FireShadowFlee in the gamesys (i.e. not nil)
if M_FireShadowFlee then
-- then add it to the script host
objsrv.AddMetaProperty(script.objid, M_FireShadowFlee)
end
-- add the TimeWarp property to the script host
propsrv.Add(script.objid, "TimeWarp")
-- set it to 13/16ths
propsrv.Set(script.objid, "TimeWarp", 13/16)
-- send the message "FireShadowFlee" to the script host object every second from now on
script:SetTimedMessage("FireShadowFlee", 1000, "periodic")
end

-- Function to be executed whenever a message is received by the script host object from SetTimedMessage
function Timer(msg)
-- is this a "FireShadowFlee" message
if msg.name == "FireShadowFlee" then
-- Yes, get the script host object's TimeWarp property value
local speed = propsrv.Get(script.objid, "TimeWarp")
-- caluclate a faster TimeWarp value
speed = speed * 0.8125
-- If too fast or the script host object is not on screen, destroy it
if speed < 0.03 or not objsrv.RenderedThisFrame(script.objid) then
objsrv.Destroy(script.objid)
-- otherwise set the TimeWarp property value to the new setting
else
propsrv.Set(script.objid, "TimeWarp", speed)
end
end
end

--[[
FireSpawnPoint {
Tweq\Flicker = { Continue; NoLimit,Offscreen; nil; nil; 15000; }
Tweq\FlickerState = { On; nil; 14999; 0; }
Renderer\RenderType = Normal
Renderer\Has Refs = True
Shape\Scale = (0,0,0)
Scripts = FireShadowEcology
*** Start Missing ?? ***
Links\ControlDevice: FireShadow = Generic
*** End Missing ?? ***
}
]]

-- Declare local constants: aliases for lgs services used by this script
local objsrv,linksrv = lgs.ObjectSrv,lgs.LinkSrv

-- Function to "Emit" a new FireShadow at the current location
local function Emit()
-- get the achetype id of the (first? last?) achetype CD linked to from the script host
local cd = linksrv.GetAllInheritedSingle("ControlDevice", script.objid)
local _,arc = cd(nil)
-- any CD links?
if arc then
-- make a new concrete object of the indicated archetype at 0,0,0
local obj = objsrv.BeginCreate(arc)
-- move it to the location of the script host
objsrv.Teleport(obj, script.objid)
-- Finish the creation
objsrv.EndCreate(obj)
-- in a 1/10th of a second send the message "Firer" with the object id of the new FireShadow
script:SetTimedMessage("Firer", 100, 'oneshot', obj)
-- play the schema tag "Event Launch" found on the script host at its location
-- so this needs a schema ??
lgs.SoundSrv.Play(script.objid, "Event Launch", script.objid)
-- print out the object id of the new Fireshadow to Monolog (?)
print(obj)
end
end

-- Function to be executed whenever a message is received by the script host object from SetTimedMessage
function Timer(msg)
-- is this a "Firer" message?
if msg.name == "Firer" then
-- create a Firer link from the new FireShadow to the script host
linksrv.Create("Firer", msg.data[1], script.objid)
end
end

-- Function to be executed whenever a "TweqComplete" message is received by the script
function TweqComplete(msg)
-- is this a from a Flicker tweq?
if msg.Type == 6 and msg.Op == 5 then
-- Any Firer links?
if not linksrv.AnyExist("Firer",0,script.objid) then
-- no, so emit a FireShadow
Emit()
end
end
end