home *** CD-ROM | disk | FTP | other *** search
/ Cocktail Hour / image.iso / COCKTAIL.DIR / Internal_42.ls < prev    next >
Encoding:
Text File  |  1997-03-05  |  828 b   |  24 lines
  1. on mouseUp
  2.   global Choice, RecipeNum
  3.   if the visible of sprite 21 then
  4.     set currLine to the mouseLine
  5.     set ing to line currLine of field "TarInfo2Temp"
  6.     if field ("fieldRecipe" & RecipeNum) contains ing then
  7.       set l1 to the number of lines in field "shop1"
  8.       if the text of field "shop1" = 0 then
  9.         set l1 to 0
  10.       end if
  11.       set l2 to the number of lines in field "shop2"
  12.       if the text of field "shop2" = 0 then
  13.         set l2 to 0
  14.       end if
  15.       if (the text of field "shop2" contains ing) = 0 then
  16.         put Choice into line l1 + 1 of field "shop1"
  17.         put ing into line l2 + 1 of field "shop2"
  18.         set the text of field "shop1temp" to line 1 to 10 of field "shop1"
  19.         set the text of field "shop2temp" to line 1 to 10 of field "shop2"
  20.       end if
  21.     end if
  22.   end if
  23. end
  24.