home *** CD-ROM | disk | FTP | other *** search
/ PC go! 1996 July / Image.iso / mrmore / mrmore.dir / 00132.ls < prev    next >
Encoding:
Text File  |  1996-04-11  |  581 b   |  12 lines
  1. on mouseDown
  2.   global gnFirstSprite, gnTextHeight
  3.   ClickButton(the clickOn)
  4.   cursor(0)
  5.   set nHeight to the number of lines in the text of cast the castNum of sprite (gnFirstSprite + 1) * the textHeight of field the castNum of sprite (gnFirstSprite + 1)
  6.   if (the locV of sprite (gnFirstSprite + 1) + nHeight) > 387 then
  7.     set nTextHeight to the textHeight of cast (the castNum of sprite gnFirstSprite + 1)
  8.     set the puppet of sprite (gnFirstSprite + 1) to 1
  9.     set the locV of sprite (gnFirstSprite + 1) to the locV of sprite (gnFirstSprite + 1) - nTextHeight
  10.   end if
  11. end
  12.