Курсовая работа: Игра "Vertolet"

if level>2 then putimage(k,kk,barer^,0);

setcolor(12);

line(25+yr*2,101,25+yr*2,480);

until Ord(t)=258;

freemem(ver,imagesize(a-10,d-25,a+53,d+40));

freemem(barer,imagesize(300,300,340,350));

freemem(barer1,imagesize(400,300,440,350));

closegraph;

Score(schet,nik);

end;

ИСХОДНЫЕ КОДЫ МОДУЛЕЙ

Модуль Game

unit games;

interface

USES CRT,GRAPH;

function game(sd:boolean):word;

function og(a,d:integer):word;

procedure GET;

procedure ni;

procedure start;

procedure tex;

procedure lev(text,text1:string);

procedure vert(a,d:integer;s:byte);

procedure score(kol:integer; nik:string);

procedure ogon(a,d:integer; s:byte);

implementation

type mass=array[1..100] of word;

Var

sche: array[1..100] of integer ;