home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / NinetyOne.dxr / 00056.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  4.4 KB  |  150 lines
  1. global answer, currentcard, oldcard, newcard, orig, stack1, stack2, stack3, stack4, stack5, stack6, stack7, stack8, stack9, stack10, stack11, stack12, stack13
  2.  
  3. on mouseUp
  4.   if currentcard > 0 then
  5.     if sprite(currentcard).visible then
  6.       puppetSound(3, "dropcard")
  7.       GetTheSpace(the mouseH, the mouseV)
  8.       updateTotal()
  9.       sprite(currentcard).visible = 0
  10.       currentcard = 0
  11.     end if
  12.   end if
  13.   oldcard = 0
  14. end
  15.  
  16. on exitFrame me
  17.   go(the frame)
  18. end
  19.  
  20. on TestIt row
  21.   if row = 1 then
  22.     append(stack1, sprite(currentcard).memberNum)
  23.     sprite(10).memberNum = stack1[count(stack1)]
  24.   else
  25.     if row = 2 then
  26.       append(stack2, sprite(currentcard).memberNum)
  27.       sprite(11).memberNum = stack2[count(stack2)]
  28.     else
  29.       if row = 3 then
  30.         append(stack3, sprite(currentcard).memberNum)
  31.         sprite(12).memberNum = stack3[count(stack3)]
  32.       else
  33.         if row = 4 then
  34.           append(stack4, sprite(currentcard).memberNum)
  35.           sprite(13).memberNum = stack4[count(stack4)]
  36.         else
  37.           if row = 5 then
  38.             append(stack5, sprite(currentcard).memberNum)
  39.             sprite(14).memberNum = stack5[count(stack5)]
  40.           else
  41.             if row = 6 then
  42.               append(stack6, sprite(currentcard).memberNum)
  43.               sprite(15).memberNum = stack6[count(stack6)]
  44.             else
  45.               if row = 7 then
  46.                 append(stack7, sprite(currentcard).memberNum)
  47.                 sprite(16).memberNum = stack7[count(stack7)]
  48.               else
  49.                 if row = 8 then
  50.                   append(stack8, sprite(currentcard).memberNum)
  51.                   sprite(17).memberNum = stack8[count(stack8)]
  52.                 else
  53.                   if row = 9 then
  54.                     append(stack9, sprite(currentcard).memberNum)
  55.                     sprite(18).memberNum = stack9[count(stack9)]
  56.                   else
  57.                     if row = 10 then
  58.                       append(stack10, sprite(currentcard).memberNum)
  59.                       sprite(19).memberNum = stack10[count(stack10)]
  60.                     else
  61.                       if row = 11 then
  62.                         append(stack11, sprite(currentcard).memberNum)
  63.                         sprite(20).memberNum = stack11[count(stack11)]
  64.                       else
  65.                         if row = 12 then
  66.                           append(stack12, sprite(currentcard).memberNum)
  67.                           sprite(21).memberNum = stack12[count(stack12)]
  68.                         else
  69.                           if row = 13 then
  70.                             append(stack13, sprite(currentcard).memberNum)
  71.                             sprite(22).memberNum = stack13[count(stack13)]
  72.                           end if
  73.                         end if
  74.                       end if
  75.                     end if
  76.                   end if
  77.                 end if
  78.               end if
  79.             end if
  80.           end if
  81.         end if
  82.       end if
  83.     end if
  84.   end if
  85. end
  86.  
  87. on GetTheSpace mx, my
  88.   if (my > 24) and (my < 100) then
  89.     if (mx > 100) and (mx < 160) then
  90.       TestIt(1)
  91.     else
  92.       if (mx > 167) and (mx < 221) then
  93.         TestIt(2)
  94.       else
  95.         if (mx > 231) and (mx < 285) then
  96.           TestIt(3)
  97.         else
  98.           if (mx > 294) and (mx < 348) then
  99.             TestIt(4)
  100.           else
  101.             if (mx > 359) and (mx < 413) then
  102.               TestIt(5)
  103.             else
  104.               if (mx > 423) and (mx < 477) then
  105.                 TestIt(6)
  106.               else
  107.                 TestIt(orig)
  108.               end if
  109.             end if
  110.           end if
  111.         end if
  112.       end if
  113.     end if
  114.   else
  115.     if (my > 180) and (my < 256) then
  116.       if (mx > 71) and (mx < 125) then
  117.         TestIt(7)
  118.       else
  119.         if (mx > 135) and (mx < 189) then
  120.           TestIt(8)
  121.         else
  122.           if (mx > 199) and (mx < 253) then
  123.             TestIt(9)
  124.           else
  125.             if (mx > 263) and (mx < 317) then
  126.               TestIt(10)
  127.             else
  128.               if (mx > 327) and (mx < 381) then
  129.                 TestIt(11)
  130.               else
  131.                 if (mx > 391) and (mx < 445) then
  132.                   TestIt(12)
  133.                 else
  134.                   if (mx > 455) and (mx < 509) then
  135.                     TestIt(13)
  136.                   else
  137.                     TestIt(orig)
  138.                   end if
  139.                 end if
  140.               end if
  141.             end if
  142.           end if
  143.         end if
  144.       end if
  145.     else
  146.       TestIt(orig)
  147.     end if
  148.   end if
  149. end
  150.