Курсовая работа: Игровая программа 15

end;(*victory*)

(* Процедура рисования номера пятнашки*)

procedure nomer(xp,yp,ip:integer);

begin (*nomer*)

{Преобразование числа mas[ip] в

посл-ть символов}

str(mas[ip]:1,st);

{Вывод посл-ти символов st}

outtextxy(175+xp*86,120+yp*86,st);

end;(*nomer*)

(*Процедура рисования парал-да*)

procedure kv(xk,yk:integer);

begin(*kv*)

bar3d(160+xk*86,100+yk*86,235+xk*86,

175+yk*86,7,true);

end;(*kv*)

(*Процедура смены активной таблички*)

procedure tabl(xv,yv:integer;klv:char;var

xv1,yv1:integer);

begin(*tabl*)

{Фишка(табличка),которая была активизирована

рисуется таким же цветом, что и остальные

фишки}

setcolor(13);

kv(xv,yv);

{Надпись номера фишки}

if mas[4*yv+xv+1]<>0 then

nomer(xv,yv,4*yv+xv+1);

{Нажатие пользователем одной из клафиш case