GQ - Louise, World Cup, …remy Clarkson, Armageddon/GQCD.iso/files/startup.dxr/00002_masterScript.ls

Text File | 1998-05-21 | 4.2 KB | 184 lines

property myMovieName, cursorExemption, currentMovieName, myMasterApp, myWebPage, myReturnMovie, mySoftware
global gvideo, greturnmovie, gSoundObj, gCustompath

on new me
  set cursorExemption to 0
  return me
end

on setCursorExemption me, state
  set cursorExemption to state
end

on getCursorExemption me
  return cursorExemption
end

on autoUnloadMovie me
  if not voidp(myMovieName) then
    unloadMovie(myMovieName)
  end if
  set myMovieName to the movieName
end

on autoLoad me, start, stop
  cursor(4)
  preloadMember(member start, stop)
  cursor(-1)
end

on autoPuppet me, start, stop
  cursor(-1)
  repeat with i = start to stop
    puppetSprite(i, 1)
  end repeat
end

on autoNotPuppet me, start, stop
  repeat with i = start to stop
    puppetSprite(i, 0)
  end repeat
end

on playSound me, whichChannel, whichSound
  puppetSound(whichChannel, 0)
  puppetSound(whichChannel, member whichSound)
end

on playVideo me, whichVid
  set gvideo to whichVid
  set greturnmovie to the movieName
  autoGoMovie(me, "Movie5", 1, 1)
end

on autoRollover me, startNum, endNum
  repeat with i = startNum to endNum
    if value(getID(me, i)) < 4 then
      if rollOver(i) then
        if the mouseDown then
          cursor([2, 2])
          set the member of sprite i to member (getName(me, i) & "3.PCT")
        else
          cursor([1, 2])
          set the member of sprite i to member (getName(me, i) & "2.PCT")
        end if
        next repeat
      end if
      set the member of sprite i to member (getName(me, i) & "1.PCT")
    end if
  end repeat
  if not cursorExemption and ((rollOver() < startNum) or (rollOver() > endNum)) then
    cursor(-1)
  end if
end

on autoSwitchON me, spriteNum, startNum, endNum
  if value(getID(me, spriteNum)) < 4 then
    repeat with i = startNum to endNum
      if i = spriteNum then
        set the member of sprite i to member (getName(me, i) & "4.PCT")
        next repeat
      end if
      if getID(me, i) < 5 then
        set the member of sprite i to member (getName(me, i) & "1.pct")
      end if
    end repeat
  end if
end

on getName me, whichSprite
  set myName to the name of the member of sprite whichSprite
  return chars(myName, 1, the length of myName - 5)
end

on getID me, whichSprite
  set myName to the name of the member of sprite whichSprite
  return chars(myName, the length of myName - 4, the length of myName - 4)
end

on autoGoMovie me, whichMovie, blankMeFirst, fadeSoundOut
  cursor(4)
  set currentMovieName to whichMovie
  set the actorList to []
  append(the actorList, gSoundObj)
  if fadeSoundOut then
    playSoundTrack(gSoundObj, 0, 1, 255)
  end if
  if blankMeFirst then
    autoNotPuppet(me, 1, 48)
    go("exitBlank")
  else
    autoNotPuppet(me, 1, 41)
    go(1, whichMovie)
  end if
end

on autoCustomwait me, seconds
  set time to seconds * 60
  set timerStart to the timer
  repeat while (the timer - timerStart) < time
    cursor(4)
  end repeat
  cursor(-1)
end

on getMovieName me
  return currentMovieName
end

on setUpLink me, whichDoc, whichMovie
  set myWebPage to whichDoc
  set myReturnMovie to whichMovie
end

on getMySoftware me
  return mySoftware
end

on getFrame me
  return myWebPage
end

on autoReturn me
  autoGoMovie(me, myReturnMovie, 1, 1)
end

on autoWebLink me
  if not objectp(myMasterApp) then
    openXLib(gCustompath & "MastrApp.dll")
    set myMasterApp to MasterApp(mnew, "4ib97xhbf33a")
    if not objectp(myMasterApp) then
      alert("No object!")
      return
    end if
  end if
  set theDocument to the pathName & "NetFiles\refresh.htm"
  checkApplication(me, theDocument)
end

on checkApplication me, whichDocument
  set theApplication to myMasterApp(mLocateExecutable, whichDocument)
  if stringp(theApplication) then
    if word 1 of theApplication = "Error:" then
      set mySoftware to 0
    else
      set myLength to the length of theApplication
      if chars(theApplication, myLength - 3, myLength) = ".EXE" then
        set mySoftware to theApplication
      else
        set mySoftware to 0
      end if
    end if
  else
    set mySoftware to 0
  end if
end

on shutDownWebLink me
  if objectp(myMasterApp) then
    myMasterApp(mdispose)
    set myMasterApp to 0
    closeXLib(gCustompath & "MastrApp.dll")
  end if
end