home *** CD-ROM | disk | FTP | other *** search
/ Hope PC Multimedia SuperPack 2 / HOMEPC.iso / TAROT / DOWNLOAD / VT3.ZIP / C1.DXR / 00227.ls < prev    next >
Encoding:
Text File  |  1995-11-02  |  689 b   |  24 lines
  1. on randomCard
  2.   global rIndex, CCindexes, MaxCard, Cnt, Opt, DigO, Trumps
  3.   if ((Cnt = 2) and (Opt = 2)) or Trumps then
  4.     set Modulo to 22
  5.   else
  6.     if (Cnt = 2) or DigO then
  7.       set Modulo to 78
  8.     else
  9.       set Modulo to 156
  10.     end if
  11.   end if
  12.   set Cnt to the controlDown
  13.   set Opt to the optionDown
  14.   set rIndex to (random(Modulo) + the lastClick) mod Modulo
  15.   repeat while (CCindexes contains string(rIndex)) or (CCindexes contains string(rIndex mod 78)) or (CCindexes contains string(rIndex + 78)) or ((rIndex mod 78) = 0) or (rIndex = 0)
  16.     set rIndex to (random(Modulo) + the lastClick) mod Modulo
  17.   end repeat
  18.   PutCard("Move", MaxCard)
  19. end
  20.  
  21. on DummyMouse
  22.   put "DM"
  23. end
  24.