home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / makers / search.dir / 00034_Script_34 < prev    next >
Text File  |  1996-03-11  |  803b  |  27 lines
  1. on mouseDown
  2.   global LastLine
  3.   
  4.   put the clickOn into theSprite
  5.   set the castNum of sprite theSprite to (the castNum of sprite theSprite) + 1
  6.   updateStage
  7.   
  8.   set the foreColor of cast the castNum of sprite 13 to 1
  9.   updateStage
  10.   
  11.   repeat while the mouseDown
  12.     if LastLine <> EMPTY then
  13.       if theSprite = 16 then
  14.         if the number of lines of field "tempText" > LastLine then
  15.           put LastLine + 1 into LastLine
  16.         end if
  17.       else
  18.         if LastLine > 20 then
  19.           put LastLine - 1 into LastLine
  20.         end if
  21.       end if
  22.       put line (LastLine - 19) to LastLine of field "tempText" into cast the castNum of sprite 13
  23.     end if
  24.   end repeat
  25.   set the castNum of sprite theSprite to (the castNum of sprite theSprite) - 1
  26.   updateStage
  27. end