home *** CD-ROM | disk | FTP | other *** search
/ Meet MediaBand / meetmediaband.bin / main / shared.dir / 00453_Script_453 < prev    next >
Text File  |  1995-07-13  |  587b  |  18 lines
  1. on CreditsInAWindow
  2.   global CreditsWindow
  3.   if objectP(CreditsWindow) then
  4.     forget CreditsWindow
  5.   end if
  6.   set horzOrigin to the stageleft + 160
  7.   set vertOrigin to the stageTop + 120
  8.   set myWindowRect to rect(horzOrigin,vertOrigin, horzOrigin + 320, vertOrigin + 240)
  9.   set CreditsWindow to window "Credits"
  10.   set the rect of CreditsWindow to myWindowRect
  11.   set the filename of CreditsWindow to "Credits"
  12.   set the titleVisible of CreditsWindow to true
  13.   set the modal of CreditsWindow to true
  14.   set the windowtype of CreditsWindow to 5
  15.   open CreditsWindow
  16. end
  17.  
  18.