感谢1401唐悦阳同学提供
uses crt;
var
x,y:byte;
c:char;
procedure move;
begin
clrscr;
gotoxy(x,y);
write('●ω●');
end;
procedure still;
begin
clrscr;
gotoxy(x,y);
write(' -ω- ');
end;
procedure k;
begin
still;
delay(200);
clrscr;
move;
delay(300);
still;
end;
begin
cursoroff;
x:=39;
y:=11;
still;
while true do begin
if keypressed then begin
c:=readkey;
if c='k' then k;
end;
end;
end.
