诛仙走路CALL,寻路CALL 给新手参考一下吧

点着烟看寂寞

诛仙走路CALL,寻路CALL,以前用的！给新手参考一下吧

procedure CallAutoWalk(p: Autogo);stdcall;              //自动寻路call  
var
  goAddr:pointer;
  gox,goy:Single;
begin
  gox:=p^.x;
  goy:=p^.y;
  goAddr:=pointer(AutogoBase);
  try
   asm
    pushad
    mov eax, gox
    mov [AutogoBase1], eax
    //mov eax, goz
    mov eax, 0
    mov [AutogoBase1+$4], eax
    mov eax, goy
    mov [AutogoBase1+$8], eax
    push 0
      mov eax, Base1
      mov eax, [eax]
      mov eax, [eax+$1c]
      mov eax, [eax+$8]
      mov eax, [eax+$90]
      push eax//地图代码  
   mov eax, Base1
      mov eax, [eax]
      mov eax, [eax+$1c]
      mov eax, [eax+$28]
      add eax, $3c
    push AutogoBase1
    push eax
    mov  ecx, AutogoCallBase
    call goAddr
    popad
   end;
  except
   exit;
  end;
end;

procedure Go(p: Autogo);stdcall;                //走路CALL  

游客，如果您要查看本帖隐藏内容请回复