Earth Goromorg v1.1
by Roman Adler in 2012
######################

Magic: Greater Poison Bolt, Poison Bolt, sometimes Poison Cloud (when near)

Immunity: Earth, Poison

HP: 600 (regular Goromorg 400)
XP: 1200 (1000)
Power 50 (40)

Magic Shield is working, thanks to Diarmuid's damageTracker script.

Changelog: 1.2
--------------
Added Diarmuid' latest Shield Script! No the shield is rendered on the Goromorg,
not on the tile on which he gets hit. It's a perfect Goromorg now. 

Installation:
-------------
Drop the "earth_goromorg" folder into your "mod_assets" folder and add the
following lines to your init.lua:

import "mod_assets/earth_goromorg/monsters.lua"
import "mod_assets/earth_goromorg/materials.lua"

To make his magic shield work, you have to copy/paste the following LUA script_entity
somewhere to your dungeon map and name it "damageTracker":

---cut---

    --[[
    Diarmuid's Goromorg Shield script, Version 1.1

    Changelog:
    1.1 Shield visual effect now moves along if monster moves
       Shield sound effect is now played at monster's location
       Simplified monster properties table
    1.0 Initial release

    Readme:
    Add the following hooks to your monster(s):
       onDamage = function(self,damage,type)
          return damageTracker.shield(self,damage)
       end,
       
       onMove = function(self, direction)
          return damageTracker.createMoveTimer(self, direction)
       end,
       
       onDie = function(self)
          return damageTracker.clear(self)
       end,
       
    Then define the monster(s) in monstersTable below using the following properties:

    shield: sets how much damage the shield can take before breaking
    immunity: "fire", "frost", "poison", "shock" or "none"
       (If elemental, you will get a "0" over the monster, if "none", just the shield visual)
    shieldVAlign: adjusts the shield effect vertical alignment. Positive values go upwards.
    shieldSize: adjusts the size of the shield effect. Values below 1 = smaller, above 1 = larger.
    moveSpeed: adjusts the speed at which the shield moves with monster. Values below 1 = slower, above 1 = faster.
       
    ]]

    damageTable = {}

    timersTable = {}

    monstersTable = {
       	  earth_goromorg = {
          shield = 300,
          immunity = "earth",
          shieldVAlign = 0,
          shieldSize = 1,
          moveSpeed = 1,
       },
    }


    function shield(monster, damage)
       if damage > 0 then
          local shieldActive = false
          if damageTable[monster.id] == nil then
             damageTable[monster.id] = damage
             shieldActive = true
          elseif damageTable[monster.id] < monstersTable[monster.name].shield then
             damageTable[monster.id] = damageTable[monster.id] + damage
             shieldActive = true
          end
          if shieldActive == true then
             
             if monstersTable[monster.name].immunity ~= 'none' then
                damageTile(monster.level, monster.x, monster.y, monster.facing, 0, monstersTable[monster.name].immunity,0)
             end
             
             local fxId = monster.id..".shield"
             if findEntity(fxId) ~= nil then
                findEntity(fxId):destroy()
             end
             spawn("fx", monster.level, monster.x, monster.y, monster.facing,fxId)
             findEntity(fxId):setParticleSystem("shield_glow")
             local dx,dy = getForward(party.facing)
             local shieldSize = monstersTable[monster.name].shieldSize
             local shieldVAlign = monstersTable[monster.name].shieldVAlign
             findEntity(fxId):translate(-dx*0.6*shieldSize,shieldVAlign,dy*0.6*shieldSize)
             
             local timerId = monster.id..'.moveTimer'
             if findEntity(timerId) ~= nil then
                local mx, my = getForward(timersTable[timerId].direction)
                local moveSpeed = monstersTable[monster.name].moveSpeed
                local x, y = unpack(timersTable[timerId].position)
                findEntity(fxId):translate(mx*0.2*timersTable[timerId].tick*moveSpeed,0,-my*0.2*timersTable[timerId].tick*moveSpeed)
                if x ~= monster.x or y ~= monster.y then
                   print("Translated")
                   findEntity(fxId):translate(-mx*3,0,my*3)
                end
             end
             if damageTable[monster.id] < monstersTable[monster.name].shield then
                playSoundAt("goromorg_shield_hit", monster.level, monster.x, monster.y)
             else
                playSoundAt("goromorg_shield_break", monster.level, monster.x, monster.y)
             end
             
             return false
          end
          return damage
       end
    end

    function clear(monster)
       damageTable[monster.id] = 0
       local fxId = monster.id..".shield"
       if findEntity(fxId) ~= nil then
          findEntity(fxId):destroy()
       end
    end

    function createMoveTimer(monster, direction)
       local level, x, y = monster.level, monster.x, monster.y
       local timerId = monster.id..'.moveTimer'
       if findEntity(timerId) ~= nil then
          findEntity(timerId):destroy()
       end
       local moveTimer = spawn('timer', level, x, y, 0, timerId)
       moveTimer:addConnector('activate', 'damageTracker', 'moveTimer')
       moveTimer:setTimerInterval(0.05)
       moveTimer:activate()
       timersTable[timerId] = {}
       timersTable[timerId].id = monster.id
       timersTable[timerId].direction = direction
       timersTable[timerId].position = {x, y}
    end

    function moveTimer(self)
       timerId = self.id
       if timersTable[timerId].tick == nil then
          timersTable[timerId].tick = 0
       end
       timersTable[timerId].tick = timersTable[timerId].tick + 1
       fxId = timersTable[timerId].id..'.shield'
       if findEntity(fxId) ~= nil then
          local dx, dy = getForward(timersTable[timerId].direction)
          local monster = findEntity(timersTable[timerId].id)
          local moveSpeed = monstersTable[monster.name].moveSpeed
          findEntity(fxId):translate(dx*0.2*moveSpeed,0,-dy*0.2*moveSpeed)
       end
       if timersTable[timerId].tick ==  15 then
          timersTable[timerId].tick = 0
          self:destroy()
       end
    end

---cut---