玩传奇论坛

 找回密码
立即注册

扫一扫,访问移动社区

论坛喇叭+ 发布

01-25 10:01
系统通知全站压缩包解压密码:www.wanmirbbs.com
01-25 10:01
01-25 10:01
查看: 43310|回复: 38
打印 上一主题 下一主题

77M2引擎的版本如何删除玩家的物品脚本

  [复制链接]
跳转到指定楼层
楼主
发表于 2019-4-9 19:49:04 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,以游结友!

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
如何删除玩家的物品

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
  I: Integer;
  AItem: TUserItem;
begin
  //方法1:通过NPC拿走玩家的物品
  Npc.Take(Player, '乌木剑', 1);  //拿走一把乌木剑  
  for I := 0 to Player.MaxBagSize - 1 do //循环背包
  begin
    AItem := Player.BagItem[I]; //取出一个背包物品
    if AItem <> nil then //如果物品存在
      Npc.TakeItem(Player, AItem); //收走物品      
  end;   

  //方法2:通过玩家自身DeleteItem函数处理
  for I := 0 to Player.MaxBagSize - 1 do //循环背包
  begin
    AItem := Player.BagItem[I]; //取出一个背包物品  
    if AItem <> nil then //如果物品存在
      Player.DeleteItem(AItem, 1); //收走物品,指定数量数量为1,如果是可叠加物品则是数量减1,反之则是收走物品
  end;  
  //玩家自身并没支持Take函数,因为Take实际上也是循环背包,开发中可以自己扩展函数处理
end;
法律声明:
1. 本站所有资源和素材来源于网络收集,如有侵权内容请联系站长删除处理!
2. 本站大部分下载资源收集于网络,版权归原作者所有,如有侵权请联系删除。
3. 本站提供的素材、源码、等等其他资源,都不包含技术服务支持!
4. 若因线路和服务器问题非本站所能控制范围的故障导致暂停服务期间造成的一切不便与损失,论坛不负任何责任。
5. 注册会员通过任何手段和方法针对论坛进行破坏,我们有权对其行为作出处理。并保留进一步追究其责任的权利。
沙发
发表于 2019-4-10 07:06:45 | 只看该作者
66666668
板凳
发表于 2019-4-18 08:56:24 | 只看该作者
正需要,支持楼主大人了!
地板
发表于 2019-4-20 08:20:05 | 只看该作者
回的人少,我来小顶一下!
5#
发表于 2019-5-3 08:48:38 | 只看该作者
不错,顶一个!
6#
发表于 2019-5-5 08:49:34 | 只看该作者
顶顶顶顶顶大大大
7#
发表于 2019-6-2 09:50:29 | 只看该作者
发发呆,回回帖,工作结束~
8#
发表于 2019-6-4 09:25:10 | 只看该作者
发发呆,回回帖,工作结束~
9#
发表于 2019-6-6 07:52:53 | 只看该作者
发发呆,回回帖,工作结束~
10#
发表于 2019-6-6 09:06:27 | 只看该作者
这贴内容不错
懒得打字嘛,点击右侧快捷回复 【乱回复纯数字纯字母将禁言】
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

必备工具

地图查看分析转换三合一

目前地图转换 单纯的OB真彩地图转换编...号想必很多人都会, 也有很多工具

南宫地图编辑器v5.0

使用方法,放置传奇客户端DATA文件夹...

Tiles转换工具,支持支持255

支持255地图转换工具!

关于本站

玩传奇论坛 - 专业提供游戏素材、游戏工具、传奇单机、传奇服务端,致力于打造最精品的版本素材分享平台!

Archiver|小黑屋|玩传奇吉ICP备18002996号-1) |网站地图 

GMT+8, 2024-12-23 11:18 , Processed in 0.036232 second(s), 35 queries , Gzip On. 

 Powered by Discuz! X3.2

 © 2001-2013 Comsenz Inc.

返回顶部