91M2引擎的传奇版本如何实现骰子，77M2骰子脚本相关说明

如何实现骰子
1.在QFunctionNpc增加骰子事件函数定义：

procedure OnDiceEvent(Npc: TNormNpc; Player: TPlayObject; ATag, APoint1, APoint2, APoint3: Integer);
2.发送骰子消息：

procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
begin
Player.PlayDice(100{骰子标志}, 4{骰子点数1}, 1{骰子点数2}, 6{骰子点数3});  
//骰子标志: 任意设置,用来区分骰子类型而已
//骰子点数1: 当前点数1,取值范围1-6。这个点数实际上是服务器设置好的,客户端只是播放下而已
//骰子点数2: 当前点数2,取值范围0-6
//骰子点数3: 当前点数3,取值范围0-6
//当点数3和点数2也在1-6时表示投掷3个点数,当点数2为1-6时而点数3不在1-6时表示投掷两个点数
//如果点数2和3都不在1-6时表示只投一个点数
end;

3.当客户端骰子播放完成后触发骰子事件，在QFunctionNpc的OnDiceEvent中进行处理:

procedure OnDiceEvent(Npc: TNormNpc; Player: TPlayObject; ATag, APoint1, APoint2, APoint3: Integer);
begin
   Player.Messagebox(Format('骰子标志%d, 点数1:%d, 点数2:%d, 点数3:%d', [ATag, APoint1, APoint2, APoint3]));
end;

注：骰子的点数为服务端设置后发送给客户端的，客户端只执行播放动作，所以可以通过一些控制来设置骰子的实际点数

版权声明

1、本站所有内容均由互联网收集整理、网友上传，仅供大家参考、学习研究使用，不存在任何商业目的与商业用途。

2、论坛的所有内容都不保证其准确性，完整性，有效性，因本站内容因误导等因素而造成的损失本站不承担连带责任。

3、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，若有用户需要商用本站资源，请务必联系版权方购买正版授权！

感谢站长分享传奇教程，让我学习到很多知识。

这东西我收了！

这东西我收了！

楼主发贴辛苦了，谢谢楼主分享！

这个帖子不回对不起自己！

在这里可以学到很多传奇一条龙开区时遇到的问题。

感谢站长分享传奇教程，让我学习到很多知识。

感谢站长分享传奇教程，让我学习到很多知识。

新手上路不用愁，碰到传奇架设问题可以来这搜索。