传奇一条龙,复古传奇,GM基地,传奇服务端

 找回密码
 立即注册

QQ登录

只需一步,快速开始

网友自助信息发布区,请自行甄别

查看: 761|回复: 2

传奇学院Delphi版ei3.0插件源码初始版代码

[复制链接]

624

帖子

2145

钻石

1359

积分

管理员

Rank: 9Rank: 9Rank: 9

在线时间
114 小时
发表于 2018-12-3 00:30:41 | 显示全部楼层 |阅读模式
传奇学院Delphi版ei3.0插件源码初始版代码


interface

Uses  SysUtils,Windows;

implementation
Uses _function,_const;

procedure Store_;                  //解决随身NPC存东西时候,距离的限制
asm
  MOV  EAX,DWORD PTR[EBP-08]
  CMP  EAX,DWORD PTR[TMerchant]
  JE   @@NPC_SELF
  mov  eax,dword ptr ds:[$502D9C]
  mov  eax,dword ptr ds:[eax]
  MOV  EDX,$4F9B0F
  PUSH EDX
  ret
@@NPC_SELF:
  MOV  DWORD PTR[EBP-$14],EAX
  MOV  EAX,$4F9B7A
  PUSH EAX
  ret
end;

procedure Get_;                     //解决取东西时 距离限制
asm
  MOV  EAX,DWORD PTR[EBP-08]
  CMP  EAX,DWORD PTR[TMerchant]
  JE   @@NPC_SELF
  MOV  EAX,DWORD PTR SS:[EBP-$1C]
  MOV  EAX,DWORD PTR DS:[EAX+$3FC]
  MOV  EDX,$4f9ee7
  PUSH EDX
  ret
@@NPC_SELF:
  MOV  EAX,$4f9f2a
  PUSH EAX
  ret
end;

procedure Get__;                     //解决取东西时 距离限制
asm
  MOV  EAX,DWORD PTR[EBP-08]
  CMP  EAX,DWORD PTR[TMerchant]
  JE   @@NPC_SELF
  mov  eax,dword ptr ds:[$502D9C]
  mov  eax,dword ptr ds:[eax]
  MOV  EDX,$4F9E9A
  PUSH EDX
  ret
@@NPC_SELF:
  MOV  DWORD PTR[EBP-$14],EAX
  MOV  EAX,$4f9eaf
  PUSH EAX
  ret
end;

procedure Repair;
asm
  MOV  EAX,DWORD PTR[EBP-08]
  CMP  EAX,DWORD PTR[TMerchant]
  JE   @@NPC_SELF
  mov  eax,dword ptr ds:[$502D9C]
  mov  eax,dword ptr ds:[eax]
  MOV  EDX,$4F957E
  PUSH EDX
  ret
@@NPC_SELF:
  MOV  DWORD PTR[EBP-$14],EAX
  MOV  EAX,$4F95E1
  PUSH EAX
  ret
end;

procedure Repair_;
asm
  MOV  EAX,DWORD PTR[EBP-08]
  CMP  EAX,DWORD PTR[TMerchant]
  JE   @@NPC_SELF
  mov  eax,dword ptr ds:[$502D9C]
  mov  eax,dword ptr ds:[eax]
  MOV  EDX,$4F9432
  PUSH EDX
  ret
@@NPC_SELF:
  MOV  DWORD PTR[EBP-$14],EAX
  MOV  EAX,$4F9483
  PUSH EAX
  ret
end;

procedure Repair__;
asm
  MOV  EAX,DWORD PTR[EBP-08]
  CMP  EAX,DWORD PTR[TMerchant]
  JE   @@NPC_SELF
  mov  eax,dword ptr ds:[$502D9C]
  mov  eax,dword ptr ds:[eax]
  MOV  EDX,$4F9722
  PUSH EDX
  ret
@@NPC_SELF:
  MOV  DWORD PTR[EBP-$14],EAX
  MOV  EAX,$4F9779
  PUSH EAX
  ret
end;

procedure Buy;
asm
  MOV  EAX,DWORD PTR[EBP-$0C]
  CMP  EAX,DWORD PTR[TMerchant]
  JE   @@NPC_SELF
  mov  eax,dword ptr ds:[$502D9C]
  mov  eax,dword ptr ds:[eax]
  MOV  EDX,$4FA1B4
  PUSH EDX
  ret
@@NPC_SELF:
  MOV  DWORD PTR[EBP-$10],EAX
  MOV  EAX,$4FA205
  PUSH EAX
  ret
end;

procedure Sell;
asm
  MOV  EAX,DWORD PTR[EBP-08]
  CMP  EAX,DWORD PTR[TMerchant]
  JE   @@NPC_SELF
  mov  eax,dword ptr ds:[$502D9C]
  mov  eax,dword ptr ds:[eax]
  MOV  EDX,$4F92E2
  PUSH EDX
  ret
@@NPC_SELF:
  MOV  DWORD PTR[EBP-$14],EAX
  MOV  EAX,$4F9333
  PUSH EAX
  ret
end;

Initialization
  CALLRW($4F9B08,DWORD(@Store_));
  CALLRW($4F9EDE,DWORD(@Get_));
  CALLRW($4F9E93,DWORD(@Get__));
  CALLRW($4F9577,DWORD(@Repair));
  CALLRW($4F942B,DWORD(@Repair_));
  CALLRW($4F971B,DWORD(@Repair__));
  CALLRW($4FA1AD,DWORD(@Buy));
  CALLRW($4F92DB,DWORD(@Sell));
end.


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

回复

使用道具 举报

22

帖子

2020

钻石

27

积分

初级GM

Rank: 1

在线时间
5 小时
发表于 2019-3-14 21:20:28 | 显示全部楼层
传奇学院Delphi版ei3.0插件源码初始版代码
回复

使用道具 举报

2

帖子

11

钻石

2

积分

初级GM

Rank: 1

在线时间
0 小时
发表于 2019-12-25 00:39:10 | 显示全部楼层
更符合法规和
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|八五GM论坛专业的传奇私服GM技术交流基地 ( 粤ICP备11015868号-18 ) 传奇私服 Array7.2 版权所有 © 八五论坛 Comsenz Inc.

|网站地图
快速回复 快速发帖 返回顶部 返回列表