<GEEK> 2/GEEK2.ISO/pc/zero_bud.dxr/Internal_2_main.ls

Text File | 1997-07-11 | 1.6 KB | 84 lines

global mainFolder, commonFolder, theLastactiveWindow, thisIsA_PC, FalskVideoObj, allVideos, zeroMIAW, origZeroBudgetWindowRect

on startMovie
  macOrPC()
  initZero()
  set the visible of sprite 2 to 1
  initIssueSpecific()
end

on closeWindow
  repeat with qVideo in allVideos
    if objectp(qVideo) then
      stopVideo(qVideo)
    end if
  end repeat
  go(1)
  forget(zeroMIAW)
  set zeroMIAW to 0
end

on openWindow
  go(1)
  updateStage()
  continue()
  if listp(allVideos) then
    repeat with qVideo in allVideos
      if objectp(qVideo) then
        rewindVideo(qVideo)
      end if
    end repeat
  end if
  tell the stage
    cursorNormal()
  end tell
end

on resizeWindow
  set the rect of zeroMIAW to origZeroBudgetWindowRect
  updateStage()
end

on zoomWindow
  set the rect of zeroMIAW to origZeroBudgetWindowRect
  updateStage()
end

on activateWindow
  moveToFront(zeroMIAW)
  updateStage()
  tell the stage
    cursorNormal()
  end tell
  set theLastactiveWindow to zeroMIAW
  continue()
end

on initZero
  go(1)
  set zeroMIAW to the activeWindow
  set origZeroBudgetWindowRect to the rect of zeroMIAW
  if thisIsA_PC then
    repeat with i = 29 to 34
      set the visible of sprite i to 0
    end repeat
    PCMenuINIT()
  end if
  set theLastactiveWindow to zeroMIAW
  moveToFront(zeroMIAW)
end

on openMovie windowName, fileName
  if the visible of window windowName then
    exit
  end if
  if not length(the fileName of window windowName) then
    set the fileName of window windowName to mainFolder & fileName
  end if
  tell the stage
    cursorClock()
  end tell
  set the windowType of window windowName to 8
  open(window windowName)
end