xolatile/xabina
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Cursor hiding thing in VT100...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2023-10-11 12:44:13 -04:00
parent b35a1d0c85
commit 0ff5a3acae
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
xabina.adb
View File

@ -529,7 +529,11 @@ function xabina return integer is
loop loop
for x in map_width for x in map_width
loop loop
put (format_symbol ('~', COLOUR_RED, EFFECT_BOLD)); if x = player.x and y = player.y then
put (format_symbol ('@', COLOUR_CYAN, EFFECT_BOLD));
else
put (format_symbol ('.', COLOUR_GREY, EFFECT_BOLD));
end if;
end loop; end loop;
put (CARRIAGE_RETURN & LINE_FEED); put (CARRIAGE_RETURN & LINE_FEED);
end loop; end loop;
@ -542,6 +546,12 @@ function xabina return integer is
begin begin
bind ('q', action_exit'access); bind ('q', action_exit'access);
bind ('w', action_move_up'access);
bind ('s', action_move_down'access);
bind ('a', action_move_left'access);
bind ('d', action_move_right'access);
put (ESCAPE & "[?25l");
loop loop
exit when active = false; exit when active = false;
@ -551,6 +561,8 @@ begin
action_list (character'pos (signal)).all; action_list (character'pos (signal)).all;
end loop; end loop;
put (ESCAPE & "[?25h");
return 0; return 0;
end xabina; end xabina;