传奇服务端如何操作Check状态检查

如何操作Check状态检查

unitQ2;

inte**ce
usesClassesSysUtils;

procedureMain(Npc:TNormNpc;Player:TPlayObject;Args:TArgs);

implementation

procedureMain(Npc:TNormNpc;Player:TPlayObject;Args:TArgs);
begin
//Player.Check状态的范围为1-1024即Player.Check[1]到Player.Check[1024]都是被允许的
//小于1或大于1024返回为False并且无法写入值
ifPlayer.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.