1&1 Multimedia Trend 1996 10 B/MM_TREND.ISO/prog/t-online/shared.dir/00305.ls

Text File | 1996-08-16 | 11.2 KB | 446 lines

on Check48Rollover
  global glSpriteRoll, giOtherSpn, giSPN, gb1u1Logo
  set giSPN to 0
  set giOtherSpn to 0
  repeat with i = 26 to 47
    if the castNum of sprite i > 0 then
      if rollOver(i) then
        set x to getAt(glSpriteRoll, i)
        if x > 0 then
          set giSPN to i
          exit repeat
          next repeat
        end if
      end if
    end if
  end repeat
  if (gb1u1Logo = 1) and (the mouseDown = 1) then
    set the visible of sprite 45 to 0
    set gb1u1Logo to 0
    updateStage()
    set giSPN to 0
  end if
end

on CheckOtherRollover
  global glOtherRoll, glOtherShow, giOtherSpn
  set Anz to count(glOtherRoll)
  repeat with i = 1 to Anz
    if giOtherSpn = getAt(glOtherRoll, i) then
      go(getAt(glOtherShow, i))
    end if
  end repeat
end

on CheckMyRollover
  global giOtherSpn, giSPN, glActiveRoll, gbSldOpen
  Check48Rollover()
  if gbSldOpen = 1 then
    set x to getOne(glActiveRoll, giSPN)
    if x = 0 then
      set giSPN to 0
    end if
  end if
  if giSPN > 0 then
    ExecRollover()
  else
    ResetRollover()
  end if
end

on CheckNaviRollover
  global giSPN
  Check48Rollover()
  if (giSPN > 25) and (giSPN < 29) then
    ExecRollover()
  else
    ResetRollover()
  end if
end

on ExecRollover
  global giLastSprite, glCastOfSprite, glSpriteRoll, giDownFlag, gbSldOpen, giSPN, giBlinkCast, gbISDN, giAuto
  set spn to giSPN
  set x to 0
  set ok to 1
  if (giLastSprite > 0) and (giLastSprite <> spn) then
    ResetRollover()
  end if
  set y to getAt(glSpriteRoll, spn)
  if y > 0 then
    set x to getAt(glCastOfSprite, spn)
    if the castNum of sprite spn = x then
      if spn = 38 then
        set ok to 0
      end if
      if spn = 45 then
        set ok to 0
      end if
      if (spn = 43) and (gbSldOpen = 1) then
        ChangeSndBtn(1)
        set ok to 0
      end if
      if spn = (40 + gbISDN) then
        set x to getAt(glCastOfSprite, 40 + gbISDN)
        set the castNum of sprite (40 + gbISDN) to x
      end if
      if spn = 36 then
        debug("change Auto: " & giAuto)
        if giAuto = 0 then
          set x to getAt(glOrigOfSprite, spn)
          set the castNum of sprite spn to x + 7
          debug("  + 7")
        else
          set x to getAt(glOrigOfSprite, spn)
          set the castNum of sprite spn to x + 1
          debug("   +1")
        end if
        set ok to 0
        updateStage()
      end if
      if spn = 37 then
        debug("change Auto: " & giAuto)
        if giAuto = 1 then
          set x to getAt(glOrigOfSprite, spn)
          set the castNum of sprite spn to x + 7
          debug("  + 7")
        else
          set x to getAt(glOrigOfSprite, spn)
          set the castNum of sprite spn to x + 1
          debug("   +1")
        end if
        set ok to 0
        updateStage()
      end if
      if ok = 1 then
        set the castNum of sprite spn to x + 1
        updateStage()
      end if
    else
      if (spn = 43) and (gbSldOpen = 1) then
        ChangeSndBtn(1)
        set ok to 0
      end if
    end if
  else
    if spn = 43 then
      ChangeSndBtn(1)
    end if
  end if
  if the mouseDown = 1 then
    if giLastSprite = spn then
      MyMouseDown()
      set giDownFlag to spn
      WaitTicks(5)
      MyMouseUp()
    end if
  end if
  set giLastSprite to spn
end

on ChangeSndBtn art
  global gbSldOpen, gbISDN, giSPN
  set y to giSPN
  if gbISDN then
    set sp to 436
  else
    set sp to 380
  end if
  if art = 1 then
    set x to 0
  else
    set x to 2
  end if
  if (gbSldOpen = 1) and (giSPN = 43) then
    if the mouseH > 605 then
      if the mouseV > 340 then
        set the castNum of sprite 43 to sp + x
      else
        set the castNum of sprite 43 to sp + 1 + x
      end if
    end if
    updateStage()
  end if
end

on ResetRollover
  global giLastSprite, glCastOfSprite, glSpriteRoll, giDownFlag
  if giLastSprite > 0 then
    if giLastSprite <> 38 then
      set x to getAt(glCastOfSprite, giLastSprite)
      set the castNum of sprite giLastSprite to x
      updateStage()
    end if
    set giDownFlag to 0
    set giLastSprite to 0
  end if
end

on MyMouseDown
  global giLastSprite, gbSldOpen, gb1u1Logo
  debug("MyMouseDown: " & giLastSprite)
  set x to 0
  if giLastSprite > 0 then
    set x to getAt(glSpriteRoll, giLastSprite)
    if x > 0 then
      PlayNoise("click")
      if giLastSprite <> 38 then
        set x to getAt(glCastOfSprite, giLastSprite)
        set the castNum of sprite giLastSprite to x + 2
        updateStage()
      end if
      if giLastSprite = 44 then
        debug("show 1&1")
        if the visible of sprite 45 = 1 then
          set the visible of sprite 45 to 0
          set gb1u1Logo to 0
        else
          set the visible of sprite 45 to 1
          set gb1u1Logo to 1
        end if
        updateStage()
      else
        if the visible of sprite 45 = 1 then
          debug("hide  1&1")
          set the visible of sprite 45 to 0
          set gb1u1Logo to 0
          updateStage()
        end if
      end if
      if gbSldOpen = 1 then
        if giLastSprite = 39 then
          ChangeSoundLevel()
        else
          if giLastSprite = 38 then
            ChangeSoundOnOff()
          else
            if giLastSprite = 43 then
              ChangeSndBtn(2)
            else
            end if
          end if
        end if
      end if
    else
    end if
  end if
  debug("...down ready")
end

on MyMouseUp
  global giLastSprite, glAction, gbISDN, giExtraAction
  set s to "  "
  set x to 0
  if giLastSprite > 0 then
    set x to getAt(glSpriteRoll, giLastSprite)
    if x > 0 then
      debug("MsUpProc.." & giLastSprite)
      updateStage()
      if giLastSprite <> 38 then
        set x to getAt(glCastOfSprite, giLastSprite)
        set the castNum of sprite giLastSprite to x
        updateStage()
      end if
      set z to giLastSprite
      set s to getAt(glAction, giLastSprite)
      debug(" call " & s)
      if z = 26 then
        GoPrev()
      else
        if z = 27 then
          GoNext()
        else
          if z = 28 then
            GoMenu()
          else
            if z = 34 then
              Install()
            else
              if z = 35 then
                Antrag()
              else
                if z = 36 then
                  SetAutoNein()
                else
                  if z = 37 then
                    SetAutoJa()
                  else
                    if z = 38 then
                      SetSound()
                    else
                      if z = 39 then
                        SetSndLevel()
                      else
                        if z = 40 then
                          if gbISDN = 0 then
                            escInst()
                          end if
                        else
                          if z = 41 then
                            escAntrag()
                          else
                            if z = 42 then
                              escAuto()
                            else
                              if z = 43 then
                                escSound()
                              else
                                if z = 44 then
                                else
                                  if z = 46 then
                                    Finished()
                                  else
                                    if z = 99 then
                                    else
                                    end if
                                  end if
                                end if
                              end if
                            end if
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    else
    end if
  end if
  if giExtraAction > 0 then
    if giLastSprite > 0 then
      debug("---EXTRA!")
      ExtraAction()
    end if
  end if
  debug("...up ready")
end

on SliderVisible id, JaNein
  global glCastOfSprite, glOrigOfSprite, giLastSprite, gbDoBlink, gbSldOpen, giSliderID, glStatus, giMusic, giNoise, giAuto, glActiveRoll, giMovieNr
  debug("slider visible")
  set x to 0
  if JaNein = 1 then
    if giMovieNr > 0 then
      set x to giMovieNr
      set giMovieNr to 0
      repeat while the movieRate of sprite x > 0
        nothing()
      end repeat
    end if
    PlayNoise("ExtendTab")
    set gbDoBlink to 0
    set gbSldOpen to 1
  end if
  if id = 1 then
    set the visible of sprite 30 to JaNein
    set the visible of sprite 34 to JaNein
    set glActiveRoll to [30, 34, 40]
  end if
  if id = 2 then
    set the visible of sprite 31 to JaNein
    set the visible of sprite 35 to JaNein
    set glActiveRoll to [31, 35, 41]
  end if
  if id = 3 then
    set the visible of sprite 32 to JaNein
    if giAuto = 0 then
      set x to getAt(glOrigOfSprite, 36)
      set the castNum of sprite 36 to x + 2
      set x to getAt(glOrigOfSprite, 37)
      set the castNum of sprite 37 to x
    else
      set x to getAt(glOrigOfSprite, 36)
      set the castNum of sprite 36 to x
      set x to getAt(glOrigOfSprite, 37)
      set the castNum of sprite 37 to x + 2
    end if
    set the visible of sprite 36 to JaNein
    set the visible of sprite 37 to JaNein
    set glActiveRoll to [32, 36, 37, 42]
    debug(" CASTNUM: " & the castNum of sprite 36 & the castNum of sprite 37)
  end if
  if id = 4 then
    set the visible of sprite 29 to JaNein
    set the visible of sprite 33 to JaNein
    set the visible of sprite 39 to JaNein
    if JaNein = 1 then
      set x to 0
      set spn to 38
      set x to getAt(glOrigOfSprite, spn)
      debug("ORIG: " & x)
      if giNoise = 1 then
        if giMusic = 1 then
          set the castNum of sprite spn to x
        else
          set the castNum of sprite spn to x + 2
        end if
      else
        if giMusic = 1 then
          set the castNum of sprite spn to x + 1
        else
          set the castNum of sprite spn to x + 3
        end if
      end if
    end if
    set the visible of sprite 38 to JaNein
    set glActiveRoll to [29, 33, 39, 38, 43]
  end if
  set x to getAt(glCastOfSprite, giLastSprite)
  if JaNein = 1 then
    set y to x + 3
  else
    set y to x - 3
  end if
  setAt(glCastOfSprite, giLastSprite, y)
  set the castNum of sprite giLastSprite to y
  set the visible of sprite giLastSprite to 1
  if JaNein = 1 then
    set giSliderID to id
    setAt(glStatus, id, 1)
  else
    set gbDoBlink to 1
    set gbSldOpen to 0
    set giSliderID to 0
    setAt(glStatus, id, 0)
    continue()
  end if
  debug("   ready slider")
  updateStage()
end

on ShowThemAll
  repeat with i = 20 to 48
    set the visible of sprite i to 1
  end repeat
end

on sliderOut id
  global giLastSprite, giDummySliderId, giDummySliderHomeId, gbAnimation
  exit
  PlayNoise("ExtendTab")
  set x to the locH of sprite giDummySliderHomeId
  set y to the locV of sprite giLastSprite
  set the locH of sprite giDummySliderId to x
  set the locV of sprite giDummySliderId to y - 10
  set the visible of sprite giDummySliderId to 1
  updateStage()
  if gbAnimation = 1 then
    set the locH of sprite giDummySliderId to x - 70
  else
    repeat with i = 1 to 5
      set the locH of sprite giDummySliderId to x
      set x to x - 14
      updateStage()
    end repeat
  end if
end

on SliderBack
  global giDummySliderId
end