xolatile
/
xabina
1
0
Bifurcation 0
Code Tickets 0 Demandes d'ajout 0 Versions 0 Wiki Activité
Experimental minimal terminal rogue-like game in Ada programming language. I used to write a lot of Ada programs some time ago, then went in full C and assembly mode, and came back to Ada...
Vous ne pouvez pas sélectionner plus de 25 sujets Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.
11 Révisions
1 Branche
385KB
Aborescence: fede5c4bbf
Branches Tags
${ item.name }
Créer la branche ${ searchTerm }
de 'fede5c4bbf'
${ noResults }
xabina/xabina.adb

477 lignes
27KB
Brut Annotations Historique 

  1. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  2. -- Copyright (c) 2023 - Ognjen 'xolatile' Milan Robovic

  3. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  4. -- Xabina is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either

  5. -- version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the

  6. -- implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

  7. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  8. -- Experimental minimal terminal rogue-like game in Ada programming language. I used to write a lot of Ada programs some time ago, then went in full C and assembly mode, and came

  9. -- back to Ada, but realized that I keep my folders messy... Since it's bothersome to find my old Ada projects and share them here, I decided that the most easy thing to do is to

  10. -- write a new program in Ada, a tiny game. Work in progress, it's messy and ugly for now...

  11. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  12. 

  13. with ada.text_io, ada.strings.unbounded;

  14. use  ada.text_io, ada.strings.unbounded;

  15. 

  16. -- Do not use this command below, it's for real-time game...

  17. -- $ gnatmake xabina.adb && stty raw -echo && ./xabina && reset

  18. 

  19. function xabina return integer is

  20. 

  21. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  22. -- System

  23. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  24. 

  25. 	type integer_subrange is

  26. 	record

  27. 		minimum : integer := 0;

  28. 		maximum : integer := 0;

  29. 	end record;

  30. 

  31. 	type natural_subrange is

  32. 	record

  33. 		minimum : natural := 0;

  34. 		maximum : natural := 0;

  35. 	end record;

  36. 

  37. 	type colours is (

  38. 		COLOUR_GREY,        COLOUR_RED,         COLOUR_GREEN,       COLOUR_YELLOW,      COLOUR_BLUE,        COLOUR_PINK,        COLOUR_CYAN,        COLOUR_WHITE

  39. 	);

  40. 

  41. 	type effects is (

  42. 		EFFECT_NORMAL,      EFFECT_BOLD,        EFFECT_ITALIC,      EFFECT_UNDERLINE,   EFFECT_BLINK,       EFFECT_REVERSE

  43. 	);

  44. 

  45. 	function render_character ( -- A joke function...

  46. 		symbol : character := ' ';

  47. 		colour : colours   := COLOUR_WHITE;

  48. 		effect : effects   := EFFECT_NORMAL

  49. 	) return natural is

  50. 	begin

  51. 		put (character'val (27) & "[");

  52. 		case effect is

  53. 			when EFFECT_NORMAL    => put ("0");

  54. 			when EFFECT_BOLD      => put ("1");

  55. 			when EFFECT_ITALIC    => put ("3");

  56. 			when EFFECT_UNDERLINE => put ("4");

  57. 			when EFFECT_BLINK     => put ("5");

  58. 			when EFFECT_REVERSE   => put ("7");

  59. 		end case;

  60. 		put (";3");

  61. 		case colour is

  62. 			when COLOUR_GREY   => put ("0");

  63. 			when COLOUR_RED    => put ("1");

  64. 			when COLOUR_GREEN  => put ("2");

  65. 			when COLOUR_YELLOW => put ("3");

  66. 			when COLOUR_BLUE   => put ("4");

  67. 			when COLOUR_PINK   => put ("5");

  68. 			when COLOUR_CYAN   => put ("6");

  69. 			when COLOUR_WHITE  => put ("7");

  70. 		end case;

  71. 		put ("m");

  72. 		put (symbol);

  73. 		put (character'val (27) & "[0m");

  74. 		return 1;

  75. 	end render_character;

  76. 

  77. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  78. -- Entity

  79. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  80. 

  81. 	type entities is (

  82. 		ENTITY_NULL,        ENTITY_MENU,        ENTITY_MAP,         ENTITY_ITEM,        ENTITY_MAGIC,       ENTITY_AMMUNITION,  ENTITY_WEAPON,      ENTITY_ARMOUR,

  83. 		ENTITY_SCROLL,      ENTITY_POTION,      ENTITY_CONSUMABLE,  ENTITY_NOTE,        ENTITY_PLANT,       ENTITY_ANIMAL,      ENTITY_GOBLIN,      ENTITY_PLAYER

  84. 	);

  85. 

  86. 	type entity_constant_type is tagged

  87. 	record

  88. 		entity : entities         := ENTITY_NULL;           -- Entity identifier.

  89. 		name   : unbounded_string := null_unbounded_string; -- Entity general name.

  90. 		symbol : character        := ' ';                   -- Entity ASCII character representation.

  91. 		colour : colours          := COLOUR_WHITE;          -- Entity VT100 escape sequence colour.

  92. 		effect : effects          := EFFECT_NORMAL;         -- Entity VT100 escape sequence effect.

  93. 	end record;

  94. 

  95. 	type entity_variable_type is tagged

  96. 	record

  97. 		x : integer := 0; -- Global X coordinate.

  98. 		y : integer := 0; -- Global Y coordinate.

  99. 	end record;

  100. 

  101. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  102. -- Menu

  103. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  104. 

  105. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  106. -- Map:

  107. -- -- Map data is only constant, not variable, since X and Y coordinates are determined by player, camera or global position.

  108. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  109. 

  110. 	type map_list is (

  111. 		STONE_WALL,         WOODEN_WALL,        STONE_FLOOR,        WOODEN_FLOOR,       WATER_SHALLOW,      WATER_DEEP,         SWAMP_SHALLOW,      SWAMP_DEEP

  112. 	);

  113. 

  114. 	type map_constant_type is new entity_constant_type with

  115. 	record

  116. 		collide : boolean := false;

  117. 	end record;

  118. 

  119. 	type map_constant_list is array (map_list) of map_constant_type;

  120. 

  121. 	map_constant_data : constant map_constant_list := (

  122. 		(ENTITY_MAP, to_unbounded_string ("Stone Wall"),      '#', COLOUR_GREY,   EFFECT_BOLD,   true),

  123. 		(ENTITY_MAP, to_unbounded_string ("Wooden Wall"),     '#', COLOUR_YELLOW, EFFECT_NORMAL, true),

  124. 		(ENTITY_MAP, to_unbounded_string ("Stone Floor"),     '.', COLOUR_GREY,   EFFECT_BOLD,   false),

  125. 		(ENTITY_MAP, to_unbounded_string ("Wooden Floor"),    '.', COLOUR_YELLOW, EFFECT_NORMAL, false),

  126. 		(ENTITY_MAP, to_unbounded_string ("Water (shallow)"), '~', COLOUR_BLUE,   EFFECT_NORMAL, false),

  127. 		(ENTITY_MAP, to_unbounded_string ("Water (deep)"),    '~', COLOUR_BLUE,   EFFECT_BOLD,   true),

  128. 		(ENTITY_MAP, to_unbounded_string ("Swamp (shallow)"), '~', COLOUR_GREEN,  EFFECT_NORMAL, false),

  129. 		(ENTITY_MAP, to_unbounded_string ("Swamp (deep)"),    '~', COLOUR_GREEN,  EFFECT_BOLD,   true)

  130. 	);

  131. 

  132. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  133. -- Item

  134. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  135. 

  136. 	type item_list is (

  137. 		WOOD,               BARK,               FLAX,               PLANK,              STICK,              BRACES,             NAILS,              LINEN,

  138. 		CHAMOMILE,          MINT,               WAX,                SALT,               SUGAR,              PEPPER,             CINNAMON,           YEAST,

  139. 		SKULL,              BONE,               INTESTINES,         FUR,                LEATHER,            FAT,                HORN,               TUSK,

  140. 		COPPER_ORE,         IRON_ORE,           SILVER_ORE,         GOLD_ORE,           COAL_ORE,           TIN_ORE,            ZINC_ORE,           LEAD_ORE,

  141. 		COPPER,             IRON,               SILVER,             GOLD,               COAL,               TIN,                ZINC,               LEAD,

  142. 		BRONZE,             BRASS,              STEEL,              MERCURY,            OIL,                INK,                VENOM,              SILK,

  143. 		PAPERS,             PAPERWEIGHT

  144. 	);

  145. 

  146. 	type item_mark is mod 72;

  147. 

  148. 	type item_constant_type is new entity_constant_type with

  149. 	record

  150. 		value  : natural := 0;

  151. 		weight : natural := 0;

  152. 	end record;

  153. 

  154. 	type item_variable_type is new entity_variable_type with

  155. 	record

  156. 		owner : natural := 0;

  157. 	end record;

  158. 

  159. 	type item_constant_list is array (item_list) of item_constant_type;

  160. 	type item_variable_list is array (item_mark) of item_variable_type;

  161. 

  162. 	item_constant_data : constant item_constant_list := (

  163. 		(ENTITY_ITEM, to_unbounded_string ("Wood"),        '+', COLOUR_YELLOW, EFFECT_NORMAL,  2,  2),

  164. 		(ENTITY_ITEM, to_unbounded_string ("Bark"),        '+', COLOUR_YELLOW, EFFECT_NORMAL,  1,  2),

  165. 		(ENTITY_ITEM, to_unbounded_string ("Flax"),        '+', COLOUR_YELLOW, EFFECT_NORMAL,  3,  1),

  166. 		(ENTITY_ITEM, to_unbounded_string ("Plank"),       '+', COLOUR_YELLOW, EFFECT_NORMAL,  2,  2),

  167. 		(ENTITY_ITEM, to_unbounded_string ("Stick"),       '+', COLOUR_YELLOW, EFFECT_NORMAL,  2,  2),

  168. 		(ENTITY_ITEM, to_unbounded_string ("Braces"),      '+', COLOUR_YELLOW, EFFECT_NORMAL,  2,  1),

  169. 		(ENTITY_ITEM, to_unbounded_string ("Nails"),       '+', COLOUR_YELLOW, EFFECT_NORMAL,  1,  1),

  170. 		(ENTITY_ITEM, to_unbounded_string ("Linen"),       '+', COLOUR_YELLOW, EFFECT_NORMAL, 23,  1),

  171. 		(ENTITY_ITEM, to_unbounded_string ("Chamomile"),   '+', COLOUR_YELLOW, EFFECT_NORMAL,  3,  1),

  172. 		(ENTITY_ITEM, to_unbounded_string ("Mint"),        '+', COLOUR_YELLOW, EFFECT_NORMAL,  5,  1),

  173. 		(ENTITY_ITEM, to_unbounded_string ("Wax"),         '+', COLOUR_YELLOW, EFFECT_NORMAL,  7,  1),

  174. 		(ENTITY_ITEM, to_unbounded_string ("Salt"),        '+', COLOUR_YELLOW, EFFECT_NORMAL, 13,  1),

  175. 		(ENTITY_ITEM, to_unbounded_string ("Sugar"),       '+', COLOUR_YELLOW, EFFECT_NORMAL, 17,  1),

  176. 		(ENTITY_ITEM, to_unbounded_string ("Pepper"),      '+', COLOUR_YELLOW, EFFECT_NORMAL, 11,  1),

  177. 		(ENTITY_ITEM, to_unbounded_string ("Cinnamon"),    '+', COLOUR_YELLOW, EFFECT_NORMAL, 23,  1),

  178. 		(ENTITY_ITEM, to_unbounded_string ("Yeast"),       '+', COLOUR_YELLOW, EFFECT_NORMAL,  5,  1),

  179. 		(ENTITY_ITEM, to_unbounded_string ("Skull"),       '+', COLOUR_YELLOW, EFFECT_NORMAL,  2,  1),

  180. 		(ENTITY_ITEM, to_unbounded_string ("Bone"),        '+', COLOUR_YELLOW, EFFECT_NORMAL,  1,  1),

  181. 		(ENTITY_ITEM, to_unbounded_string ("Intestines"),  '+', COLOUR_YELLOW, EFFECT_NORMAL,  1,  1),

  182. 		(ENTITY_ITEM, to_unbounded_string ("Fur"),         '+', COLOUR_YELLOW, EFFECT_NORMAL,  7,  2),

  183. 		(ENTITY_ITEM, to_unbounded_string ("Leather"),     '+', COLOUR_YELLOW, EFFECT_NORMAL,  3,  1),

  184. 		(ENTITY_ITEM, to_unbounded_string ("Fat"),         '+', COLOUR_YELLOW, EFFECT_NORMAL,  1,  1),

  185. 		(ENTITY_ITEM, to_unbounded_string ("Horn"),        '+', COLOUR_YELLOW, EFFECT_NORMAL,  2,  1),

  186. 		(ENTITY_ITEM, to_unbounded_string ("Tusk"),        '+', COLOUR_YELLOW, EFFECT_NORMAL,  3,  5),

  187. 		(ENTITY_ITEM, to_unbounded_string ("Copper Ore"),  '+', COLOUR_YELLOW, EFFECT_NORMAL,  5,  7),

  188. 		(ENTITY_ITEM, to_unbounded_string ("Iron Ore"),    '+', COLOUR_YELLOW, EFFECT_NORMAL,  7, 11),

  189. 		(ENTITY_ITEM, to_unbounded_string ("Silver Ore"),  '+', COLOUR_YELLOW, EFFECT_NORMAL, 17,  7),

  190. 		(ENTITY_ITEM, to_unbounded_string ("Gold Ore"),    '+', COLOUR_YELLOW, EFFECT_NORMAL, 23,  7),

  191. 		(ENTITY_ITEM, to_unbounded_string ("Coal Ore"),    '+', COLOUR_YELLOW, EFFECT_NORMAL,  2,  7),

  192. 		(ENTITY_ITEM, to_unbounded_string ("Tin Ore"),     '+', COLOUR_YELLOW, EFFECT_NORMAL, 13,  7),

  193. 		(ENTITY_ITEM, to_unbounded_string ("Zinc Ore"),    '+', COLOUR_YELLOW, EFFECT_NORMAL, 13,  7),

  194. 		(ENTITY_ITEM, to_unbounded_string ("Lead Ore"),    '+', COLOUR_YELLOW, EFFECT_NORMAL, 11, 13),

  195. 		(ENTITY_ITEM, to_unbounded_string ("Copper"),      '+', COLOUR_YELLOW, EFFECT_NORMAL, 17,  5),

  196. 		(ENTITY_ITEM, to_unbounded_string ("Iron"),        '+', COLOUR_YELLOW, EFFECT_NORMAL, 19,  7),

  197. 		(ENTITY_ITEM, to_unbounded_string ("Silver"),      '+', COLOUR_YELLOW, EFFECT_NORMAL, 23,  5),

  198. 		(ENTITY_ITEM, to_unbounded_string ("Gold"),        '+', COLOUR_YELLOW, EFFECT_NORMAL, 29,  5),

  199. 		(ENTITY_ITEM, to_unbounded_string ("Coal"),        '+', COLOUR_YELLOW, EFFECT_NORMAL, 19,  5),

  200. 		(ENTITY_ITEM, to_unbounded_string ("Tin"),         '+', COLOUR_YELLOW, EFFECT_NORMAL, 11,  5),

  201. 		(ENTITY_ITEM, to_unbounded_string ("Zinc"),        '+', COLOUR_YELLOW, EFFECT_NORMAL, 13,  5),

  202. 		(ENTITY_ITEM, to_unbounded_string ("Lead"),        '+', COLOUR_YELLOW, EFFECT_NORMAL, 47,  7),

  203. 		(ENTITY_ITEM, to_unbounded_string ("Bronze"),      '+', COLOUR_YELLOW, EFFECT_NORMAL, 61,  5),

  204. 		(ENTITY_ITEM, to_unbounded_string ("Brass"),       '+', COLOUR_YELLOW, EFFECT_NORMAL, 67,  5),

  205. 		(ENTITY_ITEM, to_unbounded_string ("Steel"),       '+', COLOUR_YELLOW, EFFECT_NORMAL, 71,  7),

  206. 		(ENTITY_ITEM, to_unbounded_string ("Mercury"),     '+', COLOUR_YELLOW, EFFECT_NORMAL, 97, 11),

  207. 		(ENTITY_ITEM, to_unbounded_string ("Oil"),         '+', COLOUR_YELLOW, EFFECT_NORMAL,  5,  1),

  208. 		(ENTITY_ITEM, to_unbounded_string ("Ink"),         '+', COLOUR_YELLOW, EFFECT_NORMAL, 13,  1),

  209. 		(ENTITY_ITEM, to_unbounded_string ("Venom"),       '+', COLOUR_YELLOW, EFFECT_NORMAL, 11,  1),

  210. 		(ENTITY_ITEM, to_unbounded_string ("Silk"),        '+', COLOUR_YELLOW, EFFECT_NORMAL, 13,  1),

  211. 		(ENTITY_ITEM, to_unbounded_string ("Papers"),      '+', COLOUR_YELLOW, EFFECT_NORMAL,  1,  1),

  212. 		(ENTITY_ITEM, to_unbounded_string ("Paperweight"), '+', COLOUR_YELLOW, EFFECT_NORMAL,  2,  1)

  213. 	);

  214. 

  215. 	item_variable_data : item_variable_list;

  216. 

  217. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  218. -- Spell

  219. -- -- Place-holders mostly, implement self/target/target_range effect variations...

  220. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  221. 

  222. 	type magic_list is (

  223. 		IGNITE,             ILLUMINATE,         BLADECHARM,         BATTLECRY

  224. 	);

  225. 

  226. 	type magic_mark is mod 72;

  227. 

  228. 	type magic_constant_type is new entity_constant_type with

  229. 	record

  230. 		self     : boolean := false;

  231. 		health   : integer := 0;

  232. 		armour   : integer := 0;

  233. 		mana     : integer := 0;

  234. 		stamina  : integer := 0;

  235. 		distance : integer := 0;

  236. 		tribute  : natural := 0;

  237. 	end record;

  238. 

  239. 	type magic_variable_type is new entity_variable_type with

  240. 	record

  241. 		enchantment : natural := 0;

  242. 	end record;

  243. 

  244. 	type magic_constant_list is array (magic_list) of magic_constant_type;

  245. 	type magic_variable_list is array (magic_mark) of magic_variable_type;

  246. 

  247. 	magic_constant_data : constant magic_constant_list := (

  248. 		(ENTITY_MAGIC, to_unbounded_string ("Ignite"),     '*', COLOUR_YELLOW, EFFECT_ITALIC, false, -3,  0,  0, -1,  7,  1),

  249. 		(ENTITY_MAGIC, to_unbounded_string ("Illuminate"), '*', COLOUR_YELLOW, EFFECT_ITALIC, false,  0,  0,  0, -1, 13,  1),

  250. 		(ENTITY_MAGIC, to_unbounded_string ("Bladecharm"), '*', COLOUR_RED,    EFFECT_ITALIC, true,   0, -3,  0, -1,  7,  3),

  251. 		(ENTITY_MAGIC, to_unbounded_string ("Battlecry"),  '*', COLOUR_RED,    EFFECT_ITALIC, true,  -1, -1,  0, -1,  7,  2)

  252. 	);

  253. 

  254. 	magic_variable_data : magic_variable_list;

  255. 

  256. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  257. -- Ammunition

  258. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  259. 

  260. 	type ammunition_list is (

  261. 		ARROWS,             BOLTS,              SLINGSHOTS,         JARIDS

  262. 	);

  263. 

  264. 	type ammunition_mark is mod 72;

  265. 

  266. 	type ammunition_constant_type is new entity_constant_type with

  267. 	record

  268. 		value          : natural          := 0;

  269. 		weight         : natural          := 0;

  270. 		dual_wield     : boolean          := false;

  271. 		amount_limit   : natural          := 0;

  272. 		attack_range   : natural_subrange := (0, 0);

  273. 		distance_range : natural_subrange := (0, 0);

  274. 	end record;

  275. 

  276. 	type ammunition_variable_type is new entity_variable_type with

  277. 	record

  278. 		amount       : natural_subrange := (0, 0);

  279. 		enchantment  : natural          := 0;

  280. 	end record;

  281. 

  282. 	type ammunition_constant_list is array (ammunition_list) of ammunition_constant_type;

  283. 	type ammunition_variable_list is array (ammunition_mark) of ammunition_variable_type;

  284. 

  285. 	ammunition_constant_data : constant ammunition_constant_list := (

  286. 		(ENTITY_AMMUNITION, to_unbounded_string ("Arrows"),     '^', COLOUR_RED, EFFECT_NORMAL, 11, 13, false, 23, (0, 7), (17, 67)),

  287. 		(ENTITY_AMMUNITION, to_unbounded_string ("Bolts"),      '^', COLOUR_RED, EFFECT_NORMAL, 13, 23, false, 29, (0, 5), (17, 67)),

  288. 		(ENTITY_AMMUNITION, to_unbounded_string ("Slingshots"), '^', COLOUR_RED, EFFECT_NORMAL,  5,  7, true,  43, (0, 7), (17, 67)),

  289. 		(ENTITY_AMMUNITION, to_unbounded_string ("Jarids"),     '^', COLOUR_RED, EFFECT_NORMAL, 29, 37, true,   7, (0, 7), (17, 67))

  290. 	);

  291. 

  292. 	ammunition_variable_data : ammunition_variable_list;

  293. 

  294. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  295. -- Weapon

  296. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  297. 

  298. 	type weapon_list is (

  299. 		IRON_SWORD,         IRON_GREATSWORD,    IRON_AXE,           IRON_BATTLEAXE,     IRON_SPEAR,         IRON_SHIELD,        IRON_MACE,          IRON_HAMMER

  300. 	);

  301. 

  302. 	type weapon_mark is mod 72;

  303. 

  304. 	type weapon_constant_type is new entity_constant_type with

  305. 	record

  306. 		dual_wield     : boolean          := false;

  307. 		value          : natural          := 0;

  308. 		weight         : natural          := 0;

  309. 		attack_range   : natural_subrange := (0, 0);

  310. 		defense_range  : natural_subrange := (0, 0);

  311. 		distance_range : natural_subrange := (0, 0);

  312. 	end record;

  313. 

  314. 	type weapon_variable_type is new entity_variable_type with

  315. 	record

  316. 		enchantment : natural := 0;

  317. 		condition   : natural := 0;

  318. 	end record;

  319. 

  320. 	type weapon_constant_list is array (weapon_list) of weapon_constant_type;

  321. 	type weapon_variable_list is array (weapon_mark) of weapon_variable_type;

  322. 

  323. 	weapon_constant_data : constant weapon_constant_list := (

  324. 		(ENTITY_WEAPON, to_unbounded_string ("Iron Sword"),      'l', COLOUR_RED, EFFECT_NORMAL, true,  11, 31, (3,  7), (0, 2), (0, 1)),

  325. 		(ENTITY_WEAPON, to_unbounded_string ("Iron Greatsword"), 'L', COLOUR_RED, EFFECT_BOLD,   false, 23, 67, (5, 11), (1, 3), (0, 2)),

  326. 		(ENTITY_WEAPON, to_unbounded_string ("Iron Axe"),        'r', COLOUR_RED, EFFECT_NORMAL, true,  13, 43, (1,  7), (0, 2), (0, 1)),

  327. 		(ENTITY_WEAPON, to_unbounded_string ("Iron Battleaxe"),  'T', COLOUR_RED, EFFECT_BOLD,   false, 19, 73, (6, 13), (1, 2), (0, 2)),

  328. 		(ENTITY_WEAPON, to_unbounded_string ("Iron Spear"),      'I', COLOUR_RED, EFFECT_BOLD,   false, 17, 53, (4, 10), (2, 4), (0, 2)),

  329. 		(ENTITY_WEAPON, to_unbounded_string ("Iron Shield"),     'o', COLOUR_RED, EFFECT_NORMAL, true,  13, 37, (0,  3), (4, 9), (0, 1)),

  330. 		(ENTITY_WEAPON, to_unbounded_string ("Iron Mace"),       'i', COLOUR_RED, EFFECT_NORMAL, true,  11, 41, (3,  8), (0, 2), (0, 1)),

  331. 		(ENTITY_WEAPON, to_unbounded_string ("Iron Hammer"),     't', COLOUR_RED, EFFECT_NORMAL, true,  13, 47, (4,  7), (0, 3), (0, 1))

  332. 	);

  333. 

  334. 	weapon_variable_data : weapon_variable_list;

  335. 

  336. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  337. -- Armour

  338. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  339. 

  340. 	type armour_list is (

  341. 		IRON_HELMET,        IRON_CHESTPLATE,    IRON_GAUNTLETS,     IRON_GREAVES,       IRON_CUISSE,        IRON_FAULD,         IRON_GARDBRACE,     IRON_REREBRACE

  342. 	);

  343. 

  344. 	type armour_mark is mod 72;

  345. 

  346. 	type armour_constant_type is new entity_constant_type with

  347. 	record

  348. 		value         : natural          := 0;

  349. 		weight        : natural          := 0;

  350. 		defense_range : natural_subrange := (0, 0);

  351. 	end record;

  352. 

  353. 	type armour_variable_type is new entity_variable_type with

  354. 	record

  355. 		enchantment : natural := 0;

  356. 		condition   : natural := 0;

  357. 	end record;

  358. 

  359. 	type armour_constant_list is array (armour_list) of armour_constant_type;

  360. 	type armour_variable_list is array (armour_mark) of armour_variable_type;

  361. 

  362. 	armour_constant_data : constant armour_constant_list := (

  363. 		(ENTITY_ARMOUR, to_unbounded_string ("Iron Helmet"),     'm', COLOUR_YELLOW, EFFECT_NORMAL, 11, 31, (3,  7)),

  364. 		(ENTITY_ARMOUR, to_unbounded_string ("Iron Chestplate"), 'M', COLOUR_YELLOW, EFFECT_BOLD,   23, 67, (5, 11)),

  365. 		(ENTITY_ARMOUR, to_unbounded_string ("Iron Gauntlets"),  'i', COLOUR_YELLOW, EFFECT_NORMAL, 13, 43, (1,  7)),

  366. 		(ENTITY_ARMOUR, to_unbounded_string ("Iron Greaves"),    'I', COLOUR_YELLOW, EFFECT_NORMAL, 19, 73, (6, 13)),

  367. 		(ENTITY_ARMOUR, to_unbounded_string ("Iron Cuisse"),     'Y', COLOUR_YELLOW, EFFECT_BOLD,   17, 53, (4, 10)),

  368. 		(ENTITY_ARMOUR, to_unbounded_string ("Iron Fauld"),      '-', COLOUR_YELLOW, EFFECT_NORMAL, 13, 37, (0,  3)),

  369. 		(ENTITY_ARMOUR, to_unbounded_string ("Iron Gardbrace"),  'v', COLOUR_YELLOW, EFFECT_NORMAL, 11, 41, (3,  8)),

  370. 		(ENTITY_ARMOUR, to_unbounded_string ("Iron Rerebrace"),  'V', COLOUR_YELLOW, EFFECT_NORMAL, 13, 47, (4,  7))

  371. 	);

  372. 

  373. 	armour_variable_data : armour_variable_list;

  374. 

  375. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  376. -- Scroll

  377. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  378. 

  379. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  380. -- Potion

  381. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  382. 

  383. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  384. -- Consumable

  385. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  386. 

  387. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  388. -- Note

  389. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  390. 

  391. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  392. -- Plant

  393. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  394. 

  395. 	type plant_list is (

  396. 		PLANT_FLOWER,       PLANT_GRASS,        PLANT_REED,         PLANT_BUSH,         PLANT_APPLE_TREE,   PLANT_LEMON_TREE,   PLANT_OAK_TREE,     PLANT_PINE_TREE

  397. 	);

  398. 

  399. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  400. -- Animal

  401. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  402. 

  403. 	type animal_list is (

  404. 		ANIMAL_ROACH,       ANIMAL_RAT,         ANIMAL_BAT,         ANIMAL_SPIDER,      ANIMAL_LIZARD,      ANIMAL_SNAIL,       ANIMAL_WORM,        ANIMAL_MOLE

  405. 	);

  406. 

  407. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  408. -- Goblin

  409. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  410. 

  411. 	type goblin_list is (

  412. 		GOBLIN_FEMALE,      GOBLIN_WORKER,      GOBLIN_WARRIOR,     GOBLIN_BOAR_RIDER,  GOBLIN_SHAMAN,      GOBLIN_CHIEF,       GOBLIN_KING,        GOBLIN_OGRE

  413. 	);

  414. 

  415. 	type goblin_constant_type is new entity_constant_type with

  416. 	record

  417. 		health_limit  : natural          := 0;

  418. 		armour_limit  : natural          := 0;

  419. 		mana_limit    : natural          := 0;

  420. 		stamina_limit : natural          := 0;

  421. 		attack_range  : natural_subrange := (0, 0);

  422. 	end record;

  423. 

  424. 	type goblin_variable_type is new entity_variable_type with

  425. 	record

  426. 		health  : natural := 0;

  427. 		armour  : natural := 0;

  428. 		mana    : natural := 0;

  429. 		stamina : natural := 0;

  430. 	end record;

  431. 

  432. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  433. -- Player

  434. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  435. 

  436. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  437. -- Gameplay

  438. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  439. 

  440. 	x : natural := 0;

  441. 

  442. begin

  443. 

  444. 	for this in magic_list

  445. 	loop

  446. 		x := x + render_character (magic_constant_data (this).symbol, magic_constant_data (this).colour, magic_constant_data (this).effect);

  447. 		put_line (" " & to_string (magic_constant_data (this).name));

  448. 	end loop;

  449. 

  450. 	for this in item_list

  451. 	loop

  452. 		x := x + render_character (item_constant_data (this).symbol, item_constant_data (this).colour, item_constant_data (this).effect);

  453. 		put_line (" " & to_string (item_constant_data (this).name));

  454. 	end loop;

  455. 

  456. 	for this in ammunition_list

  457. 	loop

  458. 		x := x + render_character (ammunition_constant_data (this).symbol, ammunition_constant_data (this).colour, ammunition_constant_data (this).effect);

  459. 		put_line (" " & to_string (ammunition_constant_data (this).name));

  460. 	end loop;

  461. 

  462. 	for this in weapon_list

  463. 	loop

  464. 		x := x + render_character (weapon_constant_data (this).symbol, weapon_constant_data (this).colour, weapon_constant_data (this).effect);

  465. 		put_line (" " & to_string (weapon_constant_data (this).name));

  466. 	end loop;

  467. 

  468. 	for this in armour_list

  469. 	loop

  470. 		x := x + render_character (armour_constant_data (this).symbol, armour_constant_data (this).colour, armour_constant_data (this).effect);

  471. 		put_line (" " & to_string (armour_constant_data (this).name));

  472. 	end loop;

  473. 

  474. 	return 0;

  475. 

  476. end xabina;