Cocktail Hour/image.iso/COCKTAIL.DIR/objects_43.ls

Text File | 1997-03-05 | 820 b | 22 lines

on mouseUp
  global Choice
  if the visible of sprite 17 then
    set lUp to the mouseLine
    if the mouseLine > -1 then
      set currLine to EMPTY
      repeat with i = 1 to the number of words in line lUp of the text of member "tarInfo2Temp"
        set currLine to currLine && word i of line lUp of the text of member "tarInfo2Temp"
      end repeat
      set wordX to word 1 of currLine
      set linePos to offset(wordX, the text of member "tarInfo2")
      set prepPos to offset("Preparation", the text of member "tarInfo2")
      if linePos < prepPos then
        set x1 to the number of lines in field "shop1"
        set x2 to the number of lines in field "shop2"
        put Choice into line x1 + 1 of field "shop1"
        put currLine into line x2 + 1 of field "shop2"
      end if
    end if
  end if
end