Курсовая работа по информатике
жүктеу/скачать 201,5 Kb.
|
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. жүктеу/скачать 201,5 Kb. Достарыңызбен бөлісу:
|