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

Text File | 1997-03-05 | 968 b | 45 lines

on exitFrame
  global SoundActive, gProgrmPathOnHD, OnceCheck
  if SoundActive and (soundBusy(1) = 0) then
    sound playFile 1, gProgrmPathOnHD & "drinks"
  end if
  if OnceCheck = 0 then
    cursor(-1)
    colorRoutine()
    repeat with i = 2 to 17
      if i <> 6 then
        set the cursor of sprite i to [34, 35]
      end if
    end repeat
    set the cursor of sprite 27 to [34, 35]
    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, "query")
  end if
end

on mouseUp
  global checkPress, CompVec
  set checkPress2 to the clickOn
  if checkPress = checkPress2 then
    set bUp to the clickOn
    if (bUp = 3) or (bUp = 4) or (bUp = 5) then
    else
      if bUp > 41 then
        buttonPressedUp(bUp, "query")
      end if
    end if
  end if
end