暑假了无聊做一个关于对战的。还是只有crt；目前这个版本简直比贪吃蛇还无聊，因为只编了几个小时。我会陆续更新的。希望不要又成为一个坟贴。

uses crt;
var h:boolean;k:char;x,y,move,w:integer;
procedure walk;
begin
delay(w);
gotoxy(x,y);
if w=300 then write(' ');
if w=100 then begin
textcolor(30);
if move=1 then begin write('‖');gotoxy(x,y+1);write(' ');
gotoxy(x-2,y+1);write(' ');gotoxy(x+2,y+1);write(' ');end;
if move=2 then begin write('‖');gotoxy(x,y-1);write(' ');
gotoxy(x-2,y-1);write(' ');gotoxy(x+2,y-1);write(' ');end;
if move=3 then begin write('＝');gotoxy(x+2,y);write(' ');
gotoxy(x+2,y-1);write(' ');gotoxy(x+2,y+1);write(' ');end;
if move=4 then begin write('＝');gotoxy(x-2,y);write(' ');
gotoxy(x-2,y-1);write(' ');gotoxy(x-2,y+1);write(' ');end;
textcolor(27);
end;
if move=1 then y:=y-1;
if move=2 then y:=y+1;
if move=3 then x:=x-2;
if move=4 then x:=x+2;
gotoxy(x,y);write('◎');
end;
begin
cursoroff;w:=300;
move:=4;x:=1;y:=1;
repeat
h:=keypressed;
if h then
begin
k:=readkey;
if k='w' then move:=1;
if k='s' then move:=2;
if k='a' then move:=3;
if k='d' then move:=4;
if k='r' then begin
w:=100;end;
walk;
end else walk;
until move=5;
end.

果然是因为太烂没人吗，下个版本做一个木头人好了。

菜鸟
前排
围观

好吧做个墙壁。还有按r开大。

e是直接运行吗？在pascal里吗？

完全看不懂

什么鬼啊