What PC? 1996 August/WPCAUG96.ISO/makers/search.dir/00062.ls

Text File | 1996-06-12 | 668 b | 21 lines

on mouseDown
  global LastSubLine, ThisSubChapter
  set theSprite to the clickOn
  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 in ThisSubChapter > LastSubLine then
        set LastSubLine to LastSubLine + 1
      end if
    else
      if LastSubLine > 20 then
        set LastSubLine to LastSubLine - 1
      end if
    end if
    put line LastSubLine - 19 to LastSubLine of ThisSubChapter into field the castNum of sprite 11
  end repeat
  set the castNum of sprite theSprite to the castNum of sprite theSprite - 1
  updateStage()
end