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

Text File | 1997-03-05 | 632 b | 21 lines

on mouseDown
  global gAutoMode, gPictureSprite, gElevatorSprite, gScrollBarSprite
  set gAutoMode to 0
  set currCacl to constrainH(gScrollBarSprite, the mouseH)
  if currCacl = the left of sprite gScrollBarSprite then
    set currCacl to currCacl + 1
  end if
  set tempCacl to currCacl
  repeat while the mouseDown
    set tempCacl to constrainH(gScrollBarSprite, the mouseH)
    if tempCacl = the left of sprite gScrollBarSprite then
      set tempCacl to tempCacl + 1
    end if
    set the locH of sprite gElevatorSprite to tempCacl
    updateStage()
  end repeat
  if currCacl <> tempCacl then
    bringUpPict()
  end if
end