Задолбало.Я всё со своей ЧЁРТОВОЙ!!! змейкой
Помогите . нужно сделать задержку не по времени, а по очереди.
uses crt;
const
h='@';
xmin=1;
ymin=1;
xmax=80;
ymax=25;
var
x,y,vx,vy:integer;
ch:char;
xe,ye,i:integer;
begin
clrscr;
Randomize;
x:=xmin;
y:=ymax div 2;
xe:=12;
ye:=12;
gotoxy(xe,ye);
write ('a');
while (x>=1) and (x<=80) and (y>=1) and (y<=25) do begin
GoTOXY(x,y);
write(h);
delay(20);
if keypressed then begin
ch:=readkey;
case ch of
'd':begin vx:=1; vy:=0 end;
'a':begin vx:=-1; vy:=0 end;
'w':begin vx:=0; vy:=-1 end;
's':begin vx:=0; vy:=1 end;
end;
end;{if}
gotoxy(x,y);
write(' ');
inc(x,vx);
inc(y,vy);
if (x=xe) and (y=ye) then begin
i:=i+1;
clrscr;
xe:=random(70);
ye:=random(20);
gotoXY(xe,ye);
write('a');
end;
end;{while}
write('i=',i);
end.
М | Ставь теги!! Lapp |
[quote name='Илья S.' date='24.12.2006 14:55' post='85838']
Э то значит что когда я задаю задержку по времени у меня сначала движется бошка а через время которое я задаю движется хвост, а нужно чтобы все точки двигались последовательно плавно и равномерно!
ПОМОГИТЕ!!!!!!!! К этой пятнице последний срок.
МИФИст? =))
Не понял про задержку, но решил добавить хвост, там его не было совсем. Добавил буквально 3 строки:
uses crt;
const
h='@';
xmin=1;
ymin=1;
xmax=80;
ymax=25;
var
x,y,vx,vy:integer;
cx,cy:array [0..99] of byte;
ch:char;
ps,xe,ye,i:integer;
begin
clrscr;
Randomize;
x:=xmin; ps:=0;
y:=ymax div 2;
xe:=12;
ye:=12;
gotoxy(xe,ye);
write ('a');
while (x>=1) and (x<=80) and (y>=1) and (y<=25) do begin
ps:=(ps+101) mod 100;
GoTOXY(x,y); cx[ps]:=x; cy[ps]:=y;
write(h);
delay(100);
if keypressed then begin
ch:=readkey;
case ch of
'd':begin vx:=1; vy:=0 end;
'a':begin vx:=-1; vy:=0 end;
'w':begin vx:=0; vy:=-1 end;
's':begin vx:=0; vy:=1 end;
end;
end;{if}
gotoxy(cx[(ps-i+100) mod 100],cy[(ps-i+100) mod 100]);
write(' ');
inc(x,vx);
inc(y,vy);
if (x=xe) and (y=ye) then begin
i:=i+1;
clrscr;
xe:=random(70);
ye:=random(20);
gotoXY(xe,ye);
write('a');
end;
end;{while}
write('i=',i);
end.
Народ оцените.......
Прикрепленные файлы
TICTACTO.PAS ( 22.93 килобайт )
Кол-во скачиваний: 440
Да уж действительно... Причём тут змейка??? Не в тему!
Чё то много больно глюков в твоих крестиках ноликах... (имеется ввиду в оформление)
Контроль ввода вообще тупит...
Меню почему то мигает при передвижение...
Единственное, что бросилось в глаза - это мерцание цветных точек слева при самой игре... гламурненько.
А так вообще в целом на троечку я бы оценил... не в обиду!
P.S. сам просто с дизайном люблю работать в играх всяких и тому подобное...