xolatile
/
xabina
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
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...
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 Commits
1 Branch
385KB
Tree: fede5c4bbf
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'fede5c4bbf'
${ noResults }
xabina/xabina.adb

477 lines
27KB
Raw Blame History 

  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;