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

Text File | 1997-03-05 | 2.3 KB | 76 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(-1)
    set OnceCheck to 1
    repeat with i = 2 to 15
      if i > 2 then
        set the cursor of sprite i to [34, 35]
      end if
      puppetSprite(i, 1)
    end repeat
    repeat with i = 42 to 48
      puppetSprite(i, 1)
    end repeat
    set the locH of sprite 2 to -1000
    set the locV of sprite 2 to -1000
    if Navigate = "party" then
      set curMonth to value(the text of field "savedGlobals")
      set the locH of sprite 2 to the left of sprite (curMonth + 3)
      set the locV of sprite 2 to the top of sprite (curMonth + 3)
      if the visible of sprite 2 = 0 then
        set the visible of sprite 2 to 1
      end if
      set the member of sprite 3 to member ("month" & curMonth)
    end if
  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, "party")
  end if
end

on mouseUp
  global checkPress, Choice
  set checkPress2 to the clickOn
  if checkPress = checkPress2 then
    set bUp to the clickOn
    if (bUp > 3) and (bUp < 16) then
      set the locH of sprite 2 to the left of sprite bUp
      set the locV of sprite 2 to the top of sprite bUp
      if the visible of sprite 2 = 0 then
        set the visible of sprite 2 to 1
      end if
      set the member of sprite 3 to member ("month" & bUp - 3)
    else
      if (bUp = 3) and the visible of sprite 2 then
        if the number of chars in the name of the member of sprite 3 = 6 then
          set currMonth to value(char 6 of the name of the member of sprite 3)
        else
          set currMonth to value(char 6 to 7 of the name of the member of sprite 3)
        end if
        set Choice to line currMonth of field "hyperlinks"
        translate(Choice)
        put currMonth into field "savedGlobals"
        set x to the number of lines in field "backField"
        put marker(0) into line x + 1 of field "backField"
        clearPuppets()
        go(marker("entertainmentP"))
      else
        if bUp > 41 then
          buttonPressedUp(bUp, "party")
        end if
      end if
    end if
  end if
end