Imagination Express: Destination Pyramids/PYRAMIDS.ISO/THEMES/PYRAMIDS/DD/PARENTS.EXE/PARENTS.DXR/00066.ls

Text File | 1996-02-08 | 3.1 KB | 132 lines

on startMovie
  global gMoovQty, gPreroll
  clearGlobals()
  preLoadCast(1, 36)
  set the centerStage to 1
  set the mouseDownScript to "donnaMouseDown"
  set the mouseUpScript to "donnaMouseUp"
end

on initialize
  repeat with counter = 3 to 15
    puppetSprite(counter, 1)
  end repeat
end

on donnaMouseDown
  global gSpriteNumber, gValidButton
  set gValidButton to 0
  set gSpriteNumber to the clickOn
  if (gSpriteNumber > 2) and (gSpriteNumber < 17) then
    repeat while the mouseDown
      if rollOver(gSpriteNumber) then
        toggleButton("D")
      else
        toggleButton("U")
      end if
      updateStage()
    end repeat
    if gValidButton <> 1 then
      toggleButton("D")
      updateStage()
    end if
    toggleButton("U")
    updateStage()
  end if
end

on donnaMouseUp
  global gSpriteNumber, gValidButton, gJumpFlag, gMoov
  set gMoov to gSpriteNumber - 2
  if (gSpriteNumber > 3) and (gSpriteNumber < 10) then
    if rollOver(gSpriteNumber) then
      go("B2" & gMoov)
    end if
  else
    if (gSpriteNumber > 9) and (gSpriteNumber < 16) then
      if rollOver(gSpriteNumber) then
        go("B" & gMoov)
      end if
    else
      if gSpriteNumber = 3 then
        if rollOver(gSpriteNumber) then
          go(80)
          quit()
        end if
      else
        if gSpriteNumber = 16 then
          if rollOver(gSpriteNumber) then
            go("b1")
          end if
        end if
      end if
    end if
  end if
end

on toggleButton state
  global gSpriteNumber, gValidButton
  if gSpriteNumber = 0 then
    exit
  end if
  set castNumber to the castNum of sprite gSpriteNumber
  set castName to the name of cast castNumber
  if char 6 of castName = "G" then
    set gValidButton to 0
    exit
  else
    if state = "D" then
      set gValidButton to 1
    end if
  end if
  put state into char 6 of castName
  set the castNum of sprite gSpriteNumber to the number of cast castName
  updateStage()
end

on moovSetup
  global gPreroll, gMoovNameNum, GMOOVNAME
  puppetSprite(20, 1)
  cursor(4)
  if label(0) < 15 then
    set GMOOVNAME to "DD0"
  else
    set GMOOVNAME to "DD" & (label(0) - 10) / 5
  end if
  set gMoovNameNum to the number of cast GMOOVNAME
  set the directToStage of cast gMoovNameNum to 1
  set the preLoad of cast gMoovNameNum to 1
  set the pausedAtStart of cast gMoovNameNum to 1
  preLoadCast(gMoovNameNum)
end

on playMoov
  global gMoovNameNum, GMOOVNAME
  set the mouseDownScript to EMPTY
  set the mouseUpScript to EMPTY
  set abortFlag to 0
  set the castNum of sprite 20 to gMoovNameNum
  set gMoovlength to the duration of cast GMOOVNAME
  updateStage()
  set the movieRate of sprite 20 to 1
  repeat while the movieTime of sprite 20 < gMoovlength
    if the mouseDown then
      set abortFlag to 1
      exit repeat
    end if
    updateStage()
  end repeat
  set the mouseDownScript to "donnaMouseDown"
  set the mouseUpScript to "donnaMouseUp"
  if abortFlag = 1 then
    set the movieRate of sprite 20 to 0
    updateStage()
    set moov to char 3 to 4 of GMOOVNAME
    if ((value(moov) > 0) and (value(moov) < 8)) or ((value(moov) > 20) and (value(moov) < 28)) then
      go("w2")
    else
      go("w1")
    end if
  end if
end