如何操作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.
|
[复制链接]
|Archiver|手机版|关于我们|会员加入|网站介绍|( 湘ICP备2021013222号-1 )|网站地图
