xolatile
/
xhads
1
1
Forkuj 0
Kod Zgłoszenia 0 Oczekujące zmiany 0 Wydania 0 Wiki Aktywność
Prototype game engine for Heroes of Might & Magic, featuring a gameplay plot-twist...
Nie możesz wybrać więcej, niż 25 tematów Tematy muszą się zaczynać od litery lub cyfry, mogą zawierać myślniki ('-') i mogą mieć do 35 znaków.
229 Commity
1 Gałąź
7.0MB
Drzewo: 9d7ccdb213
Gałęzie Tagi
${ item.name }
Utwórz gałąź ${ searchTerm }
z '9d7ccdb213'
${ noResults }
xhads/source/item.ads

171 wiersze
14KB
Czysty Wina Historia 

  1. -- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic

  2. --

  3. -- GNU General Public Licence (version 3 or later)

  4. 

  5. with core, effect, attribute, faction;

  6. 

  7. package item is

  8. 

  9. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  10. 

  11. 	type slot is (

  12. 		with_body,              full_body,              head,                   chest,                  hands,                  feet,

  13. 		neck,                   main_hand,              off_hand,               bag,                    cloak,                  additional

  14. 	);

  15. 

  16. 	type enumeration is (

  17. 		-- 04.05.2024.

  18. 		bone_chestplate,        bronze_chestplate,      chainmail_chestplate,   crystal_chestplate,     golden_chestplate,      iron_chestplate,

  19. 		leather_chestplate,     mithril_chestplate,     steel_chestplate,       bone_greaves,           bronze_greaves,         chainmail_greaves,

  20. 		crystal_greaves,        golden_greaves,         iron_greaves,           leather_greaves,        mithril_greaves,        steel_greaves,

  21. 		black_tunic,            blue_tunic,             cyan_tunic,             green_tunic,            grey_tunic,             lime_tunic,

  22. 		orange_tunic,           pink_tunic,             purple_tunic,           red_tunic,              white_tunic,            yellow_tunic,

  23. 		bone_gauntlets,         bronze_gauntlets,       chainmail_gauntlets,    crystal_gauntlets,      golden_gauntlets,       iron_gauntlets,

  24. 		leather_gauntlets,      mithril_gauntlets,      steel_gauntlets,        bone_helmet,            bronze_helmet,          chainmail_helmet,

  25. 		crystal_helmet,         golden_helmet,          iron_helmet,            leather_helmet,         mithril_helmet,         steel_helmet,

  26. 		bone_axe,               bone_battleaxe,         bone_bow,               bone_mace,              bone_spear,             bone_sword,

  27. 		bronze_axe,             bronze_greatsword,      bronze_mace,            bronze_spear,           bronze_sword,           club,

  28. 		crystal_bow,            crystal_greatsword,     crystal_mace,           crystal_spear,          crystal_sword,          golden_axe,

  29. 		golden_battleaxe,       golden_bow,             golden_greatsword,      golden_sword,           iron_axe,               iron_bow,

  30. 		iron_mace,              iron_spear,             iron_sword,             jade_axe,               jade_battleaxe,         jade_greatsword,

  31. 		jade_mace,              jade_spear,             jade_sword,             maul,                   mithril_axe,            mithril_battleaxe,

  32. 		mithril_bow,            mithril_mace,           mithril_spear,          sledge_hammer,          spiked_club,            spiked_staff,

  33. 		staff,                  steel_battleaxe,        steel_bow,              steel_greatsword,       steel_mace,             steel_sword,

  34. 		wooden_bow,             wooden_greatsword,      wooden_sword,           golden_necklace,        bronze_shield,          crystal_shield,

  35. 		golden_shield,          iron_shield,            mithril_shield,         steel_shield,           wooden_shield

  36. 	);

  37. 

  38.                                              ------------------------------------------------------------------------------------------

  39. 

  40. 	type information is record

  41. 		name        : core.short_string;

  42. 		kind        : slot;

  43. 		attributes  : attribute.points;

  44. 		favor       : faction.enumeration;

  45. 		evoke       : effect.enumeration;

  46. 	end record;

  47. 

  48.                                              ------------------------------------------------------------------------------------------

  49. 

  50. 	count : constant natural := enumeration'pos (enumeration'last) + 1;

  51. 

  52. 	trait : constant array (enumeration) of information := (

  53. 		("bone_chestplate,        ", chest,     (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  54. 		("bronze_chestplate,      ", chest,     (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  55. 		("chainmail_chestplate,   ", chest,     (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  56. 		("crystal_chestplate,     ", chest,     (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  57. 		("golden_chestplate,      ", chest,     (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  58. 		("iron_chestplate,        ", chest,     (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  59. 		("leather_chestplate,     ", chest,     (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  60. 		("mithril_chestplate,     ", chest,     (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  61. 		("steel_chestplate,       ", chest,     (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  62. 		("bone_greaves,           ", feet,      (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  63. 		("bronze_greaves,         ", feet,      (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  64. 		("chainmail_greaves,      ", feet,      (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  65. 		("crystal_greaves,        ", feet,      (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  66. 		("golden_greaves,         ", feet,      (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  67. 		("iron_greaves,           ", feet,      (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  68. 		("leather_greaves,        ", feet,      (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  69. 		("mithril_greaves,        ", feet,      (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  70. 		("steel_greaves,          ", feet,      (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  71. 		("black_tunic,            ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  72. 		("blue_tunic,             ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  73. 		("cyan_tunic,             ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  74. 		("green_tunic,            ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  75. 		("grey_tunic,             ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  76. 		("lime_tunic,             ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  77. 		("orange_tunic,           ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  78. 		("pink_tunic,             ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  79. 		("purple_tunic,           ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  80. 		("red_tunic,              ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  81. 		("white_tunic,            ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  82. 		("yellow_tunic,           ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  83. 		("bone_gauntlets,         ", hands,     (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  84. 		("bronze_gauntlets,       ", hands,     (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  85. 		("chainmail_gauntlets,    ", hands,     (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  86. 		("crystal_gauntlets,      ", hands,     (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  87. 		("golden_gauntlets,       ", hands,     (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  88. 		("iron_gauntlets,         ", hands,     (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  89. 		("leather_gauntlets,      ", hands,     (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  90. 		("mithril_gauntlets,      ", hands,     (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  91. 		("steel_gauntlets,        ", hands,     (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  92. 		("bone_helmet,            ", head,      (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  93. 		("bronze_helmet,          ", head,      (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  94. 		("chainmail_helmet,       ", head,      (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  95. 		("crystal_helmet,         ", head,      (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  96. 		("golden_helmet,          ", head,      (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  97. 		("iron_helmet,            ", head,      (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  98. 		("leather_helmet,         ", head,      (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  99. 		("mithril_helmet,         ", head,      (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  100. 		("steel_helmet,           ", head,      (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  101. 		("bone_axe,               ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  102. 		("bone_battleaxe,         ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  103. 		("bone_bow,               ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  104. 		("bone_mace,              ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  105. 		("bone_spear,             ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  106. 		("bone_sword,             ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  107. 		("bronze_axe,             ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  108. 		("bronze_greatsword,      ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  109. 		("bronze_mace,            ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  110. 		("bronze_spear,           ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  111. 		("bronze_sword,           ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  112. 		("club,                   ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  113. 		("crystal_bow,            ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  114. 		("crystal_greatsword,     ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  115. 		("crystal_mace,           ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  116. 		("crystal_spear,          ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  117. 		("crystal_sword,          ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  118. 		("golden_axe,             ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  119. 		("golden_battleaxe,       ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  120. 		("golden_bow,             ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  121. 		("golden_greatsword,      ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  122. 		("golden_sword,           ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  123. 		("iron_axe,               ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  124. 		("iron_bow,               ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  125. 		("iron_mace,              ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  126. 		("iron_spear,             ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  127. 		("iron_sword,             ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  128. 		("jade_axe,               ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  129. 		("jade_battleaxe,         ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  130. 		("jade_greatsword,        ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  131. 		("jade_mace,              ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  132. 		("jade_spear,             ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  133. 		("jade_sword,             ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  134. 		("maul,                   ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  135. 		("mithril_axe,            ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  136. 		("mithril_battleaxe,      ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  137. 		("mithril_bow,            ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  138. 		("mithril_mace,           ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  139. 		("mithril_spear,          ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  140. 		("sledge_hammer,          ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  141. 		("spiked_club,            ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  142. 		("spiked_staff,           ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  143. 		("staff,                  ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  144. 		("steel_battleaxe,        ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  145. 		("steel_bow,              ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  146. 		("steel_greatsword,       ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  147. 		("steel_mace,             ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  148. 		("steel_sword,            ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  149. 		("wooden_bow,             ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  150. 		("wooden_greatsword,      ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  151. 		("wooden_sword,           ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  152. 		("golden_necklace,        ", neck,      (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  153. 		("bronze_shield,          ", off_hand,  (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  154. 		("crystal_shield,         ", off_hand,  (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  155. 		("golden_shield,          ", off_hand,  (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  156. 		("iron_shield,            ", off_hand,  (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  157. 		("mithril_shield,         ", off_hand,  (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  158. 		("steel_shield,           ", off_hand,  (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),

  159. 		("wooden_shield           ", off_hand,  (0, 0, 0, 0, 0, 0), faction.neutral, effect.none)

  160. 	);

  161. 

  162.                                              ------------------------------------------------------------------------------------------

  163. 

  164. 	procedure configure;

  165. 

  166. 	procedure draw (index : in enumeration; x, y : in integer);

  167. 

  168. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  169. 

  170. end item;