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

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 04.10.2008, 19:59   #1
Новичок
 
Регистрация: 04.10.2008
Сообщений: 7
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
kondor пока неопределено
По умолчанию Помогите переделать скрипт

Есть скрипт нашел тут
delphi Код:
Crystal: boolean; //---------------------------------------------------------------- procedure Init; //Вызывается при включении скрипта begin   Crystal:=false;   SendMsg('Начало инициализации скрипта, откройте инвентарь'); end; //----------------------------------------------------------------- procedure Free; //Вызывается при выключении скрипта begin   ItemBase:=nil; end; //------------------------------------------------------------------ procedure SendMsg(msg:string); begin   buf:=#$4A;   WriteD(0);   WriteD(10);   WriteS('');   WriteS(msg);   SendToClient; end; //---------------------------------------------------------------- procedure CreateItemBase; //Создает базу ObjectID и ItemID, опять же не проверяет пакет на правильность для экономия ресурсов var   i,j: integer; begin   j:=8;   SetLength(ItemBase,int((length(pck)-5)/14)); //1ый байт - идентификатор пакета, следующие 4 байта хз, далее для каждого итема отводится 28 байт, размер массива должен быть в 2 раза больше, чем итемов.   for i:=0 to int(Length(ItemBase)/2-1) do begin     ItemBase[i*2]:=ReadD(j);     ItemBase[i*2+1]:=ReadD(j);     j:=j+20;   end; end; //--------------------------------------------------------- procedure UpdateItemBase; //Удаляет без проверки, использовать аккуратно var   i: integer; begin   for i:=0 to int(Length(ItemBase)/2-1) do     if (ItemBase[i*2]=ReadD(8)) or (ItemBase[i*2+1]=ReadD(12)) then begin       ItemBase[i*2]:=0;       ItemBase[i*2+1]:=0;       Exit;     end end; //--------------------------------------------------------- function GetObjID(ItemID:integer): integer; //Выдает ObjectID по его ItemID, если ItemID не найден в базе, выдает -1 var   i: integer; begin   for i:=0 to int(Length(ItemBase)/2-1) do     if (ItemBase[i*2+1]=ItemID) then begin       Result:=ItemBase[i*2];       Exit;     end;   Result:=-1; end; //----------------------------------------------------------- procedure Crystallize(ObjectID: integer); begin   buf:=#$72;   WriteD(ObjectID);   WriteD(1);   SendToServer; end; //--------------------------------------------------------- procedure KristallPodasa; begin //Продажа криспалов или других  предметов в магазин buf:=HStr('1E 00 00 00 00 01 00 00 00 32 BB 0C 10 B3 05 00 00 B8 D2 00 00 '); SendToServer; SendMsg('Продажа кристалов в магазин'); end; //----------------------------------------------------------- procedure PokukaOserelii; begin //покупка 250 S ожирелий buf:=HStr('A7 96 02 00 00 A0 BB 0D 00 01 00 00 00 00 00 00 00 00 00 00 00'); SendToServer; SendMsg('Покупка 5 Berserker Blade'); end; //------------------------------------------------------------ //основная часть скрипта //вызывается при приходе каждого пакета если скрипт включен begin  if FromServer and (pck[1]=#$1B) then CreateItemBase; //создание базы предметов   if (length(ItemBase)=0) then exit; // если нет базы итемов, скрипт дальше не пустит   if FromServer and (pck[1]=#$27) and (pck[4]=#$03) then begin     UpdateItemBase; //Обновление базы, если принят пакет на удаление предмета      if Crystal and (GetObjID(5286)>0) then Crystallize(GetObjID(5286))     else begin       Crystal:=false;       SetLength(ItemBase,0);       SendMsg('Весь шмот кристаллизован');       //KristallPodasa;       //PokukaOserelii;     end;   end;   //if FromClient and (pck=HStr('1B 06 00 00 00')) then begin    // SendMsg('Панеслася!!!');     if (GetObjID(5286)>0) then begin       Crystal:=true;       Crystallize(GetObjID(5286));     end else SendMsg('Нужная шмотка не найдена'); end.

Помогите пожалуйста переделать его так что бы он кристализовал допустим тарбары автоматически. ID тарбаров 158. Я пытался убрать лишнее но скрипт не работет((( Или выкиньте сюда скрипт кристаллизации итемов. Буду очень благодарен



P.S. Без этого скрипта помру...

Последний раз редактировалось QaK, 06.10.2008 в 15:14.
kondor вне форума   Ответить с цитированием
Старый 04.10.2008, 21:10   #2
Местный
 
Аватар для wanick
 
Регистрация: 20.09.2008
Сообщений: 133
Сказал Спасибо: 32
Имеет 54 спасибок в 22 сообщенях
wanick пока неопределено
По умолчанию

помоему уже надо открыть раздел "Скрипты платно", пишут скрипты чел 50 максимум остальные только юзают и просят )
wanick вне форума   Ответить с цитированием
Старый 05.10.2008, 13:33   #3
Новичок
 
Регистрация: 04.10.2008
Сообщений: 7
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
kondor пока неопределено
По умолчанию

Ну тогда хотябы объясните как это можно сделать. Как можно сделать так чтобы перс автоматически разбивал определенный итем попавший в инвентарь. Тут вон вижу какието Ы кольца и прочее а мне бы тока тарбары бить. В замен могу выложить пакет который дает очень много денег почти на 50% серверов.
kondor вне форума   Ответить с цитированием
Старый 05.10.2008, 13:52   #4
Рыцарь
 
Аватар для Grinch
 
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Grinch пока неопределено
По умолчанию

Цитата:
Сообщение от wanick Посмотреть сообщение
помоему уже надо открыть раздел "Скрипты платно", пишут скрипты чел 50 максимум остальные только юзают и просят )
пишу скрипты очень платно )

Цитата:
Сообщение от kondor Посмотреть сообщение
Ну тогда хотябы объясните как это можно сделать. Как можно сделать так чтобы перс автоматически разбивал определенный итем попавший в инвентарь. Тут вон вижу какието Ы кольца и прочее а мне бы тока тарбары бить. В замен могу выложить пакет который дает очень много денег почти на 50% серверов.
ы) нафиг он нужен этот скрипт когда у тя есть такой пакет ) имхо если господь не дал мозга для того что б поправить скрипт то отдай кому нить много денег и не парь людям моск, а то свои скрипты закончить не могут ибо лень, а ты тут ещё
Grinch вне форума   Ответить с цитированием
Старый 05.10.2008, 16:30   #5
Новичок
 
Регистрация: 04.10.2008
Сообщений: 7
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
kondor пока неопределено
По умолчанию

Этот скрипт как раз и нужен для того чтобы дополникть этот пакет...
kondor вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг



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

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


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

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

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