home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 September / WPCSEP96.ISO / intwpc08.dxr / 00004_IFLMoveMark.ls < prev    next >
Encoding:
Text File  |  1996-07-09  |  432 b   |  13 lines
  1. on IFLMoveMark
  2.   global IFLQuestionList, QuestionSprite
  3.   if count(IFLQuestionList) > 0 then
  4.     set WhichMark to random(count(IFLQuestionList))
  5.     set the castNum of sprite QuestionSprite to getAt(IFLQuestionList, WhichMark)
  6.     deleteAt(IFLQuestionList, WhichMark)
  7.     updateStage()
  8.     wait(0.10000000000000001)
  9.   else
  10.     set IFLQuestionList to list(17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32)
  11.   end if
  12. end
  13.