完美国际坐标查看器（可更新）

EXE下载：http://files.cnblogs.com/xe2011/EXE_wmgjZBViewer2014-3-5-101313.7z

源码下载：http://files.cnblogs.com/xe2011/PASCAL_wmgjZBViewer2014-2-26-195325.7z

[人物配置]
;默认为1.5.1的游戏数据
;当游戏版本升级时可以手动修改基址，2级偏移有时会改变
;PosX=[[[C0C68C]+1C]+34]+3c//主角坐标X 取整（坐标/10）+400
;PosY=[[[C0C68C]+1C]+34]+40//主角坐标Z 取整（坐标/10）
;PosZ=[[[C0C68C]+1C]+34]+44//主角坐标Y 取整（坐标/10）+550

;【1.5.1 游戏数据】
;hpmin=[[[00C7ABCC]+1c]+2c]+4a8
;二级偏移地址改变了
游戏基址=$00C7ABCC
一级偏移地址=$1C
二级偏移地址=$2C
X坐标偏移地址=$3C
Y坐标偏移地址=$40
Z坐标偏移地址=$44

;【1.4.8 游戏数据】
;游戏基址=$C0C68C
;一级偏移地址=$1C
;二级偏移地址=$34
;X坐标偏移地址=$3C
;Y坐标偏移地址=$40
;Z坐标偏移地址=$44

;【1.4.6 游戏数据】
;游戏基址=$BBC26C
;一级偏移地址=$1C
;二级偏移地址=$34
;X坐标偏移地址=$3C
;Y坐标偏移地址=$40
;Z坐标偏移地址=$44

完美国际坐标查看器（可手动更新数据）
提供源码下载
默认是1.4.8的数据
其他的版本请自行修改游戏基址=$C0C68C;
比如1.4.6 游戏基址=$BBC26C;
基址会有CE找的就用CE找 不会用的就找K25外挂里面也有基地把他的基址抄过来

本程序的功能
配合 NPC编辑器可以发挥最大的功能 复制坐标功能

可以转换坐标把游戏内部的坐标转换成当前显示的坐标

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm2 = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Timer1: TTimer;
GroupBox2: TGroupBox;
Edit4: TEdit;
Label4: TLabel;
Label5: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Edit2Click(Sender: TObject);
procedure Edit3Click(Sender: TObject);
procedure Edit1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit4Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure Transform1;
procedure Transform2;

end;

var
Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}
//    PosX:=Trunc(PosX/10+400); //x坐=取整数部分（坐标/10）+400
//    PosY:=Trunc(PosY/10);     //z坐标=取整数部分（坐标/10）
//    PosZ:=Trunc(PosZ/10+550); //Y坐标=取整数部分（坐标/10）+550
//
//游戏显示坐标
procedure TForm2.Timer1Timer(Sender: TObject);
begin
FormStyle:=fsStayOnTop;
end;

procedure TForm2.Transform1;
var
x,y,z:Single;
x1,y1,z1:string;
begin
x:= StrToFloat(Edit1.Text);
x1:=Format('%d',[Round(x/10)+400]);  //X坐=取整数部分（坐标/10）+400

y:= StrToFloat(Edit2.Text);
y1:=Format('%d',[Round(y/10)]);  //Y坐标=取整数部分（坐标/10）

z:= StrToFloat(Edit3.Text);
z1:=Format('%d',[Round(z/10)+550]);  //Z坐标=取整数部分（坐标/10）+550

Edit4.Text:=x1+' '+z1;
Label5.Caption:=' ↑'+y1;
end;

//游戏内部实际坐标
procedure TForm2.Transform2;
begin

end;

procedure TForm2.Button1Click(Sender: TObject);
begin
Transform1;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
Edit4.SelectAll;
Edit4.CopyToClipboard;
end;

procedure TForm2.Edit1Click(Sender: TObject);
begin
Edit1.SelectAll;
end;

procedure TForm2.Edit2Click(Sender: TObject);
begin
Edit2.SelectAll;
end;

procedure TForm2.Edit3Click(Sender: TObject);
begin
Edit3.SelectAll;
end;

procedure TForm2.Edit4Click(Sender: TObject);
begin
Edit4.SelectAll;
end;

end.

UNIT2

[人物配置]
;完美国际数据可以手动修改
;默认为1.4.8服务端的数据
;PosX=[[[C0C68C]+1C]+34]+3c//主角坐标X 取整（坐标/10）+400
;PosY=[[[C0C68C]+1C]+34]+40//主角坐标Z 取整（坐标/10）
;PosZ=[[[C0C68C]+1C]+34]+44//主角坐标Y 取整（坐标/10）+550
;1.4.6 游戏基址=$BBC26C
;1.4.8 游戏基址=$C0C68C

游戏基址=$C0C68C
一级偏移地址=$1C
二级偏移地址=$34
X坐标偏移地址=$3C
Y坐标偏移地址=$40
Z坐标偏移地址=$44