64 lines
3.2 KiB
Ada
64 lines
3.2 KiB
Ada
|
-- 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, 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 write
|
||
|
|
-- a new program in Ada, a tiny game. Work in progress, it's messy and ugly for now...
|
||
|
|
|
||
|
|
with ada.text_io, ada.strings.unbounded;
|
||
|
|
use ada.text_io, ada.strings.unbounded;
|
||
|
|
|
||
|
|
--~ TODO: Do not use this command below, it's for real-time game...
|
||
|
|
--~ TODO: gnatmake xabina.adb && stty raw -echo && ./xabina && reset
|
||
|
|
|
||
|
|
function xabina return integer is
|
||
|
|
|
||
|
|
type entity_id is (ENTITY_NONE, ENTITY_MENU, ENTITY_TILE, ENTITY_ITEM, ENTITY_PLANT, ENTITY_ANIMAL, ENTITY_GOBLIN, ENTITY_PLAYER);
|
||
|
|
type tile_id is (TILE_NONE, TILE_VOID, TILE_WALL, TILE_FLOOR, TILE_HOLE, TILE_STAIRS_DOWN, TILE_STAIRS_UP, TILE_DOOR);
|
||
|
|
type item_id is (ITEM_NONE, ITEM_AMMUNITION, ITEM_WEAPON, ITEM_ARMOUR, ITEM_SCROLL, ITEM_POTION, ITEM_CONSUMABLE, ITEM_NOTE);
|
||
|
|
type plant_id is (PLANT_NONE, PLANT_GRASS, PLANT_REED, PLANT_BUSH, PLANT_APPLE_TREE, PLANT_LEMON_TREE, PLANT_OAK_TREE, PLANT_PINE_TREE);
|
||
|
|
type animal_id is (ANIMAL_NONE, ANIMAL_RAT, ANIMAL_BAT, ANIMAL_SPIDER, ANIMAL_LIZARD, ANIMAL_SNAIL, ANIMAL_WORM, ANIMAL_MOLE);
|
||
|
|
type goblin_id is (GOBLIN_NONE, GOBLIN_WORKER, GOBLIN_WARRIOR, GOBLIN_BOAR_RIDER, GOBLIN_SHAMAN, GOBLIN_CHIEF, GOBLIN_KING, GOBLIN_OGRE);
|
||
|
|
|
||
|
|
type tile_list_id is (STONE_WALL, WOODEN_WALL, STONE_FLOOR, WOODEN_FLOOR);
|
||
|
|
|
||
|
|
type entity (this : entity_id) is
|
||
|
|
record
|
||
|
|
id : entity_id := ENTITY_NONE;
|
||
|
|
name : unbounded_string := null_unbounded_string;
|
||
|
|
code : character := ' ';
|
||
|
|
collide : boolean := false;
|
||
|
|
case this is
|
||
|
|
when ENTITY_TILE =>
|
||
|
|
tile : tile_id := TILE_NONE;
|
||
|
|
when ENTITY_ITEM =>
|
||
|
|
item : item_id := ITEM_NONE;
|
||
|
|
weight : natural := 0;
|
||
|
|
value : natural := 0;
|
||
|
|
when ENTITY_PLANT =>
|
||
|
|
plant : plant_id := PLANT_NONE;
|
||
|
|
generate_item : item_id := ITEM_NONE;
|
||
|
|
generate_rate : natural := 0;
|
||
|
|
when others =>
|
||
|
|
null;
|
||
|
|
--~ TODO: Other entity types...
|
||
|
|
end case;
|
||
|
|
end record;
|
||
|
|
|
||
|
|
type tile_list is array (tile_list_id) of entity (ENTITY_TILE);
|
||
|
|
|
||
|
|
data_tile : constant tile_list := (
|
||
|
|
(this => ENTITY_TILE, id => ENTITY_TILE, name => to_unbounded_string ("Stone Wall"), code => '$', tile => TILE_WALL, collide => true),
|
||
|
|
(this => ENTITY_TILE, id => ENTITY_TILE, name => to_unbounded_string ("Wooden Wall"), code => '#', tile => TILE_WALL, collide => true),
|
||
|
|
(this => ENTITY_TILE, id => ENTITY_TILE, name => to_unbounded_string ("Stone Floor"), code => '.', tile => TILE_FLOOR, collide => false),
|
||
|
|
(this => ENTITY_TILE, id => ENTITY_TILE, name => to_unbounded_string ("Wooden Floor"), code => '=', tile => TILE_FLOOR, collide => false)
|
||
|
|
);
|
||
|
|
|
||
|
|
begin
|
||
|
|
|
||
|
|
for this in tile_list_id
|
||
|
|
loop
|
||
|
|
put_line ("> " & to_string (data_tile (this).name));
|
||
|
|
end loop;
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
|
||
|
|
end xabina;
|