home *** CD-ROM | disk | FTP | other *** search
/ Hope PC Multimedia SuperPack 2 / HOMEPC.iso / TAROT / DOWNLOAD / VT3.ZIP / C1.DXR / 00222.ls < prev    next >
Encoding:
Text File  |  1995-11-02  |  2.9 KB  |  112 lines
  1. on PlayCardVocal index, wait
  2.   global CPosition, CCcards, CCindexes, author, CardsDealt, UsrDivMeanSet, Significator, Cnt, Instruct, CardList
  3.   put "playCardVocal" && index && the number of items in CCindexes
  4.   if (index = 0) or (index > the number of items in CCindexes) then
  5.     put "ret 1"
  6.     return 
  7.   end if
  8.   set cLine to line value(item index of CCindexes) of CardList
  9.   if cLine = "0" then
  10.     put "ret 2"
  11.     return 
  12.   end if
  13.   if UsrDivMeanSet = 1 then
  14.     put "usrdivmeanset = true"
  15.     if Instruct <> 1 then
  16.       cursor(4)
  17.     end if
  18.     if (Cnt = 0) or (Cnt <> 2) then
  19.       set Cnt to the controlDown
  20.     end if
  21.     if author = "Waite" then
  22.       put "author = waite"
  23.       if Cnt = 1 then
  24.         if Instruct <> 1 then
  25.           cursor(-1)
  26.         end if
  27.         return 
  28.       end if
  29.       if Significator = item index of CCindexes then
  30.         PlaySound(1, "NavVocal:Significator", 1, 1)
  31.       end if
  32.       if the machineType = 256 then
  33.         put "Cpos\Waite\" & CPosition(mget, index)
  34.         PlaySound(1, "CPos\Waite\" & CPosition(mget, index), 1, 1)
  35.       else
  36.         put "Cpos:Waite:" & CPosition(mget, index)
  37.         PlaySound(1, "CPos:Waite:" & CPosition(mget, index), 1, 1)
  38.       end if
  39.       if Cnt = 1 then
  40.         if Instruct <> 1 then
  41.           cursor(-1)
  42.         end if
  43.         return 
  44.       end if
  45.       idle()
  46.       if the machineType = 256 then
  47.         PlaySound(1, "3word\Waite\" & cLine, 1, 1)
  48.       else
  49.         PlaySound(1, "3word:Waite:" & cLine, 1, 1)
  50.       end if
  51.       if Cnt = 1 then
  52.         if Instruct <> 1 then
  53.           cursor(-1)
  54.         end if
  55.         return 
  56.       end if
  57.       idle()
  58.     else
  59.       if author = "Foster" then
  60.         put "author = foster"
  61.         if Cnt = 1 then
  62.           if Instruct <> 1 then
  63.             cursor(-1)
  64.           end if
  65.           return 
  66.         end if
  67.         if Significator = item index of CCindexes then
  68.           PlaySound(1, "NavVocal:Significator", 1, 1)
  69.         end if
  70.         if the machineType = 256 then
  71.           put "Cpos\Foster\" & CPosition(mget, index)
  72.           PlaySound(1, "CPos\Foster\" & CPosition(mget, index), 1, 1)
  73.         else
  74.           put "Cpos:Foster:" & CPosition(mget, index)
  75.           PlaySound(1, "CPos:Foster:" & CPosition(mget, index), 1, 1)
  76.         end if
  77.         if Cnt = 1 then
  78.           if Instruct <> 1 then
  79.             cursor(-1)
  80.           end if
  81.           return 
  82.         end if
  83.         idle()
  84.         if the machineType = 256 then
  85.           PlaySound(1, "3word\Foster\" & cLine, 1, 1)
  86.         else
  87.           PlaySound(1, "3word:Foster:" & cLine, 1, 1)
  88.         end if
  89.         if Cnt = 1 then
  90.           if Instruct <> 1 then
  91.             cursor(-1)
  92.           end if
  93.           return 
  94.         end if
  95.         idle()
  96.       end if
  97.     end if
  98.   else
  99.     if (wait = 1) and (Cnt <> 1) then
  100.       repeat with i = 1 to 100
  101.         if the controlDown then
  102.           exit repeat
  103.         end if
  104.         idle()
  105.       end repeat
  106.     end if
  107.   end if
  108.   if Instruct <> 1 then
  109.     cursor(-1)
  110.   end if
  111. end
  112.