100 Plus Great Games 2/100PLUSV2.BIN/games/NinetyOne.dxr/00054_shuffle-deal.ls

Text File | 2002-01-25 | 3.7 KB | 171 lines

global deck, currentcard, oldcard, newcard, stack1, stack2, stack3, stack4, stack5, stack6, stack7, stack8, stack9, stack10, stack11, stack12, stack13

on startMovie
  deck = []
  currentcard = 0
  oldcard = 0
  newcard = 0
  repeat with blah = 1 to 52
    append(deck, blah)
  end repeat
end

on shuffle
  repeat with blah = 1 to 150
    repeat with bla2 = 1 to 150
      temp1 = random(52)
      temp2 = random(52)
      placeholder = deck[temp2]
      deck[temp2] = deck[temp1]
      deck[temp1] = placeholder
    end repeat
  end repeat
end

on deal
  shuffle()
  stack1 = [deck[1], deck[14], deck[27], deck[40]]
  stack2 = [deck[2], deck[15], deck[28], deck[41]]
  stack3 = [deck[3], deck[16], deck[29], deck[42]]
  stack4 = [deck[4], deck[17], deck[30], deck[43]]
  stack5 = [deck[5], deck[18], deck[31], deck[44]]
  stack6 = [deck[6], deck[19], deck[32], deck[45]]
  stack7 = [deck[7], deck[20], deck[33], deck[46]]
  stack8 = [deck[8], deck[21], deck[34], deck[47]]
  stack9 = [deck[9], deck[22], deck[35], deck[48]]
  stack10 = [deck[10], deck[23], deck[36], deck[49]]
  stack11 = [deck[11], deck[24], deck[37], deck[50]]
  stack12 = [deck[12], deck[25], deck[38], deck[51]]
  stack13 = [deck[13], deck[26], deck[39], deck[52]]
  repeat with blah = 10 to 22
    sprite(blah).visible = 1
  end repeat
  sprite(10).memberNum = stack1[4]
  sprite(11).memberNum = stack2[4]
  sprite(12).memberNum = stack3[4]
  sprite(13).memberNum = stack4[4]
  sprite(14).memberNum = stack5[4]
  sprite(15).memberNum = stack6[4]
  sprite(16).memberNum = stack7[4]
  sprite(17).memberNum = stack8[4]
  sprite(18).memberNum = stack9[4]
  sprite(19).memberNum = stack10[4]
  sprite(20).memberNum = stack11[4]
  sprite(21).memberNum = stack12[4]
  sprite(22).memberNum = stack13[4]
end

on updateTotal
  global pootimer
  if count(stack1) > 0 then
    n1 = stack1[count(stack1)] mod 13
    if n1 = 0 then
      n1 = 13
    end if
  else
    n1 = 0
  end if
  if count(stack2) > 0 then
    n2 = stack2[count(stack2)] mod 13
    if n2 = 0 then
      n2 = 13
    end if
  else
    n2 = 0
  end if
  if count(stack3) > 0 then
    n3 = stack3[count(stack3)] mod 13
    if n3 = 0 then
      n3 = 13
    end if
  else
    n3 = 0
  end if
  if count(stack4) > 0 then
    n4 = stack4[count(stack4)] mod 13
    if n4 = 0 then
      n4 = 13
    end if
  else
    n4 = 0
  end if
  if count(stack5) > 0 then
    n5 = stack5[count(stack5)] mod 13
    if n5 = 0 then
      n5 = 13
    end if
  else
    n5 = 0
  end if
  if count(stack6) > 0 then
    n6 = stack6[count(stack6)] mod 13
    if n6 = 0 then
      n6 = 13
    end if
  else
    n6 = 0
  end if
  if count(stack7) > 0 then
    n7 = stack7[count(stack7)] mod 13
    if n7 = 0 then
      n7 = 13
    end if
  else
    n7 = 0
  end if
  if count(stack8) > 0 then
    n8 = stack8[count(stack8)] mod 13
    if n8 = 0 then
      n8 = 13
    end if
  else
    n8 = 0
  end if
  if count(stack9) > 0 then
    n9 = stack9[count(stack9)] mod 13
    if n9 = 0 then
      n9 = 13
    end if
  else
    n9 = 0
  end if
  if count(stack10) > 0 then
    n10 = stack10[count(stack10)] mod 13
    if n10 = 0 then
      n10 = 13
    end if
  else
    n10 = 0
  end if
  if count(stack11) > 0 then
    n11 = stack11[count(stack11)] mod 13
    if n11 = 0 then
      n11 = 13
    end if
  else
    n11 = 0
  end if
  if count(stack12) > 0 then
    n12 = stack12[count(stack12)] mod 13
    if n12 = 0 then
      n12 = 13
    end if
  else
    n12 = 0
  end if
  if count(stack13) > 0 then
    n13 = stack13[count(stack13)] mod 13
    if n13 = 0 then
      n13 = 13
    end if
  else
    n13 = 0
  end if
  tot = n1 + n2 + n3 + n4 + n5 + n6 + n7 + n8 + n9 + n10 + n11 + n12 + n13
  if tot = 91 then
    win = "yes"
    pootimer = timeout("poo").new(130, #gotoit)
  end if
  member("score").text = string(tot)
end