function XOR takes boolean a, boolean b returns boolean
    return not (a == b)
endfunction

local integer i = 0
loop
    exitwhen i>20
    call DisplayTextToPlayer(Player(0),0,0,I2S(GetRandomIntMem(1,10)))
    set i = i+1
endloop
call ClearRandomIntMem()

library RandomIntGenMem

globals
    public integer RandMemMax = 8100
    private integer array RandMem
    private integer RandMemSize = 0
endglobals

private function CheckRandMem takes integer value returns boolean
    local integer i = 0
    loop
        exitwhen i>RandMemSize
        if value == RandMem[i] then
            return false
        endif
        set i=i+1
    endloop
    return true
endfunction

private function SaveRandMem takes integer value returns boolean
    if RandMemSize > RandMemMax then
        return false
    endif
    set RandMem[RandMemSize] = value
    set RandMemSize=RandMemSize+1
    return true
endfunction

function ClearRandomIntMem takes nothing returns nothing
    set RandMemSize = 0
endfunction

function GetRandomIntMem takes integer lowBound, integer highBound returns integer
    local integer r
    local integer tmp = 0
    if highBound<=lowBound or (highBound-lowBound) > RandMemMax then
        return 0
    endif
    set r = GetRandomInt(lowBound,highBound)
    set tmp = r
    loop
        exitwhen CheckRandMem(r)
        if r<highBound and r>=tmp then
            set r=r+1
        elseif r==highBound then
            set r=tmp-1
        elseif r<tmp and r>lowBound then
            set r=r-1
        elseif r<=lowBound then
            call ClearRandomIntMem()
            set r = GetRandomIntMem(lowBound,highBound)
        endif
        exitwhen r<lowBound
    endloop
    
    if SaveRandMem(r) then
        return r
    else
        call ClearRandomIntMem()
        call SaveRandMem(r)
        return r
    endif
endfunction

endlibrary