home *** CD-ROM | disk | FTP | other *** search
/ <GEEK> 1 / GEEK1.ISO / geekko / slutt.dxr / 00006_Main.ls < prev    next >
Encoding:
Text File  |  1997-05-24  |  769 b   |  41 lines
  1. global SluttMIAW, theLastactiveWindow, thisIsA_PC, origWindowRectSlutt
  2.  
  3. on startMovie
  4.   initializeSluttMIAW()
  5.   go(1)
  6. end
  7.  
  8. on initializeSluttMIAW
  9.   global commonFolder
  10.   set SluttMIAW to the activeWindow
  11.   set origWindowRectSlutt to the rect of window the movieName
  12.   sound playFile 1, commonFolder & "lyder:slutt" & random(2) & ".aif"
  13. end
  14.  
  15. on closeWindow
  16.   close(window "Slutt")
  17.   forget(window "Slutt")
  18.   tell the stage
  19.     go("Total slutt")
  20.   end tell
  21. end
  22.  
  23. on openWindow
  24.   initializeSluttMIAW()
  25. end
  26.  
  27. on resizeWindow
  28.   set the rect of SluttMIAW to origWindowRectSlutt
  29.   updateStage()
  30. end
  31.  
  32. on zoomWindow
  33.   set the rect of SluttMIAW to origWindowRectSlutt
  34.   updateStage()
  35. end
  36.  
  37. on activateWindow
  38.   set theLastactiveWindow to the activeWindow
  39.   initializeSluttMIAW()
  40. end
  41.