//===========================================================================
// Trigger: TowerData
//===========================================================================
library TowerData uses TowerTypes, TowerAbilityDataLib
private function AddTowerData1 takes integer T, real height, real scale, integer goldcost, integer limit, boolean selfupgrade,/*
                                  */ boolean hasexp, integer prevfactor, integer lvlfactor, integer constfactor, integer base,/*
                                  */ integer superlvl, integer superlvlfactor returns nothing
    set TowerData[T].height = height
    set TowerData[T].scale = scale
    set TowerData[T].goldcost = goldcost
    set TowerData[T].limit = limit
    set TowerData[T].selfupgrade = selfupgrade
    set TowerData[T].hasexp = hasexp
    set TowerData[T].prevfactor = prevfactor
    set TowerData[T].lvlfactor = lvlfactor
    set TowerData[T].constfactor = constfactor
    set TowerData[T].base = base
    set TowerData[T].superlvl = superlvl
    set TowerData[T].superlvlfactor = superlvlfactor
endfunction

private function AddTowerData2 takes integer T, integer abil_id, boolean hasattack, real attdmg, real attup, integer atttype,/*
                                  */ real attrange, boolean explosive returns nothing
    set TowerData[T].abil_id = abil_id
    set TowerData[T].hasattack = hasattack
    set TowerData[T].attdmg = attdmg
    set TowerData[T].attup = attup
    set TowerData[T].atttype = atttype
    set TowerData[T].attrange = attrange
    set TowerData[T].explosive = explosive
endfunction

private function AddTowerTrigger takes integer T, code build, code upgrade returns nothing
    set TowerData[T].build = CreateTrigger()
    call TriggerAddAction(TowerData[T].build, build)
    if upgrade != null then
        set TowerData[T].upgrade = CreateTrigger()
        call TriggerAddCondition(TowerData[T].upgrade, Filter(upgrade))
    endif
endfunction

//! textmacro AddTowerTrigger takes name
    call AddTowerTrigger($name$Id, function $name$.build, function $name$.upgrade)
//! endtextmacro

globals
    constant integer WallId = 0
    constant integer ArrowId = 1
    constant integer BurrowId = 2
    constant integer LightningId = 3
    constant integer BurstId = 4
    constant integer GoldMineId = 5
    constant integer FoLId = 6
    constant integer FoEId = 7
    constant integer BloodId = 8
    constant integer WaveId = 9
    
    constant integer TowerTypesAmount = 10
endglobals

function InitTowerData takes nothing returns nothing
    // Data                    typ, hght, scale, cost, lim, upgrd, hasxp, prvfac, lvlfac, const, base, suplvl, factor.
    call AddTowerData1(     WallId,  60.,   0.4,    5,  -1, false, false,      0,      0,     0,    0,      0, 10)
    call AddTowerData1(    ArrowId, 145.,   0.6,   10,  -1,  true,  true,      1,      5,     0,   20,     10, 10)
    call AddTowerData1(   BurrowId,  60.,   0.6,   10,  -1,  true,  true,      1,      5,     0,   20,     10, 10)
    call AddTowerData1(LightningId, 255.,   0.5,   10,  -1,  true,  true,      1,      5,     0,   20,     10, 10)
    call AddTowerData1(    BurstId, 135.,   0.6,   20,  -1,  true, false,      1,      0,    20,   40,     10, 10)
    call AddTowerData1( GoldMineId,  60.,   0.4,  120,   4,  true, false,      1,      0,    60,  180,     10, 10)
    call AddTowerData1(      FoLId,  60.,   0.4,  100,   4,  true, false,      1,      0,    50,  150,     10, 10)
    call AddTowerData1(      FoEId,  60.,   0.4,  100,  -1,  true, false,      1,      0,    50,  150,     10, 10)
    call AddTowerData1(    BloodId, 255.,   0.5,   20,  -1, false, false,      0,      0,     0,    0,      0, 10)
    call AddTowerData1(     WaveId, 135.,   0.6,   20,  -1,  true,  true,      1,      5,     0,   20,     10, 10)
    // Additional Data         typ,               abil_id, hasatt, dmg, attup, atttyp, attran, explo.
    call AddTowerData2(     WallId,                     0,  false,  0.,    0.,      0,     0., false)
    call AddTowerData2(    ArrowId,   AbilFocusedAttackId,   true, 7.5, 0.075,   Phys,   384., false)
    call AddTowerData2(   BurrowId,       AbilMultishotId,   true,  1., 0.075,   Phys,   384., false)
    call AddTowerData2(LightningId, AbilLightningAttackId,   true, 10., 0.075,   Magc,   384.,  true)
    call AddTowerData2(    BurstId,  AbilProjectileSiloId,   true,  5.,   0.5,   Perc,   384., false)
    call AddTowerData2( GoldMineId,      AbilGoldMiningId,  false,  0.,    0.,      0,     0., false)
    call AddTowerData2(      FoLId,   AbilReplenishLifeId,  false,  0.,    0.,      0,     0., false)
    call AddTowerData2(      FoEId,    AbilExpGeneratorId,  false,  0.,    0.,      0,     0., false)
    call AddTowerData2(    BloodId,      AbilOrbOfBloodId,   true,  3.,    0.,   Magc,   384.,  true)
    call AddTowerData2(     WaveId,       AbilShockwaveId,   true,  5., 0.075,   Phys,   512.,  true)
    // Triggers
    call AddTowerTrigger(WallId, function Wall.build, null)
//! runtextmacro AddTowerTrigger("Arrow")
//! runtextmacro AddTowerTrigger("Burrow")
//! runtextmacro AddTowerTrigger("Lightning")
//! runtextmacro AddTowerTrigger("Burst")
//! runtextmacro AddTowerTrigger("GoldMine")
//! runtextmacro AddTowerTrigger("FoL")
//! runtextmacro AddTowerTrigger("FoE")
//! runtextmacro AddTowerTrigger("Blood")
//! runtextmacro AddTowerTrigger("Wave")
endfunction
endlibrary

struct TowerData extends array
    integer abil_id
    real height
    real scale
    integer goldcost
    integer limit
    boolean hasattack
    real attdmg
    real attup
    integer atttype
    real attrange
    boolean explosive
    boolean selfupgrade
    boolean hasexp
    integer prevfactor
    integer lvlfactor
    integer constfactor
    integer base
    integer superlvl
    integer superlvlfactor
    
    trigger build
    trigger upgrade
endstruct