xolatile
/
xabina
1
0
Vork 0
Code Kwesties 0 Pull-aanvragen 0 Publicaties 0 Wiki Activiteit
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.
42 Commits
1 Branch
385KB
Branch: master
Branches Labels
${ item.name }
Maak branch ${ searchTerm }
van 'master'
${ noResults }
xabina/animal.ads

143 lines
11KB
Ruw Permalink Blame Geschiedenis 

  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. 

  9. with core;

  10. 

  11. package animal is

  12. 

  13.                                              ------------------------------------------------------------------------------------------

  14. 

  15. 	type list is (

  16. 		pig,                cow,                chicken,            sheep,              boar,               goat,               auroch,             duck,

  17. 		dog,                cat,                rabbit,             hamster,            horse,              donkey,             camel,              elephant,

  18. 		owl,                hawk,               pigeon,             vulture,            crow,               pheasant,           sparrow,            albatross,

  19. 		sardine,            herring,            catfish,            carp,               whale,              shark,              squid,              sawfish,

  20. 		worm,               bee,                centipede,          spider,             frog,               rat,                bat,                mole,

  21. 		wolf,               fox,                bear,               mammoth,            elk,                moose,              deer,               peebles,

  22. 		lion,               hyena,              bison,              zebra,              giraffe,            crocodile,          monkey,             gnu,

  23. 		caribou,            seal,               morse,              penguin,            turtle,             cayman,             otter,              snake,

  24. 		lizard,             daeodon,            slime,              axolotl,            hedgehog,           caterpillar,        crab,               scorpion,

  25. 		giant_lizard,                           giant_centipede,                        giant_spider,                           giant_sloth,

  26. 		giant_owl,                              giant_scorpion,                         giant_axolotl,                          giant_worm

  27. 	);

  28. 

  29. 	type mark is mod 72;

  30. 

  31.                                              ------------------------------------------------------------------------------------------

  32. 

  33. 	type constant_type is new core.constant_type with

  34. 	record

  35. 		health_limit  : natural := 0;

  36. 		attack_range  : natural := 0;

  37. 		defense_range : natural := 0;

  38. 	end record;

  39. 

  40. 	type variable_type is new core.variable_type with

  41. 	record

  42. 		health : natural := 0;

  43. 	end record;

  44. 

  45. 	type constant_list is array (list) of constant_type;

  46. 	type variable_list is array (mark) of variable_type;

  47. 

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

  49. 

  50. 	constant_data : constant constant_list := (

  51. 		(core.animal, "Pig                 ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  52. 		(core.animal, "Cow                 ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  53. 		(core.animal, "Chicken             ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  54. 		(core.animal, "Sheep               ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  55. 		(core.animal, "Boar                ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  56. 		(core.animal, "Goat                ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  57. 		(core.animal, "Auroch              ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  58. 		(core.animal, "Duck                ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  59. 		(core.animal, "Dog                 ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  60. 		(core.animal, "Cat                 ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  61. 		(core.animal, "Rabbit              ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  62. 		(core.animal, "Hamster             ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  63. 		(core.animal, "Horse               ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  64. 		(core.animal, "Donkey              ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  65. 		(core.animal, "Camel               ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  66. 		(core.animal, "Elephant            ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  67. 		(core.animal, "Owl                 ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  68. 		(core.animal, "Hawk                ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  69. 		(core.animal, "Pigeon              ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  70. 		(core.animal, "Vulture             ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  71. 		(core.animal, "Crow                ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  72. 		(core.animal, "Pheasant            ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  73. 		(core.animal, "Sparrow             ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  74. 		(core.animal, "Albatross           ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  75. 		(core.animal, "Sardine             ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  76. 		(core.animal, "Herring             ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  77. 		(core.animal, "Catfish             ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  78. 		(core.animal, "Carp                ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  79. 		(core.animal, "Whale               ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  80. 		(core.animal, "Shark               ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  81. 		(core.animal, "Squid               ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  82. 		(core.animal, "Sawfish             ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  83. 		(core.animal, "Worm                ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  84. 		(core.animal, "Bee                 ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  85. 		(core.animal, "Centipede           ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  86. 		(core.animal, "Spider              ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  87. 		(core.animal, "Frog                ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  88. 		(core.animal, "Rat                 ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  89. 		(core.animal, "Bat                 ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  90. 		(core.animal, "Mole                ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  91. 		(core.animal, "Wolf                ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  92. 		(core.animal, "Fox                 ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  93. 		(core.animal, "Bear                ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  94. 		(core.animal, "Mammoth             ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  95. 		(core.animal, "Elk                 ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  96. 		(core.animal, "Moose               ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  97. 		(core.animal, "Deer                ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  98. 		(core.animal, "Peebles             ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  99. 		(core.animal, "Lion                ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  100. 		(core.animal, "Hyena               ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  101. 		(core.animal, "Bison               ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  102. 		(core.animal, "Zebra               ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  103. 		(core.animal, "Giraffe             ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  104. 		(core.animal, "Crocodile           ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  105. 		(core.animal, "Monkey              ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  106. 		(core.animal, "Gnu                 ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  107. 		(core.animal, "Caribou             ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  108. 		(core.animal, "Seal                ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  109. 		(core.animal, "Morse               ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  110. 		(core.animal, "Penguin             ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  111. 		(core.animal, "Turtle              ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  112. 		(core.animal, "Cayman              ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  113. 		(core.animal, "Otter               ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  114. 		(core.animal, "Snake               ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  115. 		(core.animal, "Lizard              ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  116. 		(core.animal, "Daeodon             ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  117. 		(core.animal, "Slime               ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  118. 		(core.animal, "Axolotl             ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  119. 		(core.animal, "Hedgehog            ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  120. 		(core.animal, "Caterpillar         ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  121. 		(core.animal, "Crab                ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  122. 		(core.animal, "Scorpion            ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  123. 		(core.animal, "Giant Lizard        ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  124. 		(core.animal, "Giant Centipede     ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  125. 		(core.animal, "Giant Spider        ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  126. 		(core.animal, "Giant Sloth         ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  127. 		(core.animal, "Giant Owl           ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  128. 		(core.animal, "Giant Scorpion      ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  129. 		(core.animal, "Giant Axolotl       ", 'a', core.colour.green, core.effect.normal, 11, 11, 11),

  130. 		(core.animal, "Giant Worm          ", 'a', core.colour.green, core.effect.normal, 11, 11, 11)

  131. 	);

  132. 

  133. 	variable_data : variable_list;

  134. 

  135.                                              ------------------------------------------------------------------------------------------

  136. 

  137. 	procedure generate;

  138. 	procedure render;

  139. 

  140.                                              ------------------------------------------------------------------------------------------

  141. 

  142. end animal;