Better Homes & Gardens: …oking for Today - Chicken/Image.iso/pc/shared.dxr/01001_navigation.ls

Text File | 1995-11-21 | 4.5 KB | 204 lines

on goBack
  global gCurrentMovie
  helpOff()
  set aMovie to "to" & char 1 to offset(".", gCurrentMovie) - 1 of gCurrentMovie
  do(aMovie)
end

on goMain
  global gFromRecipeP, gCFTBook, gCFTBundle, gCurrentMainFrame
  helpOff()
  setBack()
  set gFromRecipeP to 0
  go("first" & gCFTBook, the pathName & "Main")
  soundsOn()
end

on setBack
  global gCurrentMovie, gCurrentMainFrame, gCurrentRecipeFrame, gFromRecipeP, gCFTBook, gCFTBundle
  helpOff()
  puppetSound(0)
  updateStage()
  set gCurrentMovie to the movie
  if char 1 to 4 of the movie = "main" then
    set gCurrentMainFrame to the frameLabel
    set gCurrentRecipeFrame to "recipe1"
    set gFromRecipeP to 0
  else
    if char 1 to 7 of the movie = "recipes" then
      set gCurrentRecipeFrame to the frameLabel
      set gFromRecipeP to 1
    else
      if char 1 to 4 of the movie = "tips" then
        set gFromRecipeP to 1
      else
        set gCurrentMainFrame to "main" & gCFTBook
        set gFromRecipeP to 0
      end if
    end if
  end if
end

on ToMain
  global gCurrentMainFrame, gCFTBook
  helpOff()
  setBack()
  if gCurrentMainFrame = "PastaIndex" then
    set buffer to "bufferPasta"
  else
    if gCurrentMainFrame = "VegiIndex" then
      set buffer to "bufferVegi"
    else
      if gCurrentMainFrame = "StirIndex" then
        set buffer to "bufferStir"
      else
        if gCurrentMainFrame = "ChickIndex" then
          set buffer to "bufferChick"
        else
          if gCurrentMainFrame = "PastaIndexSolo" then
            set buffer to "bufferPastaSolo"
          else
            if gCurrentMainFrame = "VegiIndexSolo" then
              set buffer to "bufferVegiSolo"
            else
              if gCurrentMainFrame = "StirIndexSolo" then
                set buffer to "bufferStirSolo"
              else
                if gCurrentMainFrame = "ChickIndexSolo" then
                  set buffer to "bufferChickSolo"
                else
                  if gCurrentMainFrame = "AZIndex" then
                    set buffer to "bufferAZ"
                  else
                    set buffer to "first" & gCFTBook
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  go(buffer, the pathName & "Main")
  soundsOn()
end

on toRecipes
  global gCurrentBook, gCurrentRecipeFrame, gCFTBook
  helpOff()
  setBack()
  if gCurrentBook = "Pasta" then
    if gCurrentRecipeFrame = "recipe2" then
      set buffer to "bufferA2"
    else
      set buffer to "bufferA1"
    end if
  else
    if gCurrentBook = "Vegi" then
      if gCurrentRecipeFrame = "recipe2" then
        set buffer to "bufferA2"
      else
        set buffer to "bufferA1"
      end if
    else
      if gCurrentBook = "Stir" then
        if gCurrentRecipeFrame = "recipe2" then
          set buffer to "bufferA2"
        else
          set buffer to "bufferA1"
        end if
      else
        if gCurrentBook = "Chick" then
          if gCurrentRecipeFrame = "recipe2" then
            set buffer to "bufferA2"
          else
            set buffer to "bufferA1"
          end if
        else
          if gCurrentBook = "Bundle" then
            if gCurrentRecipeFrame = "recipe2" then
              set buffer to "bufferA2"
            else
              set buffer to "bufferA1"
            end if
          else
            if gCurrentBook = "Personal" then
              set buffer to "bufferP"
            end if
          end if
        end if
      end if
    end if
  end if
  go(buffer, the pathName & "Recipes")
  soundsOn()
end

on toVideo
  setBack()
  go(1, the pathName & "Video")
  soundsOn()
end

on toTips
  setBack()
  go(1, the pathName & "Tips")
  soundsOn()
end

on toUtility
  setBack()
  go(1, the pathName & "Utility")
  soundsOn()
end

on toChooser
  setBack()
  go(1, the pathName & "Chooser")
  soundsOn()
end

on ToPersonal
  global gCurrentBook, gCurrentRecipe, gDefaultRecipe
  if gCurrentRecipe < 6000 then
    set gDefaultRecipe to gCurrentRecipe
  end if
  setBack()
  go(1, the pathName & "Personal")
  soundsOn()
end

on toPlanner
  setBack()
  go(1, the pathName & "Planner")
  soundsOn()
end

on toShopping
  setBack()
  go(1, the pathName & "Shopping")
  soundsOn()
end

on soundsOn
  set the mouseDownScript to "downClick"
  set the mouseUpScript to "upClick"
end

on downclick
  if not soundBusy(1) then
    puppetSound("downClick")
  end if
  updateStage()
  pass()
end

on upclick
  if not soundBusy(1) then
    puppetSound("upClick")
  end if
  updateStage()
  pass()
end