home *** CD-ROM | disk | FTP | other *** search
/ PC-Online 1996 June / PCOnline_06_1996.iso / mrmore / mrmore.dir / 00064_Script_64 < prev    next >
Text File  |  1996-04-11  |  739b  |  18 lines
  1. -- hochscrollen mit balken
  2.  
  3. on mouseDown
  4.   global gnFirstSprite, gnTextHeight
  5.   
  6.   ClickButton(the clickOn)
  7.   
  8.   set nHeight = the number of lines of the text of cast the castNum of sprite (gnFirstSprite+1) ¼
  9.                                                     * (the textHeight of field the castNum of sprite (gnFirstSprite+1))  
  10.   
  11.   if the locV of sprite (gnFirstSprite+1) + nHeight > 388 then
  12.     set the puppet of sprite (gnFirstSprite+1)  = true
  13.     set the puppet of sprite (gnFirstSprite+2)  = true
  14.     set the locV of sprite (gnFirstSprite+1)  = the locV of sprite (gnFirstSprite+1) - gnTextHeight
  15.     set the locV of sprite (gnFirstSprite+2)  = the locV of sprite (gnFirstSprite+2) - gnTextHeight
  16.   end if
  17.   
  18. end