如何操作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.

声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。