home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / shared.dir / 00514.ls < prev    next >
Encoding:
Text File  |  1996-07-24  |  839 b   |  25 lines
  1. on mouseDown
  2.   global menuText, displayLines, LinePtrs, offsetPtr, theClickLine, loValPos, theTxtFont
  3.   set me to the clickOn
  4.   set the immediate of sprite me to 1
  5.   set theCastNum to the castNum of sprite me
  6.   set the castNum of sprite 47 to 604
  7.   set the visible of sprite me to 0
  8.   set the castNum of sprite me to theCastNum + 1
  9.   repeat while the mouseDown
  10.     updateStage()
  11.     set the visible of sprite me to 1
  12.   end repeat
  13.   set the castNum of sprite me to theCastNum
  14.   set the text of field 442 to EMPTY
  15.   set the textFont of field 442 to theTxtFont
  16.   set the textSize of field 442 to 14
  17.   put line 1 to displayLines of menuText into field 441
  18.   set theClickLine to 0
  19.   set offsetPtr to 0
  20.   set LinePtrs to EMPTY
  21.   set the castNum of sprite 47 to 449
  22.   set the locV of sprite 47 to loValPos
  23.   set the visible of sprite 47 to 1
  24. end
  25.