战神引擎套装属性设置taoZhuangAbilToFact.pas

以下文件复制添加到以下文件

D:\mud2.0\Mir200\Envir\CommonScripts\helperCall 内 如无文件夹自行建立

这是默认目录 如果用是一些启动器 那文件目录会有所差异 只能自己寻找 了



//审查数据
function checkTaozhuang(itemName : string):boolean;
Var i : integer;
begin
result := false
//遍历装备槽位
for i:=0 to 30 do
begin
if this_player.GetItemNameOnBody(i) = itemName then
begin
result := true;
break
end;
end

end;

//激活套装
procedure tzActivation(sid : string; idx : integer);
begin
//idx 保存了套装的序号 如有需要时使用
//记录套装ID 防止重复激活
this_player.setS(117, idx, 200);
case sid of
'赤血魔剑,战神盔甲(男),死神手套,珊瑚戒指':
begin
//this_player.addPlayerAbil(4, 100, 3600);
this_player.playerNotice('套装属性触发 ID = ' + inttostr(idx),2)

end
'赤血魔剑,战神盔甲(女),死神手套,珊瑚戒指':
begin
//this_player.addPlayerAbil(4, 100, 3600);
this_player.playerNotice('套装属性触发 ID = ' + inttostr(idx),2)
end
'木剑,中型盔甲(男),金戒指':
begin
//this_player.addPlayerAbil(4, 50, 3600);
this_player.playerNotice('套装属性触发 ID = ' + inttostr(idx),2)
end
'木剑,中型盔甲(女),金戒指':
begin
//this_player.addPlayerAbil(4, 50, 3600);
this_player.playerNotice('套装属性触发 ID = ' + inttostr(idx),2)
end
'骷髅戒指':
begin
//this_player.addPlayerAbil(0, 5, 3600);
this_player.playerNotice('套装属性触发 ID = ' + inttostr(idx),2)
end
end

end;

//接收客户端套装消息
procedure _getTaoZhuang(data : string);
Var
i, idx : integer;
items : string;
activation : boolean;
begin

//收到客户端套装变化消息
if pos(',', data) = 0 then
begin
//清除套装状态
idx := strtoint(data);
this_player.setS(117, idx, -2);
exit;
end
idx := strtoint(copy(data, 1, pos(',', data) - 1))
items := copy(data, pos(',', data) + 1, length(data));
//审查数据
activation := true;
for i:=1 to 10 do
begin
if split(items, ',', i) = '' then
break
activation := checkTaozhuang(split(items, ',', i));
if not(activation) then
break
end
//激活套装
if activation then
begin
if this_player.getS(117, idx) = 200 then
//套装没变化则不需要再次激活
else
//再次审查并激活属性
tzActivation(items, idx)
end

end;