home *** CD-ROM | disk | FTP | other *** search
/ NEXT Generation: Maxed Out / Next_Generation_Nov_1996_Demo_Disc.iso / pc / media / main.dxr / 00033.ls < prev    next >
Encoding:
Text File  |  1996-09-12  |  1.1 KB  |  31 lines
  1. on mouseDown
  2.   set spritenum to the clickOn
  3.   set upcast to the memberNum of sprite spritenum
  4.   set castname to the name of member upcast
  5.   set downcast to the number of member (castname & "Down")
  6.   puppetSprite(spritenum, 1)
  7.   set the memberNum of sprite spritenum to downcast
  8.   updateStage()
  9.   set numlines to the number of lines in the text of member "display"
  10.   if the scrollTop of member "display" < ((numlines - 6) * 30) then
  11.     set the scrollTop of member "display" to the scrollTop of member "display" + 30
  12.     set the visible of sprite castsprite("prevbtn") to 1
  13.   else
  14.     set the visible of sprite spritenum to 0
  15.   end if
  16.   startTimer()
  17.   repeat while the timer < 30
  18.   end repeat
  19.   repeat while the mouseDown
  20.     if the scrollTop of member "display" < ((numlines - 6) * 30) then
  21.       set the scrollTop of member "display" to the scrollTop of member "display" + 30
  22.       set the visible of sprite castsprite("prevbtn") to 1
  23.       next repeat
  24.     end if
  25.     set the visible of sprite spritenum to 0
  26.   end repeat
  27.   set the memberNum of sprite spritenum to upcast
  28.   updateStage()
  29.   puppetSprite(spritenum, 0)
  30. end
  31.