home *** CD-ROM | disk | FTP | other *** search
/ Cocktail Hour / image.iso / COCKTAIL.DIR / objects_49_foodDown.ls < prev    next >
Encoding:
Text File  |  1997-03-05  |  753 b   |  21 lines
  1. on mouseDown
  2.   global StartingLine
  3.   set the visible of sprite 38 to 1
  4.   updateStage()
  5.   repeat while the mouseDown
  6.     set MaxLines to the number of lines in the text of member "TarInfo2"
  7.     if marker(0) <> marker("foodP") then
  8.       if StartingLine < (MaxLines - 11) then
  9.         set StartingLine to StartingLine + 1
  10.         set the text of member "FoodInfo2Temp" to line StartingLine to StartingLine + 10 of the text of member "TarInfo2"
  11.       end if
  12.       next repeat
  13.     end if
  14.     if StartingLine < (MaxLines - 7) then
  15.       set StartingLine to StartingLine + 1
  16.       set the text of member "FoodInfo2Temp" to line StartingLine to StartingLine + 11 of the text of member "TarInfo2"
  17.     end if
  18.   end repeat
  19.   set the visible of sprite 38 to 0
  20. end
  21.