function RN takes unit u returns integer
    local integer i = 0
       loop
             if u == udg_farm[i] then
             return i
             endif
          set i = i + 1
       exitwhen i > 45
       endloop
    set i = 0
    return 100
endfunction