Игровая программа Поселенцы

Цели:

Создать градостроительный симулятор с элементами ролевой игры
Сделать удобную и понятную для

Задачи:

Разработать удобную для работы над проектом структуру данных
Сделать многоуровневую карту
Разработать

Структура данных о юнитах

pObject=^tObject;
tObject=Record
Next: pObject;
Type_, Action: byte;
i,j,h,di,dj,dh,fi,fj,fh: shortint;
vect,offs:shortint;
xp,damage,defence,skill:integer;
Oldx,oldy:array [0..1] of Integer;
AttackObj:

Генерация случайной многоуровневой карты

Вид фрагмента карты в изометрии

Циклические команды юнита

Цель достигнута?

-1 ед. запасов
обрабатываемого ресурса

Удаление растения (камня)

Начальная

Достигли склада?

Увеличение resource

Поиск нового ресурса данного типа

Новый ресурс найден?

Новая цель

Перейти

Атака противников

Есть противник
в зоне видимости?

Tz^.Action:=KomAttack;
Tz^.AttackObj:=враг;
Враг^.AttackObj:=tz;
Враг^.Action:=KomAttack;

Tz^.Action:=KomPresledovanie;
Tz^.fi, tz^.fj, tz^.fh <= координаты противника;

Враг

Tz^.action=komPresledovanie?

Tz^.Action:=KomAttack;

Движение к противнику…

Да

Враг в соседней ячейке?

Да

Нет

Tz^.Action=KomAttack?

tz^.AttackObj^.xp:=tz^.AttackObj^.xp-round(tz^.damage-tz^.damage*tz^.attackobj^.defence/100);

Tz^.AttckObj^.xp<=0

Враг в соседней ячейке?

Tz^.action=
komPresledovanie

Удалить объект (противника) из списка

Сообщить союзникам о его

Аналоги

Игра «Towns»

Достоинства

Карта имеет псевдотрёхмерный вид
Многоуровневость ландшафта
Разнообразие построек и растительности
Многочисленность команд,

Недостатки

Мало разновидностей противников
Отсутствие торговли
Нельзя сохранить игру

Выводы

Удалось создать градостроительный симулятор, в котором:
1) Разработана удобная структура данных
2) Реализована