КРЕСТИКИ-НОЛИКИ(((

[magadan]

У меня одна проблема!! ((В общем я написал саму игру но у меня тут одно задание!!!Мне нужно чтоб выигрышная строка(а вернее элементы выигрышной строки(крестики или нолики))съезжали вниз!Знаю что можно сделать это через процедуру DELAY()!!Но куда вбивать её ............... ))))Я новичок в программировании, поэтому очень надеюсь на вашу помощь!!!


Если не трудно, вбейте пожалуйста нужную процедуру в мою программу!!!
Я буду очень признателен!!

Вот сам код игры:

program krestikinoliki;
uses crt;
var x,y,a,i,j,w,xmas,ymas,s:integer; 
c:char; 
mas:array[1..3,1..3] of integer;
begin
clrscr;
for i:=1 to 3 do
for j:=1 to 3 do
mas[i,j]:=5;
gotoxy(33,10); writeln('╔═══╦═══╦═══╗');
gotoxy(33,11); writeln('║     ║      ║      ║’);
gotoxy(33,12); writeln('╠═══╬═══╬═══╣’);
gotoxy(33,13); writeln('║     ║      ║      ║');
gotoxy(33,14); writeln('╠═══╬═══╬═══╣’);
gotoxy(33,15); writeln('║     ║      ║      ║');
gotoxy(33,16); writeln('╚═══╩═══╩═══╝');
gotoxy(35,11);
x:=35;
y:=11;
w:=1;
while c<>#27 do begin
c:=readkey;
if c=#0 then c:=readkey;
case c of
#77: begin gotoxy(x+4,y); x:=x+4; if x>43 then begin gotoxy(x-4,y); x:=x-4; end; end;
#80: begin gotoxy(x,y+2); y:=y+2; if y>15 then begin gotoxy(x,y-2); y:=y-2; end; end;
#72: begin gotoxy(x,y-2); y:=y-2; if y<11 then begin gotoxy(x,y+2); y:=y+2; end; end;
#75: begin gotoxy(x-4,y); x:=x-4; if x<35 then begin gotoxy(x+4,y); x:=x+4; end; end;
#32: begin if w mod 2 <> 0 then begin write('x'); s:=1; end
else begin write('0'); s:=0; end;  w:=w+1;
case x of
35: xmas:=1;
39: xmas:=2;
43: xmas:=3;
end;
case y of
11: ymas:=1;
13: ymas:=2;
15: ymas:=3;
end;
mas[ymas,xmas]:=s;
end;
end;
end;
gotoxy(35,17);
for i:=1 to 3 do begin
if (mas[i,1]=mas[i,2]) and (mas[i,1]=mas[i,3]) and (mas[i,1]<>5) then
if mas[i,1]=1 then
writeln('Victory-x')
else writeln('Victory-0');
end;

for i:=1 to 3 do begin
if (mas[1,i]=mas[2,i]) and (mas[1,i]=mas[3,i]) and (mas[1,i]<>5) then
if mas[1,i]=1 then
writeln('Victory-x')
else writeln('Victory-0');
end;

if (mas[1,1]=mas[2,2]) and (mas[2,2]=mas[3,3]) and (mas[1,1]<>5) then
if mas[1,1]=1 then
writeln('Victory-x')
else writeln('Victory-0');

if (mas[1,3]=mas[2,2]) and (mas[2,2]=mas[3,1]) and (mas[1,3]<>5) then
if mas[1,3]=1 then
writeln('Victory-x')
else writeln('Victory-0');
gotoxy(31,20);
readln
end;
end.

[magadan]

В общем должна получится анимация, при которой съезжают элементы выигр. строки.

Help Help Help

[magadan]

неужели никто не знает!!ХЭХ!! Просто не верится=(

[Иван 883]

Вот код:
program X_and_O;
uses crt;
var f : array[0..2,0..2] of integer;
game,pcalc,ccalc : word;
wv : integer;
p1,c1,xcur,ycur,sv,sv2,sv3,int,m,sn d : byte;
com,p2,c2 : char;
move : boolean;
label start,plr_play,com_play,cp2,newgame ,ng2,win,endgame;
begin
int:=1;
snd:=1;
p1:=10;
p2:='X';
c1:=14;
c2:='O';
randomize;
textbackground(2);
goto newgame;
{Начало игры}
start:
clrscr;
f[0,0]:=0;
f[0,1]:=0;
f[0,2]:=0;
f[1,0]:=0;
f[1,1]:=0;
f[1,2]:=0;
f[2,0]:=0;
f[2,1]:=0;
f[2,2]:=0;
textbackground(2);
clrscr;
textcolor(1);
gotoxy(3,4);
write('Игрок: 0 Компьютер(');
case int of
0 : write('проф');
1 : write('норма');
2 : write('кретин');
end;
write('): 0');
gotoxy(3,5);
write('Игра: 1');
textbackground(7);
textcolor(8);
gotoxy(1,1);
clreol;
write(#24#25#26#27,' >> движение курсора пробел >> ход 1 >> новая игра 2 >> выход ');
textbackground(2);
if move then goto plr_play else goto com_play;
{Ход игрока}
plr_play:
if (game=100) or (game=200) or (game=300) then goto endgame;
textcolor(1);
gotoxy(10,4);
write(pcalc);
gotoxy(24,4);
case int of
0 : write('проф');
1 : write('норма');
2 : write('кретин');
end;
write('): ');
write(ccalc);
gotoxy(9,5);
case game of
0..100 : wv:=100-game;
101..200 : wv:=200-game;
else wv:=300-game;
end;
write(game,'(до конца турнира осталось ',wv,' игр)');
gotoxy(35,10);
write('----T---T---¬');
gotoxy(35,11);
write('¦ ¦ ¦ ¦');
gotoxy(35,12);
write('+---+---+---+');
gotoxy(35,13);
write('¦ ¦ ¦ ¦');
gotoxy(35,14);
write('+---+---+---+');
gotoxy(35,15);
write('¦ ¦ ¦ ¦');
gotoxy(35,16);
write('L---+---+----');
sv:=0;
repeat
sv2:=f[trunc(sv/3),sv mod 3];
if sv2<>0 then
begin
gotoxy(trunc(sv/3)*4+37,(sv mod 3)*2+11);
if sv2=1 then begin textcolor(p1); write(p2); end else begin textcolor(c1); write(c2); end;
end;
sv:=sv+1;
until sv=9;
textcolor(5);
gotoxy(xcur*4+38,ycur*2+11);
write('');
sv:=0;
repeat
wv:=f[sv,0]+f[sv,1]+f[sv,2];
if (wv=3) or (wv=-3) then goto win;
wv:=f[0,sv]+f[1,sv]+f[2,sv];
if (wv=3) or (wv=-3) then goto win;
sv:=sv+1;
until sv=3;
wv:=f[0,0]+f[1,1]+f[2,2];
if (wv=3) or (wv=-3) then goto win;
wv:=f[2,0]+f[1,1]+f[0,2];
if (wv=3) or (wv=-3) then goto win;
if (f[0,0]<>0) and (f[0,1]<>0) and (f[0,2]<>0) and (f[1,0]<>0) and (f[1,1]<>0) and (f[1,2]<>0) and (f[2,0]<>0) and (f[2,1]<>0)
and (f[2,2]<>0) then
begin
sound(snd*1000);
f[0,0]:=0;
f[0,1]:=0;
f[0,2]:=0;
f[1,0]:=0;
f[1,1]:=0;
f[1,2]:=0;
f[2,0]:=0;
f[2,1]:=0;
f[2,2]:=0;
delay(snd*2000);
nosound;
gotoxy(8,8);
textcolor(14);
write('Ничья. ');
game:=game+1;
if move then move:=false else move:=true;
readkey;
gotoxy(8,8);
write(' ');
if move then goto plr_play else goto com_play;
end;
com:=readkey;
case com of
'1' : goto newgame;
'2' : exit;
' ' : if f[xcur,ycur]=0 then begin f[xcur,ycur]:=1; goto com_play; end
else begin sound(snd*100); delay(snd*300); nosound; end;
#27 : exit;
#0 :
begin
com:=readkey;
case com of
#72 : if ycur>0 then ycur:=ycur-1;
#75 : if xcur>0 then xcur:=xcur-1;
#77 : if xcur<2 then xcur:=xcur+1;
#80 : if ycur<2 then ycur:=ycur+1;
end;
end;
end;
goto plr_play;
{Ход компютера}
com_play:
if (game=100) or (game=200) or (game=300) then goto endgame;
sv:=0;
repeat
sv2:=f[trunc(sv/3),sv mod 3];
if sv2<>0 then
begin
gotoxy(trunc(sv/3)*4+37,(sv mod 3)*2+11);
if sv2=1 then begin textcolor(p1); write(p2); end else begin textcolor(c1); write(c2); end;
end;
sv:=sv+1;
until sv=9;
sv:=0;

[Иван 883]

repeat
wv:=f[sv,0]+f[sv,1]+f[sv,2];
if (wv=3) or (wv=-3) then goto win;
wv:=f[0,sv]+f[1,sv]+f[2,sv];
if (wv=3) or (wv=-3) then goto win;
sv:=sv+1;
until sv=3;
wv:=f[0,0]+f[1,1]+f[2,2];
if (wv=3) or (wv=-3) then goto win;
wv:=f[2,0]+f[1,1]+f[0,2];
if (wv=3) or (wv=-3) then goto win;
if (f[0,0]<>0) and (f[0,1]<>0) and (f[0,2]<>0) and (f[1,0]<>0) and (f[1,1]<>0) and (f[1,2]<>0) and (f[2,0]<>0) and (f[2,1]<>0)
and (f[2,2]<>0) then goto plr_play;
if int=2 then goto cp2;
sv:=random(int+2);
if (sv=2) and (int<>0) then goto cp2;
if (f[1,1]=0) and (random(3)<>2) then begin f[1,1]:=-1; goto plr_play; end;
sv:=0;
repeat
if (f[sv,0]+f[sv,1]+f[sv,2]=2) or (f[sv,0]+f[sv,1]+f[sv,2]=-2) then
begin
sv2:=0;
repeat
if f[sv,sv2]=0 then f[sv,sv2]:=-1;
sv2:=sv2+1;
until sv2=3;
goto plr_play;
end;
if (f[0,sv]+f[1,sv]+f[2,sv]=2) or (f[0,sv]+f[1,sv]+f[2,sv]=-2) then
begin
sv2:=0;
repeat
if f[sv2,sv]=0 then f[sv2,sv]:=-1;
sv2:=sv2+1;
until sv2=3;
goto plr_play;
end;
sv:=sv+1;
until sv=3;
if (f[0,0]+f[1,1]+f[2,2]=2) or (f[0,0]+f[1,1]+f[2,2]=-2) then
begin
if f[0,0]=0 then f[0,0]:=-1;
if f[1,1]=0 then f[1,1]:=-1;
if f[2,2]=0 then f[2,2]:=-1;
goto plr_play;
end;
if (f[2,0]+f[1,1]+f[0,2]=2) or (f[2,0]+f[1,1]+f[0,2]=-2) then
begin
if f[2,0]=0 then f[2,0]:=-1;
if f[1,1]=0 then f[1,1]:=-1;
if f[0,2]=0 then f[0,2]:=-1;
goto plr_play;
end;
cp2:
repeat
sv:=random(10);
if f[trunc(sv/3),sv mod 3]=0 then begin f[trunc(sv/3),sv mod 3]:=-1; goto plr_play; end;
until sv=11;
goto plr_play;
{Настройки игры}
newgame:
clrscr;
textcolor(1);
write(' Настройки новой игры');
gotoxy(4,7);
write('1 >> Интеллект компьютера: ');
gotoxy(4,8);
write('2 >> Вы будете играть ');
gotoxy(4,11);
write('5 >> Первый ход');
gotoxy(4,12);
write('6 >> Звук');
gotoxy(4,16);
textcolor(1);
write('Пробел >> начать игру esc >> выход');
ng2:
textcolor(14);
gotoxy(31,7);
case int of
0 : write('профессионал');
1 : write('нормальный ');
2 : write('кретин ');
end;
gotoxy(26,8);
if p2='X' then write('крестиком') else write('ноликом ');
gotoxy(20,11);
case m of
0 : write('случайно ');
1 : write('ваш ');
2 : write('компьютера');
end;
gotoxy(14,12);
if snd=1 then write('включен ') else write('выключен');
gotoxy(4,9);
textcolor(p1);
write('3 >> Цвет вашей фишки');
gotoxy(4,10);
textcolor(c1);
write('4 >> Цвет фишки компьютера');
com:=readkey;
case com of
'1' : if int>0 then dec(int) else int:=2;
'2' : if p2='X' then begin p2:='O'; c2:='X'; end else begin p2:='X'; c2:='O'; end;
'3' : begin if p1<15 then p1:=p1+1 else p1:=0; if p1=2 then p1:=3; end;
'4' : begin if c1<15 then c1:=c1+1 else c1:=0; if c1=2 then c1:=3; end;
'5' : if m<2 then m:=m+1 else m:=0;
'6' : if snd=1 then snd:=0 else snd:=1;
#27 : exit;
' ' :
begin
sv:=random(2);
case m of
0 : if sv<1 then move:=true else move:=false;
1 : move:=true;
2 : move:=false;
end;
game:=1;
pcalc:=0;
ccalc:=0;
goto start;
end;
end;
goto ng2;
{Победа}
win:
gotoxy(8,8);
clreol;
if wv=3 then begin pcalc:=pcalc+1; textcolor(4); write('Вы выиграли!'); end
else begin textcolor(8); write('Вы проиграли.'); ccalc:=ccalc+1; end;
game:=game+1;
f[0,0]:=0;
f[0,1]:=0;
f[0,2]:=0;
f[1,0]:=0;
f[1,1]:=0;
f[1,2]:=0;
f[2,0]:=0;
f[2,1]:=0;
f[2,2]:=0;
sound(snd*500);
delay(snd*2000);
nosound;
delay(snd*1000);
sound(snd*500);
delay(snd*2000);
nosound;
readkey;
gotoxy(1,8);
clreol;
if move then move:=false else move:=true;
if move then goto plr_play else goto com_play;
{Окончание турнира}
endgame:
delay(6400);
while keypressed do readkey;
clrscr;
textcolor(7);
gotoxy(35,3);
if game<300 then write('Турнир окончен.') else write('Игра окончена.');
textcolor(5);

[Иван 883]

if pcalc>ccalc then begin gotoxy(15,6); write('Вы выиграли у компьютера со счётом ',pcalc,':',ccalc,' Поздравляю!'); end;
if pcalc=ccalc then begin gotoxy(36,6); write('Ничья. ',pcalc,':',ccalc); end;
if pcalc<ccalc then begin gotoxy(15,6); write('Сожалею, вы проиграли компьютеру со счётом ',pcalc,':',ccalc); end;
window(5,10,80,25);
textcolor(14);
write('Уровень интеллекта компьютера: ');
case int of
0 : writeln('профессионал.');
1 : writeln('нормальный игрок.');
2 : writeln('кретин.');
end;
writeln;
writeln(' Оценка ваших способностей:');
writeln('выигрышей: ',round(pcalc/game*100),'%');
writeln('проигрышей: ',round(ccalc/game*100),'%');
writeln('игр на ничью: ',100-round(pcalc/game*100)-round(ccalc/game*100),'%');
writeln;
writeln('Впечатления компьютера о вас и об игре с вами:');
textcolor(4);
wv:=round(pcalc/game*100);
case int of
1 : dec(wv,-5);
2 : dec(wv,-10);
end;
case wv of
-10..-6 : write('"Ну и тормоз!"');
-5..0 : write('"Вообще не умеет играть."');
1..10 : write('"Неужели кто-то играет ещё хуже?"');
11..20 : write('"Тебе нужно хорошенько потренироваться!"');
21..30 : write('"Фигово играешь."');
31..40 : write('"Мягко говоря, не очень."');
41..50 : write('"Неплохо, неплохо, но можно намного лучше."');
51..60 : write('"Неплохой результат. Хотя, конечно, можно и получше...');
61..70 : write('"Хорошо играешь!"');
71..80 : write('"Клёво играешь! У тебя сколько мегабайтов памяти?"');
81..90 : write('"Хороший результат! Эх, мне бы так..."');
91..97 : write('"Отличная игра!!!"');
98..100 : begin textcolor(6); write('"Ты что, суперкомпьютер?!"'); end;
end;
writeln;
writeln;
writeln;
textcolor(1);
if game<300 then write('Пробел >> продолжить игру esc >> выход') else write('Нажмите любую клавишу для выхода.');
window(1,1,80,25);
if game<300 then
repeat
com:=readkey;
case com of
' ' : begin inc(game); if move then move:=false else move:=true; goto start; end;
#27 : exit;
end;
until com=#27
else
begin
readkey;
exit;
end;
window(1,1,80,25);
goto start;
end.


Не знаю поможет нет.

[magadan]

Иван 883!!!Большое тебе спасибо что попытался мне помочь, действительно очень рад что хоть кто-то откликнулся, но мне надо всё на основе моей программы!!!Что-то нужно переделывать в моей проге.................знать бы что(((

[magadan]

ЛЮЮЮЮЮЮЮДИИИИИИИИ!!!!ПОМОГИТЕ ПОЖАЛУЙСТА!!!!ПЛИЗЗЗЗЗЗЗЗЗЗЗ=((((ОЧ ЕНЬ СРОЧНО НАДО!!!ЗАВТРА СДАВАТЬ!!!

[vanzer]

Иван иван.... этот код можно найти на 2 странице в гугле. Зачем выкладывать чужую работу , да ещё и не по теме которую просят??