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.

撒旦VS盘古

这么强,支持楼主，佩服

无怨Yi无悔

支持，赞一个

curtainl0

确实不错，顶先

zhangfenfen

我也来顶一下..

yfzfly

楼主呀，，，您太有才了。。。

hanyu791

看起来好像不错的样子

dfsdfeuw

支持支持再支持

funlimit是南桥

报告！别开枪，我就是路过来看看的。。。

红la4efp

支持，楼下的跟上哈~