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

Text File | 1996-08-16 | 12KB | 545 lines

--Action
--idle

on  idle
  MyIdle

end idle



on Myidle
  global gbDoBlink, gBlink, gAuto, gbISDN, giBlinkCast
  global gbGoto, gsGoFrame, gsExtension, gbSldOpen
  global gbQuitWait

  --debug "idle..."

  -- blinken
  if (gbDoBlink = true) then
    -- -
    if  (the ticks > gBlink) then
      set x = 40 + gbISDN
      if the castnum of sprite x =  giBlinkCast then
        set the castnum of sprite x to giBlinkCast + 2
        set gBlink = the Ticks + 20
      else

        set the castnum of sprite x to giBlinkCast
        set gBlink = the Ticks  + 20
      end if
    end if  --ticks
    updatestage
  end if -- doBlink

  -- autoloop
  -- goto frame . hier, damit der stack der Proc intakt bleibt
  if gbGoto = true then
    debug "Goto in idle  <<<<<<<<:" & gsGoFrame & ":"
    set gbGoto = false
    cursor -1
    set gbQuitWait = true
    if gsGoFrame contains "," then
      put item 1 of gsGoFrame into m
      put item 2 of gsGoFrame into f
      -- continue
      go to frame f of movie m
      exit
    else
      -- continue
      go to gsGoFrame
      exit
    end if

  end if

  -- interims maus-check, bei paus einer animation
  if gbSldOpen = true then
    --debug "idle checkroll bei sld open"
    CheckMyRollover
  end if

end Myidle


-- die Aktionen die beim globalen handle MousUp aufgerufen werden
-- **********************MouseUp*****************************
on Install

  global gsGoMain, gsGoSub

  debug "install t-online .. "
  set gsGoMain ="Install"
  set gsGoSub = ""
  WriteParams  --in inifile
  SendParams -- WinMsg
  QuitMovie   --301


end


-- *********************MouseUp**************************
on Antrag

  global gsGoMain, gsGoSub

  debug "Antragsformular "
  set gsGoMain ="Antrag"
  set gsGoSub = ""
  WriteParams  --in inifile
  SendParams -- WinMsg

  QuitMovie   --301

end


-- ************************MouseUp****************************
on SetAutoNein
  -- Interaktiv !!!
  global giAuto, giLastSprite

  -- die "orignal" castnummern sind die roten buttons
  -- beim drⁿcken umsetzen

  debug "AutoInter:" & giAuto

  set x = 0
  -- 36 auf grⁿn
  put GetAt (glOrigOfSprite, giLastSprite) into x
  setAt glCastOfSprite, giLastSprite, x +6
  set the castnum of sprite giLastSprite = x + 6

  -- 37 auf rot
  put GetAt (glOrigOfSprite, giLastSprite + 1) into x
  setAt glCastOfSprite, (giLastSprite +1 ), x
  set the castnum of sprite (giLastSprite + 1) = x

  updatestage

  set giAuto= 0
  WriteParams

end



-- ****************************MouseUp****************************
on SetAutoJa
  -- gesteuert
  global giAuto, giLastSprite

  -- die "orignal" castnummern sind die roten buttons
  -- beim drⁿcken umsetzen

  debug "AutoGesteuert:" & giAuto
  set x = 0
  -- 37 auf grⁿn
  put GetAt (glOrigOfSprite, giLastSprite) into x
  setAt glCastOfSprite, giLastSprite, x +6
  set the castnum of sprite giLastSprite = x + 6

  -- 36 auf rot
  put GetAt (glOrigOfSprite, giLastSprite - 1) into x
  setAt glCastOfSprite, (giLastSprite -1 ), x
  set the castnum of sprite (giLastSprite - 1) = x
  updatestage

  set giAuto= 1
  WriteParams

end


-- ****************************MouseUp*****************************
on SetSound
  -- mouse up ⁿber radio
  -- aktion erst bei click auf OK button
end


-- ****************************MouseUp*****************************
on SetSndLevel
  global giTmpLevel


  debug "Set soundlevel: " & giTmpLevel
  set x = integer(float(giTmpLevel) / 1.4)  --1..10 -> 1..7
  set the soundLevel = x

  puppetsound "chord"  -- zum test
  -- schreiben der params bei MouseUp auf Button!!

end

-- ***********************************************************
-- -----------------bei mouse down -----------
on ChangeSoundLevel
  -- bewegung ds reglers
  global giTmpLevel

  repeat while the mousedown
    --put the mouseH
    set the locH of sprite 39 to the mouseH
    updatestage
  end repeat

  set divi = 10
  set y = float(1)
  set Min = the Left of sprite 29
  set Max = float(the width of sprite 29)
  set pos = the left of sprite 39 + 10 -- +5 fⁿr mitte
  set x = pos - Min
  if x < 0 then set x= 0
  set y = float(x) / Max * divi
  set y = integer(y) +1
  if y > 10 then set y = 10

  --set the movebleSprite of sprite 39 to true
  --puppetSprite 39, TRUE
  --set the moveableSprite of sprite 39 to TRUE

  set giTmpLevel = integer(y)

  debug "change sound...."

  -- debug "Pos: "& the left of sprite 39 & " x,y:" & x & "," & integer(y)
  -- debug "Min/Max: " & Min & " , " & Max &

end

-- -----------------------------------------------------

on ChangeSoundOnOff
  -- bei mousedown auf die radiobuttons
  --  (bei mouse up in datei)
  global glOrigOfSprite
  global giTmpNoise, giTmpMusic

  debug "change On/off"
  set spn = 38
  set Links = the Left of sprite spn
  set pos = the mouseH - Links

  if (pos >1) and (pos<26) then
    set giTmpNoise = 1
  else if (pos >29) and (pos<56) then
    set giTmpNoise = 0
  else if (pos >70) and (pos<97) then
    set giTmpMusic = 1
  else if (pos >103) and (pos<126) then
    set giTmpMusic = 0
  end if
  ChangeSpriteSoundOnOff


end

-- -----------------------------------------
on ChangeSpriteSoundOnOff
  -- sprite umsetzten bei radiobuttons

  global glOrigOfSprite
  global giTmpNoise, giTmpMusic

  debug "change On/Off sprite"
  set x = 0
  set spn = 38
  put getAt (glOrigOfSprite, spn) into x
  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  -- noise = 0
    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




-- ******************MouseUp*****************************************

--  ----------------    navigation -----------------


-- ***********************************************************
on GoNext
  --  sucht ⁿber die marker funktion das nΣchste label
  --  dann wird das label mit der bsListe geprⁿft

  global giError, gsX
  global gbGoto, gsGoFrame, gsMenuName

  -- pause  --!!!!!!!!!!!!

  ChkFramePos 1      -- unten
  StopThatSound

  debug "GoNext: " & gsX
  set gbGoto = true
  set gsGoFrame = gsX
  cursor 4

end


-- ***********************************************************
on GoPrev
  global giError, gsX
  global gbGoto, gsGoFrame, gsMenuName

  -- pause  --!!!!!!!!!!!!

  ChkFramePos  0     -- unten
  StopThatSound
  debug "GoPrev: " & gsX
  set gbGoto = true
  set gsGoFrame = gsX
end



-- ***********************************************************
on GoMenu
  -- menu in projektor
  global  gsMenuName
  global gbGoto, gsGoFrame, giAuto

  debug "go menu:" & gsMenuName

  -- pause  --!!!!!!!!!!!!

  StopThatSound  -- util
  set gbGoto = true
  put GetAt (glGotoListe, 3) into gsGoFrame
  if giAuto > 0 then
    set giAuto = 0
    WriteParams

  end if

end


-- ***********************************************************
on Finished
  -- exit zum lader
  global gsGoMain, gsGoSub, gbDebug, gbISDN

  debug "ende des movies"
  StopThatSound

  set gsGoMain ="Ende"
  set gsGoSub = ""
  WriteParams  --in inifile
  SendParams -- WinMsg

  QuitMovie   --301

end


-- ***********************************************************
on EinsInfo
  global giLastSprite

  if giLastSprite <> 44 then
    set the visible of sprite 45 to false
  end if

end






-- ***********************************************************
--  ----------------   Slider/ ESC/ OK -----------------
-- ***********************************************************


on escInst
  global giLastSprite, giSliderID, glStatus
  global gsGoMain, gsGoSub, gbDebug

  debug "proc BtnIst.."
  if (giSliderId = 0) then  -- and (getAt (glStatus ,1) = 0) then
    SliderVisible 1, 1
  else
    if giSliderId = 1 then
      SliderVisible 1, 0
    end if
  end if
end BtnInst


-- ***********************************************************

on escAntrag

  global giLastSprite, giSliderID, glStatus, glCastOfSprite

  debug "proc BtnAntrag.."

  -- zeigen / unsichtbar der elemente auf slider
  if (giSliderId = 0) then
    SliderVisible 2, 1
  else
    if giSliderId = 2 then
      SliderVisible 2, 0
    end if
  end if
end


-- ***********************************************************

on escAuto
  -- Auto Animatio On/Off
  global giLastSprite, giSliderID, glStatus, glCastOfSprite

  debug "proc BtnAuto.."

  -- zeigen / unsichtbar der elemente auf slider
  if (giSliderId = 0) then
    SliderVisible 3, 1
  else
    if giSliderId = 3 then
      SliderVisible 3, 0
    end if
  end if
  debug "  ready BtnAuto"
end



-- *********************** OK / ESC ***************************

on escSound
  --
  global giLastSprite, giSliderID, glStatus, glCastOfSprite
  global giTmpNoise, giTmpMusic, giTmpLevel
  global giNoise, giMusic, giSoundLevel

  debug "proc sound."

  -- zeigen / unsichtbar der elemente auf slider
  if (giSliderId = 0) then
    SliderVisible 4, 1
  else
    if giSliderId = 4 then
      if the mouseV < 335 then  -- OK
        set giMusic = giTmpMusic
        set giNoise = giTmpNoise
        set giSoundLevel = 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 = X
  set gsGoSub = ""
  WriteParams  --in inifile
  SendParams -- WinMsg

  QuitMovie   --301

end


-- *************************************************

on ChkFramePos Richtung
  -- prⁿft, ob die MarkerPos noch in der Liste ist

  global glBsListe, glBsFrame, giError, gsX, giAuto

  set fnr = 0
  set idx = 0
  set gsX = ""
  set wo = the frame

  put Marker (Richtung) into fnr   -- frame nummer
  put GetOne (glBsFrame, fnr) into idx  -- index oder 0
  debug "ChkFrame: " & wo & " zu: " & fnr &", "& idx


  if idx = 0 then
    -- kein marker gefunden, gehe zu inhalt
    debug ">>>>>marker not found"
    --set giError = 0
    --put GetAt (glGotoListe, 3) into gsX

  end if

  if richtung = 0 then
    -- zurⁿck

    if idx > 1 then
      -- es gibt marker weiter vorne
      put GetAt (glBsListe, idx -1) into gsX
    else
      -- gehezu vorigem movie
      if giAuto = 0 then
        put GetAt (glGotoListe, 1) into gsX
      else
        -- voriger in auto-folge
        put GetAt (glGotoListe, 4) into gsX
      end if
    end if

  else -- VOR ---

    if fnr > wo then
      if idx > 0 then
        -- es gibt marker weiter hinten
        put GetAt (glBsListe, idx) into gsX
      else
        -- nach letztem in bsliste, dann weiter
        put GetAt (glGotoListe, 2) into gsX
      end if

    else
      -- aus der gotoliste
      if giAuto = 0 then
        -- gehezu nΣchstem movie
        put GetAt (glGotoListe, 2) into gsX
      else
        -- nΣchster in auto-folge
        put GetAt (glGotoListe, 5) into gsX
      end if

    end if
    debug "Frame=: "  & gsX
  end if  --rechung
end