home *** CD-ROM | disk | FTP | other *** search
/ The Dynamic Human Version 2.0 / DH2_CD2.ISO / pc / files / main.dxr / Internal_14_mainButtonObject.ls < prev    next >
Encoding:
Text File  |  1998-09-28  |  597 b   |  15 lines
  1. property mainButtons
  2.  
  3. on new me, buttonSprite, castList
  4.   global gCardioDemo
  5.   set buttonRegionList to []
  6.   repeat with k = 1 to count(castList)
  7.     if (gCardioDemo = 1) and (k <> 2) then
  8.       next repeat
  9.     end if
  10.     append(buttonRegionList, getButtonData(getAt(castList, k), "if the movie contains " & QUOTE & "main" & QUOTE & " then" & RETURN & "mainButtonAction(" & char 2 to length(getAt(castList, k)) of getAt(castList, k) & ")" & RETURN & "end if", [0, 0], getAt(castList, k)))
  11.   end repeat
  12.   set mainButtons to new(script "buttonObject", buttonSprite, buttonRegionList)
  13.   return me
  14. end
  15.