tibia-client/modules/game_battle/battle.lua

Battle = {}

--TODO
--onCreatureAppears onCreatureHealthChange onCreatureDisappears
--reloadable/disconnects

-- private variables
local battleWindow
local battleButton
local battlePanel
local lastBattleButtonSwitched
local checkCreaturesEvent
local battleButtonsByCreaturesList = {}

local mouseWidget

local hidePlayersButton
local hideNPCsButton
local hideMonstersButton
local hideSkullsButton
local hidePartyButton

local battleButtonColors = {
  onIdle = {notHovered = '#888888', hovered = '#FFFFFF' },
  onTargeted = {notHovered = '#FF0000', hovered = '#FF8888' },
  onFollowed = {notHovered = '#00FF00', hovered = '#88FF88' }
}

local lifeBarColors = {} --Must be sorted by percentAbose
table.insert(lifeBarColors, {percentAbove = 92, color = '#00BC00' } )
table.insert(lifeBarColors, {percentAbove = 60, color = '#50A150' } )
table.insert(lifeBarColors, {percentAbove = 30, color = '#A1A100' } )
table.insert(lifeBarColors, {percentAbove = 8, color = '#3C2727' } )
table.insert(lifeBarColors, {percentAbove = 3, color = '#3C0000' } )
table.insert(lifeBarColors, {percentAbove = -1, color = '#4F0000' } )

-- public functions
function Battle.create()
  battleWindow = displayUI('battle.otui', { parent = g_game.gameRightPanel })
  battleWindow:hide()
  battleButton = TopMenu.addGameButton('battleButton', 'Battle (Ctrl+B)', '/game_battle/battle.png', Battle.toggle)
  Keyboard.bindKeyDown('Ctrl+B', Battle.toggle)
  
  battlePannel = battleWindow:getChildById('battlePanel')
  
  hidePlayersButton = battleWindow:getChildById('hidePlayers')
  hideNPCsButton = battleWindow:getChildById('hideNPCs')
  hideMonstersButton = battleWindow:getChildById('hideMonsters')
  hideSkullsButton = battleWindow:getChildById('hideSkulls')
  hidePartyButton = battleWindow:getChildById('hideParty')
  
  mouseWidget = createWidget('UIButton')
  mouseWidget:setVisible(false)
  mouseWidget:setFocusable(false) 
                
  connect(Creature, { onSkullChange = Battle.checkCreatureSkull,
                      onEmblemChange = Battle.checkCreatureEmblem } )                      
  
  connect(g_game, { onAttackingCreatureChange = Battle.onAttack,
                    onFollowingCreatureChange = Battle.onFollow } )
                  
  addEvent(Battle.addAllCreatures)
  checkCreaturesEvent = scheduleEvent(Battle.checkCreatures, 200)
end

function Battle.destroy()
  Keyboard.unbindKeyDown('Ctrl+B')
  battlePannel = nil
  lastBattleButtonTargeted = nil
  lastBattleButtonFollowed = nil
  battleButtonsByCreaturesList = {}
  removeEvent(checkCreaturesEvent)
  hidePlayersButton = nil
  hideNPCsButton = nil
  hideMonstersButton = nil
  hideSkullsButton = nil
  hidePartyButton = nil
  checkCreaturesEvent = nil
  battleButton:destroy()
  battleButton = nil
  battleWindow:destroy()
  battleWindow = nil
                
  disconnect(Creature, {  onSkullChange = Battle.checkCreatureSkull,
                          onEmblemChange = Battle.checkCreatureEmblem } )                      
  
  disconnect(g_game, {    onAttackingCreatureChange = Battle.onAttack } )
end

function Battle.toggle()
  local visible = not battleWindow:isExplicitlyVisible()
  battleWindow:setVisible(visible)
  battleButton:setOn(visible)
end

function Battle.addAllCreatures()
  local spectators = {} 
	local player = g_game.getLocalPlayer()
	if player then
		creatures = g_map.getSpectators(player:getPosition(), false)
		for i, creature in ipairs(creatures) do
			if creature ~= player and Battle.doCreatureFitFilters(creature) then
        table.insert(spectators, creature)
			end
		end
	end
  
  for i, v in pairs(spectators) do
    Battle.addCreature(v)
  end
end

function Battle.doCreatureFitFilters(creature)
  local hidePlayers = hidePlayersButton:isChecked()
  local hideNPCs = hideNPCsButton:isChecked()
  local hideMonsters = hideMonstersButton:isChecked()
  local hideSkulls = hideSkullsButton:isChecked()
  local hideParty = hidePartyButton:isChecked()
  
  if hidePlayers and not creature:asMonster() and not creature:asNpc() then
    return false
  elseif hideNPCs and creature:asNpc() then
    return false
  elseif hideMonsters and creature:asMonster() then
    return false
  elseif hideSkulls and creature:getSkull() == SkullNone then
    return false
  elseif hideParty and creature:getShield() > ShieldWhiteBlue then
    return false
  end
  
  return true
end

function Battle.checkCreatures()
  local player = g_game.getLocalPlayer()
  if player then 
    local spectators = {}

    -- reloading list of spectators
    local creaturesAppeared = {}  
    creatures = g_map.getSpectators(player:getPosition(), false)
    for i, creature in ipairs(creatures) do
      if creature ~= player and Battle.doCreatureFitFilters(creature) then
        -- searching for creatures that appeared on battle list
        local battleButton = battleButtonsByCreaturesList[creature:getId()]
        if battleButton == nil then
          table.insert(creaturesAppeared, creature)     
        else
          Battle.setLifeBarPercent(battleButton, creature:getHealthPercent())
        end
        spectators[creature:getId()] = creature
      end
    end
    
    for i, v in pairs(creaturesAppeared) do
      Battle.addCreature(v)
    end
    
    -- searching for creatures that disappeared from battle list
    local creaturesDisappeared = {}
    for i, creature in pairs(battleButtonsByCreaturesList) do
      if spectators[creature.creatureId] == nil then
        table.insert(creaturesDisappeared, creature.creature)
      end
    end
    
    for i, v in pairs(creaturesDisappeared) do
      Battle.removeCreature(v)
    end
  end
  checkCreaturesEvent = scheduleEvent(Battle.checkCreatures, 500)
end

function Battle.addCreature(creature)
  local creatureId = creature:getId()
  
  if battleButtonsByCreaturesList[creatureId] == nil then
    local battleButton = displayUI('battleButton.otui', { parent = battlePannel })
    local creatureWidget = battleButton:getChildById('creature')
    local labelWidget = battleButton:getChildById('label')
    local lifeBarWidget = battleButton:getChildById('lifeBar')
    
    battleButton:setId('BattleButton_' .. creature:getName():gsub('%s','_'))
    battleButton.creatureId = creatureId
    battleButton.creature = creature
    battleButton.isHovered = false
    battleButton.isTarget = false
    battleButton.isFollowed = false
    
    labelWidget:setText(creature:getName())
    creatureWidget:setCreature(creature)  
    Battle.setLifeBarPercent(battleButton, creature:getHealthPercent())

    battleButtonsByCreaturesList[creatureId] = battleButton
    
    Battle.checkCreatureSkull(battleButton.creature)
    Battle.checkCreatureEmblem(battleButton.creature)   
  end
end

function Battle.checkCreatureSkull(creature, skullId)
    local battleButton = battleButtonsByCreaturesList[creature:getId()]
    if battleButton then
      local skullWidget = battleButton:getChildById('skull')
      local labelWidget = battleButton:getChildById('label')
      local creature = battleButton.creature
      
      if creature:getSkull() ~= SkullNone then
        skullWidget:setWidth(skullWidget:getHeight())
        local imagePath = getSkullImagePath(creature:getSkull())
        skullWidget:setImageSource('/game/' .. imagePath)
        labelWidget:setMarginLeft(5)
      else
        skullWidget:setWidth(0)
        if creature:getEmblem() == EmblemNone then
          labelWidget:setMarginLeft(2)
        end
      end
    end
end

function Battle.checkCreatureEmblem(creature, emblemId)
    local battleButton = battleButtonsByCreaturesList[creature:getId()]
    if battleButton then
      local emblemId = emblemId or creature:getEmblem()
      local emblemWidget = battleButton:getChildById('emblem')
      local labelWidget = battleButton:getChildById('label')
      local creature = battleButton.creature

      if emblemId ~= EmblemNone then
        emblemWidget:setWidth(emblemWidget:getHeight())
        local imagePath = getEmblemImagePath(emblemId)
        emblemWidget:setImageSource('/game/' .. imagePath)
        emblemWidget:setMarginLeft(5)
        labelWidget:setMarginLeft(5)
      else
        emblemWidget:setWidth(0)
        emblemWidget:setMarginLeft(0)
        if creature:getSkull() == SkullNone then
          labelWidget:setMarginLeft(2)
        end
      end
    end
end

function Battle.onMouseRelease(self, mousePosition, mouseButton)
  if mouseButton == MouseRightButton then
    g_game.createThingMenu(mousePosition, nil, nil, self.creature)
    return true
  elseif mouseButton == MouseLeftButton then
    local modifiers = g_window.getKeyboardModifiers()
    if modifiers == KeyboardShiftModifier then
      g_game.look(self.creature)
    else
      if self.isTarget then
        g_game.cancelAttack()
      else
        g_game.attack(self.creature)
      end
    end
    return true
  end
end

function Battle.removeCreature(creature)
  local creatureId = creature:getId()
  
  if battleButtonsByCreaturesList[creatureId] ~= nil then
    if lastBattleButtonSwitched == battleButtonsByCreaturesList[creatureId] then
      lastBattleButtonSwitched = nil
    end
  
    battleButtonsByCreaturesList[creatureId].creature:hideStaticSquare()
    battleButtonsByCreaturesList[creatureId]:destroy()
    battleButtonsByCreaturesList[creatureId] = nil
  end
end

function Battle.setLifeBarPercent(battleButton, percent)
  local lifeBarWidget = battleButton:getChildById('lifeBar')
  lifeBarWidget:setPercent(percent)
  
  local color
  for i, v in pairs(lifeBarColors) do
    if percent > v.percentAbove then
      color = v.color
      break
    end
  end
  
  lifeBarWidget:setBackgroundColor(color)
end

function Battle.onbattlePannelHoverChange(widget, hovered)
  if widget.isBattleButton then    
    widget.isHovered = hovered
    Battle.checkBattleButton(widget)
  end
end

function Battle.onAttack(creature)  
  local battleButton = creature and battleButtonsByCreaturesList[creature:getId()] or lastBattleButtonSwitched 
  if battleButton then
    battleButton.isTarget = creature and true or false
    Battle.checkBattleButton(battleButton)
  end
end

function Battle.onFollow(creature)  
  local battleButton = creature and battleButtonsByCreaturesList[creature:getId()] or lastBattleButtonSwitched 
  if battleButton then
    battleButton.isFollowed = creature and true or false
    Battle.checkBattleButton(battleButton)
  end 
end

function Battle.checkBattleButton(battleButton)
  local color = battleButtonColors.onIdle
  if battleButton.isTarget then
    color = battleButtonColors.onTargeted
  elseif battleButton.isFollowed then
    color = battleButtonColors.onFollowed
  end
  
  color = battleButton.isHovered and color.hovered or color.notHovered
  
  if battleButton.isHovered or battleButton.isTarget or battleButton.isFollowed then
    battleButton.creature:showStaticSquare(color)
    battleButton:getChildById('creature'):setBorderWidth(1)
    battleButton:getChildById('creature'):setBorderColor(color)
    battleButton:getChildById('label'):setColor(color) 
  else    
    battleButton.creature:hideStaticSquare()
    battleButton:getChildById('creature'):setBorderWidth(0)
    battleButton:getChildById('label'):setColor(color) 
  end
  
  if battleButton.isTarget or battleButton.isFollowed then
    if lastBattleButtonSwitched and lastBattleButtonSwitched ~= battleButton then
      lastBattleButtonSwitched.isTarget = false
      lastBattleButtonSwitched.isFollowed = false
      Battle.checkBattleButton(lastBattleButtonSwitched)
    end
    lastBattleButtonSwitched = battleButton
  end
end

connect(g_game, { onGameStart = Battle.create,
                  onGameEnd = Battle.destroy } )