Реферат: Разработка игровой программы

Выдача очков играющих.

Звуковое сопровождение при попадании или непопадании шарика по дощечке, или отскакивания его от стенки.

Текст программы

program Game_Tenis;

uses DOS, Crt2, Graph;

var

CK, StopRun, Up1, Down1, Up2, Down2, Auto1, Auto2 :Boolean;

R1, R2, oR1, oR2, BX, BY, oBX, oBY, Step :Integer;

kX, kY, rBX, rBY :Real;

MissCount1, MissCount2 :Word;

OldInt9: procedure;

{____________________________________________________________________________}

{работа с клавиатурой по превываниям}

procedure UserInt9; interrupt;

begin

case Port[$60] of

$81: StopRun:=True; {Esc - выход}

$1E: begin CK:=True; Up1:=True; end; {вверх первая дощечка}

$9E: begin CK:=True; Up1:=False; end;

$2C: begin CK:=True; Down1:=True; end; {вниз первая дощечка}

$AC: begin CK:=True; Down1:=False; end;

$25: begin CK:=True; Up2:=True; end; {вверх вторая дощечка}

$A5: begin CK:=True; Up2:=False; end;

$32: begin CK:=True; Down2:=True; end; {вниз вторая дощечка}

$B2: begin CK:=True; Down2:=False; end;

$02: Auto1:=not Auto1; {включение/выключение авто-режима}

{для игрока 1}

$03: Auto2:=not Auto2; {включение/выключение авто-режима}