function PlantStage takes integer stage returns integer
    if stage == 0 then
        return 'LTbs'
    elseif stage == 1 then
        return 'ITtg'
    elseif stage == 2 then
        return 'DTlv'
    elseif stage == 3 then
        return 'LTbx'
    endif
    return 'LTex'
endfunction

function WherePlant takes nothing returns integer
    return 100
endfunction

function TimePlant takes nothing returns real
    return 10.00
endfunction

function PlantGrowing takes nothing returns nothing
    local destructable plant = udg_plants[udg_i_plant]
    local integer stage = udg_plant_stage[udg_i_plant]
    local real x = GetDestructableX( plant )
    local real y = GetDestructableY( plant )
    call RemoveDestructable( plant )
    set stage = stage + 1
    set plant = CreateDestructable( PlantStage(stage), x, y, 0.00, 1.00, 1 )
    if stage == 3 then
        set udg_plants[udg_i_plant] = udg_plants[udg_num_of_plants - 1]
        set udg_plant_stage[udg_i_plant] = udg_plant_stage[udg_num_of_plants - 1]
        set udg_num_of_seeds[udg_i_plant] = udg_num_of_seeds[udg_num_of_plants - 1]
        set udg_num_of_plants = udg_num_of_plants - 1
        set udg_i_plant = udg_i_plant - 1
    else
        set udg_plants[udg_i_plant] = plant
        set udg_plant_stage[udg_i_plant] = stage
    endif
    set plant = null
endfunction

function Trig_PlantSeed_Conditions takes nothing returns boolean
    return GetItemTypeId(GetManipulatedItem()) ==  'I000'
endfunction

function Trig_PlantSeed_Actions takes nothing returns nothing
    local item i = GetManipulatedItem()
    local unit u = GetManipulatingUnit()
    local real dx = Cos(GetUnitFacing(u)*0.0174)*WherePlant()
    local real dy = Sin(GetUnitFacing(u)*0.0174)*WherePlant()
    set udg_plants[udg_num_of_plants] = CreateDestructable( PlantStage(0), GetUnitX(u)+dx, GetUnitY(u)+dy, 0.00, 1.00, 1 )
    set udg_plant_stage[udg_num_of_plants] = 0
    set udg_num_of_seeds[udg_num_of_plants] = GetItemCharges(i)+1
    set udg_plant_timer[udg_num_of_plants] = CreateTimer()
    set udg_num_of_plants = udg_num_of_plants + 1
    call RemoveItem(i)
    set i = null
endfunction

function InitTrig_PlantSeed takes nothing returns nothing
    set gg_trg_PlantSeed = CreateTrigger()
    call TriggerRegisterPlayerUnitEvent( gg_trg_PlantSeed, GetLocalPlayer(), EVENT_PLAYER_UNIT_USE_ITEM, null)
    call TriggerAddCondition( gg_trg_PlantSeed, Condition( function Trig_PlantSeed_Conditions ) )
    call TriggerAddAction( gg_trg_PlantSeed, function Trig_PlantSeed_Actions )
endfunction

function Trig_Growing_Conditions takes nothing returns boolean
    return udg_num_of_plants > 0
endfunction

function Trig_Growing_Actions takes nothing returns nothing
    set udg_i_plant = 0
    loop
        exitwhen udg_i_plant > ( udg_num_of_plants - 1 )
        call PlantGrowing()
        set udg_i_plant = udg_i_plant + 1
    endloop
endfunction

function InitTrig_Growing takes nothing returns nothing
    set gg_trg_Growing = CreateTrigger(  )
    call TriggerRegisterTimerEvent( gg_trg_Growing, TimePlant(), true)
    call TriggerAddCondition( gg_trg_Growing, Condition( function Trig_Growing_Conditions ) )
    call TriggerAddAction( gg_trg_Growing, function Trig_Growing_Actions )
endfunction