CD-ROM Today (BR) Volume 2 #6/CDRTV2N6.iso/makers/power/globe.dir/00013_Script_13

Text File | 1996-03-11 | 5KB | 175 lines

on startMovie
  global LandSighn,ToGo,StartCast,LoopQt,fixpal,CurrRoll
  global prevMovie

  set prevMovie = "power"
  set CurrRoll = FALSE
  if the machineType <> 256 then
    openxlib "FIXPAL.OBJ"
    set fixpal=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,TRUE
  end repeat
  put the number of cast "rolette0" into StartCast
  set the itemDelimiter to ","
  put TRUE into LoopQt
end

on patchpal
  global fixpal

  fixpal(mPatchIt)
end patchpal

on stopmovie
  global fixpal

  if the machineType <> 256 then
    fixpal(mDispose)
    closexlib "FIXPAL.OBJ"
  end if
end stopmovie


on rollOvers
  global CurrRoll

  set CurrRoll = TRUE
  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
  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 = (the castnum of sprite 9) + 1
  set endcast = startcast + 30
  put the ticks into Stime
  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)
      checkQT
      updateStage
      put the ticks into Stime
    end if
  end repeat
  set the castnum of sprite 9 = (the castnum of sprite 9) - 1
  set the castNum of sprite 10 to startcast
end

on checkQT
  global LoopQt

  --(240 / 12 * 60) = 1200 etc.
  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

  put FALSE into LoopQt
  put the name of cast the castNum of sprite the clickOn into ToFile
  if toFrame = 110 and the clickOn <> 7 then        --Middle
    set the movieTime of sprite 2 to 1450
    set the movieRate of sprite 2 to 1
    moveToFrame 1560
  else if toFrame = 110 then           --Europe
    set the movieTime of sprite 2 to 1335
    set the movieRate of sprite 2 to 1
    moveToFrame 1440
  else if toFrame = 230 then           --Russia
    set the movieTime of sprite 2 to 1575
    set the movieRate of sprite 2 to 1
    moveToFrame 1680
  else if toFrame = 380 then           --Asia
    set the movieTime of sprite 2 to 1210
    set the movieRate of sprite 2 to 1
    moveToFrame 1320
  else if toFrame = 925 then           --USA
    set the movieTime of sprite 2 to 1690
    set the movieRate of sprite 2 to 1
    moveToFrame 1805
  end if
  put "open" into ToGo
  go frame "fade" of movie string(ToFile&"E.dir")
end

on moveToFrame toFrame
  repeat while the movieTime of sprite 2 < toFrame
    -- go the frame
    updateStage
  end repeat
end