Grimrock

Code: Select all

cloneObject{
   name = "party",
   baseObject = "party",

   onAttack = function(champion,weapon)
      return party_script.weaponCheck(champion,weapon)
   end,

}

Code: Select all

local monstersList = {
"crab","crowern","cube","goromorg","green_slime","herder","herder_big","herder_small","herder_swarm","ice_lizard","ogre","scavenger","scavenger_swarm","shrakk_torr","skeleton_archer","skeleton_archer_patrol","skeleton_patrol","skeleton_warrior","snail","spider","tentacles","uggardian","warden","wyvern"
}

for i=1,# monstersList do 
  cloneObject{
  name = monstersList[i],
  baseObject = monstersList[i],
  onProjectileHit = function(monster, weapon)
    return party_script.projectileCheck(monster,weapon)
  end,
}
end

Code: Select all

cloneObject{
  name ="returning_throwing_axe",
  baseObject="throwing_axe",
  uiName = "Throwing Axe of Returning",
  sharpProjectile = false,
  stackable = false,
}

Code: Select all

function weaponCheck(champion,weapon)
  if weapon ~= nil 
  then
    if weapon.name == "returning_throwing_axe" then
      thrower = champion
      -- hudPrint(thrower:getName())    
    end
  end  
end

function projectileCheck(monster,weapon)
  if weapon.name == "returning_throwing_axe" then
    -- hudPrint("Returning Throwing Axe with ID " .. weapon.id)
    if findEntity(weapon.id) ~= nil then
      -- hudPrint(thrower:getName())
      weapon:destroy()
      if thrower:getItem(7) == nil then
        thrower:insertItem(7,spawn("returning_throwing_axe"))
      elseif thrower:getItem(8) == nil then
        thrower:insertItem(8,spawn("returning_throwing_axe"))
      end
    end
  end
end

Code: Select all

-- get distance between party and monster
function getDistance(obj1,obj2)
  local distance = 0
  local XNumber = math.max(obj1.x,obj2.x) - math.min(obj1.x,obj2.x)
  local YNumber = math.max(obj1.y,obj2.y) - math.min(obj1.y,obj2.y)
  distance = XNumber + YNumber
  return distance
end


-- party onAttack

thrower = party:getChampion(1) -- this sets champion 1 as the initial thrower.. purely for the case that you first throw the axe from the mousepointer!

function weaponCheck(champion,weapon)
  if weapon ~= nil 
  then
    if weapon.name == "returning_throwing_axe" then
      thrower = champion
      -- hudPrint(thrower:getName())    
    else
    --  hudPrint("Other Weapon")
    end
  else
   -- hudPrint("Unarmed")
  end
end


-- Monster onProjectile Hit

function projectileCheck(monster,weapon)
    if weapon.name == "returning_throwing_axe" then
      -- hudPrint("Returning Throwing Axe with ID " .. weapon.id)
      if findEntity(weapon.id) ~= nil then
        -- hudPrint(thrower:getName())
        weapon:destroy()
        local distance = getDistance(party,monster)
        local facing = (party.facing + 2)%4
        local dx,dy = getForward(facing)
        shootProjectile("returning_throwing_axe", party.level, monster.x+dx, monster.y+dy, facing, 2*distance, 1, 1, 0, 0, 0, 0, false, true)
        if thrower:getItem(7) == nil then
          thrower:insertItem(7,spawn("returning_throwing_axe"))
        elseif thrower:getItem(8) == nil then
          thrower:insertItem(8,spawn("returning_throwing_axe"))
        else
          spawn("returning_throwing_axe",party.level,party.x,party.y,party.facing)
        end
      end
    end
end