home *** CD-ROM | disk | FTP | other *** search
/ Dictionnaire Multimedia Multilingue (Home PC 42) / dictionarvizual.iso / data / open2.dir / 00002.ls < prev    next >
Encoding:
Text File  |  1996-03-14  |  3.0 KB  |  65 lines
  1. on startMovie
  2.   global gl1Ip, gl2Ip, gl3Ip, gwaLanDp, gReadObject, theText, gmoHsIp, gmoHsDp, gfDelim, gRoot, HDdir, gAct, gsndSw1, gsndSw2, gtxtSw1, gtxtSw2, gVideoSw, gMovType, glObj, gLang1, gLang2, gSprites, smExit0, smExit1, smExit2, BkAro, mMnu, find, spell, scram, L0L0, L0L1, L0L2, L0L3, L1L0, L1L1, L1L2, L1L3, L2L0, L2L1, L2L2, L2L3, L3L0, L3L1, L3L2, L3L3, video, GbTiny, L2Tiny, FrTiny, sndOn, sndOff, txtOn, txtOff, help, chgLangs, chgAct, chgSnd1, chgSnd2, chgTxt1, chgTxt2, chgFind, chgSpell, chgScram, chgDic, pDic, txFront, txBackSin, txBackDbl, l1Text, l2Text, l3Text, txFrSmall, txFrMed, txFrBig, done, gLastSp, gmovieStack, gLevel, gBox, gl1Dp, gl2Dp, gl3Dp
  3.   set gmoHsDp to []
  4.   if objectp(gReadObject) then
  5.     gReadObject(mdispose)
  6.   end if
  7.   set gReadObject to FileIO(mnew, "read", HDdir & "mo_hs.dp")
  8.   set theText to " "
  9.   repeat while theText > EMPTY
  10.     set theText to gReadObject(mReadLine)
  11.     append(gmoHsDp, value(theText))
  12.   end repeat
  13.   if objectp(gReadObject) then
  14.     gReadObject(mdispose)
  15.   end if
  16.   set done to 1
  17.   set BkAro to the number of cast "BkAro"
  18.   set mMnu to the number of cast "mMnu"
  19.   set find to the number of cast "find"
  20.   set spell to the number of cast "spell"
  21.   set scram to the number of cast "scram"
  22.   set L0L0 to the number of cast "L0L0"
  23.   set L0L1 to the number of cast "L0L1"
  24.   set L0L2 to the number of cast "L0L2"
  25.   set L0L3 to the number of cast "L0L3"
  26.   set L1L0 to the number of cast "L1L0"
  27.   set L1L1 to the number of cast "L1L1"
  28.   set L1L2 to the number of cast "L1L2"
  29.   set L1L3 to the number of cast "L1L3"
  30.   set L2L0 to the number of cast "L2L0"
  31.   set L2L1 to the number of cast "L2L1"
  32.   set L2L2 to the number of cast "L2L2"
  33.   set L2L3 to the number of cast "L2L3"
  34.   set L3L0 to the number of cast "L3L0"
  35.   set L3L1 to the number of cast "L3L1"
  36.   set L3L2 to the number of cast "L3L2"
  37.   set L3L3 to the number of cast "L3L3"
  38.   set video to the number of cast "Video"
  39.   set sndOn to the number of cast "sndOn"
  40.   set sndOff to the number of cast "sndOff"
  41.   set txtOn to the number of cast "txtOn"
  42.   set txtOff to the number of cast "txtOff"
  43.   set help to the number of cast "help"
  44.   set chgLangs to the number of cast "chgLangs"
  45.   set chgAct to the number of cast "chgAct"
  46.   set chgSnd1 to the number of cast "chgSnd1"
  47.   set chgSnd2 to the number of cast "chgSnd2"
  48.   set chgTxt1 to the number of cast "chgTxt1"
  49.   set chgTxt2 to the number of cast "chgTxt2"
  50.   set chgFind to the number of cast "chgFind"
  51.   set chgSpell to the number of cast "chgSpell"
  52.   set chgScram to the number of cast "chgScram"
  53.   set chgDic to the number of cast "chgDic"
  54.   set pDic to the number of cast "pDic"
  55.   set txFront to the number of cast "txFront"
  56.   set txBackSin to the number of cast "txBackSin"
  57.   set txBackDbl to the number of cast "txBackDbl"
  58.   set l1Text to the number of cast " l1Text"
  59.   set l2Text to the number of cast "l2Text"
  60.   set l3Text to the number of cast "l3Text"
  61.   set txFrSmall to the number of cast "txFrSmall"
  62.   set txFrMed to the number of cast "txFrMed"
  63.   set txFrBig to the number of cast "txFrBig"
  64. end
  65.