home *** CD-ROM | disk | FTP | other *** search
/ Cocktail Hour / image.iso / COCKTAIL.DIR / objects_29_mouseUp.ls < prev    next >
Encoding:
Text File  |  1997-03-05  |  867 b   |  27 lines
  1. on mouseDown
  2.   global StartingLine
  3.   if marker(0) <> marker("foodP") then
  4.     set the visible of sprite 37 to 1
  5.   else
  6.     set the visible of sprite 39 to 1
  7.   end if
  8.   updateStage()
  9.   repeat while the mouseDown
  10.     if StartingLine > 1 then
  11.       set StartingLine to StartingLine - 1
  12.       if marker(0) <> marker("foodP") then
  13.         set the text of member "TarInfo2Temp" to line StartingLine to StartingLine + 10 of the text of member "TarInfo2"
  14.         set currVari to offset("variation", field "tarinfo2temp")
  15.         scrollByLine(member "tarInfo2", -1)
  16.         next repeat
  17.       end if
  18.       set the text of member "TarInfo2Temp" to line StartingLine to StartingLine + 8 of the text of member "TarInfo2"
  19.     end if
  20.   end repeat
  21.   if marker(0) <> marker("foodP") then
  22.     set the visible of sprite 37 to 0
  23.   else
  24.     set the visible of sprite 39 to 0
  25.   end if
  26. end
  27.