看看我的程序:
  //有些地方有错!!  大家帮我找找!谢谢大家啦!![em12]
const dx:array[1..8] of shortint=(1,-1,0,0,1,1,-1,-1);
      dy:array[1..8] of shortint=(0,0,1,-1,1,-1,1,-1);
var i,j,t,x1,x2,y1,y2,n,m,h,cl,op:integer;
    s,att,visited:array[0..201,0..201] of boolean;
    x,y:array[0..20000] of integer;
    c:char;
procedure deal(x,y:integer);
 var a,b,k:integer;
 begin
  for k:=1 to 8 do
   begin
    a:=x+dx[k];b:=y+dy[k];
    while (a>0)and(b>0)and(a<=n)and(b<=m)and(s[a,b]=false) do
     begin
      att[a,b]:=true;
      a:=a+dx[k];b:=b+dy[k];
     end;
   end;
 end;
procedure expand;
 var a,b,k:integer;
 begin
  x[1]:=x2;y[1]:=y2;
  if att[x2,y2] then begin writeln('0'); exit; end;
  repeat
   inc(cl);inc(t);
   for k:=1 to 4 do
    begin
     a:=x[cl]+dx[k];b:=y[cl]+dy[k];
     if (a>0)and(b>0)and(a<=n)and(b<=m)and(s[a,b]=false)and(visited[a,b]=false) then
      begin
       inc(op);
       visited[a,b]:=true;
       x[op]:=a;y[op]:=b;
       if att[a,b] then begin h:=1; break; end;
      end;
    end;
   if h=1 then break;
  until cl>op;
  if h=0 then writeln('Impossible!')
         else writeln(t);
 end;
begin
 readln(n,m);
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     read(c);
     if c='X' then s[i,j]:=true
              else s[i,j]:=false;
    end;
   readln;
  end;
 repeat
   readln(x1,y1,x2,y2);
   fillchar(att,sizeof(att),false);
   fillchar(visited,sizeof(visited),false);
   fillchar(x,sizeof(x),0);
   fillchar(y,sizeof(y),0);
   h:=0;t:=0;cl:=0;op:=1;
   deal(x1,y1);
   if x1<>0 then expand;
  until x1=0;
end.

林月如要是会乾坤一掷就不用这么麻烦了..^_^

那女飞贼会移动吗?

[color=FF0000][size=5]Notice:[/size][/color]:[size=4]女飞贼不移动![/size]

那就简单,直接用深搜搜索出一条可以打到女飞贼的最短路径