home *** CD-ROM | disk | FTP | other *** search
/ Hope PC Multimedia SuperPack 2 / HOMEPC.iso / TAROT / DOWNLOAD / VT3.ZIP / C1.DXR / 00216.ls < prev    next >
Encoding:
Text File  |  1995-11-02  |  1.2 KB  |  39 lines
  1. on PutTarotInfo index
  2.   global CCcards, CardsDealt, PosIndex, CCindexes, CardMeanWaite, CardMeanFoster, author, Opt
  3.   set CardS to 3
  4.   puppetSprite(CardS, 1)
  5.   set tmp to item index of CCcards
  6.   set PosIndex to index
  7.   if index >= CardsDealt then
  8.     put " " into field "DivMeaning"
  9.     set the castNum of sprite CardS to the number of cast "waiteBack"
  10.     put " " into field "TarotCard"
  11.     if Opt <> 1 then
  12.       keySound("NotDealt")
  13.     end if
  14.     return 
  15.   else
  16.     set lineNum to value(item index of CCindexes)
  17.     if (lineNum = 78) or (lineNum = 156) then
  18.       set Z to 154
  19.     else
  20.       set Z to ((lineNum mod 78) - 1) * 2
  21.     end if
  22.     if author = "Waite" then
  23.       if lineNum > 78 then
  24.         put line Z + 2 of CardMeanWaite into field "DivMeaning"
  25.       else
  26.         put line Z + 1 of CardMeanWaite into field "DivMeaning"
  27.       end if
  28.     else
  29.       if lineNum > 78 then
  30.         put line Z + 2 of CardMeanFoster into field "DivMeaning"
  31.       else
  32.         put line Z + 1 of CardMeanFoster into field "DivMeaning"
  33.       end if
  34.     end if
  35.     set the castNum of sprite CardS to the number of cast tmp
  36.     put char 1 to the number of chars in tmp - 2 of tmp into field "TarotCard"
  37.   end if
  38. end
  39.