unit GameProc;
interface
uses
SysUtils,
Windows,
Messages;
(*有参数*)
procedure SelMonster(ID1:DWORD); {选中目标ID 所有可以选中的对象}
procedure skill(ID:DWORD); {使用技能}
procedure RecoverMe(ID1,ID2:Integer); {吃红,蓝}
procedure pickUpGoods(ID1,ID2:DWORD); {带参数 拾物}
procedure Goforward(x,y,z: single); {走路CALL向目标地方前进}
procedure SendKey(Str:string); {按键模拟}
procedure F1_F8(Str:string); {技能栏F1-F8}
procedure Key1_8(Str:string); {技能栏1-9}
procedure Expression(str:string); {表情}
procedure SitDown(str:string); {打坐}
procedure TglWalkRun(str:string); {走跑切换}
procedure addPoint(ID1,ID2,ID3,ID4:DWORD);{加属性点}
procedure wakuang(ID1,ID2:DWORD); {挖矿}
procedure sell(ID1,ID2,ID3:DWORD); {出售物品}
procedure buy(ID1,ID2,ID3:DWORD); {购买物品}
procedure sendMsg(s:pchar); {喊话}
procedure throwpckObj(ID1,ID2:DWORD); {扔出物品}
(*无参数*)
procedure normalAttack(); {普通攻击}
procedure PickUp(); {拾物}
procedure fly(); {飞行}
procedure flyEx(); {加速飞行}
procedure hellolove(); {相依相偎}
procedure InviteTeam(); {邀请加入队伍}
procedure LeftTeam(); {离开队伍}
procedure DieBackCity(); {死亡回城}
procedure useFhjz(); {使用复活卷轴}
procedure acceptAlive(); {接受复活}
procedure LetMefly(str:string); {BT飞行}
procedure RepairAll(); {全修}
procedure CancelSelect(); {取消选择}
implementation
(*期待添加*)
{答题CALL}
{BT-飞行}
{BT-穿墙}
{BT-连跳}
{BT-隐藏建筑}
/// <summary>
/// 喊话CALL
/// </summary>
///喊话CALL不正确
procedure sendMsg(s:pchar);
var calltxt:PWideChar;//宽字符类型指针
begin
callTxt:=allocmem(512); //把S字串的编码格式转成UNICODE存放在CallTxt里
stringToWideChar(s,calltxt,256);//Ascii码编码转换成UNICODE编码
asm
MOV EDX,[$924E0C]
MOV EAX,[EDX+$1C]
MOV ECX,[EAX+$20]
MOV EDX,[ECX+$0CB8]
push 0
push calltxt //喊话内容地址
mov ebx,$004722A0
CALL ebx
end;
end;
{3种药品的买卖 :红，蓝，弹药}
/// <summary>
/// 购买物品
/// </summary>
/// <param name="ID1">红药ID标识/param>
/// <param name="ID2">在商店里的背包数组下标/param>
/// <param name="ID3">购买物品数量/param>
procedure buy(ID1,ID2,ID3:DWORD);
var a:array[1..3] of integer;
begin
a[1]:=ID1;//$000021A6; //红药ID标识
a[2]:=ID2;//7; //在商店里的背包数组下标
a[3]:=ID3;//64; //购买物品数量
asm
lea eax,a
mov ecx,eax
push ecx
push 1
mov ebx,$005A8590
CALL ebx
ADD ESP,8
end;
end;
/// <summary>
/// 出售物品
/// </summary>
/// <param name="ID1">红药ID标识/param>
/// <param name="ID2">自己背包数组下标/param>
/// <param name="ID3">出售物品数量/param>
procedure sell(ID1,ID2,ID3:DWORD);
var a:array[1..3] of integer;
begin
a[1]:=ID1;//$000021A6; //红药ID标识
a[2]:=ID2;//7; //自己背包数组下标
a[3]:=ID3;//64; //出售物品数量
asm
lea eax,a
mov ecx,eax
push ecx
push 1
mov ebx,$005A8610
CALL ebx
ADD ESP,8
end;
end;
/// <summary>
/// 挖矿
/// </summary>
/// <param name="ID1">矿铲所在包裹的位置/param>
/// <param name="ID2">地面系统物品ID/param>
procedure wakuang(ID1,ID2:DWORD);
begin
ASM
PUSH 0
PUSH $0C01 //矿产ID号
PUSH ID1 // 包裹ID号(矿铲所在包裹的位置)
PUSH 0
PUSH ID2 //石矿 地面系统物品ID EDX=00000000
MOV EBX,$005A73A0
CALL EBX
ADD ESP,$14
END;
end;
/// <summary>
/// 加属性点
/// </summary>
/// <param name= "ID1">敏捷/param>
/// <param name="ID2">力量/param>
/// <param name= "ID3">灵力/param>
/// <param name= "ID4">体质/param>
procedure addPoint(ID1,ID2,ID3,ID4:DWORD);
begin
ASM
push ID1 //敏捷
push ID2 //力量
push ID3 //灵力
push ID4 //体质
MOV EBX,$005A7050
CALL EBX
ADD ESP,10
END;
end;
/// <summary>
/// 走路CALL向目标地方前进
/// </summary>
/// <param name="x">目的坐标平面X/param>
/// <param name="y">目的坐标平面Y/param>
/// <param name="z">目的坐标高度Z/param>
procedure Goforward(x,y,z: single);
var
c1,c2,c3,c4: DWORD;
xyz,xyz1: array[1..3] of single;
begin
c1 := $0045d880;
c2 := $00461280;
c3 := $004613a0;
c4 := $0045dc80;
xyz[1] := x; //目的坐标平面X
xyz[2] := z; //目的坐标高度Y
xyz[3] := y; //目的坐标平面Z
xyz1[1] := -0.03659384;
xyz1[2] := 0.9992558;
xyz1[3] := 0.01219795;
ASM
//MOV ECX,[ESI+BB8]= [[[00924E0C]+1C]+20]+0BB8
MOV ESI,[$924E0C]
MOV ESI,[ESI+$1C]
MOV ESI,[ESI+$20]
MOV ECX,[ESI+$0BB8]
//CALL 1
PUSH 1
CALL C1 //直接不能CALL 用变量能CALL?!
//CALL2
MOV EDI,EAX
LEA EAX,XYZ
PUSH EAX //目的地 地址
PUSH 0
MOV ECX,EDI
CALL C2
//CALL 3
LEA ECX,XYZ1 //目的地 地址
LEA EDX,XYZ //目的地 地址
PUSH ECX
PUSH EDX
MOV ECX,EDI
CALL C3
//CALL 4
PUSH 0
PUSH 1
PUSH EDI
MOV ECX,[ESI+$0BB8]
PUSH 1
CALL C4
END;
END;
/// <summary>
/// 选怪
/// </summary>
/// <param name="ID1">目标的ID号，所有可以选中的对象/param>
procedure SelMonster(ID1:DWORD);
begin
ASM
MOV EAX,[$924E0C]
PUSH ID1 //目标ID号
MOV ECX,[EAX+$20]
ADD ECX,$0EC
MOV EBX,$005830D0
CALL EBX
END;
end;
/// <summary>
/// 取消选怪
/// </summary>
procedure CancelSelect();
begin
asm
mov ebx,$005A7320
call ebx
end;
end;
/// <summary>
/// 使用技能
/// </summary>
/// <param name="ID">技能ID号/param>
procedure skill(ID:DWORD);
begin
ASM
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
PUSH -1
PUSH 0
PUSH 0
PUSH ID //技能ID
MOV EBX,$00455860
CALL EBX
END;
end;
/// <summary>
/// 吃红/蓝
/// </summary>
/// <param name="ID1">物品类型/param>
/// <param name="ID2">包裹ID号/param>
procedure RecoverMe(ID1,ID2:Integer);
begin
ASM
PUSH 1
PUSH ID1 {EDX=包裹里的物品的类型}
PUSH ID2 {EAX背包格子ID号}
PUSH 0
MOV ECX,[$924E0C]
MOV ECX,[ECX+$20]
LEA ECX,[ECX+$0EC]
MOV EBX,$00582E70
CALL EBX
END;
end;
/// <summary>
/// 捡物
/// </summary>
/// <param name="ID1">物品IDparam>
/// <param name="ID2">系统物品ID/param>
procedure pickUpGoods(ID1,ID2:DWORD);
begin
ASM
MOV ECX,[$924E0C]
PUSH ID1 //4FAA {物品ID}
PUSH ID2 //0C01014BD {系统ID}
MOV ECX,[ECX+$20]
ADD ECX,$0EC
MOV EBX,$00583060
CALL EBX
END;
end;
/// <summary>
/// 走跑切换
/// </summary>
/// <param name="VALUE">走和跑的地址/param>
procedure TglWalkRun(str:string);
var
Value:DWORD;
begin
if str='走' then Value:=0;
if str='跑' then Value:=1;
ASM
PUSH VALUE {0-> 走 1->跑}
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
MOV EBX,$00449A50
CALL EBX
END;
end;
/// <summary>
/// 打坐
/// </summary>
/// <param name="VALUE">打坐和起立的CALL地址/param>
procedure SitDown(str:string);
var
Value:DWORD;
begin
if str='坐下' then Value:=$701;
if str='起立' then Value:=$700;
ASM
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
SHR EAX,5
NOT AL
AND AL,1
PUSH VALUE {打坐CALL 701 坐下 700取消坐下}
MOV EBX,$00449A20
CALL EBX
END;
end;
/// <summary>
/// 表情
/// </summary>
/// <param name="Id">表情动作ID号/param>
procedure Expression(str:string);
var
ID:integer;
begin
Id:=0;
if str = '招手' then ID:=0;
if str = '点头' then ID:=1;
if str = '摇头' then ID:=2;
if str = '耸肩膀' then ID:=3;
if str = '大笑' then ID:=4;
if str = '生气' then ID:=5;
if str = '晕倒' then ID:=6;
if str = '沮丧' then ID:=7;
if str = '飞吻' then ID:=8;
if str = '害羞' then ID:=9;
if str = '抱拳' then ID:=10;
if str = '坐下' then ID:=11;
if str = '冲锋' then ID:=12;
if str = '思考' then ID:=13;
if str = '挑衅' then ID:=14;
if str = '胜利' then ID:=15;
if str = '伸懒腰' then ID:=16;
if str = '战斗' then ID:=17;
if str = '攻击1' then ID:=18;
if str = '攻击2' then ID:=19;
if str = '攻击3' then ID:=20;
if str = '攻击4' then ID:=21;
if str = '防御' then ID:=22;
if str = '摔倒' then ID:=23;
if str = '倒地' then ID:=24;
if str = '张望' then ID:=25;
if str = '舞蹈' then ID:=26;
ASM
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
PUSH ID //表情动作ID号 第1个表情为0 第n个表情为 n-1 0..26
MOV EBX,$0044A150
CALL EBX
END;
end;
/// <summary>
/// 打开NPC对话框
/// </summary>
/// <param name="ID">NPC的ID号/param>
procedure OpenNpcDlg(ID:DWORD);
begin
asm
MOV ECX,[$924E0C]
PUSH ID //NPC ID号
MOV ECX,[ECX+$20]
ADD ECX,$0EC
MOV EBX,$00583490
CALL EBX
end;
end;
/// <summary>
/// 扔掉物品
/// </summary>
/// <param name="ID1">物品数量/param>
/// <param name="ID2">物品所在的包裹位置/param>
procedure throwpckObj(ID1,ID2:DWORD);
begin
asm
mov eax,[$924e0c]
mov eax,[eax+$20]
push ID1
push ID2
mov ebx,$0058DEB0
CALL ebx
end;
end;
/// <summary>
/// 普通攻击
/// </summary>
procedure normalAttack();
begin
asm
PUSH -1
PUSH 0
PUSH 0
PUSH 0
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
MOV EBX,$00449A60
CALL EBX
end;
end;
/// <summary>
/// 飞行
/// </summary>
procedure fly();
begin
asm
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
MOV EBX,$00449B50
CALL EBX
end;
end;
/// <summary>
/// 接受复活
/// </summary>
procedure acceptAlive();
begin
asm
MOV EBX,$005A7A10
CALL EBX
end;
end;
/// <summary>
/// 使用复活卷轴
/// </summary>
procedure useFhjz();
begin
asm
MOV ECX,[$924E0C]
MOV ECX,[ECX+$20]
LEA ECX,[ECX+$0EC]
MOV EBX,$005831E0
CALL EBX
end;
end;
/// <summary>
/// 死亡回城
/// </summary>
procedure DieBackCity();
begin
asm
MOV ECX,[$924E0C]
MOV ECX,[ECX+$20]
LEA ECX,[ECX+$0EC]
MOV EBX,$00583190
CALL EBX
end;
end;
/// <summary>
/// 拾物
/// </summary>
procedure PickUp();
begin
asm
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
MOV EBX,$00449BF0
CALL EBX
end;
end;
/// <summary>
/// 邀请加入队伍
/// </summary>
procedure InviteTeam();
begin
asm
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
MOV EBX,$0044A030
CALL EBX
end;
end;
/// <summary>
/// 离开队伍
/// </summary>
procedure LeftTeam();
begin
asm
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
MOV EBX,$0044A060
CALL EBX
end;
end;
/// <summary>
/// 加速飞行
/// </summary>
procedure flyEx();
begin
asm
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
MOV EBX,$00449CD0
CALL EBX
end;
end;
/// <summary>
/// 相依相偎
/// </summary>
procedure hellolove();
begin
asm
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
PUSH 60
MOV EBX,$00449D20
CALL EBX
end;
end;
/// <summary>
/// 全修 身上的装备全修 需要打开NPC对话框
/// </summary>
procedure RepairAll();
begin
ASM
PUSH -1
PUSH 0
PUSH 0
MOV EBX,$005A8690
CALL EBX
ADD ESP,$0C
END;
end;
/////////多数汇编写/////////////////////////////////////////
/// <summary>
/// 技能栏F1-F8
/// </summary>
/// <param name="ID">技能ID号/param>
procedure F1_F8(Str:string);
var
Index:integer;
pECX:pInteger;
begin
Index:=1;
if Str='F1' then Index:=1;
if Str='F2' then Index:=2;
if Str='F3' then Index:=3;
if Str='F4' then Index:=4;
if Str='F5' then Index:=5;
if Str='F6' then Index:=6;
if Str='F7' then Index:=7;
if Str='F8' then Index:=8;
Index:=(Index-1)*4;
pECX:=Pointer($924E0C); //
pECX:=Pointer(pECX^+$1C);
pECX:=Pointer(pECX^+$20);
pECX:=Pointer(pECX^+$0BAC);//$0BAC=1*4+0BA8 F1~F8
pECX:=Pointer(pECX^+$C);
pECX:=Pointer(pECX^+Index);
if pEcx^=0 then Exit; //如果相应栏上没有放对象则退出 =[[[[[924E0C]+1C]+20]+1*4+0BA8]+C]+Ebx*4 =0
pEcx:=pInteger(pEcx^);
ASM
MOV ECX,PECX
MOV EDX,[ECX]
MOV EDX,[EDX+$8]
CALL EDX
END;
end;
/////////多数汇编写/////////////////////////////////////////
/// <summary>
/// Key1_8
/// </summary>
/// <param name="ID">技能ID号/param>
procedure Key1_8(Str:string);
var
Index:integer;
pECX:pInteger;
begin
Index:=1;
if Str='1' then Index:=1;
if Str='2' then Index:=2;
if Str='3' then Index:=3;
if Str='4' then Index:=4;
if Str='5' then Index:=5;
if Str='6' then Index:=6;
if Str='7' then Index:=7;
if Str='8' then Index:=8;
if Str='9' then Index:=9;
Index:=(Index-1)*4;
pECX:=Pointer($924E0C); //
pECX:=Pointer(pECX^+$1C);
pECX:=Pointer(pECX^+$20);
pECX:=Pointer(pECX^+$0BA0);//$BA0 =1*4+0B9C 1~9
pECX:=Pointer(pECX^+$C);
pECX:=Pointer(pECX^+Index);
if pEcx^=0 then Exit; //如果相应栏上没有放对象则退出 =dd [[[[[924E0C]+1C]+20]+1*4+0B9C]+C]+0*4 =0
pEcx:=pInteger(pEcx^);
asm
MOV ECX,pECX
MOV EDX,[ECX]
MOV EDX,[EDX+$8]
CALL EDX
end;
end;
/// <summary>
/// BT飞行
/// </summary>
/// <param name="FLYADDRESS">人物飞行后的数值/param>
procedure LetMefly(str:string);
var
flyaddress:DWORD;
begin
if Str= '_on' then flyaddress:=$0E010;
if Str='_off' then flyaddress:=$0E000;
ASM
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
MOV EAX,FLYADDRESS { 0E010->飞行 0E000->没飞}
MOV [ECX+$062C],EAX
END;
end;
/// <summary>
/// 按键模拟
/// </summary>
/// <param name="ID">技能ID号/param>
procedure SendKey(Str:string);
Var
MyHwnd:HWND;
KeyValue:integer;
begin
KeyValue:=VK_F1;
{功能模拟发送按键:1~9,F1~F8}
MyHwnd:=FindWindow(nil,'Element Client');
if Str='1' then KeyValue:=49;
if Str='2' then KeyValue:=50;
if Str='3' then KeyValue:=51;
if Str='4' then KeyValue:=52;
if Str='5' then KeyValue:=53;
if Str='6' then KeyValue:=54;
if Str='7' then KeyValue:=55;
if Str='8' then KeyValue:=56;
if Str='9' then KeyValue:=57;
if Str='F1' then KeyValue:=VK_F1;
if Str='F2' then KeyValue:=VK_F2;
if Str='F3' then KeyValue:=VK_F3;
if Str='F4' then KeyValue:=VK_F4;
if Str='F5' then KeyValue:=VK_F5;
if Str='F6' then KeyValue:=VK_F6;
if Str='F7' then KeyValue:=VK_F7;
if Str='F8' then KeyValue:=VK_F8;
sendmessage(MyHwnd,wm_keydown,KeyValue,0);
sendmessage(MyHwnd,wm_keyup,KeyValue,0);
end;
end.
interface
uses
SysUtils,
Windows,
Messages;
(*有参数*)
procedure SelMonster(ID1:DWORD); {选中目标ID 所有可以选中的对象}
procedure skill(ID:DWORD); {使用技能}
procedure RecoverMe(ID1,ID2:Integer); {吃红,蓝}
procedure pickUpGoods(ID1,ID2:DWORD); {带参数 拾物}
procedure Goforward(x,y,z: single); {走路CALL向目标地方前进}
procedure SendKey(Str:string); {按键模拟}
procedure F1_F8(Str:string); {技能栏F1-F8}
procedure Key1_8(Str:string); {技能栏1-9}
procedure Expression(str:string); {表情}
procedure SitDown(str:string); {打坐}
procedure TglWalkRun(str:string); {走跑切换}
procedure addPoint(ID1,ID2,ID3,ID4:DWORD);{加属性点}
procedure wakuang(ID1,ID2:DWORD); {挖矿}
procedure sell(ID1,ID2,ID3:DWORD); {出售物品}
procedure buy(ID1,ID2,ID3:DWORD); {购买物品}
procedure sendMsg(s:pchar); {喊话}
procedure throwpckObj(ID1,ID2:DWORD); {扔出物品}
(*无参数*)
procedure normalAttack(); {普通攻击}
procedure PickUp(); {拾物}
procedure fly(); {飞行}
procedure flyEx(); {加速飞行}
procedure hellolove(); {相依相偎}
procedure InviteTeam(); {邀请加入队伍}
procedure LeftTeam(); {离开队伍}
procedure DieBackCity(); {死亡回城}
procedure useFhjz(); {使用复活卷轴}
procedure acceptAlive(); {接受复活}
procedure LetMefly(str:string); {BT飞行}
procedure RepairAll(); {全修}
procedure CancelSelect(); {取消选择}
implementation
(*期待添加*)
{答题CALL}
{BT-飞行}
{BT-穿墙}
{BT-连跳}
{BT-隐藏建筑}
/// <summary>
/// 喊话CALL
/// </summary>
///喊话CALL不正确
procedure sendMsg(s:pchar);
var calltxt:PWideChar;//宽字符类型指针
begin
callTxt:=allocmem(512); //把S字串的编码格式转成UNICODE存放在CallTxt里
stringToWideChar(s,calltxt,256);//Ascii码编码转换成UNICODE编码
asm
MOV EDX,[$924E0C]
MOV EAX,[EDX+$1C]
MOV ECX,[EAX+$20]
MOV EDX,[ECX+$0CB8]
push 0
push calltxt //喊话内容地址
mov ebx,$004722A0
CALL ebx
end;
end;
{3种药品的买卖 :红，蓝，弹药}
/// <summary>
/// 购买物品
/// </summary>
/// <param name="ID1">红药ID标识/param>
/// <param name="ID2">在商店里的背包数组下标/param>
/// <param name="ID3">购买物品数量/param>
procedure buy(ID1,ID2,ID3:DWORD);
var a:array[1..3] of integer;
begin
a[1]:=ID1;//$000021A6; //红药ID标识
a[2]:=ID2;//7; //在商店里的背包数组下标
a[3]:=ID3;//64; //购买物品数量
asm
lea eax,a
mov ecx,eax
push ecx
push 1
mov ebx,$005A8590
CALL ebx
ADD ESP,8
end;
end;
/// <summary>
/// 出售物品
/// </summary>
/// <param name="ID1">红药ID标识/param>
/// <param name="ID2">自己背包数组下标/param>
/// <param name="ID3">出售物品数量/param>
procedure sell(ID1,ID2,ID3:DWORD);
var a:array[1..3] of integer;
begin
a[1]:=ID1;//$000021A6; //红药ID标识
a[2]:=ID2;//7; //自己背包数组下标
a[3]:=ID3;//64; //出售物品数量
asm
lea eax,a
mov ecx,eax
push ecx
push 1
mov ebx,$005A8610
CALL ebx
ADD ESP,8
end;
end;
/// <summary>
/// 挖矿
/// </summary>
/// <param name="ID1">矿铲所在包裹的位置/param>
/// <param name="ID2">地面系统物品ID/param>
procedure wakuang(ID1,ID2:DWORD);
begin
ASM
PUSH 0
PUSH $0C01 //矿产ID号
PUSH ID1 // 包裹ID号(矿铲所在包裹的位置)
PUSH 0
PUSH ID2 //石矿 地面系统物品ID EDX=00000000
MOV EBX,$005A73A0
CALL EBX
ADD ESP,$14
END;
end;
/// <summary>
/// 加属性点
/// </summary>
/// <param name= "ID1">敏捷/param>
/// <param name="ID2">力量/param>
/// <param name= "ID3">灵力/param>
/// <param name= "ID4">体质/param>
procedure addPoint(ID1,ID2,ID3,ID4:DWORD);
begin
ASM
push ID1 //敏捷
push ID2 //力量
push ID3 //灵力
push ID4 //体质
MOV EBX,$005A7050
CALL EBX
ADD ESP,10
END;
end;
/// <summary>
/// 走路CALL向目标地方前进
/// </summary>
/// <param name="x">目的坐标平面X/param>
/// <param name="y">目的坐标平面Y/param>
/// <param name="z">目的坐标高度Z/param>
procedure Goforward(x,y,z: single);
var
c1,c2,c3,c4: DWORD;
xyz,xyz1: array[1..3] of single;
begin
c1 := $0045d880;
c2 := $00461280;
c3 := $004613a0;
c4 := $0045dc80;
xyz[1] := x; //目的坐标平面X
xyz[2] := z; //目的坐标高度Y
xyz[3] := y; //目的坐标平面Z
xyz1[1] := -0.03659384;
xyz1[2] := 0.9992558;
xyz1[3] := 0.01219795;
ASM
//MOV ECX,[ESI+BB8]= [[[00924E0C]+1C]+20]+0BB8
MOV ESI,[$924E0C]
MOV ESI,[ESI+$1C]
MOV ESI,[ESI+$20]
MOV ECX,[ESI+$0BB8]
//CALL 1
PUSH 1
CALL C1 //直接不能CALL 用变量能CALL?!
//CALL2
MOV EDI,EAX
LEA EAX,XYZ
PUSH EAX //目的地 地址
PUSH 0
MOV ECX,EDI
CALL C2
//CALL 3
LEA ECX,XYZ1 //目的地 地址
LEA EDX,XYZ //目的地 地址
PUSH ECX
PUSH EDX
MOV ECX,EDI
CALL C3
//CALL 4
PUSH 0
PUSH 1
PUSH EDI
MOV ECX,[ESI+$0BB8]
PUSH 1
CALL C4
END;
END;
/// <summary>
/// 选怪
/// </summary>
/// <param name="ID1">目标的ID号，所有可以选中的对象/param>
procedure SelMonster(ID1:DWORD);
begin
ASM
MOV EAX,[$924E0C]
PUSH ID1 //目标ID号
MOV ECX,[EAX+$20]
ADD ECX,$0EC
MOV EBX,$005830D0
CALL EBX
END;
end;
/// <summary>
/// 取消选怪
/// </summary>
procedure CancelSelect();
begin
asm
mov ebx,$005A7320
call ebx
end;
end;
/// <summary>
/// 使用技能
/// </summary>
/// <param name="ID">技能ID号/param>
procedure skill(ID:DWORD);
begin
ASM
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
PUSH -1
PUSH 0
PUSH 0
PUSH ID //技能ID
MOV EBX,$00455860
CALL EBX
END;
end;
/// <summary>
/// 吃红/蓝
/// </summary>
/// <param name="ID1">物品类型/param>
/// <param name="ID2">包裹ID号/param>
procedure RecoverMe(ID1,ID2:Integer);
begin
ASM
PUSH 1
PUSH ID1 {EDX=包裹里的物品的类型}
PUSH ID2 {EAX背包格子ID号}
PUSH 0
MOV ECX,[$924E0C]
MOV ECX,[ECX+$20]
LEA ECX,[ECX+$0EC]
MOV EBX,$00582E70
CALL EBX
END;
end;
/// <summary>
/// 捡物
/// </summary>
/// <param name="ID1">物品IDparam>
/// <param name="ID2">系统物品ID/param>
procedure pickUpGoods(ID1,ID2:DWORD);
begin
ASM
MOV ECX,[$924E0C]
PUSH ID1 //4FAA {物品ID}
PUSH ID2 //0C01014BD {系统ID}
MOV ECX,[ECX+$20]
ADD ECX,$0EC
MOV EBX,$00583060
CALL EBX
END;
end;
/// <summary>
/// 走跑切换
/// </summary>
/// <param name="VALUE">走和跑的地址/param>
procedure TglWalkRun(str:string);
var
Value:DWORD;
begin
if str='走' then Value:=0;
if str='跑' then Value:=1;
ASM
PUSH VALUE {0-> 走 1->跑}
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
MOV EBX,$00449A50
CALL EBX
END;
end;
/// <summary>
/// 打坐
/// </summary>
/// <param name="VALUE">打坐和起立的CALL地址/param>
procedure SitDown(str:string);
var
Value:DWORD;
begin
if str='坐下' then Value:=$701;
if str='起立' then Value:=$700;
ASM
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
SHR EAX,5
NOT AL
AND AL,1
PUSH VALUE {打坐CALL 701 坐下 700取消坐下}
MOV EBX,$00449A20
CALL EBX
END;
end;
/// <summary>
/// 表情
/// </summary>
/// <param name="Id">表情动作ID号/param>
procedure Expression(str:string);
var
ID:integer;
begin
Id:=0;
if str = '招手' then ID:=0;
if str = '点头' then ID:=1;
if str = '摇头' then ID:=2;
if str = '耸肩膀' then ID:=3;
if str = '大笑' then ID:=4;
if str = '生气' then ID:=5;
if str = '晕倒' then ID:=6;
if str = '沮丧' then ID:=7;
if str = '飞吻' then ID:=8;
if str = '害羞' then ID:=9;
if str = '抱拳' then ID:=10;
if str = '坐下' then ID:=11;
if str = '冲锋' then ID:=12;
if str = '思考' then ID:=13;
if str = '挑衅' then ID:=14;
if str = '胜利' then ID:=15;
if str = '伸懒腰' then ID:=16;
if str = '战斗' then ID:=17;
if str = '攻击1' then ID:=18;
if str = '攻击2' then ID:=19;
if str = '攻击3' then ID:=20;
if str = '攻击4' then ID:=21;
if str = '防御' then ID:=22;
if str = '摔倒' then ID:=23;
if str = '倒地' then ID:=24;
if str = '张望' then ID:=25;
if str = '舞蹈' then ID:=26;
ASM
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
PUSH ID //表情动作ID号 第1个表情为0 第n个表情为 n-1 0..26
MOV EBX,$0044A150
CALL EBX
END;
end;
/// <summary>
/// 打开NPC对话框
/// </summary>
/// <param name="ID">NPC的ID号/param>
procedure OpenNpcDlg(ID:DWORD);
begin
asm
MOV ECX,[$924E0C]
PUSH ID //NPC ID号
MOV ECX,[ECX+$20]
ADD ECX,$0EC
MOV EBX,$00583490
CALL EBX
end;
end;
/// <summary>
/// 扔掉物品
/// </summary>
/// <param name="ID1">物品数量/param>
/// <param name="ID2">物品所在的包裹位置/param>
procedure throwpckObj(ID1,ID2:DWORD);
begin
asm
mov eax,[$924e0c]
mov eax,[eax+$20]
push ID1
push ID2
mov ebx,$0058DEB0
CALL ebx
end;
end;
/// <summary>
/// 普通攻击
/// </summary>
procedure normalAttack();
begin
asm
PUSH -1
PUSH 0
PUSH 0
PUSH 0
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
MOV EBX,$00449A60
CALL EBX
end;
end;
/// <summary>
/// 飞行
/// </summary>
procedure fly();
begin
asm
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
MOV EBX,$00449B50
CALL EBX
end;
end;
/// <summary>
/// 接受复活
/// </summary>
procedure acceptAlive();
begin
asm
MOV EBX,$005A7A10
CALL EBX
end;
end;
/// <summary>
/// 使用复活卷轴
/// </summary>
procedure useFhjz();
begin
asm
MOV ECX,[$924E0C]
MOV ECX,[ECX+$20]
LEA ECX,[ECX+$0EC]
MOV EBX,$005831E0
CALL EBX
end;
end;
/// <summary>
/// 死亡回城
/// </summary>
procedure DieBackCity();
begin
asm
MOV ECX,[$924E0C]
MOV ECX,[ECX+$20]
LEA ECX,[ECX+$0EC]
MOV EBX,$00583190
CALL EBX
end;
end;
/// <summary>
/// 拾物
/// </summary>
procedure PickUp();
begin
asm
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
MOV EBX,$00449BF0
CALL EBX
end;
end;
/// <summary>
/// 邀请加入队伍
/// </summary>
procedure InviteTeam();
begin
asm
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
MOV EBX,$0044A030
CALL EBX
end;
end;
/// <summary>
/// 离开队伍
/// </summary>
procedure LeftTeam();
begin
asm
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
MOV EBX,$0044A060
CALL EBX
end;
end;
/// <summary>
/// 加速飞行
/// </summary>
procedure flyEx();
begin
asm
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
MOV EBX,$00449CD0
CALL EBX
end;
end;
/// <summary>
/// 相依相偎
/// </summary>
procedure hellolove();
begin
asm
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
PUSH 60
MOV EBX,$00449D20
CALL EBX
end;
end;
/// <summary>
/// 全修 身上的装备全修 需要打开NPC对话框
/// </summary>
procedure RepairAll();
begin
ASM
PUSH -1
PUSH 0
PUSH 0
MOV EBX,$005A8690
CALL EBX
ADD ESP,$0C
END;
end;
/////////多数汇编写/////////////////////////////////////////
/// <summary>
/// 技能栏F1-F8
/// </summary>
/// <param name="ID">技能ID号/param>
procedure F1_F8(Str:string);
var
Index:integer;
pECX:pInteger;
begin
Index:=1;
if Str='F1' then Index:=1;
if Str='F2' then Index:=2;
if Str='F3' then Index:=3;
if Str='F4' then Index:=4;
if Str='F5' then Index:=5;
if Str='F6' then Index:=6;
if Str='F7' then Index:=7;
if Str='F8' then Index:=8;
Index:=(Index-1)*4;
pECX:=Pointer($924E0C); //
pECX:=Pointer(pECX^+$1C);
pECX:=Pointer(pECX^+$20);
pECX:=Pointer(pECX^+$0BAC);//$0BAC=1*4+0BA8 F1~F8
pECX:=Pointer(pECX^+$C);
pECX:=Pointer(pECX^+Index);
if pEcx^=0 then Exit; //如果相应栏上没有放对象则退出 =[[[[[924E0C]+1C]+20]+1*4+0BA8]+C]+Ebx*4 =0
pEcx:=pInteger(pEcx^);
ASM
MOV ECX,PECX
MOV EDX,[ECX]
MOV EDX,[EDX+$8]
CALL EDX
END;
end;
/////////多数汇编写/////////////////////////////////////////
/// <summary>
/// Key1_8
/// </summary>
/// <param name="ID">技能ID号/param>
procedure Key1_8(Str:string);
var
Index:integer;
pECX:pInteger;
begin
Index:=1;
if Str='1' then Index:=1;
if Str='2' then Index:=2;
if Str='3' then Index:=3;
if Str='4' then Index:=4;
if Str='5' then Index:=5;
if Str='6' then Index:=6;
if Str='7' then Index:=7;
if Str='8' then Index:=8;
if Str='9' then Index:=9;
Index:=(Index-1)*4;
pECX:=Pointer($924E0C); //
pECX:=Pointer(pECX^+$1C);
pECX:=Pointer(pECX^+$20);
pECX:=Pointer(pECX^+$0BA0);//$BA0 =1*4+0B9C 1~9
pECX:=Pointer(pECX^+$C);
pECX:=Pointer(pECX^+Index);
if pEcx^=0 then Exit; //如果相应栏上没有放对象则退出 =dd [[[[[924E0C]+1C]+20]+1*4+0B9C]+C]+0*4 =0
pEcx:=pInteger(pEcx^);
asm
MOV ECX,pECX
MOV EDX,[ECX]
MOV EDX,[EDX+$8]
CALL EDX
end;
end;
/// <summary>
/// BT飞行
/// </summary>
/// <param name="FLYADDRESS">人物飞行后的数值/param>
procedure LetMefly(str:string);
var
flyaddress:DWORD;
begin
if Str= '_on' then flyaddress:=$0E010;
if Str='_off' then flyaddress:=$0E000;
ASM
MOV ECX,[$924E0C]
MOV ECX,[ECX+$1C]
MOV ECX,[ECX+$20]
MOV EAX,FLYADDRESS { 0E010->飞行 0E000->没飞}
MOV [ECX+$062C],EAX
END;
end;
/// <summary>
/// 按键模拟
/// </summary>
/// <param name="ID">技能ID号/param>
procedure SendKey(Str:string);
Var
MyHwnd:HWND;
KeyValue:integer;
begin
KeyValue:=VK_F1;
{功能模拟发送按键:1~9,F1~F8}
MyHwnd:=FindWindow(nil,'Element Client');
if Str='1' then KeyValue:=49;
if Str='2' then KeyValue:=50;
if Str='3' then KeyValue:=51;
if Str='4' then KeyValue:=52;
if Str='5' then KeyValue:=53;
if Str='6' then KeyValue:=54;
if Str='7' then KeyValue:=55;
if Str='8' then KeyValue:=56;
if Str='9' then KeyValue:=57;
if Str='F1' then KeyValue:=VK_F1;
if Str='F2' then KeyValue:=VK_F2;
if Str='F3' then KeyValue:=VK_F3;
if Str='F4' then KeyValue:=VK_F4;
if Str='F5' then KeyValue:=VK_F5;
if Str='F6' then KeyValue:=VK_F6;
if Str='F7' then KeyValue:=VK_F7;
if Str='F8' then KeyValue:=VK_F8;
sendmessage(MyHwnd,wm_keydown,KeyValue,0);
sendmessage(MyHwnd,wm_keyup,KeyValue,0);
end;
end.