home *** CD-ROM | disk | FTP | other *** search
/ Meet MediaBand / meetmediaband.bin / archives / content / techno.dxr / 00002_Field_2.txt < prev    next >
Text File  |  1995-08-30  |  1KB  |  41 lines
  1. macro MakePopCT
  2.     global PopCT
  3.     --  dispose of any previous instances, if any
  4.     if objectP( PopCT ) then PopCT( mDispose )
  5.     set menuList = the text of cast A61
  6.     --  Be sure to set parameter itemNum for PopNum or PopText to zero.
  7.     set PopCT = PopMenu(mNew, menuList, 202)
  8.  
  9.     PopCT(mSetItemMark,0)
  10.  
  11.     if not objectP( PopCT ) then 
  12.         alert "PopMenu Object not made: " & string( PopCT )
  13.     end if
  14.  
  15. macro CTMenu    --  a pop up menu returning item number
  16.     global  PopCT, CTChapter, selection
  17.     --  PopMenu uses screen co┼írdinates, which must be changed
  18.     --  to window co┼írdinates with the StageLeft & stageTop functions
  19.     set sH = the mouseH
  20.     set sV = the mouseV
  21.  
  22.     puppetsound "buttonclick"
  23.     updatestage
  24.  
  25.     set result = PopCT(mPopNum, sH, sV, 0)
  26.  
  27.     puppetsound 0
  28.  
  29.     if string( result ) = "0" then
  30.         exit
  31.     else 
  32.         if result=1 then exit
  33.         if result=2 then exit
  34.         popquit
  35.         if result=3 then set CTchapter = "A - MARC"
  36.         if result=4 then set CTchapter = "B - CT"
  37.         if result=5 then set CTchapter = "C - TODD"
  38.         if result=6 then set CTchapter = "D - JOHN"
  39.         play movie CTchapter
  40.     end if
  41.