home *** CD-ROM | disk | FTP | other *** search
/ Cocktail Hour / image.iso / COCKTAIL.DIR / drinks_32_currScroll.ls < prev    next >
Encoding:
Text File  |  1997-03-05  |  464 b   |  18 lines
  1. on mouseUp
  2.   global OnceCheck, Choice, currMarker
  3.   set y to the mouseLine
  4.   set Choice to line y of field "currScroll"
  5.   set x to 20 + (y * 21)
  6.   set the locV of sprite 5 to x
  7.   translate(Choice)
  8.   set markVec to the labelList
  9.   set x to the number of lines in field "backField"
  10.   put marker(0) into line x + 1 of field "backField"
  11.   updateStage()
  12.   set the timer to 0
  13.   repeat while the timer < 5
  14.   end repeat
  15.   clearPuppets()
  16.   go(marker(currMarker & "p"))
  17. end
  18.