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

end;

end;

end;

until (d=170) or (d=380);

freemem(men0,imagesize(10,10,620,170));freemem(men1,imagesize(10,170,550,230));

freemem(men2,imagesize(10,230,550,460));

if d =170 then begin if sd=false then game(false) else game(true);

end;

until d=380 ;

closegraph;

end;

begin

end.

Модуль Option

unit options;

interface

uses crt,graph;

function option:boolean;

procedure key(ch:char);

procedure tex;

implementation

var ch:char;

a,d:integer;

text:string;

opt:pointer;

procedure tex;

begin

setcolor(13);

settextstyle(1,0,9);