idc 11
查看: 232|回复: 5

91M2引擎若何穿着或取下一件装备,77M2引擎将武器取下来的方式

[复制链接]

3377

主题

3417

帖子

6万

积分

管理员

Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100

积分
60303

最佳新人活跃会员热心会员推广达人灌水之王突出贡献优秀版主荣誉管理论坛元老

QQ
发表于 2022-4-10 00:00:53 | 显示全部楼层 |阅读模式
  

  





若何穿着或取下一件装备

unit Q2;



inte**ce

   uses Classes, SysUtils;



procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);



implementation



procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);

var      

   AUserItem: TUserItem;

begin

   if Player.Wepon <> nil then //若是装备了武器

     Player.TakeOffItem(wWeapon); //将武器取下来,wWeapon示意装备的位置

   AUserItem := Npc.GiveItem(Player, \“乌木剑\“); //给玩家制造一把乌木剑

   if AUserItem <> nil then

     Player.TakeOnItem(AUserItem, wWeapon); //然后将乌木剑装备到武器位置上

end;



end.



注重:代码中挪用TakeOffItem和TakeOnItem执行装备取下和穿上的时刻,将不会触发QFunctionNpc中的OnTakeOffItem和OnTakeOnItem事宜

回复

使用道具 举报

0

主题

18

帖子

19

积分

新手上路

Rank: 1

积分
19
发表于 2022-4-10 00:01:03 | 显示全部楼层
果断MARK,前十有我必火!

回复

使用道具 举报

0

主题

30

帖子

31

积分

新手上路

Rank: 1

积分
31
发表于 2022-4-10 00:06:17 | 显示全部楼层
看了LZ的帖子,我只想说一句很好很强大!

回复

使用道具 举报

0

主题

41

帖子

42

积分

新手上路

Rank: 1

积分
42
发表于 2022-4-10 00:19:00 | 显示全部楼层
膜拜神贴,后面的请保持队形~

回复

使用道具 举报

0

主题

35

帖子

36

积分

新手上路

Rank: 1

积分
36
发表于 2022-4-10 00:25:12 | 显示全部楼层
找传奇版本,传奇教程就到301传奇论坛

回复

使用道具 举报

0

主题

34

帖子

35

积分

新手上路

Rank: 1

积分
35
发表于 2022-4-10 00:42:34 | 显示全部楼层
膜拜神贴,后面的请保持队形~

回复

使用道具 举报