Добавил возможность агюментации в одно нажатие... 1 раз делаем агюмент в ручную чтоб задать оружие и тип ЛС дальше при нажатии на кнопку если оружие имеет агюмент, то агюмент снимаеться если нет то устанавливается.
Delphi Код:
unit Agumentation;
interface
Uses msbu;
Var
subID,WIID,LSIID,GSIID,GSCount : integer;
Procedure SetAgValue(CID,sID,WObjID,LObjID,GObjID,Count:integer);
Procedure Augment(CID:integer);
implementation
Uses AAction,Other_Func;
Procedure SetAgValue(CID,sID,WObjID,LObjID,GObjID,Count:integer);
Begin
subID:=sID;
WIID:=user[CID].IList.Itemo[WObjID].ID;
LSIID:=user[CID].IList.Itemo[LObjID].ID;
GSIID:=user[CID].IList.Itemo[GObjID].ID;
GSCount:=Count;
say(CID,'Елементы для агюментации заданы');
End;
Procedure Augment(CID:integer);
Begin
with user[CID] do Begin
if (WIID<>0) and (IList.Itemi[WIID].AugmentationBonus<>0) then sts(CID,'D04600'+anti4HEX(IList.Itemi[WIID].OID));
if (WIID<>0) and (IList.Itemi[WIID].AugmentationBonus=0) Then if (IList.Itemi[LSIID].Count>0)
and (IList.Itemi[GSIID].Count>=GSCount) then
sts(CID,'D04400'+anti4HEX(IList.Itemi[WIID].OID)+anti4HEX(IList.Itemi[LSIID].OID)+anti4HEX(IList.Itemi[GSIID].OID)+anti4HEX(GSCount))
else say(CID,'Недостаточно елементов для агюментации');
End;
End;
end.
Добавлено через 9 часов 42 минуты
Вчера час рыл питаясь понять почему идёт запрос на либу май скул не нашол а сегодня дошло что выкинул ссилку на старую версию плагина... Сори вот ссилка на текущую версию дллки с исходником
http://www.rapidshare.ru/1039102
P.s. Просьба к гуру, у меня на 1 компе при вигрузке плагина в определёних случаях при закритии пакетхака видаёт ерор на других норм.... давно бьюсь не могу понять в чом дело если кто увидит и разберёться буду оч признателен...