home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 July / WPCJUL96.ISO / file.exe / SHARED.DXR / 01024_IFLCredits.ls < prev    next >
Encoding:
Text File  |  1996-05-15  |  1.3 KB  |  38 lines
  1. on IFLCredits
  2.   set IFLQuestionNum to the castNum of sprite 2
  3.   set IFLNoiseNum to the castNum of sprite 3
  4.   set IFLGoNow to 0
  5.   set IFLChangeQuestionList to list(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15)
  6.   set IFLChangeNoiseList to list(0, 1, 2, 3)
  7.   repeat while 1
  8.     repeat with t = 1 to count(IFLChangeQuestionList)
  9.       set WhichItem to random(count(IFLChangeQuestionList))
  10.       if (IFLQuestionNum + getAt(IFLChangeQuestionList, WhichItem)) <> the castNum of sprite 2 then
  11.         set the castNum of sprite 2 to IFLQuestionNum + getAt(IFLChangeQuestionList, WhichItem)
  12.         exit repeat
  13.       end if
  14.     end repeat
  15.     repeat with t = 1 to count(IFLChangeNoiseList)
  16.       set WhichItem to random(count(IFLChangeNoiseList))
  17.       if (IFLNoiseNum + getAt(IFLChangeNoiseList, WhichItem)) <> the castNum of sprite 3 then
  18.         set the castNum of sprite 3 to IFLNoiseNum + getAt(IFLChangeNoiseList, WhichItem)
  19.         exit repeat
  20.       end if
  21.     end repeat
  22.     updateStage()
  23.     wait(0.20000000000000001)
  24.     if the mouseUp then
  25.       set IFLGoNow to 1
  26.     end if
  27.     if the mouseDown and (IFLGoNow = 1) then
  28.       set IFLGoNow to 0
  29.       exit repeat
  30.     end if
  31.   end repeat
  32.   repeat with t = 1 to 4
  33.     puppetSprite(t, 0)
  34.   end repeat
  35.   updateStage()
  36.   go("NET")
  37. end
  38.