home *** CD-ROM | disk | FTP | other *** search
/ Media Gallery 1995 June / MG6.ISO / mg.dig / 00014.ls < prev    next >
Encoding:
Text File  |  1995-04-20  |  805 b   |  20 lines
  1. on exitFrame
  2.   global dur, lastgag, haveseenNews, haveseenTopTen, haveseenGew, haveseenBest
  3.   cursor(4)
  4.   puppetSprite(2, 1)
  5.   set gagnum to random(9)
  6.   repeat while (getPos(lastgag, gagnum) > 0) or ((gagnum = 5) or ((haveseenNews = 1) and (gagnum = 7)) or ((haveseenTopTen = 1) and (gagnum = 1)) or ((haveseenGew = 1) and (gagnum = 9)) or ((haveseenBest = 1) and (gagnum = 2))) or ((count(lastgag) < 3) and ((gagnum = 7) or (gagnum = 9) or (gagnum = 1) or (gagnum = 2)))
  7.     set gagnum to random(9)
  8.   end repeat
  9.   append(lastgag, gagnum)
  10.   if count(lastgag) > 3 then
  11.     deleteAt(lastgag, 1)
  12.   end if
  13.   set nextmovie to "g" & string(gagnum) & ".mov"
  14.   set dur to the duration of cast nextmovie
  15.   set the castNum of sprite 2 to the number of cast nextmovie
  16.   updateStage()
  17.   startVideo(2)
  18.   cursor(0)
  19. end
  20.