Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Жесткий скриптинг
Войти через OpenID

Жесткий скриптинг Раздел для обсуждения готовых и тестируемых скриптов
Внимание! В разделе введена жесткая модерация, темы и сообщения публикуются только после проверки модераторами

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
 
 
Опции темы Опции просмотра
Старый 15.05.2009, 12:08   #11
Пользователь
 
Аватар для Name4Me
 
Регистрация: 17.06.2008
Сообщений: 44
Сказал Спасибо: 7
Имеет 19 спасибок в 9 сообщенях
Name4Me пока неопределено
По умолчанию

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

Последний раз редактировалось Name4Me, 15.05.2009 в 12:10. Причина: Добавлено сообщение
Name4Me вне форума   Ответить с цитированием
 

  CoderX :: Forums > Lineage II > L2PacketHack > Жесткий скриптинг



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 03:18.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!