Разработка игровой программы на языке программирования Turbo Pascal
Категория реферата: Рефераты по информатике, программированию
Теги реферата: ответы 8 класс, реферат история развития
Добавил(а) на сайт: Модест.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
/Приложение к газете «1 сентября» - 1994, №44
3. Инфо-№4: Компьютерная игра: учим или играем (64-67) /Под ред.
Марусева И.В. 1997.
7. Коубс Р. и Влейминк И. Интерфейс (36-40) 1991.
8. Ла Мот А. Секреты программирования игр (7-10) 1995.
9. Фридланд А.Я. Информатика. Толковый словарь основных терминов. (57-62)
М. 1998.
10. 350 игр для IBM PC, Дж. Дворак, «Пергамент» -
Санкт -Петербург, 1994 .
11. Turbo Pascal 7. 0, Фаронов В.В. /Изд. «Нолидж», 1999.
ПРИЛОЖЕНИЕ:
Program Siege;
Uses LogoScreen,
DOS, VGA13h, VGASpr, Retrace, Buttons,
SiegeLogo, SiegeS
pr;
Type
EnemyType = record
X,Y,D,S,A:Integer;
Falling:Boolean;
Free:Boolean; end;
Const
MaxEnemies = 50;
ComboStr:Array [0..5] of String[20] =
('Looser!!!',
'',
'2 hit combo',
'Eat this!',
'Ough! 4 mans at once',
'Aaaaaaaaamazing!!!');
Var
ManX,StoneY,StoneX,EnemyDelay,EnemyLimit:Integer;
Enemies:Array [1..MaxEnemies] of EnemyType;
Score,Level,Kills,Combo:Word;
Timer:Longint;
GameOver:Boolean;
{==================================================================}
Const ca:Word = 0; cc:String[20] = '';
Procedure ComboString(s:String);
begin if s'' then begin cc:=s; ca:=10; end; if ca>0 then begin
DrawString(Base2,160-Byte(cc[0])*4,90,cc);
Dec(ca); end;
end;
Procedure NextLevel; forward;
{==================================================================}
Procedure InitEnemies;
Var i:Byte;
begin for i:=1 to MaxEnemies do Enemies[i].Free:=true;
end;
Procedure DrawEnemies;
Var i:Byte;
begin for i:=1 to MaxEnemies do
With Enemies[i] do if not Free then
DrawTSpr(Base2,X,Y,EnemyHgt,EnemyWdt,@EnemySpr[A]);
end;
Procedure MoveEnemies;
Var i:Byte;
begin for i:=1 to MaxEnemies do
Рекомендуем скачать другие рефераты по теме: список литературы реферат, изложение дубровский.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата