CD-ROM Today (BR) Volume 2 #6/CDRTV2N6.iso/makers/search.dir/00062_Script_62

Text File | 1996-03-11 | 696b | 21 lines

on mouseDown
  global LastSubLine,ThisSubChapter

  put the clickOn into theSprite
  set the castNum of sprite theSprite to (the castNum of sprite theSprite) + 1
  updateStage
  repeat while the mouseDown
    if theSprite = 18 then
      if the number of lines of ThisSubChapter > LastSubLine then
        put LastSubLine + 1 into LastSubLine
      end if
    else
      if LastSubLine > 20 then
        put LastSubLine - 1 into LastSubLine
      end if
    end if
    put line (LastSubLine - 19) to LastSubLine of ThisSubChapter into cast the castNum of sprite 11
  end repeat
  set the castNum of sprite theSprite to (the castNum of sprite theSprite) - 1
  updateStage
end