Курсовая работа: Пасьянс "Три пика"

if (Seconds mod 10)=0 then {каждые 10 секунд -1 очко}

begin

dec(Score);

DrawScore;

end;

BeginTime :=curtime;

DrawTime;

end;

end;

Type

TUserInfo=record

UserName: string[50];

wcnt: word;{Сколькопобед}

dcnt: word;{Сколькопоpажений}

AllScore: longint;{Всегоочков}

end;

Function DefeatOrWin(var UInf: TUserInfo):boolean; {Проверяемпроигрышиливыйгрыш}

var

ch: char;

begin

if Defeat or (MoveCount=28) then {Еслипроигралииливыиграли}

begin

if Defeat then

begin

DrawText('You are lose game');

inc(UInf.dcnt);

UInf.AllScore := UInf.AllScore+Score;

end

else