call TriggerRegisterPlayerUnitEvent( gg_trg_New, Player(0), EVENT_PLAYER_UNIT_ISSUED_ORDER, null )

globals
    constant integer barrack = 'hbar'
    constant integer footman = 'hfoo'
    constant integer footman_a = 'h000'
    constant integer footman_b = 'h001'
    constant integer footman_c = 'h002'
    constant integer footman_d = 'h003'
    constant integer footman_e = 'h004'
    
    integer array   RandomTrain
    
endglobals

function AssetTrains takes nothing returns nothing
    local player p = Player(0)
    
    call DestroyTimer(GetExpiredTimer())
    
    set RandomTrain[0] = footman 
    set RandomTrain[1] = footman_a
    set RandomTrain[2] = footman_b
    set RandomTrain[3] = footman_c
    set RandomTrain[4] = footman_d
    set RandomTrain[5] = footman_e
    
    call SetPlayerTechMaxAllowed( p, footman_a, 0 )
    call SetPlayerTechMaxAllowed( p, footman_b, 0 )
    call SetPlayerTechMaxAllowed( p, footman_c, 0 )
    call SetPlayerTechMaxAllowed( p, footman_d, 0 )
    call SetPlayerTechMaxAllowed( p, footman_e, 0 )
    
    set p = null
endfunction

function Trig_New_Actions takes nothing returns nothing
     local unit u = GetTriggerUnit()
     local integer id = GetIssuedOrderId()
     local player p = GetOwningPlayer(u)
     local integer newId = 0
     if GetUnitTypeId(u) == barrack then
        set newId = RandomTrain[GetRandomInt(0,5)]
            if newId != footman then
                call SetPlayerTechMaxAllowed( p, footman, 0 )
                call SetPlayerTechMaxAllowed( p, newId, -1 )
                call IssueImmediateOrderById( u, 851976 )
                call IssueImmediateOrderById( u, newId )
                call SetPlayerTechMaxAllowed( p, footman, -1 )
                call SetPlayerTechMaxAllowed( p, newId, 0 )
            endif
     endif
     
     set u = null
     set id = 0
     set p = null
     set newId = 0
endfunction


function InitTrig_New takes nothing returns nothing
    set gg_trg_New = CreateTrigger(  )
    call TimerStart( CreateTimer(), 1., false, function AssetTrains )
    // call AssetTrains()
    call TriggerAddAction( gg_trg_New, function Trig_New_Actions )
    call TriggerRegisterPlayerUnitEvent( gg_trg_New, Player(0), EVENT_PLAYER_UNIT_ISSUED_ORDER, null ) 
endfunction