home *** CD-ROM | disk | FTP | other *** search
/ Hope PC Multimedia SuperPack 2 / HOMEPC.iso / TAROT / DOWNLOAD / VT3.ZIP / C1.DXR / 00215.ls < prev    next >
Encoding:
Text File  |  1995-11-02  |  1.9 KB  |  63 lines
  1. on Sound_Color index, wait
  2.   global CPosition, CardsDealt, sndFile, Cnt, ClrFile, UsrDivColourSet, UsrDivToneSet
  3.   if Cnt = 1 then
  4.     return 
  5.   end if
  6.   set wait to 0
  7.   set index to index mod 78
  8.   if index < 23 then
  9.     cursor(4)
  10.     if UsrDivColourSet = 1 then
  11.       if the machineType = 256 then
  12.         put "color\ " & item 2 of line index of ClrFile
  13.       else
  14.         put "color: " & item 2 of line index of ClrFile
  15.       end if
  16.       if the machineType = 256 then
  17.         puppetSprite(6, 1)
  18.         set the castNum of sprite 6 to the number of cast item 2 of line index of ClrFile
  19.         set the ink of sprite 6 to 36
  20.         set the locH of sprite 6 to 321
  21.         set the locV of sprite 6 to 442
  22.         puppetTransition(26, 1, 128, 1)
  23.         updateStage()
  24.       else
  25.         puppetSprite(1, 1)
  26.         set save to the foreColor of sprite 1
  27.         set the foreColor of sprite 1 to value(item 2 of line index of ClrFile)
  28.         puppetTransition(50, 1, 16, 1)
  29.         updateStage()
  30.       end if
  31.       if UsrDivToneSet then
  32.         set crdSnd to item 2 of line index of sndFile
  33.         if the machineType = 256 then
  34.           PlaySound(1, "CardSnds\" & crdSnd, 1, 1)
  35.         else
  36.           PlaySound(1, "CardSnds:" & crdSnd, 1, 1)
  37.         end if
  38.       end if
  39.       if the machineType = 256 then
  40.         set the locH of sprite 6 to -500
  41.         puppetTransition(26, 1, 128, 1)
  42.         updateStage()
  43.         puppetSprite(6, 0)
  44.       else
  45.         set the foreColor of sprite 1 to save
  46.         puppetTransition(50, 1, 16, 1)
  47.         updateStage()
  48.         puppetSprite(1, 0)
  49.       end if
  50.     else
  51.       if UsrDivToneSet then
  52.         set crdSnd to item 2 of line index of sndFile
  53.         if the machineType = 256 then
  54.           PlaySound(1, "CardSnds\" & crdSnd, 1, 1)
  55.         else
  56.           PlaySound(1, "CardSnds:" & crdSnd, 1, 1)
  57.         end if
  58.       end if
  59.     end if
  60.   end if
  61.   cursor(-1)
  62. end
  63.