pickRandOnce

not rated

Submitted by Aiursrage2k2004-05-31Functions0 downloads

Picks a series of random numbers in a range, picking each number only once.

Source

function pickRandOnce takes integer min, integer max, integer ammount returns nothing
    local integer i = min
    local integer array tmpArr
    local integer rand = 0

    loop
      exitwhen i > max
      set tmpArr[i] = i
      set i = i + 1
    endloop

    set i = 0

    loop
      exitwhen i > ammount
      set rand = GetRandomInt(min,max)

      //Use tmpArr[rand] however you want... in this instance I will print it out
      call DisplayTextToForce( GetPlayersAll(), I2S(tmpArr[rand]) )
      set tmpArr[rand] = tmpArr[max]
      set max = max - 1
      set i = i + 1
     endloop 
endfunction

Comments

No comments.