Advertisement
Guest User

Untitled

a guest
Feb 21st, 2017
82
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.92 KB | None | 0 0
  1. ///Create the deck and set up the play area
  2.  
  3. //Create the deck
  4. deck = ds_list_create();
  5.  
  6. //give the list integers from 0 to 51 (52 integers representing 52 playing cards in a deck)
  7. for(var i = 0; i < 52; i++)
  8. {
  9. card = instance_create(0,0,obj_card);
  10. card.number = i;
  11. ds_list_add(deck, card);
  12. }
  13.  
  14. ds_list_shuffle(deck);//shuffle this list
  15.  
  16. //Set up play area
  17. //Placement
  18. width = 6;
  19. height = 1;
  20. card_number = 0;
  21. repetitions = 1;
  22.  
  23. for (var i = 0; i<=width; i++)
  24. {
  25. for (var j = 0; j<= height; j++)
  26. {
  27. cards[i,j] = ds_list_create();
  28. }
  29. }
  30.  
  31. //Add cards from the deck to the lists
  32. // 1,2,3,4,5,6,7
  33. //increase on each iteration
  34.  
  35.  
  36. for (var i = 0; i <= width; i++)
  37. {
  38. for (var j = 1; j<= height; j++)
  39. {
  40. for (var k = 0; k < repetitions; k++)
  41. {
  42. var current_card = ds_list_find_value(deck,card_number) //beginning of deck
  43. ds_list_add(cards[i,j],current_card)
  44. ds_list_delete(deck,card_number); //delete first card from deck
  45. }
  46. repetitions++; //increase how many times this loop occurs, so on each iteration, one card more is added
  47. }
  48. }
  49. repetitions = 1; //reset repetitions
  50.  
  51.  
  52. //Draw card sprites from the deck
  53. xx = 100; //starting x pos
  54. yy = 100; //starting y pos
  55. position = 0;
  56.  
  57. for (var i = 0; i <= width; i++) //cards i
  58. {
  59. for (var j = 1; j<= height; j++) // cards j
  60. {
  61. for (var k = 0; k < repetitions; k++)
  62. {
  63. var current = ds_list_find_value(cards[i,j],position)
  64. with (current)
  65. {
  66. x = obj_controller.xx;
  67. y = obj_controller.yy;
  68. }
  69. yy += 50;
  70. position++;
  71. }
  72. position=0; //reset to beginning of list for next iteration
  73. repetitions++;
  74. yy = 100; //reset y position for next iteration
  75. xx += 100; //move along the width
  76. }
  77. }
  78. repetitions = 1;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement