Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата



Center(40,'Esc - exit the game');

Center(190,'Press any key');

ClearKeys;

Repeat Until IsKeypressed; end;
Procedure Story; begin
ClearBase(Base1);
Center(2,'Предыстория');
DrawString(Base1,1,20,'Много лет назад на Землю упал метеорит.');
DrawString(Base1,1,30,'При исследовании в лаборатории ученые ');
DrawString(Base1,1,40,'обнаружили в нем биологическое вещес- ');
DrawString(Base1,1,50,'тво внеземного происхождения. Поняв всю');
DrawString(Base1,1,60,'опасность этого вируса, они попытались ');
DrawString(Base1,1,70,'нейтрализовать его.Но вирус стал быстро');
DrawString(Base1,1,80,'распространяться и заразил всех участни ');
DrawString(Base1,1,90,'ков исследования. Выйдя за стены лабора-');
DrawString(Base1,1,100,' тории он стал зарожать людей.Зараженные');
DrawString(Base1,1,110,'вирусом внешне не отличались от обычных');
DrawString(Base1,1,120,'людей, но подчинялись внеземному разуму.');
DrawString(Base1,1,130,'Их задачей было:уничтожить оставшееся ');
DrawString(Base1,1,140,'население.Тогда люди стали объединять- ');
DrawString(Base1,1,150,'ся,чтобы защитить себя. Они устроили ');
DrawString(Base1,1,160,'засаду в крепости. Но агрессивных "лик-');
DrawString(Base1,1,170,'видаторов ничто не могло остановить.....');
ClearKeys;

Repeat Until IsKeypressed; end;
END.

UNIT SiegeSpr;
INTERFACE
Const

BrickHgt = 10;

BrickWdt = 10;

BrickSpr:Array [1..BrickHgt,1..BrickWdt] of Byte =

((7,7,7,7,7,7,7,7,7,7),

(4,4,4,4,4,4,4,4,4,7),

(4,4,4,4,4,4,4,4,4,7),

(4,4,4,4,4,4,4,4,4,7),

(4,4,4,4,4,4,4,4,4,7),

(7,7,7,7,7,7,7,7,7,7),

(4,4,4,4,7,4,4,4,4,4),

(4,4,4,4,7,4,4,4,4,4),

(4,4,4,4,7,4,4,4,4,4),

(4,4,4,4,7,4,4,4,4,4));
Const

StoneHgt = 8;

StoneWdt = 8;

StoneSpr:Array [1..StoneHgt,1..StoneWdt] of Byte =

((0,0,8,8,8,8,0,0),

(0,8,7,7,8,8,8,0),

(8,7,8,8,8,8,8,8),

Рекомендуем скачать другие рефераты по теме: список литературы реферат, изложение дубровский.

Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки