udg_fre (integer) (array)
udg_frenum (integer)

function o takes nothing returns integer
local integer max=8192
local integer rnd= GetRandomInteger(0,max)
local integer i=0
local boolean flag=false

loop
exitwhen i>udg_freenum
 if (rnd==udg_fre) then
  set flag=true
 endif
set i=i+1
endloop

if (not(flag))
 udg_freenum=udg_freenum+1
 udg_free[udg_freenum]=rnd
 return rnd
else
 return 0
endif
endfunction

function GetFreeRand takes nothing returns integer
 local integer i=0
 local integer k=0
 local integer array p
 local integer rnd
 
 loop
 exitwhen i>8192
  if not(udg_array[i]) then
   set k=k+1
   set p[k]=i
  endif
 set i=i+1
 endloop

 set rnd= p[GetRandomInt(1,k)]
 set udg_array[rnd]= true
 return rnd
endfunction