Курсовая работа по информатике



бет5/7
Дата22.06.2022
өлшемі201,5 Kb.
#146948
түріКурсовая
1   2   3   4   5   6   7
Байланысты:
kursovik

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),
(8,7,8,8,8,8,8,8),
(8,8,8,8,8,8,8,8),
(8,8,8,8,8,8,8,8),
(0,8,8,8,8,8,8,0),
(0,0,8,8,8,8,0,0));
Const
ManHgt = 20;
ManWdt = 16;
ManSpr:Array [1..2,1..ManHgt,1..ManWdt] of Byte =
(((00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00),
(00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00),
(00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00),
(00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00),
(00,00,00,00,00,00, 7, 7, 7, 7,00,00,00,00,00,00),
(00,00,00,00,00, 7, 7, 7, 7, 7, 7,00,00,00,00,00),
(00,00,00,00,00, 7,15,15,15,15, 7,00,00,00,00,00),
(00,00,00,00,00,15, 3, 1, 1, 3,15,00,00,00,00,00),
(00,00,00,00,00,15,15,15,15,15,15,00,00,00,00,00),
(00,00,00,00,00,15,15, 8, 8,15,15,00,00,00,00,00),
(00,00,00,00,00,15,15,13,13,15,15,00,00,00,00,00),
(00,00,00,00,00,00,15,15,15,15,00,00,00,00,00,00),
(00,00,00,00,12,12,15,15,15,15,12,12,00,00,00,00),
(00,12,12,12,12,12,12,14,14,12,12,12,12,12,12,00),
(12,12,12,12,12,12,12,14,14,12,12,12,12,12,12,12),
(12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12),
(12,12, 8,12,12,12,12,12,12,12,12,12,12, 8,12,12),
(12,12, 8,12,12,12,12,12, 8,12,12,12,12, 8,12,12),
(12,12, 8,12,12,12,12,12,12,12,12,12,12, 8,12,12),
(12,12, 8,12,12,12,12,12, 8,12,12,12,12, 8,12,12)),

((00,00,00,15,00,00,00,00,00,00,00,00,15,00,00,00),


(00,00,00,15,00,00,00,00,00,00,00,00,15,00,00,00),
(00,00,12,12,00,00,00,00,00,00,00,00,12,12,00,00),
(00,00,12,12,00,00,00,00,00,00,00,00,12,12,00,00),
(00,00,12,12,00,00, 7, 7, 7, 7,00,00,12,12,00,00),
(00,00,12,12,00, 7, 7, 7, 7, 7, 7,00,12,12,00,00),
(00,12,12,00,00, 7,15,15,15,15, 7,00,00,12,12,00),
(00,12,12,00,00,15, 3, 1, 1, 3,15,00,00,12,12,00),
(00,12,12,00,00,15,15,15,15,15,15,00,00,12,12,00),
(00,12,12,00,00,15,15, 8, 8,15,15,00,00,12,12,00),
(00,12,12,00,00,15,15,13,13,15,15,00,00,12,12,00),
(00,12,12,12,00,00,15,15,15,15,00,00,12,12,12,00),
(00,00,12,12,12,12,15,15,15,15,12,12,12,12,00,00),
(00,00,12,12,12,12,12,14,14,12,12,12,12,12,00,00),
(00,00,12,12,12,12,12,14,14,12,12,12,12,12,00,00),
(00,00,12,12,12,12,12,12,12,12,12,12,12,12,00,00),
(00,00,00,12,12,12,12,12,12,12,12,12,12,00,00,00),
(00,00,00,12,12,12,12,12, 8,12,12,12,12,00,00,00),
(00,00,00,12,12,12,12,12,12,12,12,12,12,00,00,00),
(00,00,00,12,12,12,12,12, 8,12,12,12,12,00,00,00)));
Const
EnemyHgt = 42;
EnemyWdt = 16;
EnemySpr:Array [1..2,1..EnemyHgt,1..EnemyWdt] of Byte =
(((00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00),
(00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00),
(00,00,00,00,00,00,00,00,00,00,00,00,00,10,10,00),
(00,00,00,00,00,00,00,00,00,00,00,00,00,10,10,00),
(00,00,00,00,00,00, 7, 7, 7, 7,00,00,00,10,10,00),
(00,00,00,00,00, 7, 7, 7, 7, 7, 7,00,00,10,10,00),
(00,00,00,00,00, 7, 7, 7, 7, 7, 7,00,00,10,10,00),
(00,00,00,00,00, 7, 7, 7, 7, 7, 7,00,00,10,10,00),
(00,00,00,00,00, 7, 7, 7, 7, 7, 7,00,00,10,10,00),
(00,00,00,00,00,15, 7, 7, 7, 7,15,00,00,10,10,00),
(00,00,00,00,00,15, 7, 7, 7, 7,15,00,00,10,10,00),
(00,00,00,00,00,00,15,15,15,15,00,00,10,10,10,00),
(00,00,00,00,10,10,15,15,15,15,10,10,10,10,00,00),
(00,10,10,10,10,10,10,10,10,10,10,10,10,10,00,00),
(10,10,10,10,10,10,10,10,10,10,10,10,10,10,00,00),
(10,10,10,10,10,10,10,10,10,10,10,10,10,10,00,00),
(10,10,00,10,10,10,10,10,10,10,10,10,10,00,00,00),
(10,10,00,10,10,10,10,10,10,10,10,10,10,00,00,00),
(10,10,00,10,10,10,10,10,10,10,10,10,10,00,00,00),
(00,10,10,10,10,10,10,10,10,10,10,10,10,00,00,00),
(00,10,10,10,10,10,10,10,10,10,10,10,10,00,00,00),
(00,10,10,10,10,10,10,10,10,10,10,10,10,00,00,00),
(00,00,00,10,10,10,10,10,10,10,10,10,10,00,00,00),
(00,00,00, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,00,00,00),
(00,00,00, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,00,00,00),
(00,00, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,00,00,00),
(00,00, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,00,00,00),
(00, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,00,00,00),
(00, 8, 8, 8, 8,00,00,00,00, 8, 8, 8, 8,00,00,00),
( 8, 8, 8, 8, 8,00,00,00,00, 8, 8, 8, 8, 8,00,00),
( 8, 8, 8, 8,00,00,00,00,00,00, 8, 8, 8, 8,00,00),
( 8, 8, 8, 8,00,00,00,00,00,00, 8, 8, 8, 8,00,00),
( 8, 8, 8, 8,00,00,00,00,00,00, 8, 8, 8, 8,00,00),
(00, 8, 8, 8,00,00,00,00,00,00, 8, 8, 8, 8,00,00),
(00, 8, 8, 8,00,00,00,00,00,00, 8, 8, 8, 8,00,00),
(00,00, 8, 8, 8,00,00,00,00,00,00, 8, 8, 8, 8,00),
(00,00, 8, 8, 8,00,00,00,00,00,00, 8, 8, 8, 8,00),
(00,00, 8, 8, 8,00,00,00,00,00,00, 8, 8, 8, 8,00),
(00,00,00,00,00,00,00,00,00,00,00, 8, 8, 8, 8,00),
(00,00,00,00,00,00,00,00,00,00,00, 8, 8, 8, 8,00),
(00,00,00,00,00,00,00,00,00,00,00, 8, 8, 8, 8,00),
(00,00,00,00,00,00,00,00,00,00,00, 8, 8, 8, 8,00)),

((00,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00),


(00,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00),
(00,10,10,00,00,00,00,00,00,00,00,00,00,00,00,00),
(00,10,10,00,00,00,00,00,00,00,00,00,00,00,00,00),
(00,10,10,00,00,00, 7, 7, 7, 7,00,00,00,00,00,00),
(00,10,10,00,00, 7, 7, 7, 7, 7, 7,00,00,00,00,00),
(00,10,10,00,00, 7, 7, 7, 7, 7, 7,00,00,00,00,00),
(00,10,10,00,00, 7, 7, 7, 7, 7, 7,00,00,00,00,00),
(00,10,10,00,00, 7, 7, 7, 7, 7, 7,00,00,00,00,00),
(00,10,10,00,00,15, 7, 7, 7, 7,15,00,00,00,00,00),
(00,10,10,00,00,15, 7, 7, 7, 7,15,00,00,00,00,00),
(00,10,10,10,00,00,15,15,15,15,00,00,00,00,00,00),
(00,00,10,10,10,10,15,15,15,15,10,10,10,10,00,00),
(00,00,10,10,10,10,10,10,10,10,10,10,10,10,10,00),
(00,00,10,10,10,10,10,10,10,10,10,10,10,10,10,10),
(00,00,10,10,10,10,10,10,10,10,10,10,10,10,10,10),
(00,00,00,10,10,10,10,10,10,10,10,10,10,00,10,10),
(00,00,00,10,10,10,10,10,10,10,10,10,10,00,10,10),
(00,00,00,10,10,10,10,10,10,10,10,10,10,00,10,10),
(00,00,00,10,10,10,10,10,10,10,10,10,10,10,10,00),
(00,00,00,10,10,10,10,10,10,10,10,10,10,10,10,00),
(00,00,00,10,10,10,10,10,10,10,10,10,10,10,10,00),
(00,00,00,10,10,10,10,10,10,10,10,10,10,00,00,00),
(00,00,00, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,00,00,00),
(00,00,00, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,00,00,00),
(00,00,00, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,00,00),
(00,00,00, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,00,00),
(00,00,00, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,00),
(00,00, 8, 8, 8, 8, 8,00,00,00,00, 8, 8, 8, 8,00),
(00,00, 8, 8, 8, 8, 8,00,00,00,00, 8, 8, 8, 8, 8),
(00,00, 8, 8, 8, 8,00,00,00,00,00,00, 8, 8, 8, 8),
(00,00, 8, 8, 8, 8,00,00,00,00,00,00, 8, 8, 8, 8),
(00,00, 8, 8, 8, 8,00,00,00,00,00,00, 8, 8, 8, 8),
(00,00, 8, 8, 8, 8,00,00,00,00,00,00, 8, 8, 8,00),
(00,00, 8, 8, 8, 8,00,00,00,00,00,00, 8, 8, 8,00),
(00, 8, 8, 8, 8,00,00,00,00,00,00, 8, 8, 8,00,00),
(00, 8, 8, 8, 8,00,00,00,00,00,00, 8, 8, 8,00,00),
(00, 8, 8, 8, 8,00,00,00,00,00,00, 8, 8, 8,00,00),
(00, 8, 8, 8, 8,00,00,00,00,00,00,00,00,00,00,00),
(00, 8, 8, 8, 8,00,00,00,00,00,00,00,00,00,00,00),
(00, 8, 8, 8, 8,00,00,00,00,00,00,00,00,00,00,00),
(00, 8, 8, 8, 8,00,00,00,00,00,00,00,00,00,00,00)));
IMPLEMENTATION
END.




Достарыңызбен бөлісу:
1   2   3   4   5   6   7




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет