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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 13.02.2010, 17:17   #1
Новичок
 
Регистрация: 30.06.2009
Сообщений: 26
Сказал Спасибо: 19
Имеет 3 спасибок в 2 сообщенях
Hworang пока неопределено
По умолчанию Продажа вещей с уникальным ID

Уже долго ищу этот скрипт и прошу помощи.
На многих серверах есть фишка с ГМ шопом - вещи продаются дешевле чем покупаются.

Скрипт для продаже (и покупки) вещей с уникальным ID - которые не складываются в стопку.

И было бы очень полезно узнать как сделать такой скрипт или (мечты конечно) получить готовый, куда нужно вписать имя чара.

P.S. покажите хотябы пример, как отправлять пакет на покупку и продажу через скрипт
Hworang вне форума   Ответить с цитированием
Старый 13.02.2010, 18:23   #2
Местный
 
Регистрация: 11.03.2008
Сообщений: 529
Сказал Спасибо: 10
Имеет 111 спасибок в 71 сообщенях
Xa4ik пока неопределено
По умолчанию

А на заточку +65к и последущийю дюп ненужно ?
Xa4ik вне форума   Ответить с цитированием
Старый 13.02.2010, 18:39   #3
Новичок
 
Регистрация: 30.06.2009
Сообщений: 26
Сказал Спасибо: 19
Имеет 3 спасибок в 2 сообщенях
Hworang пока неопределено
По умолчанию

Цитата:
Сообщение от Xa4ik Посмотреть сообщение
А на заточку +65к и последущийю дюп ненужно ?
Не совсем понял смысл.
Начнем с того что твоё сообщение не по теме. (собственно а твое в формате "сделайтехтотатошояхашу", кстати, в правила раздела смотрел?)
Дальше - ты меня упрекаешь за "якобы" завышенную просьбу (вот чета мне кажеццо что порывшись по форуму, и описанию функций, методом проб и ошибок мона _научицЦа_ скрипты писать, даже без создания вот таких тем.. или я неправ ?)
Если ты сравниваешь мою просьбу (скрипт на продажу) с заточкой на 65к - ты очень сильно ошибаешься (ога. объемы кода не идут ни в какое сравнение. в этом случае код в разы больше.)

Сейчас уже давно не дырявые ц3 - сейчас во всех сборках проверки есть во всех возможных местах
ни о каком дюпе и заточке (не свитками) не может быть и речи - стыдно такого не знать и приводить в пример

дальше
на каждои 3м пвп сервере админ по-ошибке указывает необъективную цену на какую-то вещь в гм-шопе (ващето это баг самой сборки. как бэ, и нежелание горе-админа проверить на наличие таких вещей, что впрочем делаеццо одним скуель запросом.)
и можно долго и нудно фармить адену, кликая мышкой на каждую вещь (продавая их) (а я когда-то шото подобное здал, и потом долго еще одминил этот сервер из под ссш. пока дедик у одмина не отобрали.)
а можно и скриптом (скрипт кстати несложный, жаль что я не знаю как его написать - ужеб давно сам сделал) (поиск по фразе "инвентаризация" - даст 80% скрипта.)

так вот - трудно переоценить важность такого скрипта, и если уж он появится - непременно станет популярным, и люди будут чаще заходить на этот портал, спрашивать и отвечать (99% из приходящих кричат "дайте", а потом уже получая недельное успокоительно тихо находят то шо надо, либо собирают с кусков. и иногда даже выкладывают.)
и конечно же администрация портала получит больше денег за рекламу (Ога, милиард. я не против.)
и конечно же автору и всем остальным будет приятно помочь неграмотным (в смысле кода) людям (афторы уже зае**сь, если честно.)
и конечно же не обойдется без флуда, наподобие твоего сообщения (и попрошайничества. вроде этого сообщения)

Последний раз редактировалось alexteam, 13.02.2010 в 20:49.
Hworang вне форума   Ответить с цитированием
Старый 13.02.2010, 20:47   #4
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

чето сообщение стало похоже на мою тетрадку по русскому языку.. в пятом классе..
__________________
L2Ext - project closed.
alexteam вне форума   Ответить с цитированием
Старый 13.02.2010, 21:05   #5
Peacedoorball
 
Аватар для spoil99
 
Регистрация: 21.09.2009
Сообщений: 1,641
Сказал Спасибо: 226
Имеет 112 спасибок в 85 сообщенях
spoil99 может только надеятся на улучшение
По умолчанию

Цитата:
Сообщение от alexteam Посмотреть сообщение
чето сообщение стало похоже на мою тетрадку по русскому языку.. в пятом классе..
тебе еще повезло, а мне до сих пор это снится!
spoil99 вне форума   Ответить с цитированием
Старый 13.02.2010, 21:06   #6
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

ну.. да.. логично.. события прошлогодней давности не так смазаны в памяти как события 15 летней..
__________________
L2Ext - project closed.
alexteam вне форума   Ответить с цитированием
За это сообщение alexteam нажился спасибкой от:
Старый 13.02.2010, 22:37   #7
Местный
 
Аватар для Breadfan
 
Регистрация: 29.04.2008
Сообщений: 830
Сказал Спасибо: 80
Имеет 230 спасибок в 169 сообщенях
Breadfan пока неопределено
По умолчанию

Цитата:
Сообщение от Hworang Посмотреть сообщение
как сделать такой скрипт
P.S. покажите хотябы пример, как отправлять пакет на покупку и продажу через скрипт
- ставишь галкку Запоминать пакеты от клиента - и вперед - получаешь покупку, ставишь галку на ...от сервера - вуаля - получаешь пакет итемапдейт - с оид и прочим...вроде и все. Скриптом спамишь пакет на покупку, получая итемапдейт - выясняешь оид итема, и, используя полученные данные, составляешь пакет на продажу...
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."

А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?

Последний раз редактировалось Breadfan, 13.02.2010 в 22:39.
Breadfan вне форума   Ответить с цитированием
За это сообщение Breadfan нажился спасибкой от:
Старый 15.02.2010, 08:53   #8
Новичок
 
Регистрация: 30.06.2009
Сообщений: 26
Сказал Спасибо: 19
Имеет 3 спасибок в 2 сообщенях
Hworang пока неопределено
По умолчанию

Спс QaK за инвентаризацию
на её основе составил скрипт

тормозит и комп и линия
помогите оптимизировать
delphi Код:
var i:integer; const nik = 'LooksThatKill'; procedure Init; begin end; procedure Free; begin end; begin if pck='' then exit; if FromServer and (ConnectName=nik) then    begin          if (pck[1]=#$1B) then  //если получили итемлист          begin          if (ReadH(4)<10) then //если вещей у рюкзаке <10 (вместимость 200 а купить надо 190)                begin                  buf:=HStr('A7 9A 5F 01 00 A0 BB 0D 00 BE 00 00 00 00 00 00 00 00 00 00 00 ')//покупаем 190 вещей                  SendToServerEx(nik);                end          else          begin             buf:=HStr('0F '); //запрос на итемлист             SendToServerEx(nik);          end;             buf:=#$1E; //составляем продажу             WriteD(0);             WriteD(ReadH(4)-2); //колво на продажу = всё - 2 итема (адена и голд бары)             if (ReadD(12)=2414) then //если 1й итем у нас - один из 190 (который продавать)               for i:=1 to (ReadH(4)-2) do               begin                 WriteD(ReadD(i*36-28));                 WriteD(2414);                 WriteD(1);               end             else             for i:=1 to (ReadH(4)-2) do  //если он не первый - значит 3й             begin               WriteD(ReadD(i*36+44));               WriteD(2414);               WriteD(1);             end;             SendToServerEx(nik)//продаём          end;    end;    buf:=HStr('0F ')//запрос итемлиста    SendToServerEx(nik);    if (ReadD(16)>700000000) and (ReadD(12)=57) then  //если адены больше 700кк покупаем голдбар (500кк)    begin        buf:=HStr('38 2E 00 64 00 65 00 70 00 6F 00 73 00 69 00 74 00 00 00 00 00 00 00 ');        SendToServerEx(nik);    end; end.

Последний раз редактировалось Hworang, 15.02.2010 в 20:56.
Hworang вне форума   Ответить с цитированием
Старый 15.02.2010, 20:26   #9
Местный
 
Аватар для Breadfan
 
Регистрация: 29.04.2008
Сообщений: 830
Сказал Спасибо: 80
Имеет 230 спасибок в 169 сообщенях
Breadfan пока неопределено
По умолчанию

delphi Код:
if FromServer and (ConnectName=nik) then    begin          if (pck[1]=#$1B) then  //если получили итемлист          begin          if (ReadH(4)<10) then //если вещей у рюкзаке <10 (вместимость 200 а купить надо 190)                begin                  buf:=HStr('A7 9A 5F 01 00 A0 BB 0D 00 BE 00 00 00 00 00 00 00 00 00 00 00 ')//покупаем 190 вещей                  SendToServerEx(nik);                end          else          begin             buf:=HStr('0F '); //запрос на итемлист             SendToServerEx(nik);          end;

скрипт тупо спамит 0F в ответ на любой пакет от серва - что явно не есть гуд.....убей эту ветку, а посылку на итемлист в начало скрипта просто вставь один раз
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."

А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Breadfan вне форума   Ответить с цитированием
За это сообщение Breadfan нажился спасибкой от:
Старый 15.02.2010, 20:57   #10
Новичок
 
Регистрация: 30.06.2009
Сообщений: 26
Сказал Спасибо: 19
Имеет 3 спасибок в 2 сообщенях
Hworang пока неопределено
По умолчанию

Цитата:
Сообщение от Breadfan Посмотреть сообщение
скрипт тупо спамит 0F в ответ на любой пакет от серва - что явно не есть гуд.....убей эту ветку, а посылку на итемлист в начало скрипта просто вставь один раз
спс

а я то думаю - падение сервера через 10 минут после запуска скрипта связано со мной или нет )))

вот как получилось
пока работает

где почитать - как сделать окошко для скрипта (как у nlobp в скрипте заточки)?
хотябы самое простое - чтобы была кнопка старт/стоп и кол-во адены писалось
delphi Код:
var i:integer; const nik = 'Char'; procedure Init; //зачем это нужно - не пойму begin end; procedure Free; //зачем это нужно - не пойму begin end; begin buf:=HStr('0F '); SendToServerEx(nik); if pck='' then exit; //зачем это нужно - не пойму if FromServer and (ConnectName=nik) and (pck[1]=#$1B) then //упростил условный оператор    begin          if (ReadH(4)<10) then                begin                  buf:=HStr('A7 9A 5F 01 00 A0 BB 0D 00 ');                  WriteD(195);         //купить 195                  WriteH(0);                  SendToServerEx(nik);                end;             buf:=#$1E;             WriteD(0);             WriteD(ReadH(4)-2);             if (ReadD(12)=2414) then               for i:=1 to (ReadH(4)-2) do               begin                 WriteD(ReadD(i*36-28));                 WriteD(2414);                 WriteD(1);               end             else             for i:=1 to (ReadH(4)-2) do             begin               WriteD(ReadD(i*36+44));               WriteD(2414);               WriteD(1);             end;             SendToServerEx(nik);    end;    //buf:=HStr('0F ');    //SendToServerEx(nik);    if (ReadD(16)>700000000) and (ReadD(12)=57) then    begin        buf:=HStr('38 2E 00 64 00 65 00 70 00 6F 00 73 00 69 00 74 00 00 00 00 00 00 00 ');        SendToServerEx(nik);    end; end.

Последний раз редактировалось Hworang, 16.02.2010 в 13:06.
Hworang вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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