1&1 Multimedia Trend 1996 11 B/MM_TREND.ISO/prog/t_online/shared.dir/00304.ls

Text File | 1996-09-18 | 4.5 KB | 135 lines

global gxMsgObj, gsIniFile, gsGotoMovie, gsGotoFrame, gsX, giError, gbDebug, gbIsPC, glParamList, gsGoMain, gsGoSub, gsCaption, gsApp, giSoundLevel, giNoise, giMusic, giAuto, giTmpNoise, giTmpMusic, giTmpLevel

on InitParams
  ReadParams()
  set soundLevel to giSoundLevel
  set the soundEnabled to 1
end

on ReadParams
  set glParamList to []
  set i to 0
  set x to "1234567890123456789012345678901234567890123456789012345678901234567890"
  if not gbIsPC then
    set gsMoviePath to the pathName
    set giSoundLevel to 4
    set giAuto to 0
    set giNoise to 1
    set giMusic to 1
    exit
  end if
  set gxMsgObj to CawXObj(mnew)
  if objectp(gxMsgObj) then
    set gsGoMain to EMPTY
    set gsGoSub to EMPTY
    set giSoundLevel to 2
    set x to gxMsgObj(mReadPrivateProfileString, "director", "Caption", "Loader", gsIniFile, 64)
    setAt(glParamList, 1, x)
    set gsCaption to x
    set x to gxMsgObj(mReadPrivateProfileString, "director", "GoMain", "X", gsIniFile, 64)
    setAt(glParamList, 2, x)
    set gsGoMain to x
    set x to gxMsgObj(mReadPrivateProfileString, "director", "GoSub", "Y", gsIniFile, 64)
    setAt(glParamList, 3, x)
    set gsGoSub to x
    set x to gxMsgObj(mReadPrivateProfileString, "director", "SoundLevel", "3", gsIniFile, 64)
    setAt(glParamList, 4, x)
    set giSoundLevel to value(x)
    set x to gxMsgObj(mReadPrivateProfileString, "director", "SoundNoise", "1", gsIniFile, 64)
    setAt(glParamList, 5, x)
    set giNoise to value(x)
    set x to gxMsgObj(mReadPrivateProfileString, "director", "SoundMusic", "1", gsIniFile, 64)
    setAt(glParamList, 6, x)
    set giMusic to value(x)
    set x to gxMsgObj(mReadPrivateProfileString, "director", "Auto", "0", gsIniFile, 64)
    setAt(glParamList, 7, x)
    set giAuto to value(x)
    set x to gxMsgObj(mReadPrivateProfileString, "director", "Debug", "0", gsIniFile, 64)
    set gbDebug to value(x) = 42
    set x to gxMsgObj(mReadPrivateProfileString, "director", "App", "TONL", gsIniFile, 64)
    if x = "ISDN" then
      set gbISDN to 1
    end if
    set x to gxMsgObj(mdispose)
    set giTmpMusic to giMusic
    set giTmpNoise to giNoise
    set giTmpLevel to giSoundLevel
  else
    Fehler(1, "Ini-Einträge nicht gefunden")
  end if
end

on WriteParams
  set x to 0
  set s to "-----"
  if not gbIsPC then
    exit
  end if
  set gxMsgObj to CawXObj(mnew)
  if objectp(gxMsgObj) then
    set x to gxMsgObj(mWritePrivateProfileString, "director", "GoMain", gsGoMain, gsIniFile)
    set x to gxMsgObj(mWritePrivateProfileString, "director", "GoSub", gsGoSub, gsIniFile)
    set s to string(giSoundLevel)
    set x to gxMsgObj(mWritePrivateProfileString, "director", "SoundLevel", s, gsIniFile)
    set s to string(giNoise)
    set x to gxMsgObj(mWritePrivateProfileString, "director", "SoundNoise", s, gsIniFile)
    set s to string(giMusic)
    set x to gxMsgObj(mWritePrivateProfileString, "director", "SoundMusic", s, gsIniFile)
    set s to string(giAuto)
    set x to gxMsgObj(mWritePrivateProfileString, "director", "Auto", s, gsIniFile)
    set s to gsApp
    set x to gxMsgObj(mWritePrivateProfileString, "director", "App", s, gsIniFile)
    set x to gxMsgObj(mdispose)
  else
    Fehler(1, "basis nicht gefunden")
  end if
end

on ChageParams Was, Wert1, Wert2
  if Was = "go" then
  end if
  if Was = "sndl" then
    set the soundLevel to Wert1
  end if
  WriteParams()
end

on SendParams
  set x to 0
  set s to "---"
  set s to gsCaption
  if not gbIsPC then
    exit
  end if
  set gxMsgObj to CawXObj(mnew)
  if objectp(gxMsgObj) then
    set x to gxMsgObj(mPostMessage, "HaHiHo", s, 1, "Message1", 0, 0)
    set x to gxMsgObj(mdispose)
  else
    Fehler(1, "cawMsg nicht gefunden")
  end if
end

on ShowParams
  global gsCRLF
  put "Goto" & gsGoMain & " , " & gsGoSub & gsCRLF into field "info"
  put "Caption " & gsCaption after field "info"
  put "SoundLevel " & giSoundLevel & gsCRLF after field "info"
  put "Noise " & giNoise & gsCRLF after field "info"
  put "Music " & giMusic & gsCRLF after field "info"
  put "Auto " & giAuto & gsCRLF after field "info"
end

on CawDemo
  openXLib("cawxobj")
  set Obj to CawXObj(mnew)
  put Obj(mPostMessage, "HaHiHo", EMPTY, 1, "Message1", 0, 0)
  put Obj(mPostMessage, EMPTY, "Test von cawXobj", 2, "Message1", 0, 0)
  put Obj(mPostMessage, "HaHiHo", "Test von cawXobj", 3, "Message1", 0, 0)
  put Obj(mPostMessage, EMPTY, EMPTY, 0, "Message1", 0, 0)
  put Obj(mWritePrivateProfileString, "TEST", "1", "TraLaLa", "e:\cawxobj.ini")
  put Obj(mReadPrivateProfileString, "TEST", "2", "TraLaLa", "e:\cawxobj.ini", 100)
  Obj(mdispose)
  closeXLib("cawxobj")
end