What PC? 1998 December/WPCDEC98.ISO/dxrs/files/startUp.dxr/00002_masterScript.ls

Text File | 1998-09-24 | 4.3 KB | 174 lines

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

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, whichReturn
  set gvideo to whichVid
  if not voidp(whichReturn) then
    set greturnmovie to whichReturn
  else
    set greturnmovie to the movieName
  end if
  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
        setCursorExemption(me, 1)
        if the mouseDown then
          cursor([2, 2])
          set the member of sprite i to member (getName(me, i) & "3")
        else
          cursor([1, 2])
          set the member of sprite i to member (getName(me, i) & "2")
        end if
        next repeat
      end if
      set the member of sprite i to member (getName(me, i) & "1")
    end if
  end repeat
  if (rollOver() < startNum) or (rollOver() > endNum) then
    setCursorExemption(me, 0)
  end if
end

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

on autoSwitchOff me, startNum, endNum
  repeat with i = startNum to endNum
    if getID(me, i) < 6 then
      set the member of sprite i to member (getName(me, i) & "0")
    end if
  end repeat
end

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

on getID me, whichSprite
  set myName to the name of the member of sprite whichSprite
  return chars(myName, the length of myName, the length of myName)
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 and (the colorDepth < 16) 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 openNetPage me, whichURL
  set myBrowser to browserName()
  set total to the length of myBrowser
  if chars(myBrowser, total - 3, total) <> ".EXE" then
    if userComplies(me) then
      set myFileIO to new(xtra("FileIO"))
      setFilterMask(myFileIO, "Executable (*.exe), *.exe")
      set myBrowser to displayOpen(myFileIO)
      if myBrowser <> EMPTY then
        browserName(myBrowser)
        browserName(#enabled, 1)
        gotoNetPage(whichURL)
      end if
    end if
  else
    browserName(#enabled, 1)
    gotoNetPage(whichURL)
  end if
end

on userComplies me
  set myMuiObj to new(xtra("Mui"))
  set myTitle to "Find Browser"
  set myMessage to "Your default internet browser is not located in the place specified in your system directory, would you like to locate your browser?"
  set alertInitList to [#Buttons: #OkCancel, #title: myTitle, #message: myMessage, #Icon: #caution, #movable: 1]
  set buttonResult to alert(myMuiObj, alertInitList)
  if buttonResult = 1 then
    return 1
  else
    return 0
  end if
end