MacAddict 6/MacAddict_006_1997_02.iso/media/Main.Dxr/Internal_19_randomListMaker.ls

Text File | 1996-11-25 | 443 b | 25 lines

property randomList, listSize, nextItem

on new me, howMany
  set listSize to howMany
  generateList()
  return me
end

on getNextRandom
  if nextItem > listSize then
    generateList()
  end if
  set thisNumber to getAt(randomList, nextItem)
  set nextItem to nextItem + 1
  return thisNumber
end

on generateList
  set randomList to []
  repeat with x = 1 to listSize
    addAt(randomList, random(x), x)
  end repeat
  set nextItem to 1
end