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