77M2引擎的服务端如何操作Check状态检查

如何操作Check状态检查

unit Q2;

inte**ce
  uses Classes, SysUtils;

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

implementation

procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
begin
  //Player.Check状态的范围为1-1024,即Player.Check[1]到Player.Check[1024]都是被允许的
  //小于1或大于1024返回为False,并且无法写入值
  if Player.Check[100] then //判断Check[100]是否为真
  begin            
    Player.SendMessage('Check[100]的值为True');
    Player.Check[100] := False; //将Check[100]的值设置为False
  end
  else
  begin
    Player.SendMessage('Check[100]的值为False');
    Player.Check[100] := True; //将Check[100]的值设置为True
  end;
end;

end.

版权声明

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

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

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

传奇论坛里面相对来说比较好的一个！感谢站长分享的技术教程。

这东西我收了！谢谢楼主！

感谢站长分享开区一条龙教程，新手能学习到很多知识。

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

感谢站长分享开区一条龙教程，新手能学习到很多知识。

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

这东西我收了！谢谢楼主！

传奇论坛里面相对来说比较好的一个！感谢站长分享的技术教程。

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