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

Text File | 1996-08-16 | 11KB | 433 lines

-- Init
-- vars + screen
-- deklaration hier, dann gilt es fⁿr alle procs in diesem script

global gsCRLF, gsExchData

-- flags
global gbDebug
global gbAnimation  -- True, bei animationsfolge fⁿr slider
global gbGoto, gsGoFrame  -- global goto kennungen in IDLE
global gbSldOpen  -- flag, ob slider offen sind
global giBlinkCast,gbDoBlink, gBlink -- Rolloverallg,  blinken
global gbDoTheMouse  -- flag fⁿr rollover in idle zztnicht
global giDownFlag  -- Flag (0..Spn) fⁿr MouseDwon in ExecRollover
global gbInitFrame  -- damit ein Frames nur einmal init
global gbISDN   -- flag fⁿr Init und Funktionen
global gbIsPC   -- PC oder Mac
global gbQuitWait  -- abbruch von busywait
global gb1u1Logo

-- files
global gsIniFile,gsExtension, gsMoviePath

-- screen vars und listen
global glParamList
global glSpriteRoll, glCastOfSprite, glOrigOfSprite
global glHideSprite -- die zu versteckenden
global glAction  -- liste der MousUp Actions script 306
global glStatus  -- zustand der Slider
global glBsListe -- namen der screen im movie (init in start-movie)
global glGotoListe   -- vor/rⁿck/inhalt
global glBsFrame  -- die framenummern der Marker
global glActiveRoll  -- aktive sprites bei offenem slider

global giDummySliderId, giDummySliderHomeId -- puppet dummy slider
global giLastSprite  -- letztes rollover
global giBsIndex  -- aktuelle screen
global giSliderID  -- Nr des ge÷ffneten slider Oder Null (Flag)
global giMovieNr  -- sprite nummer von movies fⁿr ausblenden
global gsLastMovie  -- name fⁿr test bei rⁿckkehr aus filmen
global giExtraAction  -- zusatz aktionen im einzen movie
global gsApp


-- ************************************************************
-- ************************************************************
on InitAll
  -- In Star-tMovie des Intros wird InitAll aufgerufen
  -- die folgenden Movies greifen auf die Globals zu

  InitVars
  InitSystem  -- Script 303
  InitPath
  InitParams  -- script 304
  InitScreen
  InitTheMac  -- script 307
end InitAll


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



on InitVars
  -- Variablen
  --debug "proc: init vars in frame " & the frame

  set gsCRLF = numToChar(13) & numToChar(10)
  set gsIniFile = "1u1.ini"

  set gbSldOpen = false
  set gbDoBlink = true
  set gbDoTheMouse = false

  set gBlink = 0
  set giDownFlag = 0

  set giLastSprite = 0
  set gsExtension = ".dir"
  set gbAnimation = false
  set giBsIndex = 1
  set gbGoto = false
  set gbDebug = false
  set gsGoFrame = ""
  set giMovieNr = 0
  set gbInitFrame = false
  set gbIsPC = true
  set giExtraAction = 0
  set gbQuitWait = false
  set gb1u1Logo = false
  set gsApp = ""

  -- listen
  set glSpriteRoll = []  -- init Flags, welche sprites bei rollover
  set glCastOfSprite = []  -- initiieren der castnummern
  set GlOrigOfSprite = []  -- fⁿr stop movie
  set glAction = []  -- init die liste der procs dor MousUpScript
  set glStatus = []  -- status der slider (1...4)
  set glBsliste = []  -- Liste der Frame fⁿr GoPrev, Next
  set glGotoListe = []
  set glActiveRoll = []

  -- ----------- check maschine -----------

  -- check the machine below
  -- kann von initbasics ⁿberschrieben werden

  put (the machineType > 255) into gbIsPC
  --debug "PC:" && gbIsPc

  -- ----- unterscied ISDN / T-Online ------------------

  set gbISDN = false
  set giBlinkCast = 358
  if (the moviePath contains "ISDN") then
    set gbISDN = true
    set giBlinkCast = 420
  end if
  --debug "ISDN: "& gbISDN
  --debug "proc: .......  ok"
  --debug "Memory: " & the freebytes /1024

end



-- ************************************************************
on InitScreen
  --debug "proc: init screen"

  set giDummySliderId = 47
  set giDummySliderHomeId = 40



  -- lass die puppen tanzen
  -- einzeln ??
  --debug "  puppet"

  if gbISDN = true then
    preloadcast  316 , 400
  else
    preloadcast  400 , 450
  end if

  repeat with i= 26 to 46
    puppetsprite i, true
  end repeat

  updatestage


  -- liste der sprites die am anfang versteckt werden
  --  slider und die buttons auf den slidern

  --debug " hide.."
  set glHideSprite =[29, 30,31,32,33,34,35,36,37,38,39,45]
  repeat with i= 1 to count (glHideSprite)
    set the visible of sprite getAt (glHideSprite, i) to false
  end repeat

  updatestage

  --debug "  listen"
  -- erzeuge eine Liste, dei fⁿr jeden sprite die orginal CastNummer
  -- zuerst  alles auf 0
  set glSpriteRoll = [0,0,0,0,0,0,0,0,0,0  ,0,0,0,0,0,0,0,0,0,0,¼
      0,0,0,0,0,0,0,0,0,0  ,0,0,0,0,0,0,0,0,0,0  ,0,0,0,0,0,0,0,0]

  set glCastOfSprite = [0,0,0,0,0,0,0,0,0,0  ,0,0,0,0,0,0,0,0,0,0,¼
      0,0,0,0,0,0,0,0,0,0  ,0,0,0,0,0,0,0,0,0,0  ,0,0,0,0,0,0,0,0]

  -- fⁿr ISDN und TONLINE getrennt

  if gbISDN = false then
    set glOrigOfSprite = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0,¼
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0,¼
      0, 0, 0, 0, 0, 316, 319, 322, 391, 311,¼
     312, 313, 314, 331, 334, 340, 337, 349, 385, 358,¼
    364, 370, 376, 396, 399, 327, 0, 0]
  else
    --set glOrigOfSprite = glCastOfSprite
    set glOrigOfSprite = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0,¼
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0,¼
      0, 0, 0, 0, 0, 410, 413, 416, 391, 0,¼
     401, 402, 403, 0, 404, 340, 337, 349, 385, 0,¼
    420, 426, 432, 447, 450, 407,0, 0]
  end if



  --debug "  spriteroll"

  -- jetzt cast nur auf orginal
  repeat with i= 1 to 48
    put GetAt (glOrigOfSprite, i) into x
    setAt glCastOfSprite, i , x
  end repeat



  -- einzeln die gewⁿnschten sprites setzen, die aktiv werden
  -- vor, rⁿck,inhalt
  setAt glSpriteRoll, 26, 1
  setAt glSpriteRoll, 27, 1
  setAt glSpriteRoll, 28, 1

  -- buttons auf slider
  setAt glSpriteRoll, 34, 1
  setAt glSpriteRoll, 35, 1
  setAt glSpriteRoll, 36, 1
  setAt glSpriteRoll, 37, 1
  setAt glSpriteRoll, 38, 1
  setAt glSpriteRoll, 39, 1
  set the constraint of sprite 39 to 29  -- linie fⁿr regler


  -- die SliderCheck Buttons,2= sonder funktion
  if gbISDN = false then
    setAt glSpriteRoll, 40, 2  --tonsline inst
  end if

  setAt glSpriteRoll, 41, 2
  setAt glSpriteRoll, 42, 2
  setAt glSpriteRoll, 43, 2

  setAt glSpriteRoll, 44, 1
  setAt glSpriteRoll, 45, 1
  setAt glSpriteRoll, 46, 1 -- ende


  -- status der buttons
  -- 0 = Nicht sichtbar, 1 =sichtbar, 2..5 = Buttons
  -- index =1 .. 4 fⁿr die slider
  repeat with i= 1 to 4
    append glStatus, 0
  end repeat
  set giSliderID = 0


  -- ==================  global script !!! ==================
  -- Die Aktioen die im MausUp/Down Script aufgerufen werden
  -- liegen im script 306

  --set the mouseDownScript  to  "MyMouseDown"
  --set the mouseUpScript  to  "MyMouseUp"

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

  --debug "  actionprocs"

  repeat with i= 1 to 48
    append glAction, "DummyAction"   -- init mit dummy
  end repeat
  -- jetzt einzeln setzen
  setAt glAction, 25,"Check" --dummy

  setAt glAction, 26,"GoPrev"
  setAt glAction, 27,"GoNext"
  setAt glAction, 28,"GoMenu"

  setAt glAction, 34,"Install"
  setAt glAction, 35,"Antrag"
  setAt glAction, 36,"SetAutoNein"
  setAt glAction, 37,"SetAutoJa"
  setAt glAction, 38,"SetSound"      -- an/aus
  setAt glAction, 39,"SetSndLevel"   --regler

  if gbISDN = false then
    setAt glAction, 40,"escInst"
  end if

  setAt glAction, 41,"escAntrag"
  setAt glAction, 42,"escAuto"
  setAt glAction, 43,"escSound"

  --setAt glAction, 44,"EinsInfo"

  setAt glAction, 46,"Finished"


  --debug "  hide48"
  -- ⁿbergelagerter sprite
  -- evtl. mit spritebox kleiner machen

  set ok = not (the moviename contains "MENU")
  if (the castnum of sprite 48 > 0) and ok then
    puppetsprite 48 , true
    --set the castnum of sprite 48 to 395
    set the visible of sprite 48 to false
    updatestage
  end if

  --debug "init ok"
end initscreen


-- ************************************************************
on ResetScreen
  -- in stop movie

  --debug "------ STOP MOVIE --------------"

  if count (glOrigOfSprite) > 47 then
    -- nur wenn init screen vorher
    repeat with i= 26 to 46
      put GetAt(glOrigOfSprite, i) into x
      set the castnum of sprite i = x
    end repeat
    updatestage
  end if

  repeat with i= 26 to 46
    if the puppet of sprite i = true then
      puppetsprite i, false
    end if
  end repeat

  unload
  Sound Stop 1
  set the volume of sound 1 to 255

  Sound Stop 2
  set the volume of sound 2 to 255

  puppetsound 0

  ClearSystem  -- dll's
  ResetTheMac
  --debug "Memory: " & the freebytes / 1024


end ResetScreen


-- ************************************************************
on InitBsFrame
  -- Roll=true, falls rollover screen

  global glBsListe, glBsFrame, gbAnimation, gbInitFrame

  set glBsFrame = []
  repeat with i = 1 to count (glBsListe)
    put getAt (glBsListe, i) into x
    append glBsFrame, label (x)  -- frame nummer des labels
  end repeat
  -- dmit das nur einmal aufgerufen wird
  set gbInitFrame = true
end



-- ************************************************************
on SetData x
  -- Austausch zwischen Movies
  -- ⁿber extra proc, damit die adten evtl auch in eine datei
  -- zwischen gespeichert werden k÷nnen

  put x into gsData
end


-- ************************************************************
on GetData
  return gsData  -- which is global btw.

end


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

on InitPath
  -- redefinition der pafdnamen der castmember
  -- auf den MoviePath

  global gsSoundPath




  repeat with i= 1 to the number of castMembers
    put the castType of cast i into ty

    if ty = #sound then
      put the filename of cast i into x
      put ExtractFile (x)  into y
      set y =  gsMoviePath & "sound\" & y & ".aif"
      set the filename of cast i = y
    end if

    if ty = #digitalVideo then
      put the filename of cast i into x
      put ExtractFile (x)  into y
      set y =  gsMoviePath & "video\" & y
      set the filename of cast i = y
    end if
  end repeat
end InitPath


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

on ExtractFile x
  set p=0
  set y = ""
  -- letztes \ suchen
  repeat with i = 1 to length(x)
    if (char i of x = "\") or (char i of x = ":") then set p = i
  end repeat

  set j=0
  repeat with i = p+1 to length(x)
    set j = j +1
    put char i of x  into char j of y
  end repeat
  return y
end



on CheckBsIni
  global gsLastMovie

  set ok = 0
  if gsLastMovie = the moviename then
    set ok = 1
  else
    set gsLastMovie = the movieName
  end if
  return ok
end