Advertisement
Guest User

Untitled

a guest
Feb 21st, 2020
102
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.99 KB | None | 0 0
  1. #use "Z:/AP1utilbis.ml";;
  2.  
  3. let type t_property_card =
  4. {
  5. color : string;
  6. id : int;
  7. name : string;
  8. rent_cupcake : int;
  9. rent_sundae : int;
  10. }
  11. ;;
  12.  
  13. let property_card_1 : t_property_card =
  14. {
  15. color = "brown";
  16. id = 1;
  17. name = "Chambre des filles";
  18. rent_cupcake = 1;
  19. rent_sundae = 2;
  20. }
  21. ;;
  22.  
  23. let property_card_2 : t_property_card =
  24. {
  25. color = "brown";
  26. id = 2;
  27. name = "Cours de danse";
  28. rent_cupcake = 1;
  29. rent_sundae = 2;
  30. }
  31. ;;
  32.  
  33. let property_card_3 : t_property_card =
  34. {
  35. color = "light blue";
  36. id = 4;
  37. name = "Sous-marin LAM";
  38. rent_cupcake = 1;
  39. rent_sundae = 2;
  40. }
  41. ;;
  42.  
  43. let property_card_4 : t_property_card =
  44. {
  45. color = "light blue";
  46. id = 5;
  47. name = "Bateau magnetique";
  48. rent_cupcake = 1;
  49. rent_sundae = 2;
  50. }
  51. ;;
  52.  
  53. let property_card_5 : t_property_card =
  54. {
  55. color = "magenta";
  56. id = 8;
  57. name = "Salsa & Salsa";
  58. rent_cupcake = 2;
  59. rent_sundae = 3;
  60. }
  61. ;;
  62.  
  63. let property_card_6 : t_property_card =
  64. {
  65. color = "magenta";
  66. id = 9;
  67. name = "Boutique de gateaux";
  68. rent_cupcake = 2;
  69. rent_sundae = 3;
  70. }
  71. ;;
  72.  
  73. let property_card_7 : t_property_card =
  74. {
  75. color = "orange";
  76. id = 10;
  77. name = "Voiture de Lucy";
  78. rent_cupcake = 2;
  79. rent_sundae = 3;
  80. }
  81. ;;
  82.  
  83. let property_card_8 : t_property_card =
  84. {
  85. color = "orange";
  86. id = 11;
  87. name = "Voiture de Gru";
  88. rent_cupcake = 2;
  89. rent_sundae = 3;
  90. }
  91. ;;
  92.  
  93. let property_card_9 : t_property_card =
  94. {
  95. color = "red";
  96. id = 13;
  97. name = "Labo. du Prof. Nefario";
  98. rent_cupcake = 3;
  99. rent_sundae = 4;
  100. }
  101. ;;
  102.  
  103. let property_card_10 : t_property_card =
  104. {
  105. color = "red";
  106. id = 14;
  107. name = "Banque du mal";
  108. rent_cupcake = 3;
  109. rent_sundae = 4;
  110. }
  111. ;;
  112.  
  113. let property_card_11 : t_property_card =
  114. {
  115. color = "yellow";
  116. id = 16;
  117. name = "Parc de Folie-Land";
  118. rent_cupcake = 3;
  119. rent_sundae = 4;
  120. }
  121. ;;
  122.  
  123. let property_card_12 : t_property_card =
  124. {
  125. color = "yellow";
  126. id = 17;
  127. name = "Ile des Minions";
  128. rent_cupcake = 3;
  129. rent_sundae = 4;
  130. }
  131. ;;
  132.  
  133. let property_card_13 : t_property_card =
  134. {
  135. color = "green";
  136. id = 20;
  137. name = "Maison de Gru";
  138. rent_cupcake = 4;
  139. rent_sundae = 5;
  140. }
  141. ;;
  142.  
  143. let property_card_14 : t_property_card =
  144. {
  145. color = "green";
  146. id = 21;
  147. name = "Jardin de Gru";
  148. rent_cupcake = 4;
  149. rent_sundae = 5;
  150. }
  151. ;;
  152.  
  153. let property_card_15 : t_property_card =
  154. {
  155. color = "blue";
  156. id = 22;
  157. name = "Grande Pyramide";
  158. rent_cupcake = 5;
  159. rent_sundae = 6;
  160. }
  161. ;;
  162.  
  163. let property_card_16 : t_property_card =
  164. {
  165. color = "blue";
  166. id = 23;
  167. name = "La lune";
  168. rent_cupcake = 5;
  169. rent_sundae = 6;
  170. }
  171. ;;
  172.  
  173. let property_card_deck_init() : t_property_card list =
  174. let liste2 : t_property_card list = [] in
  175. add_lst(add_lst(add_lst(add_lst(add_lst(add_lst(add_lst(add_lst(add_lst(add_lst(add_lst(add_lst(add_lst(add_lst(add_lst(add_lst(liste2, property_card_1), property_card_2), property_card_3), property_card_4), property_card_5), property_card_6), property_card_7), property_card_8), property_card_9), property_card_10), property_card_11), property_card_12), property_card_13), property_card_14), property_card_15), property_card_16)
  176. ;;
  177.  
  178. property_card_deck_init();;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement