home *** CD-ROM | disk | FTP | other *** search
/ <GEEK> 2 / GEEK2.ISO / pc / exploit.dxr / Internal_2_main.ls < prev    next >
Encoding:
Text File  |  1997-07-11  |  2.0 KB  |  90 lines
  1. global origExplorerWindowRect, mainFolder, commonFolder, theLastactiveWindow, thisIsA_PC, enterTextFieldSprite, SearchButtonSprite, slideBarSprite, explorerMIAW, log
  2.  
  3. on startMovie
  4.   Preferences()
  5.   initializeExplorer()
  6. end
  7.  
  8. on initializeExplorer
  9.   go(1)
  10.   set slideBarSprite to 20
  11.   repeat with i = 1 to 3
  12.     puppetSprite(slideBarSprite + i, 1)
  13.   end repeat
  14.   set explorerMIAW to the activeWindow
  15.   set origExplorerWindowRect to the rect of explorerMIAW
  16.   set the text of member "NetSearchEnterField" to EMPTY
  17.   set log to ["MainLoop"]
  18.   tell explorerMIAW
  19.     if voidp(mainFolder) then
  20.       set mainFolder to the moviePath
  21.     end if
  22.     if voidp(commonFolder) then
  23.       set commonFolder to the moviePath
  24.     end if
  25.     if not integerp(thisIsA_PC) then
  26.       macOrPC()
  27.     end if
  28.   end tell
  29.   tell the stage
  30.     cursorNormal()
  31.   end tell
  32.   cursor(-1)
  33. end
  34.  
  35. on stopMovie
  36.   go(1)
  37. end
  38.  
  39. on closeWindow
  40.   go(1)
  41.   forget(explorerMIAW)
  42.   set explorerMIAW to 0
  43. end
  44.  
  45. on openWindow
  46. end
  47.  
  48. on resizeWindow
  49.   set the rect of explorerMIAW to origExplorerWindowRect
  50.   updateStage()
  51. end
  52.  
  53. on zoomWindow
  54.   set the rect of explorerMIAW to origExplorerWindowRect
  55.   updateStage()
  56. end
  57.  
  58. on activateWindow
  59.   set theLastactiveWindow to explorerMIAW
  60.   moveToFront(explorerMIAW)
  61. end
  62.  
  63. on macOrPC
  64.   global thisIsA_PC, systemfileDelimiter
  65.   set thisIsA_PC to the machineType = 256
  66.   if thisIsA_PC then
  67.     set systemfileDelimiter to "/"
  68.   else
  69.     set systemfileDelimiter to ":"
  70.   end if
  71. end
  72.  
  73. on enterFrame
  74.   if rollOver(slideBarSprite + 1) then
  75.     set the member of sprite (slideBarSprite + 1) to member "Back indicated"
  76.   else
  77.     set the member of sprite (slideBarSprite + 1) to member "BackButton"
  78.   end if
  79.   if rollOver(slideBarSprite + 2) then
  80.     set the member of sprite (slideBarSprite + 2) to member "Stop indicated"
  81.   else
  82.     set the member of sprite (slideBarSprite + 2) to member "StopButton"
  83.   end if
  84.   if rollOver(slideBarSprite + 3) then
  85.     set the member of sprite (slideBarSprite + 3) to member "Bill indicated"
  86.   else
  87.     set the member of sprite (slideBarSprite + 3) to member "BillButton"
  88.   end if
  89. end
  90.