home *** CD-ROM | disk | FTP | other *** search
/ PC Home 109 / PC Home 109.iso / data1.cab / Program_Files / quiz.dxr / 00001_startersCode.ls next >
Encoding:
Text File  |  2001-03-02  |  1.6 KB  |  20 lines
  1. on SetQuestionStarters QuestionNumber
  2.   set QStarters to [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28]
  3.   set A1Starters to [1, 5, 9, 13, 17, 21, 25, 29, 33, 37, 41, 45, 49, 53, 57, 61, 65, 69, 73, 77, 81, 85, 89, 93, 97, 101, 105, 109]
  4.   set A2Starters to [2, 6, 10, 14, 18, 22, 26, 30, 34, 38, 42, 46, 50, 54, 58, 62, 66, 70, 74, 78, 82, 86, 90, 94, 98, 102, 106, 110]
  5.   set A3Starters to [3, 7, 11, 15, 19, 23, 27, 31, 35, 39, 43, 47, 51, 55, 59, 63, 67, 71, 75, 79, 83, 87, 91, 95, 99, 103, 107, 111]
  6.   set A4Starters to [4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48, 52, 56, 60, 64, 68, 72, 76, 80, 84, 88, 92, 96, 100, 104, 108, 112]
  7.   set o1 to [5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8]
  8.   set o2 to [6, 6, 7, 7, 8, 8, 5, 5, 7, 7, 8, 8, 5, 5, 6, 6, 8, 8, 5, 5, 6, 6, 7, 7]
  9.   set o3 to [7, 8, 6, 8, 6, 7, 7, 8, 5, 8, 5, 7, 6, 8, 5, 8, 5, 6, 6, 7, 5, 7, 5, 6]
  10.   set o4 to [8, 7, 8, 6, 7, 6, 8, 7, 8, 5, 7, 5, 8, 6, 8, 5, 6, 5, 7, 6, 7, 5, 6, 5]
  11.   set QOrder to random(24)
  12.   set the member of sprite 4 to member QuestionNumber of castLib "questions"
  13.   set the member of sprite getAt(o1, QOrder) to member getAt(A1Starters, QuestionNumber) of castLib "Answers"
  14.   set the member of sprite getAt(o2, QOrder) to member getAt(A2Starters, QuestionNumber) of castLib "Answers"
  15.   set the member of sprite getAt(o3, QOrder) to member getAt(A3Starters, QuestionNumber) of castLib "Answers"
  16.   set the member of sprite getAt(o4, QOrder) to member getAt(A4Starters, QuestionNumber) of castLib "Answers"
  17.   updateStage()
  18.   return getAt(o1, QOrder)
  19. end
  20.