home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Today (BR) Volume 2 #6
/
CDRTV2N6.iso
/
makers
/
search.dir
/
00034_Script_34
< prev
next >
Wrap
Text File
|
1996-03-11
|
803b
|
27 lines
on mouseDown
global LastLine
put the clickOn into theSprite
set the castNum of sprite theSprite to (the castNum of sprite theSprite) + 1
updateStage
set the foreColor of cast the castNum of sprite 13 to 1
updateStage
repeat while the mouseDown
if LastLine <> EMPTY then
if theSprite = 16 then
if the number of lines of field "tempText" > LastLine then
put LastLine + 1 into LastLine
end if
else
if LastLine > 20 then
put LastLine - 1 into LastLine
end if
end if
put line (LastLine - 19) to LastLine of field "tempText" into cast the castNum of sprite 13
end if
end repeat
set the castNum of sprite theSprite to (the castNum of sprite theSprite) - 1
updateStage
end