home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / search.dir / 00034.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  764 b   |  25 lines
  1. on mouseDown
  2.   global LastLine
  3.   set theSprite to the clickOn
  4.   set the castNum of sprite theSprite to the castNum of sprite theSprite + 1
  5.   updateStage()
  6.   set the foreColor of cast the castNum of sprite 13 to 1
  7.   updateStage()
  8.   repeat while the mouseDown
  9.     if LastLine <> EMPTY then
  10.       if theSprite = 16 then
  11.         if the number of lines in field "tempText" > LastLine then
  12.           set LastLine to LastLine + 1
  13.         end if
  14.       else
  15.         if LastLine > 20 then
  16.           set LastLine to LastLine - 1
  17.         end if
  18.       end if
  19.       put line LastLine - 19 to LastLine of field "tempText" into field the castNum of sprite 13
  20.     end if
  21.   end repeat
  22.   set the castNum of sprite theSprite to the castNum of sprite theSprite - 1
  23.   updateStage()
  24. end
  25.