home *** CD-ROM | disk | FTP | other *** search
/ 1&1 Multimedia Trend 1996 10 B / MM_TREND.ISO / prog / t-online / shared.dir / 00304_Script_304 < prev    next >
Text File  |  1996-08-16  |  7KB  |  289 lines
  1. -- Params
  2.  
  3. global gxMsgObj
  4. global gsIniFile, gsGotoMovie, gsGotoFrame
  5.  
  6. global gsX, giError, gbDebug, gbIsPC
  7. global glParamList
  8. global gsGoMain, gsGoSub,gsCaption, gsApp
  9. global giSoundLevel, giNoise, giMusic, giAuto
  10. global giTmpNoise, giTmpMusic, giTmpLevel  -- bei offenem slider
  11.  
  12.  
  13. --*********************************
  14.  
  15. on InitParams
  16.   -- einlesen der Parameter aus dem IniFile
  17.   -- setzen des Systemwerte fⁿr Sound usw
  18.   
  19.   --debug "init params"
  20.   ReadParams
  21.   -- set params
  22.   
  23.   set SoundLevel = giSoundLevel
  24.   --sound FadeIn 1, 10
  25.   --sound FadeIn 2, 10
  26.   set the soundEnabled = true
  27.   
  28.   
  29. end InitParams
  30.  
  31.  
  32. --*********************************
  33.  
  34. on ReadParams
  35.   -- Einlesen der EintrΣge des Ini Files in eine Liste
  36.   
  37.   set glParamList = []
  38.   set i = 0
  39.   set x = "12345678901234567890123456789012345678901234567890¼
  40. 12345678901234567890"
  41.   -- x ist 70 byte
  42.   
  43.   
  44.   --debug "readparams ..."
  45.   
  46.   if not gbIsPC then
  47.     set gsMoviePath = the PathName  
  48.     set giSoundLevel =4
  49.     set giAuto=0
  50.     set giNoise =1
  51.     set giMusic = 1
  52.     exit
  53.     
  54.     
  55.   end if
  56.   
  57.   
  58.   
  59.   
  60.   set gxMsgObj = CawXObj (mNew)
  61.   
  62.   
  63.   if objectP (gxMsgObj) then
  64.     
  65.     set gsGoMain = ""
  66.     set gsGoSub = ""
  67.     set giSoundLevel = 2
  68.     
  69.     
  70.     put gxMsgObj (mReadPrivateProfileString,¼
  71.    "director","Caption","Loader", gsIniFile, 64) into x 
  72.     setAt glParamList, 1, x
  73.     set gsCaption = x
  74.     
  75.     put gxMsgObj (mReadPrivateProfileString,¼
  76.    "director","GoMain","X", gsIniFile, 64) into x 
  77.     setAt glParamList, 2, x
  78.     set gsGoMain = x
  79.     
  80.     put gxMsgObj (mReadPrivateProfileString,¼
  81.    "director","GoSub","Y",gsIniFile, 64) into x 
  82.     setAt glParamList, 3, x
  83.     set gsGoSub = x
  84.     
  85.     put gxMsgObj (mReadPrivateProfileString,¼
  86.    "director","SoundLevel","3", gsIniFile, 64) into x 
  87.     setAt glParamList, 4, x
  88.     set giSoundLevel = value(x)
  89.     
  90.     put gxMsgObj (mReadPrivateProfileString,¼
  91.    "director","SoundNoise","1", gsIniFile, 64) into x 
  92.     setAt glParamList, 5, x
  93.     set giNoise = value(x)
  94.     
  95.     put gxMsgObj (mReadPrivateProfileString,¼
  96.    "director","SoundMusic","1", gsIniFile, 64) into x 
  97.     setAt glParamList, 6, x
  98.     set giMusic = value(x)
  99.     
  100.     put gxMsgObj (mReadPrivateProfileString,¼
  101.    "director","Auto","0", gsIniFile, 64) into x 
  102.     setAt glParamList, 7, x
  103.     set giAuto = value(x)
  104.     
  105.     put gxMsgObj (mReadPrivateProfileString,¼
  106.    "director","Debug","0", gsIniFile, 64) into x 
  107.     set gbDebug = (value(x) = 42)
  108.     
  109.     
  110.     put gxMsgObj (mReadPrivateProfileString,¼
  111.    "director","App","TONL", gsIniFile, 64) into x 
  112.     -- redefine, falls alle sin einem pfad
  113.     --debug "App: " & x
  114.     if x = "ISDN" then
  115.       set gbISDN = true
  116.     end if
  117.     
  118.     
  119.     -- release 
  120.     put gxMsgObj(mDispose) into x
  121.     
  122.     set giTmpMusic = giMusic
  123.     set giTmpNoise = giNoise
  124.     set giTmpLevel = giSoundLevel
  125.     
  126.   else
  127.     fehler 1, "Ini-EintrΣge nicht gefunden"
  128.   end if
  129.   --debug "Params = :" & glParamList
  130.   
  131. end ReadParams
  132.  
  133.  
  134. --***************************************************
  135.  
  136. on WriteParams
  137.   -- in die ini datei schreiben
  138.   
  139.   --debug "write params"
  140.   set x=0
  141.   set s = "-----"
  142.   
  143.   
  144.   if not gbIsPC  then 
  145.     exit 
  146.   end if
  147.   
  148.   
  149.   set gxMsgObj = CawXObj (mNew)
  150.   if objectP (gxMsgObj) then
  151.     
  152.     put gxMsgObj (mWritePrivateProfileString,¼
  153.  "director","GoMain", gsGoMain, gsIniFile) into x 
  154.     
  155.     put gxMsgObj (mWritePrivateProfileString,¼
  156.  "director","GoSub", gsGoSub, gsIniFile) into x 
  157.     
  158.     set s = string(giSoundLevel)
  159.     put gxMsgObj (mWritePrivateProfileString,¼
  160.  "director","SoundLevel", s, gsIniFile) into x 
  161.     
  162.     set s = string(giNoise)
  163.     put gxMsgObj (mWritePrivateProfileString,¼
  164.  "director","SoundNoise", s, gsIniFile) into x 
  165.     
  166.     set s = string(giMusic)
  167.     put gxMsgObj (mWritePrivateProfileString,¼
  168.  "director","SoundMusic", s, gsIniFile) into x 
  169.     
  170.     set s = string(giAuto)
  171.     put gxMsgObj (mWritePrivateProfileString,¼
  172.  "director","Auto", s, gsIniFile) into x 
  173.     
  174.     set s = gsApp
  175.     put gxMsgObj (mWritePrivateProfileString,¼
  176.  "director","App", s, gsIniFile) into x 
  177.     
  178.     
  179.     -- ---------release ----
  180.     put gxMsgObj(mDispose) into x
  181.     
  182.   else
  183.     fehler 1, "basis nicht gefunden"
  184.     
  185.   end if
  186.   
  187.   
  188.   
  189. end WriteParams
  190.  
  191.  
  192. --*************************************************
  193.  
  194. on ChageParams Was, Wert1, Wert2
  195.   -- setzen der einzelnen Parameter
  196.   if Was = "go" then
  197.   end if
  198.   
  199.   if Was = "sndl" then
  200.     -- find kennung
  201.     -- setzte zeile
  202.     set the soundlevel to Wert1
  203.   end if
  204.   
  205.   WriteParams
  206.   
  207. end ChangeParams
  208.  
  209. --*************************************************
  210.  
  211.  
  212. on SendParams
  213.   -- ⁿbergabbe an das basis modul
  214.   
  215.   set x = 0
  216.   set s = "---"
  217.   set s = gsCaption
  218.   
  219.   
  220.   if not gbIsPC  then 
  221.     exit 
  222.   end if
  223.   
  224.   
  225.   
  226.   set gxMsgObj = CawXObj (mNew)
  227.   if objectP (gxMsgObj) then
  228.     
  229.     -- ErklΣrung siehe unten 
  230.     put  gxMsgObj (mPostMessage, "HaHiHo", s, 1,"Message1",0,0 )¼
  231.  into  x
  232.     put gxMsgObj(mDispose) into x
  233.     
  234.   else
  235.     fehler 1, "cawMsg nicht gefunden"
  236.     
  237.   end if
  238.   
  239. end
  240.  
  241.  
  242. --*************************************************
  243.  
  244.  
  245. on ShowParams
  246.   global gsCrLf
  247.   put "Goto" & gsGoMain & " , " & gsGoSub & gscrlf into field "info"
  248.   put "Caption " & gsCaption after field "info"
  249.   put "SoundLevel " & giSoundLevel & gscrlf after field "info"
  250.   put "Noise " & giNoise & gscrlf after field "info" 
  251.   put "Music " & giMusic & gscrlf after field "info"  
  252.   put "Auto " & giAuto   & gscrlf after field "info"
  253.   
  254.   
  255. end
  256.  
  257.  
  258. -- Bspl Script von CAW
  259. --GENERIC.EXE 
  260.  
  261. --Testprogramm fⁿr PostMessage: Klasse  "HaHiHo"
  262. --                            Capiton "Test von cawXobj"
  263. --Reagiert mit MsgBox auf "Message1" und "Message2"
  264.  
  265. -- -----------------------------------------------------------------------
  266. -- -----------------------------------------------------------------------
  267.  
  268. --Testaufruf fⁿr Message-Window im Director:
  269.  
  270. on CawDemo
  271.   OpenXLib "cawxobj"
  272.   set Obj=CawXobj(mNew)
  273.   
  274.   --                    Klasse    Caption             Typ Nachricht  wParam lParam
  275.   --
  276.   put Obj(mPostMessage, "HaHiHo", "",                 1,  "Message1", 0,      0)
  277.   put Obj(mPostMessage, "",       "Test von cawXobj", 2,  "Message1", 0,      0)
  278.   put Obj(mPostMessage, "HaHiHo", "Test von cawXobj", 3,  "Message1", 0,      0)
  279.   put Obj(mPostMessage, "",       "",                 0,  "Message1", 0,      0)
  280.   --
  281.   put Obj(mWritePrivateProfileString,"TEST","1","TraLaLa","e:\cawxobj.ini")
  282.   put Obj(mReadPrivateProfileString, "TEST","2","TraLaLa","e:\cawxobj.ini",100)
  283.   --
  284.   -- Besser noch nicht testen -- put Obj(mSendMessage,"HaHiHo","Message2",0,0)
  285.   
  286.   Obj(mDispose)
  287.   CloseXLib "cawxobj"
  288. end cawdemo
  289.