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

Text File | 1997-03-05 | 1.5 KB | 59 lines

on exitFrame
  global SoundActive, gProgrmPathOnHD, OnceCheck, Navigate, currMarker, Choice, StartingLine
  if SoundActive and (soundBusy(1) = 0) then
    sound playFile 1, gProgrmPathOnHD & "drinks"
  end if
  if OnceCheck = 0 then
    cursor(-1)
    repeat with i = 6 to 8
      set the cursor of sprite i to [34, 35]
    end repeat
    if (Navigate = "ABC") or (Navigate = "alco") then
      set z to the number of lines in field currMarker
      repeat with i = 1 to z
        if line i of field currMarker = Choice then
          set StartingLine to i
          set y to i
          if (z - i) < 17 then
            set StartingLine to z - 17
            if StartingLine < 1 then
              set StartingLine to 1
            end if
          end if
          set y to y - StartingLine + 1
          set x to 20 + (y * 21)
          puppetSprite(5, 1)
          set the locV of sprite 5 to x
          exit repeat
        end if
      end repeat
    end if
    set the text of field "currScroll" to line StartingLine to StartingLine + 17 of field currMarker
    repeat with i = 42 to 48
      puppetSprite(i, 1)
    end repeat
    set OnceCheck to 1
  end if
  go(the frame)
end

on mouseDown
  global checkPress
  set checkPress to the clickOn
  set bDown to the clickOn
  if bDown > 41 then
    buttonPressedDown(bDown, "drinks")
  end if
end

on mouseUp
  global StartingLine, checkPress
  set checkPress2 to the clickOn
  if checkPress = checkPress2 then
    set bUp to the clickOn
    if bUp > 41 then
      buttonPressedUp(bUp, "drinks")
    end if
  end if
end