[Name4Me]

Добавил возможность агюментации в одно нажатие... 1 раз делаем агюмент в ручную чтоб задать оружие и тип ЛС дальше при нажатии на кнопку если оружие имеет агюмент, то агюмент снимаеться если нет то устанавливается.

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 компе при вигрузке плагина в определёних случаях при закритии пакетхака видаёт ерор на других норм.... давно бьюсь не могу понять в чом дело если кто увидит и разберёться буду оч признателен...