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

Text File | 1997-03-05 | 1.7 KB | 70 lines

on exitFrame
  global OnceCheck, SoundActive, gProgrmPathOnHD
  if OnceCheck = 0 then
    cursor(-1)
    set OnceCheck to 1
    repeat with i = 5 to 7
      set the cursor of sprite i to [34, 35]
      puppetSprite(i, 1)
    end repeat
    repeat with i = 42 to 48
      puppetSprite(i, 1)
    end repeat
  end if
  if SoundActive and (soundBusy(1) = 0) then
    sound playFile 1, gProgrmPathOnHD & "slides"
  end if
  go(the frame)
end

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

on mouseUp
  global checkPress
  set checkPress2 to the clickOn
  if checkPress = checkPress2 then
    set bUp to the clickOn
    if (bUp = 5) or (bUp = 6) or (bUp = 7) then
      repeat with i = 8 to 14
        set the visible of sprite i to 0
      end repeat
      if bUp = 5 then
        set the visible of sprite 10 to 1
        set the visible of sprite 13 to 1
        set the cursor of sprite 13 to [34, 35]
      else
        if bUp = 6 then
          set the visible of sprite 8 to 1
          set the visible of sprite 13 to 1
          set the cursor of sprite 13 to [34, 35]
        else
          if bUp = 7 then
            set the visible of sprite 12 to 1
          end if
        end if
      end if
    else
      if bUp > 41 then
        buttonPressedUp(bUp, "history")
      end if
    end if
  end if
end