Diccionario Visual Trilingue/VISUAL.iso/SHARED.DIR/10058_General Scripts.ls

Text File | 1997-07-04 | 6.8 KB | 242 lines

global gCurrentLabel, gTextLanguage, gPictureOnly, gShowAll, gLstRectHS, gLstLabelButtonHS, gFBData, gPictData, gRedTagData, gBracketData, gRegionData, gZoomData, gCutData, gJumpData, gLinkData, glstlabels, gCurrAnimation, gLastPictLabel, gOrgLstRectHS, gTransitionSize, gIndexChange, gContenuChange, gAlertText, gLstAnimHS, gTransitionType, gCurrentMovieNumber, gCurrentScreen, gScreenStatus, gLstIllustScr, glstSpriteNumVignet, gSpriteNumRolledOver, glstVignet, gWorking, gVignetNum, gSndSprite, gStringRessources

on PlayLabelSound
  if the key = " " then
    if gSndSprite <> 0 then
      if the castNum of sprite gSndSprite <> 0 then
        if the castType of cast the castNum of sprite gSndSprite = #digitalVideo then
          if the movieRate of sprite gSndSprite <> 0 then
            return
          end if
        end if
      end if
    end if
    if getPos(gLstIllustScr, gScreenStatus) = 0 then
      if gVignetNum <> 0 then
        accessQTsound(getAt(getAt(glstVignet, gVignetNum), 5), gTextLanguage)
      end if
    else
      if gPictureOnly then
        return
      end if
      set LabelPriority to 0
      if getAt(gLstLabelButtonHS, 3) <> [] then
        set LabelPriority to 3
      else
        if getAt(gLstLabelButtonHS, 2) <> [] then
          set LabelPriority to 2
        else
          if getAt(gLstLabelButtonHS, 1) <> [] then
            set LabelPriority to 1
          end if
        end if
      end if
      if LabelPriority <> 0 then
        set LabelID to getAt(getAt(getAt(gLstLabelButtonHS, LabelPriority), 2), 1)
        set Language to getAt(getAt(gLstLabelButtonHS, LabelPriority), 3)
        accessQTsound(LabelID, Language, gCurrentMovieNumber, the name of cast gCurrentScreen)
      end if
    end if
  end if
end

on ChangeTextLanguage NewLanguage
  set gTextLanguage to NewLanguage
  set gIndexChange to 1
  set gContenuChange to 1
  DrawTitle(getAt(getAt(gFBData, 6), NewLanguage))
  if gPictureOnly then
    return
  end if
  if gShowAll then
    EraseAll()
    DrawAll(0)
    ShowAll()
  else
    if getAt(gLstLabelButtonHS, 1) <> [] then
      DrawLabelAndArrow2(getAt(getAt(gLstLabelButtonHS, 1), 2), 41, 42)
    end if
    if getAt(gLstLabelButtonHS, 2) <> [] then
      DrawLabelAndArrow2(getAt(getAt(gLstLabelButtonHS, 2), 2), 43, 44)
    end if
    if getAt(gLstLabelButtonHS, 3) <> [] then
      drawOneFilet(gCurrentLabel, 0)
      set gCurrentLabel to []
      DrawLabelAndArrow2(getAt(getAt(gLstLabelButtonHS, 3), 2), 39, 40)
    end if
  end if
end

on ShowAll
  set gWorking to 1
  if gPictureOnly then
    set gPictureOnly to 0
    DrawAll(0)
  end if
  if gCurrentLabel <> [] then
    drawOneFilet(gCurrentLabel, 0)
  end if
  ResetActiveLabels()
  set gLstLabelButtonHS to [[], [], []]
  set gCurrentLabel to []
  set gLastPictLabel to 0
  set gLstRectHS to copyList(gOrgLstRectHS)
  repeat with i = 1 to count(glstlabels)
    setAt(getAt(glstlabels, i), 4, gTextLanguage)
  end repeat
  if (count(gFBData) > 0) and (gScreenStatus <> #ZOOM) then
    DrawLabel2(getAt(gFBData, 4), gTextLanguage, 1)
  end if
  repeat with i = 1 to count(gPictData)
    DrawLabel2(getAt(getAt(gPictData, i), 5), gTextLanguage, 1)
  end repeat
  repeat with i = 1 to count(gRedTagData)
    set redDotTemp to getAt(gRedTagData, i)
    if getAt(redDotTemp, 6) <> gCurrAnimation then
      EraseRedTag(redDotTemp)
      DrawLabel2(getAt(redDotTemp, 5), gTextLanguage, 1)
    end if
  end repeat
  repeat with i = 1 to count(gBracketData)
    DrawLabel2(getAt(getAt(gBracketData, i), 5), gTextLanguage, 1)
  end repeat
  repeat with i = 1 to count(gRegionData)
    DrawLabel2(getAt(getAt(gRegionData, i), 5), gTextLanguage, 1)
  end repeat
  repeat with i = 1 to count(gZoomData)
    DrawLabel2(getAt(getAt(gZoomData, i), 5), gTextLanguage, 1)
  end repeat
  repeat with i = 1 to count(gCutData)
    DrawLabel2(getAt(getAt(gCutData, i), 4), gTextLanguage, 1)
  end repeat
  repeat with i = 1 to count(gJumpData)
    DrawLabel2(getAt(getAt(gJumpData, i), 4), gTextLanguage, 1)
  end repeat
  repeat with i = 1 to count(gLinkData)
    DrawLabel2(getAt(getAt(gLinkData, i), 4), gTextLanguage, 1)
  end repeat
  set the castNum of sprite 46 to 10001
  set gShowAll to 1
  set gPopUpButLoaded to 1
end

on RefreshShowAll
  set gWorking to 1
  if gCurrAnimation = -1 then
    repeat with i = 1 to count(glstlabels)
      set label to getAt(glstlabels, i)
      DrawLabel2(getAt(label, 3), getAt(label, 4), 0)
    end repeat
  else
    repeat with i = 1 to count(glstlabels)
      set label to getAt(glstlabels, i)
      if getAt(getAt(glstlabels, i), 5) <> gCurrAnimation then
        DrawLabel2(getAt(label, 3), getAt(label, 4), 0)
      end if
    end repeat
  end if
  set the castNum of sprite 46 to 10001
end

on drawPaint
  if gPictureOnly then
    return
  end if
  if (gScreenStatus = #ILLUSTRATION) or (gScreenStatus = #ZOOM) or (gScreenStatus = #REGION) then
    if gShowAll then
      DrawAll(0)
      RefreshShowAll()
    else
      DrawAll(1)
      if getAt(gLstLabelButtonHS, 3) <> [] then
        set LabelData to getAt(getAt(gLstLabelButtonHS, 3), 2)
        EraseRedTag(getAt(gRedTagData, getAt(LabelData, 7)))
        drawOneFilet(LabelData, 1)
      end if
    end if
  end if
end

on PictureMode
  if gPictureOnly then
    return
  end if
  set gShowAll to 0
  ResetActiveLabels()
  set gCurrentLabel to []
  set gLstLabelButtonHS to [[], [], []]
  EraseAll()
  set gPictureOnly to 1
  set gLastPictLabel to 0
  repeat with i = 1 to count(gLstAnimHS)
    drawAnim(getAt(gLstAnimHS, i))
  end repeat
  set the castNum of sprite 46 to 10001
end

on TextMode
  if not gPictureOnly then
    return
  end if
  DrawAll(1)
  if gFBData <> [] then
    DrawLabelAndArrow2(getAt(gFBData, 4), 41, 42)
  end if
  set gPictureOnly to 0
  if gShowAll then
    ShowAll()
  end if
end

on gotoframe FrameNo, transition
  puppetManager(0)
  if transition then
    puppetTransition(gTransitionType, 0, gTransitionSize)
  end if
  go(FrameNo)
  watchCursor()
  puppetTransition(0)
  puppetManager(1)
end

on GrabStage erase
  if erase then
    EraseAll()
  end if
  puppetTransition(9, 0, 100)
  repeat with i = 1 to 48
    set the trails of sprite i to 1
  end repeat
  updateStage()
  repeat with i = 1 to 48
    set the castNum of sprite i to 10001
    set the trails of sprite i to 0
  end repeat
  updateStage()
end

on flashButton SpriteNo
  set TempNum to the castNum of sprite SpriteNo + 1
  set the castNum of sprite SpriteNo to TempNum
  updateStage()
  startTimer()
  repeat while the timer < 10
    nothing()
  end repeat
  set TempNum to the castNum of sprite SpriteNo - 1
  set the castNum of sprite SpriteNo to TempNum
  updateStage()
end

on copyList OrginalList
  set NewList to []
  repeat with i = 1 to count(OrginalList)
    add(NewList, getAt(OrginalList, i))
  end repeat
  return NewList
end

on getString StringType, StringLanguage
  return getAt(getProp(gStringRessources, StringType), StringLanguage)
end