From 461186f7830704340f0c3659cc29c12bcf505c64 Mon Sep 17 00:00:00 2001 From: xolatile Date: Mon, 10 Jun 2024 09:54:22 -0400 Subject: [PATCH] Added pillars of observation and tested out reach attribute... --- game/location/pillars_of_observation.png | Bin 0 -> 788 bytes source/location.ads | 30 +++++++++++++++--------------- source/ui.adb | 15 --------------- source/ui.ads | 1 - 4 files changed, 15 insertions(+), 31 deletions(-) create mode 100644 game/location/pillars_of_observation.png diff --git a/game/location/pillars_of_observation.png b/game/location/pillars_of_observation.png new file mode 100644 index 0000000000000000000000000000000000000000..cf8be0aaa96b5d3cebd93850c1105a01860a905e GIT binary patch literal 788 zcmV+v1MB>WP)^^BL+fXQqX1Z zLkdcP5ZD9ABMW^&8c*#?RW47V>d{lbMz5_0ym(~t146Kv0F3Q1K?2|le}0+)mrK|{ zGQRjYDtF6+6B&905+aD45G;MapCAN4eMMFOegwjUVr*r~mM)i3m?kOM_lQtrK}9!H z#8KB_Qm_-DDjniz+Xy0j&OKQOAs`|Z>vIgl0LEC**D%*jRKtvZD0k0CT$hjmXhley z5)|`3_xOm%fNFO-CZaG<<0B&=i;4+?I6)*0Bn=cM4OAd#n|Y@JQyP5zL@*6__=!af zq>y*lVp1|O7;1#*C*;yC7dRf^<${GVWVvm3v?+IKkQYDWC!(GM6wK-=f>gsZej>!dq1ICSoRaa&H?@p+t!c4Xc}*{_@K4m2tH^nID$_aNE(ne&^bij8Dj9p zduzbC5IN#S2D%Z~n_~`DEF8kie&Fuw2hQTX&jHuriZ67OI^?huaEI}k2qpwKov~zW zH4)q2ca1&s#y9lT?}K-&W5`i{(QTjy330n!RIbuz5_nL8OodM;wJnr0PpjR zKhuQww>LGIk9k%za0Z{NXfjyv;PbhPCWG$_KCje(Z3i|D_~4&3P?kVh0@L)BGx5XN z`n`Gjod%BJGw~o1cV)5Qcj*8+i%;V}9zUaHBQENCTOKNyO!wQ~G(xs*Ue7>?88b}&Q8u<4#5Uypj?b;;(&uY4e!JO8B zub&vlCqJ&x@zKr!SA6tyz=n@r3vBqLfusR# zzrYZ==~lxV|D!a}dE~HjWyXe2=YY0f;IQ)!hJJx7KJ^PyzaaGsQorEk{er(?ZzLsr SPCw580000 (new string'("Well of Agility"), true, 4, 3, (effect.modify_attribute, attribute.enumeration'pos (attribute.speed), 2, false, 0)), - well_of_knowledge => (new string'("Well of Knowledge"), true, 4, 3, (effect.modify_attribute, attribute.enumeration'pos (attribute.wisdom), 2, false, 0)), - well_of_strength => (new string'("Well of Strength"), true, 4, 3, (effect.modify_attribute, attribute.enumeration'pos (attribute.offense), 2, false, 0)), - old_dwarven_grave => (new string'("Old Dwarven Grave"), true, 1, 3, (effect.modify_attribute, attribute.enumeration'pos (attribute.defense), 1, false, 0)), - huge_ancient_urn => (new string'("Huge Ancient Urn"), true, 1, 3, (effect.modify_attribute, attribute.enumeration'pos (attribute.offense), 1, false, 0)), - banana_tree => (new string'("Banana Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.banana), 4, true, 600)), - apple_tree => (new string'("Apple Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.apple), 6, true, 600)), - cherry_tree => (new string'("Cherry Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.cherry), 6, true, 600)), - lemon_tree => (new string'("Lemon Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.lemon), 6, true, 600)), - orange_tree => (new string'("Orange Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.orange), 6, true, 600)), - pear_tree => (new string'("Pear Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.pear), 6, true, 600)), - peach_tree => (new string'("Peach Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.peach), 6, true, 600)), - plum_tree => (new string'("Plum Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.plum), 6, true, 600)) + well_of_agility => (new string'("Well of Agility"), true, 4, (effect.modify_attribute, attribute.enumeration'pos (attribute.speed), 2, false, 0)), + well_of_knowledge => (new string'("Well of Knowledge"), true, 4, (effect.modify_attribute, attribute.enumeration'pos (attribute.wisdom), 2, false, 0)), + well_of_strength => (new string'("Well of Strength"), true, 4, (effect.modify_attribute, attribute.enumeration'pos (attribute.offense), 2, false, 0)), + old_dwarven_grave => (new string'("Old Dwarven Grave"), true, 1, (effect.modify_attribute, attribute.enumeration'pos (attribute.defense), 1, false, 0)), + huge_ancient_urn => (new string'("Huge Ancient Urn"), true, 1, (effect.modify_attribute, attribute.enumeration'pos (attribute.offense), 1, false, 0)), + banana_tree => (new string'("Banana Tree"), true, 4, (effect.modify_material, material.enumeration'pos (material.banana), 4, true, 600)), + apple_tree => (new string'("Apple Tree"), true, 4, (effect.modify_material, material.enumeration'pos (material.apple), 6, true, 600)), + cherry_tree => (new string'("Cherry Tree"), true, 4, (effect.modify_material, material.enumeration'pos (material.cherry), 6, true, 600)), + lemon_tree => (new string'("Lemon Tree"), true, 4, (effect.modify_material, material.enumeration'pos (material.lemon), 6, true, 600)), + orange_tree => (new string'("Orange Tree"), true, 4, (effect.modify_material, material.enumeration'pos (material.orange), 6, true, 600)), + pear_tree => (new string'("Pear Tree"), true, 4, (effect.modify_material, material.enumeration'pos (material.pear), 6, true, 600)), + peach_tree => (new string'("Peach Tree"), true, 4, (effect.modify_material, material.enumeration'pos (material.peach), 6, true, 600)), + plum_tree => (new string'("Plum Tree"), true, 4, (effect.modify_material, material.enumeration'pos (material.plum), 6, true, 600)), + pillars_of_observation => (new string'("Pillars of Observation"), true, 1, (effect.modify_attribute, attribute.enumeration'pos (attribute.reach), 2, false, 0)) ); game : array (enumeration) of core.sprite; diff --git a/source/ui.adb b/source/ui.adb index 7d36968..5f2262d 100644 --- a/source/ui.adb +++ b/source/ui.adb @@ -518,21 +518,6 @@ package body ui is ------------------------------------------------------------------------------------------ - procedure draw_state_box (x, y : in integer) is - begin - ui.write ("Cursor X:" & core.cursor.x'image, x, y + 0); - ui.write ("Cursor Y:" & core.cursor.y'image, x, y + 32); - ui.write ("Cursor Mode:" & core.cursor_mode'image, x, y + 64); - ui.write ("Camera X:" & core.camera.x'image, x, y + 96); - ui.write ("Camera Y:" & core.camera.y'image, x, y + 128); - ui.write ("Global Time:" & core.global_time'image, x, y + 160); - ui.write ("Gameplay Time:" & core.gameplay_time'image, x, y + 192); - ui.write ("Animation Time:" & core.animation_time'image, x, y + 224); - ui.write ("Framerate:" & core.framerate'image, x, y + 256); - end draw_state_box; - - ------------------------------------------------------------------------------------------ - procedure draw_console_box (x, y, width, height : in integer) is offset : constant integer := 8; font_width : constant integer := monowidth; diff --git a/source/ui.ads b/source/ui.ads index ebd01e7..c614c22 100644 --- a/source/ui.ads +++ b/source/ui.ads @@ -69,7 +69,6 @@ package ui is procedure draw_end_turn_button (x, y : in integer); - procedure draw_state_box (x, y : in integer); procedure draw_console_box (x, y, width, height : in integer); procedure iterate_style;