home *** CD-ROM | disk | FTP | other *** search
/ The Dynamic Human Version 2.0 / DH2_CD2.ISO / pc / files / 05_immun / 05_03_05.dxr / 00009.ls < prev    next >
Encoding:
Text File  |  1998-12-09  |  895 b   |  18 lines
  1. on immSetupObject
  2.   global immObject, movieObject
  3.   set selectList to [12]
  4.   set textList to ["Interferon1", "Interferon2", "Interferon3", "Interferon4"]
  5.   set audioList to [0, 0, 0, 0]
  6.   set frameList to [0, 480, 780, 1110]
  7.   set movieList to ["Interfer"]
  8.   set selRegionList to []
  9.   repeat with k in selectList
  10.     set nextButton to "immBut" & string(k)
  11.     set nextAction to "global immObject" & RETURN & "selectAction(immObject, " & string(k) & ")"
  12.     append(selRegionList, getButtonData(nextButton, nextAction, [0, 0], nextButton))
  13.   end repeat
  14.   set firstMovie to getAt(movieList, 1)
  15.   set immObject to new(script "immObject", selRegionList, 6, selectList, 8, 7, ["pauseUp", "pauseDn"], ["playUp", "playDn"], "movieSlider", "movieBar", 9, ["frameRewDn", "frameForDn"], 11, 10, 12, movieList, firstMovie, 1, 4, 0, audioList, frameList, textList, 13, [0, 0])
  16.   updateMovie(movieObject)
  17. end
  18.