with ada.text_io; use ada.text_io; with core, ui, effect, attribute, skill, resource, faction, might, magic, item, unit, construction, chad, world; procedure main is ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ --~world_active : world.codex := world.ashland; ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ side_panel : integer := 480; preview_x : integer := 24; preview_y : integer := 24; preview_width : integer := 0; preview_height : integer := 0; player : chad.information := chad.trait (chad.ognjen); begin --~for index in attribute.codex loop put_line (attribute.trait (index).name & integer'image (player.attributes (index))); end loop; --~for index in skill.codex loop put_line (skill.trait (index).name & integer'image (player.skills (index))); end loop; --~for index in resource.codex loop put_line (resource.trait (index).name & integer'image (player.resources (index))); end loop; core.configure; ui.configure; attribute.configure; skill.configure; resource.configure; might.configure; magic.configure; item.configure; unit.configure; construction.configure; chad.configure; world.configure; core.fairy_synchronize (6); -- CALLING SUBROUTINE DEFINED IN FORTRAN world.make (world.swamp, 80, 40); preview_width := core.window_width - side_panel; preview_height := core.window_height; gameplay: loop exit when core.engine_active = false; -- core.synchronize; -- --~if core.cursor_mode = 1 then --~world_active := world.codex'val ((world.codex'pos (world_active) + 1) mod 6); --~delay duration (0.333); --~end if; -- if core.signal_mode = core.signal_code'pos (core.signal_a) then preview_width := preview_width - 60; end if; if core.signal_mode = core.signal_code'pos (core.signal_d) then preview_width := preview_width + 60; end if; if core.signal_mode = core.signal_code'pos (core.signal_w) then preview_height := preview_height - 60; end if; if core.signal_mode = core.signal_code'pos (core.signal_s) then preview_height := preview_height + 60; end if; -- if core.signal_mode = core.signal_code'pos (core.signal_left) then core.camera.x := core.camera.x - 1; end if; if core.signal_mode = core.signal_code'pos (core.signal_right) then core.camera.x := core.camera.x + 1; end if; if core.signal_mode = core.signal_code'pos (core.signal_up) then core.camera.y := core.camera.y - 1; end if; if core.signal_mode = core.signal_code'pos (core.signal_down) then core.camera.y := core.camera.y + 1; end if; -- core.camera.x := core.clip (core.camera.x, 0, world.map.width - preview_width / core.base); core.camera.y := core.clip (core.camera.y, 0, world.map.height - preview_height / core.base); -- world.draw (preview_x, preview_y, preview_width - 2 * preview_x, preview_height - 2 * preview_y, core.cursor_mode = 2); -- ui.active := ui.steam; if core.cursor_mode = 3 then --~ui.active := ui.style'val (ui.style'pos (ui.active) mod 4); --~case ui.active is --~when ui.default => ui.active := ui.gothic; --~when ui.gothic => ui.active := ui.yd; --~when ui.yd => ui.active := ui.default; --~end case; ui.active := ui.default; --~ui.active := ui.steam; end if; -- --~for this in might.codex --~loop --~might.draw (this, 112 * (might.codex'pos (this) / 7) + 64, 112 * (might.codex'pos (this) mod 7) + 64); --~end loop; -- --~for this in unit.pikeman .. unit.ghost_dragon --~loop --~unit.render (this, unit.idle, 96 * (unit.codex'pos (this) / 7) + 32, 96 * (unit.codex'pos (this) mod 7) + 32); --~end loop; -- --~for this in construction.codex --~loop --~construction.draw (this, 128 * (construction.codex'pos (this) mod 12) + 32, 128 * (construction.codex'pos (this) / 12) + 32); --~end loop; -- core.draw_central_grid (preview_x, preview_y, preview_width - 2 * preview_x, preview_height - 2 * preview_y); core.draw_squared_grid (preview_x, preview_y, preview_width - 2 * preview_x, preview_height - 2 * preview_y); -- ui.draw_menu (0, 0, preview_width, preview_height, false); ui.draw_tiny_menu (preview_width, 0, side_panel, preview_height, true); -- --~for this in magic.blow_away .. magic.thunderclap loop magic.draw (this, 112 * (magic.codex'pos (this) - magic.codex'pos (magic.chain_magic_arrow)) - 60, 112 * 0 + 64); end loop; --~for this in magic.agony_mass .. magic.weakness loop magic.draw (this, 112 * (magic.codex'pos (this) - magic.codex'pos (magic.thunderclap)) - 60, 112 * 1 + 64); end loop; --~for this in magic.earthquake .. magic.summon_earth_elemental loop magic.draw (this, 112 * (magic.codex'pos (this) - magic.codex'pos (magic.weakness)) - 60, 112 * 2 + 64); end loop; --~for this in magic.determination_mass .. magic.summon_fire_elemental loop magic.draw (this, 112 * (magic.codex'pos (this) - magic.codex'pos (magic.summon_earth_elemental)) - 60, 112 * 3 + 64); end loop; --~for this in magic.blindness .. magic.sunburst loop magic.draw (this, 112 * (magic.codex'pos (this) - magic.codex'pos (magic.summon_fire_elemental)) - 60, 112 * 4 + 64); end loop; --~for this in magic.dispel_magic_mass .. magic.time_statis loop magic.draw (this, 112 * (magic.codex'pos (this) - magic.codex'pos (magic.sunburst)) - 60, 112 * 5 + 64); end loop; --~for this in magic.blizzard .. magic.winter_circle loop magic.draw (this, 112 * (magic.codex'pos (this) - magic.codex'pos (magic.time_statis)) - 60, 112 * 6 + 64); end loop; -- --~for index in item.codex loop item.draw (index, 32 * (item.codex'pos (index) / 10) + 32, 32 * (item.codex'pos (index) mod 10) + 32); end loop; --~for index in attribute.codex loop attribute.draw (index, 32 * attribute.codex'pos (index) + 64, 64); end loop; --~for index in resource.codex loop resource.draw (index, 32 * resource.codex'pos (index) + 64, 96); end loop; --~for index in skill.codex loop skill.draw (index, 32 * skill.codex'pos (index) + 64, 128); end loop; -- core.draw_state_box (preview_width + 32, 32); end loop gameplay; ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ end main;