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

Text File | 1997-03-05 | 4.5 KB | 143 lines

on exitFrame
  global SoundActive, gProgrmPathOnHD, OnceCheck, Navigate
  if SoundActive and (soundBusy(1) = 0) then
    sound playFile 1, gProgrmPathOnHD & "slides"
  end if
  if OnceCheck = 0 then
    cursor(0)
    puppetSprite(8, 1)
    set the rect of sprite 8 to rect(1, 1, 1, 1)
    set the cursor of sprite 8 to [34, 35]
    set OnceCheck to 1
    repeat with i = 2 to 7
      puppetSprite(i, 1)
    end repeat
    repeat with i = 3 to 5
      set the cursor of sprite i to [34, 35]
    end repeat
    repeat with i = 42 to 48
      puppetSprite(i, 1)
    end repeat
    set the locV of sprite 2 to -100
    updateStage()
    set the visible of sprite 2 to 1
    if Navigate = "food" then
      set the member of sprite 5 to member "enter3"
      set the member of sprite 7 to member "text3"
      set the rect of sprite 8 to the rect of sprite 7
      repeat with i = 9 to 20
        set the visible of sprite i to 1
      end repeat
      repeat with i = 22 to 28
        set the visible of sprite i to 0
      end repeat
      set the locV of sprite 2 to value(field "SavedGlobals")
    else
      if Navigate = "partydrinks" then
        set the member of sprite 4 to member "enter2"
        set the member of sprite 6 to member "text2"
        set the rect of sprite 8 to the rect of sprite 6
        repeat with i = 9 to 20
          set the visible of sprite i to 0
        end repeat
        repeat with i = 22 to 28
          set the visible of sprite i to 1
        end repeat
        set the locV of sprite 2 to value(field "SavedGlobals")
      end if
    end if
  end if
  set the cursor of sprite 8 to [34, 35]
  go(the frame)
end

on mouseDown
  global checkPress
  set checkPress to the clickOn
  set bDown to the clickOn
  if (bDown = 4) or (bDown = 5) or (bDown = 3) then
    repeat with i = 3 to 5
      if i = bDown then
        set the member of sprite i to member ("enter" & bDown - 2)
        next repeat
      end if
      set the member of sprite i to member "origin"
    end repeat
  else
    if bDown > 41 then
      buttonPressedDown(bDown, "enter")
    end if
  end if
end

on mouseUp
  global checkPress, Fade, Food, RecipeNum, Choice
  set the locV of sprite 2 to -100
  set checkPress2 to the clickOn
  if checkPress = checkPress2 then
    set bUp to the clickOn
    if bUp = 4 then
      set the member of sprite 7 to member "origin"
      set the member of sprite 6 to member "text2"
      repeat with i = 9 to 20
        set the visible of sprite i to 0
      end repeat
      repeat with i = 22 to 28
        set the visible of sprite i to 1
      end repeat
      set the rect of sprite 8 to the rect of sprite 6
    else
      if bUp = 5 then
        set the member of sprite 6 to member "origin"
        set the member of sprite 7 to member "text3"
        repeat with i = 9 to 20
          set the visible of sprite i to 1
        end repeat
        repeat with i = 22 to 28
          set the visible of sprite i to 0
        end repeat
        set the rect of sprite 8 to the rect of sprite 7
      else
        if bUp = 3 then
          set x to the number of lines in field "backField"
          put marker(0) into line x + 1 of field "backField"
          set Fade to 0
          clearPuppets()
          go(marker("party"))
        else
          if (bUp > 8) and (bUp < 21) then
            set the locV of sprite 2 to the locV of sprite bUp
            updateStage()
            set the text of field "savedGlobals" to the locV of sprite 2 & EMPTY
            set Food to "food" & bUp - 8
            set x to the number of lines in field "backField"
            put marker(0) into line x + 1 of field "backField"
            clearPuppets()
            go(marker("foodP"))
          else
            if (bUp > 21) and (bUp < 29) then
              set the locV of sprite 2 to the locV of sprite bUp
              updateStage()
              set the text of field "savedGlobals" to the locV of sprite 2 & EMPTY
              startTimer()
              repeat while the timer < 20
              end repeat
              set drinkVec to [142, 148, 144, 143, 145, 146, 147]
              set RecipeNum to getAt(drinkVec, bUp - 21)
              set Choice to line RecipeNum of field "names"
              set x to the number of lines in field "backField"
              put marker(0) into line x + 1 of field "backField"
              clearPuppets()
              go(marker("entDrinksP"))
            else
              if bUp > 41 then
                buttonPressedUp(bUp, "enter")
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end