home *** CD-ROM | disk | FTP | other *** search
/ Hope PC Multimedia SuperPack 2 / HOMEPC.iso / TAROT / DOWNLOAD / VT3.ZIP / C1.DXR / 00223.ls < prev    next >
Encoding:
Text File  |  1995-11-02  |  448 b   |  24 lines
  1. on reveal
  2.   global CardsDealt, CardCoord, CCindexes, Cnt
  3.   set C to 22
  4.   set H to 23
  5.   repeat with i = 1 to CardsDealt - 1
  6.     cursor(4)
  7.     if the controlDown or Cnt then
  8.       exit repeat
  9.     end if
  10.     idle()
  11.     RevealCard(i)
  12.     if the controlDown then
  13.       exit repeat
  14.     end if
  15.     idle()
  16.     Sound_Color(value(item i of CCindexes), 1)
  17.   end repeat
  18.   set Cnt to 0
  19.   cursor(-1)
  20.   puppetSprite(H, 0)
  21.   puppetSprite(C, 0)
  22.   updateStage()
  23. end
  24.