What PC? 1997 February/WPCFEB97.ISO/multi/times/data/tools.dir/00010.ls

Text File | 1996-08-12 | 2.5 KB | 77 lines

on goToPlace
  global theSection, theSectionT, lineheight, col1amount, col2amount, col1width, col2width, theSLine, exitFrame, spHoriz, spVert, choiceMade, theGoString, toolWindow
  setDelimOn()
  set theGoStringCount to the number of items in theGoString
  set whMovie to item 1 of theGoString
  set theSectionTemp to value(item 2 of theGoString)
  set theTopicTemp to value(item 3 of theGoString)
  setDelimOff()
  put whMovie
  put theSection
  if whMovie = "animals.dir" then
    tell the stage
      if theGoStringCount = 1 then
        if the movieName = string(whMovie) then
          setPuppets(1, 48, 0)
          set choiceMade to 0
          go(1)
        else
          go(1, string(whMovie))
        end if
      end if
      if theGoStringCount = 2 then
        if the movieName = string(whMovie) then
          setPuppets(1, 48, 0)
          set choiceMade to 0
          go(1)
        else
          go(1, string(whMovie))
        end if
        set theSection to theSectionTemp
        if theSection <= col1amount then
          set theSLine to theSection
          set the locH of sprite 43 to spHoriz
          set the width of sprite 43 to col1width
        else
          set theSLine to theSection - col1amount
          set the locH of sprite 43 to spHoriz + col1width
          set the width of sprite 43 to col2width
        end if
        set the castNum of sprite 40 to cast "introButt3"
        doSet(theSection, theSLine, spVert)
        if theGoString = "response.dir>10" then
          tell the stage
            set the height of sprite 43 to 34
            updateStage()
          end tell
        end if
      end if
      if theGoStringCount = 3 then
        if the movieName = string(whMovie) then
          setPuppets(1, 48, 0)
          set choiceMade to 1
          go(1)
        else
          go(1, string(whMovie))
        end if
        set theSection to theSectionTemp
        set theSectionT to theSectionTemp
        if theSection <= col1amount then
          set theSLine to theSection
          set the locH of sprite 43 to spHoriz
          set the width of sprite 43 to col1width
        else
          set theSLine to theSection - col1amount
          set the locH of sprite 43 to spHoriz + col1width
          set the width of sprite 43 to col2width
        end if
        set the castNum of sprite 40 to cast "introButt3"
        doSet(theSectionT, theSLine, spVert)
        topicFieldList(theTopicTemp)
      end if
    end tell
  else
    go("km")
  end if
end