Продажа вещей с уникальным ID

[Hworang]

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

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

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

P.S. покажите хотябы пример, как отправлять пакет на покупку и продажу через скрипт

[Xa4ik]

А на заточку +65к и последущийю дюп ненужно ?

[Hworang]

Сообщение от Xa4ik

А на заточку +65к и последущийю дюп ненужно ?

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

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

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

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

[alexteam]

чето сообщение стало похоже на мою тетрадку по русскому языку.. в пятом классе..

[spoil99]

Сообщение от alexteam

чето сообщение стало похоже на мою тетрадку по русскому языку.. в пятом классе..

тебе еще повезло, а мне до сих пор это снится!

[alexteam]

ну.. да.. логично.. события прошлогодней давности не так смазаны в памяти как события 15 летней..

[Breadfan]

Сообщение от Hworang

как сделать такой скрипт
P.S. покажите хотябы пример, как отправлять пакет на покупку и продажу через скрипт

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

[Hworang]

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

тормозит и комп и линия
помогите оптимизировать

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.

[Breadfan]

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

[Hworang]

Сообщение от Breadfan

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

спс

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

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

где почитать - как сделать окошко для скрипта (как у nlobp в скрипте заточки)?
хотябы самое простое - чтобы была кнопка старт/стоп и кол-во адены писалось

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.