home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / maricopa / source / quizzer.dir / 00009_randmother.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  411 b   |  20 lines
  1. property currentItem, listSize, randomList
  2.  
  3. on birth me, listLength
  4.   set the listSize of me to listLength
  5.   makeList(me)
  6.   return me
  7. end
  8.  
  9. on makeList me
  10.   set the randomList of me to []
  11.   repeat with i = 1 to the listSize of me
  12.     addAt(the randomList of me, random(i), i)
  13.   end repeat
  14.   set the currentItem of me to 0
  15. end
  16.  
  17. on updateItemCounter me
  18.   set the currentItem of me to the currentItem of me + 1
  19. end
  20.