新开传奇如何收取城堡金币的传奇脚本命令和示例

如何收取城堡金币

unitQ2;

inte**ce
usesClassesSysUtils;

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

implementation

procedureMain(Npc:TNormNpc;Player:TPlayObject;Args:TArgs);
begin
Player.TakeCastGold(10000);//将城堡的金币-10000

//直接针对城堡对象的操作方法
ifPlayer.Castle<>nilthen
begin
Player.Castle.TotalGold:=Player.Castle.TotalGold-10000;
end;
end;

end.