Name | Type | is_array | initial_value |
Human | force | No | |
Temp_Group | group | No | |
Temp_Point | location | No | |
Time | integer | Yes | |
Vampire | force | No |
function Income_Loop takes nothing returns nothing
if GetUnitTypeId(GetEnumUnit()) == 'h00C' then
call SetPlayerState(GetOwningPlayer(GetEnumUnit()), PLAYER_STATE_RESOURCE_GOLD, GetPlayerState(GetOwningPlayer(GetEnumUnit()), PLAYER_STATE_RESOURCE_GOLD) + 2)
endif
if GetUnitTypeId(GetEnumUnit()) == 'h00D' then
call SetPlayerState(GetOwningPlayer(GetEnumUnit()), PLAYER_STATE_RESOURCE_GOLD, GetPlayerState(GetOwningPlayer(GetEnumUnit()), PLAYER_STATE_RESOURCE_GOLD) + 5)
endif
if GetUnitTypeId(GetEnumUnit()) == 'h00E' then
call SetPlayerState(GetOwningPlayer(GetEnumUnit()), PLAYER_STATE_RESOURCE_GOLD, GetPlayerState(GetOwningPlayer(GetEnumUnit()), PLAYER_STATE_RESOURCE_GOLD) + 8)
endif
if GetUnitTypeId(GetEnumUnit()) == 'h00F' then
call SetPlayerState(GetOwningPlayer(GetEnumUnit()), PLAYER_STATE_RESOURCE_GOLD, GetPlayerState(GetOwningPlayer(GetEnumUnit()), PLAYER_STATE_RESOURCE_GOLD) + 10)
endif
endfunction
function Income_Actions takes nothing returns nothing
local integer i = 0
local group G = CreateGroup()
loop
exitwhen i > 8
call GroupEnumUnitsOfPlayer(G, Player(i), null)
call ForGroup(G, function Income_Loop)
call GroupClear(G)
set i = i + 1
endloop
call DestroyGroup(G)
set G = null
endfunction
//===========================================================================
function InitTrig_Income takes nothing returns nothing
set gg_trg_Income = CreateTrigger( )
call TriggerRegisterTimerEvent(gg_trg_Income, 5.00, true)
call TriggerAddAction( gg_trg_Income, function Income_Actions )
endfunction