The Princeton Review - Science Smart/SCIENCE.iso/pc/science/files/cad.dir/04288.ls

Text File | 1996-01-26 | 3.9 KB | 142 lines

on test
  global gsectlist, gsublist, gindex, gindexoffset, gsubsublist
  repeat with in1 = 8 to 8
    set gsectlist to in1
    set num to in1
    slidesect()
    updateStage()
    set tprob to gsectlist mod 2
    if tprob = 1 then
      set lupref to "i" & line num of the text of field 1
    else
      set lupref to "p" & line num of the text of field 1
    end if
    put the text of cast lupref into field 2
    set gsublist to 1
    slidesub()
    updateStage()
    put " " into field 3
    if in1 = 6 then
      set sint to 11
    else
      set sint to 1
    end if
    repeat with in2 = sint to the number of lines in field "sublist"
      set gsublist to in2
      set num to in2
      set the foreColor of field 3 to 255
      updateStage()
      slidesub()
      updateStage()
      set tprob to gsectlist mod 2
      if tprob = 1 then
        set lupref to "i" & line num of the text of field 2
      else
        set lupref to "p" & line num of the text of field 2
      end if
      put the text of cast lupref into field 3
      repeat with in3 = 1 to the number of lines in field "subsublist"
        set num to in3
        if line num of the text of field 3 = EMPTY then
          exit
        end if
        set tprob to gsectlist mod 2
        set the foreColor of field 3 to 255
        set the foreColor of line num of field 3 to 215
        if tprob = 1 then
          set frameref to line num of the text of field 3 & " (1)"
          set the visible of sprite 42 to 1
        else
          set frameref to line num of the text of field 3 & " (P1)"
          set the visible of sprite 42 to 0
        end if
        set frameref to frametonum(frameref)
        puppetSprite(11, 0)
        puppetSprite(12, 0)
        go(frameref)
        puppetSprite(43, 0)
        sresp(47)
        setoff(1)
        set the visible of sprite 42 to 0
        setindex()
        go(1)
        slidesect()
        slidesub()
        set the foreColor of line gsubsublist of field 3 to 215
      end repeat
    end repeat
  end repeat
end

on test2
  global gplist
  repeat with index = 2 to 843
    go(index)
    setoff(1)
    cunload()
    sresp(39)
    set the visible of sprite 42 to 0
    set thisframe to EMPTY
    set test to line the frame of the text of cast 4136
    if test = EMPTY then
      set thisframe to stripend(numtoframe(the frame))
      set thisframe to frametonum(thisframe & " (P1)")
      if thisframe > 0 then
        go(thisframe)
        sresp(39)
        cunload()
        setoff(1)
        set temp to stripend(numtoframe(the frame))
        set temp to frametonum(temp & " (1)")
        set the visible of sprite 42 to 1
        offbut()
        go(temp)
      else
        put index
      end if
      next repeat
    end if
    if value(test) > 0 then
      go(value(test))
      sresp(39)
      cunload()
      setoff(1)
      set temp to stripend(numtoframe(the frame))
      set temp to frametonum(temp & " (1)")
      set the visible of sprite 42 to 1
      offbut()
      go(temp)
      next repeat
    end if
    put index
  end repeat
end

on test3
  repeat with index = 844 to 1630
    go(index)
    set x to the castNum of sprite 21
    if x = 7001 then
      set temp to the rect of sprite 21
      set temp to string(temp)
      put "," into char 5 of temp
      set tx to the number of chars in temp
      put "," into char tx of temp
      if (value(item 2 of temp) < 40) or (value(item 4 of temp) > 604) or (value(item 5 of temp) > 391) then
        put index
      end if
    end if
    set x to the castNum of sprite 22
    if x = 7001 then
      set temp to the rect of sprite 22
      set temp to string(temp)
      put "," into char 5 of temp
      set tx to the number of chars in temp
      put "," into char tx of temp
      if (value(item 2 of temp) < 40) or (value(item 4 of temp) > 604) or (value(item 5 of temp) > 391) then
        put index
      end if
    end if
  end repeat
end