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

Text File | 1996-08-16 | 7.0 KB | 328 lines

on idle
  Myidle()
end

on Myidle
  global gbDoBlink, gBlink, gAuto, gbISDN, giBlinkCast, gbGoto, gsGoFrame, gsExtension, gbSldOpen, gbQuitWait
  if gbDoBlink = 1 then
    if the ticks > gBlink then
      set x to 40 + gbISDN
      if the castNum of sprite x = giBlinkCast then
        set the castNum of sprite x to giBlinkCast + 2
        set gBlink to the ticks + 20
      else
        set the castNum of sprite x to giBlinkCast
        set gBlink to the ticks + 20
      end if
    end if
    updateStage()
  end if
  if gbGoto = 1 then
    debug("Goto in idle  <<<<<<<<:" & gsGoFrame & ":")
    set gbGoto to 0
    cursor(-1)
    set gbQuitWait to 1
    if gsGoFrame contains "," then
      set m to item 1 of gsGoFrame
      set f to item 2 of gsGoFrame
      go(f, m)
      exit
    else
      go(gsGoFrame)
      exit
    end if
  end if
  if gbSldOpen = 1 then
    CheckMyRollover()
  end if
end

on Install
  global gsGoMain, gsGoSub
  debug("install t-online .. ")
  set gsGoMain to "Install"
  set gsGoSub to EMPTY
  WriteParams()
  SendParams()
  QuitMovie()
end

on Antrag
  global gsGoMain, gsGoSub
  debug("Antragsformular ")
  set gsGoMain to "Antrag"
  set gsGoSub to EMPTY
  WriteParams()
  SendParams()
  QuitMovie()
end

on SetAutoNein
  global giAuto, giLastSprite
  debug("AutoInter:" & giAuto)
  set x to 0
  set x to getAt(glOrigOfSprite, giLastSprite)
  setAt(glCastOfSprite, giLastSprite, x + 6)
  set the castNum of sprite giLastSprite to x + 6
  set x to getAt(glOrigOfSprite, giLastSprite + 1)
  setAt(glCastOfSprite, giLastSprite + 1, x)
  set the castNum of sprite (giLastSprite + 1) to x
  updateStage()
  set giAuto to 0
  WriteParams()
end

on SetAutoJa
  global giAuto, giLastSprite
  debug("AutoGesteuert:" & giAuto)
  set x to 0
  set x to getAt(glOrigOfSprite, giLastSprite)
  setAt(glCastOfSprite, giLastSprite, x + 6)
  set the castNum of sprite giLastSprite to x + 6
  set x to getAt(glOrigOfSprite, giLastSprite - 1)
  setAt(glCastOfSprite, giLastSprite - 1, x)
  set the castNum of sprite (giLastSprite - 1) to x
  updateStage()
  set giAuto to 1
  WriteParams()
end

on SetSound
end

on SetSndLevel
  global giTmpLevel
  debug("Set soundlevel: " & giTmpLevel)
  set x to integer(float(giTmpLevel) / 1.39999999999999991)
  set the soundLevel to x
  puppetSound("chord")
end

on ChangeSoundLevel
  global giTmpLevel
  repeat while the mouseDown
    set the locH of sprite 39 to the mouseH
    updateStage()
  end repeat
  set divi to 10
  set y to float(1)
  set min to the left of sprite 29
  set max to float(the width of sprite 29)
  set pos to the left of sprite 39 + 10
  set x to pos - min
  if x < 0 then
    set x to 0
  end if
  set y to float(x) / max * divi
  set y to integer(y) + 1
  if y > 10 then
    set y to 10
  end if
  set giTmpLevel to integer(y)
  debug("change sound....")
end

on ChangeSoundOnOff
  global glOrigOfSprite, giTmpNoise, giTmpMusic
  debug("change On/off")
  set spn to 38
  set Links to the left of sprite spn
  set pos to the mouseH - Links
  if (pos > 1) and (pos < 26) then
    set giTmpNoise to 1
  else
    if (pos > 29) and (pos < 56) then
      set giTmpNoise to 0
    else
      if (pos > 70) and (pos < 97) then
        set giTmpMusic to 1
      else
        if (pos > 103) and (pos < 126) then
          set giTmpMusic to 0
        end if
      end if
    end if
  end if
  ChangeSpriteSoundOnOff()
end

on ChangeSpriteSoundOnOff
  global glOrigOfSprite, giTmpNoise, giTmpMusic
  debug("change On/Off sprite")
  set x to 0
  set spn to 38
  set x to getAt(glOrigOfSprite, spn)
  if giTmpNoise = 1 then
    if giTmpMusic = 1 then
      set the castNum of sprite spn to x
    else
      set the castNum of sprite spn to x + 2
    end if
  else
    if giTmpMusic = 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
  updateStage()
end

on GoNext
  global giError, gsX, gbGoto, gsGoFrame, gsMenuName
  ChkFramePos(1)
  StopThatSound()
  debug("GoNext: " & gsX)
  set gbGoto to 1
  set gsGoFrame to gsX
  cursor(4)
end

on GoPrev
  global giError, gsX, gbGoto, gsGoFrame, gsMenuName
  ChkFramePos(0)
  StopThatSound()
  debug("GoPrev: " & gsX)
  set gbGoto to 1
  set gsGoFrame to gsX
end

on GoMenu
  global gsMenuName, gbGoto, gsGoFrame, giAuto
  debug("go menu:" & gsMenuName)
  StopThatSound()
  set gbGoto to 1
  set gsGoFrame to getAt(glgotoListe, 3)
  if giAuto > 0 then
    set giAuto to 0
    WriteParams()
  end if
end

on Finished
  global gsGoMain, gsGoSub, gbDebug, gbISDN
  debug("ende des movies")
  StopThatSound()
  set gsGoMain to "Ende"
  set gsGoSub to EMPTY
  WriteParams()
  SendParams()
  QuitMovie()
end

on EinsInfo
  global giLastSprite
  if giLastSprite <> 44 then
    set the visible of sprite 45 to 0
  end if
end

on escInst
  global giLastSprite, giSliderID, glStatus, gsGoMain, gsGoSub, gbDebug
  debug("proc BtnIst..")
  if giSliderID = 0 then
    SliderVisible(1, 1)
  else
    if giSliderID = 1 then
      SliderVisible(1, 0)
    end if
  end if
end

on escAntrag
  global giLastSprite, giSliderID, glStatus, glCastOfSprite
  debug("proc BtnAntrag..")
  if giSliderID = 0 then
    SliderVisible(2, 1)
  else
    if giSliderID = 2 then
      SliderVisible(2, 0)
    end if
  end if
end

on escAuto
  global giLastSprite, giSliderID, glStatus, glCastOfSprite
  debug("proc BtnAuto..")
  if giSliderID = 0 then
    SliderVisible(3, 1)
  else
    if giSliderID = 3 then
      SliderVisible(3, 0)
    end if
  end if
  debug("  ready BtnAuto")
end

on escSound
  global giLastSprite, giSliderID, glStatus, glCastOfSprite, giTmpNoise, giTmpMusic, giTmpLevel, giNoise, giMusic, giSoundLevel
  debug("proc sound.")
  if giSliderID = 0 then
    SliderVisible(4, 1)
  else
    if giSliderID = 4 then
      if the mouseV < 335 then
        set giMusic to giTmpMusic
        set giNoise to giTmpNoise
        set giSoundLevel to giTmpLevel
        WriteParams()
      end if
      SliderVisible(4, 0)
    end if
  end if
end

on DummyAction
  debug("Dummy !! .. ")
end

on GoKatalog x
  global gsGoMain, gsGoSub
  debug("katalog ... ")
  set gsGoMain to x
  set gsGoSub to EMPTY
  WriteParams()
  SendParams()
  QuitMovie()
end

on ChkFramePos Richtung
  global glBsListe, glBsFrame, giError, gsX, giAuto
  set fnr to 0
  set idx to 0
  set gsX to EMPTY
  set wo to the frame
  set fnr to marker(Richtung)
  set idx to getOne(glBsFrame, fnr)
  debug("ChkFrame: " & wo & " zu: " & fnr & ", " & idx)
  if idx = 0 then
    debug(">>>>>marker not found")
  end if
  if Richtung = 0 then
    if idx > 1 then
      set gsX to getAt(glBsListe, idx - 1)
    else
      if giAuto = 0 then
        set gsX to getAt(glgotoListe, 1)
      else
        set gsX to getAt(glgotoListe, 4)
      end if
    end if
  else
    if fnr > wo then
      if idx > 0 then
        set gsX to getAt(glBsListe, idx)
      else
        set gsX to getAt(glgotoListe, 2)
      end if
    else
      if giAuto = 0 then
        set gsX to getAt(glgotoListe, 2)
      else
        set gsX to getAt(glgotoListe, 5)
      end if
    end if
    debug("Frame=: " & gsX)
  end if
end