function Trig_Pick_Actions takes nothing returns nothing
local integer i = GetPlayerId(GetOwningPlayer(GetSoldUnit()))
   
    set unit[i] = GetSoldUnit()
    call SaveUnitHandle(HTUnit, GetHandleId(t[i]), 1, GetSoldUnit())
    call SaveInteger (HTUnitNum, GetHandleId(t[i]), 1, i)
    
    if GetLocalPlayer() == GetOwningPlayer(GetSoldUnit()) then
        call SetCameraTargetController(GetSoldUnit(), 0, 0, false)
    endif
    
endfunction

//===========================================================================
function InitTrig_Pick takes nothing returns nothing
    set gg_trg_Pick = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Pick, EVENT_PLAYER_UNIT_SELL )
    call TriggerAddAction( gg_trg_Pick, function Trig_Pick_Actions )
endfunction

function SS takes nothing returns nothing
local integer tn = LoadInteger (HTUnitNum, GetHandleId(GetExpiredTimer()), 1)

    if speed[tn] != 10 then 
        set speed[tn] = speed[tn]+1
    endif
       
endfunction

function SP takes nothing returns nothing
local integer tn = LoadInteger (HTUnitNum, GetHandleId(GetExpiredTimer()), 1)
local unit u = LoadUnitHandle(HTUnit, GetHandleId(GetExpiredTimer()), 1)

    if gear[tn] == 1 then
        call SetUnitX(u, GetUnitX(u)+speed[tn]*Cos(GetUnitFacing(u)*bj_DEGTORAD))
        call SetUnitY(u, GetUnitY(u)+speed[tn]*Sin(GetUnitFacing(u)*bj_DEGTORAD))
    
    else 
        call SetUnitX(u, GetUnitX(u)-speed[tn]*Cos(GetUnitFacing(u)*bj_DEGTORAD))
        call SetUnitY(u, GetUnitY(u)-speed[tn]*Sin(GetUnitFacing(u)*bj_DEGTORAD))
    
    endif
    
endfunction

function Trig_Move_Front_Actions takes nothing returns nothing
local integer p = GetPlayerId(GetTriggerPlayer())

    call TimerStart(ts[p],  0.6, true, function SS) 
    call TimerStart(t [p], 0.03, true, function SP)
    
endfunction

//===========================================================================
function InitTrig_Move takes nothing returns nothing
local integer i = 0

    set gg_trg_Move = CreateTrigger(  )
    loop
        call TriggerRegisterPlayerKeyEventBJ( gg_trg_Move, Player(i), bj_KEYEVENTTYPE_DEPRESS, bj_KEYEVENTKEY_UP )
        set i = i+1
        exitwhen i == 13
    endloop
    call TriggerAddAction( gg_trg_Move, function Trig_Move_Front_Actions )
    
endfunction