What PC? 1996 August/WPCAUG96.ISO/makers/power/globe.dir/00013.ls

Text File | 1996-06-12 | 4.5 KB | 181 lines

on startMovie
  global LandSighn, ToGo, StartCast, LoopQt, fixpal, CurrRoll, prevMovie
  set prevMovie to "power"
  set CurrRoll to 0
  if the machineType <> 256 then
    openXLib("FIXPAL.OBJ")
    set fixpal to FixPalette(mnew, the stageLeft, the stageTop, the stageRight, the stageTop)
    patchpal()
  end if
  sound stop 1
  sound stop 2
  repeat with i = 4 to 14
    puppetSprite(i, 1)
  end repeat
  set StartCast to the number of cast "rolette0"
  set the itemDelimiter to ","
  set LoopQt to 1
end

on patchpal
  global fixpal
  fixpal(mPatchIt)
end

on stopMovie
  global fixpal
  if the machineType <> 256 then
    fixpal(mdispose)
    closeXLib("FIXPAL.OBJ")
  end if
end

on rollOvers
  global CurrRoll
  set CurrRoll to 1
  if rollOver(6) then
    hilite(6)
  else
    if rollOver(9) then
      check10()
    else
      if the mouseCast = 28 then
        changeCast(28, 11)
      else
        if the mouseCast = 30 then
          changeCast(30, 13)
        else
          if rollOver(14) then
            roll(14)
          end if
        end if
      end if
    end if
  end if
  updateStage()
end

on changeCast theRoll, theSprite
  if not (the name of cast the castNum of sprite theSprite contains "down") then
    set the castNum of sprite theSprite to the castNum of sprite theSprite + 1
    updateStage()
    repeat while (the mouseCast = (theRoll + 1)) and not (the mouseDown)
      CheckQT()
      updateStage()
    end repeat
    set the castNum of sprite theSprite to the castNum of sprite theSprite - 1
  end if
end

on roll theRoll
  if not (the name of cast the castNum of sprite theRoll contains "down") then
    set the castNum of sprite theRoll to the castNum of sprite theRoll + 1
    updateStage()
    repeat while rollOver(theRoll) and not (the mouseDown)
      CheckQT()
      updateStage()
    end repeat
    set the castNum of sprite theRoll to the castNum of sprite theRoll - 1
  end if
end

on unRoll theRoll
  if the name of cast the castNum of sprite theRoll contains "down" then
    set the castNum of sprite theRoll to the castNum of sprite theRoll - 1
    updateStage()
  end if
end

on hilite theRoll
  global LoopQt
  if LoopQt then
    if not (the name of cast the castNum of sprite theRoll contains "down") then
      set the castNum of sprite theRoll to the castNum of sprite theRoll + 1
      updateStage()
      repeat while rollOver(theRoll) and not (the mouseDown)
        CheckQT()
        updateStage()
        go(the frame)
      end repeat
      set the castNum of sprite theRoll to the castNum of sprite theRoll - 1
      updateStage()
    end if
  end if
end

on check10
  global StartCast
  set the locH of sprite 19 to -210
  updateStage()
  set the castNum of sprite 9 to the castNum of sprite 9 + 1
  set endcast to StartCast + 30
  set Stime to the ticks
  repeat while rollOver(9) and not (the mouseDown)
    if (the ticks - Stime) > 2 then
      if the castNum of sprite 10 < endcast then
        set the castNum of sprite 10 to the castNum of sprite 10 + 1
      else
        set the castNum of sprite 10 to StartCast + 1
      end if
      CheckQT()
      updateStage()
      set Stime to the ticks
    end if
  end repeat
  set the castNum of sprite 9 to the castNum of sprite 9 - 1
  set the castNum of sprite 10 to StartCast
end

on CheckQT
  global LoopQt
  if LoopQt then
    if the movieTime of sprite 2 > 1200 then
      set the movieTime of sprite 2 to 0
      updateStage()
    end if
  end if
end

on rollQt toFRame
  global LoopQt, ToGo
  set LoopQt to 0
  set ToFile to the name of cast the castNum of sprite the clickOn
  if (toFRame = 110) and (the clickOn <> 7) then
    set the movieTime of sprite 2 to 1450
    set the movieRate of sprite 2 to 1
    moveToFrame(1560)
  else
    if toFRame = 110 then
      set the movieTime of sprite 2 to 1335
      set the movieRate of sprite 2 to 1
      moveToFrame(1440)
    else
      if toFRame = 230 then
        set the movieTime of sprite 2 to 1575
        set the movieRate of sprite 2 to 1
        moveToFrame(1680)
      else
        if toFRame = 380 then
          set the movieTime of sprite 2 to 1210
          set the movieRate of sprite 2 to 1
          moveToFrame(1320)
        else
          if toFRame = 925 then
            set the movieTime of sprite 2 to 1690
            set the movieRate of sprite 2 to 1
            moveToFrame(1805)
          end if
        end if
      end if
    end if
  end if
  set ToGo to "open"
  go("fade", string(ToFile & "E.dir"))
end

on moveToFrame toFRame
  repeat while the movieTime of sprite 2 < toFRame
    updateStage()
  end repeat
end