[Script] [Tutorial] Меняем пакеты в WPF.

[Nukas]

Первый раз работаю со скриптами, вот по примеру сделал скрипт на замену обычного бафа на архон баф. но почемуто когда бафаюсь то бафается скил который и должен а не архон. знающие люди скажите где ошибка.

BEGIN
 if not _gFromServ then
  if StrCmp(_gBuff, HStr('13001104090080003CAC080000AAAAAAAA6629')) then
     begin
        _gOutBuff := HStr('13001104360080003CAC080000AAAAAAAA6629');
        WriteLogln('Ok');
     end;
END.

[Глюконатор]

Эффект от того бафа который должен или от архоновского? И еще проверь пакет. Он вроде как меняется.

[Nukas]

Я знаю что он меняется, я создаю скрипт на момент сесии, бафается скил который положено! в примере я проде использовал стрелковй баф на увеличение скорости атаки

[Dimani413]

если он не пишит активного ип знач ты не так все запустил или профиксер не прав запускать нада 1ое впф 2ое профиксер 3тье рф.ехе

[s-cheh]

Вроде сделал все как надо, но при вклчении скрипта выдает аткую ошибку:

Цитата: .compiling {FS text script} 28.07.2008 15:08:03 .compiled (time: 10 ms.) . .'OnCreate' not found... .running Script {FS text script} 28.07.2008 15:08:03 .var's: . .end Script ( >>> SCRIPT TIME: 10 ms. <<< ) .'OnDestroy' not found... .end;

Или

Цитата: .running {WPS text script} 28.07.2008 15:10:04 .ERROR(8): Unknown function: STRCMP STRCMP ( _GBUFF , HSTR ( ' 0C 00 04 0A 00 00 84 00 C7 48 00 00' ) ) .end (time: 0ms.)

или

Цитата: .running {WPS text script} 28.07.2008 15:29:31 .ERROR(11): Too many END E .end (time: 0ms.)

[Глюконатор]

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

[Морда]

Цитата: Сообщение от Nukas Первый раз .... BEGIN if not _gFromServ then if StrCmp(_gBuff, HStr('13001104090080003CAC080000AAAAAAAA6629')) then begin _gOutBuff := HStr('13001104360080003CAC080000AAAAAAAA6629'); WriteLogln('Ok'); end; END.

вот это 80003CAC0800лучше убрать да и все что после тоже.
Лучше просто менять ИД бафа
вот так

BEGIN
 if not _gFromServ then
  if StrCmp(copy(_gBuff,3,4), HStr('11040900')) then
     begin
        _gOutBuff := _gBuff; 
        _gOutBuff[5] := $36; 
        WriteLogln('Ok');
     end;
END.

или

BEGIN
 if (not _gFromServ) and StrCmp(copy(_gBuff,3,4), HStr('11040900')) then _gOutBuff[5] := $36;     
END.

[Leo_ня]

Я конечно не по теме... точнее по теме, но в нужном разделе этой темы нет.. в-общем я про РО)
Ну, кто играл, поймёт меня.
Короче, когда персонаж появляется в зоне видимости, то получаешь пакет типа "CharMovie" или как-то так.. и в этом пакете показывается ID статуса персонажа (заморожен, в хайде, в клоке, в кёрсе, в платье, с птичкой, с телегой). Ну так вот, если поставить скрипт, на замену ID клока(невидимости, у ассассинов), на ID какого нибудь светящегося + тележку, то можно был бы их палить). Полезно было бы на арене, видеть синов и кросов в клоке)

зы:

Цитата: вот это 80003CAC0800лучше убрать да и все что после тоже. Лучше просто менять ИД бафа вот так

тоесть можно заменять не полностью пакет, а только часть?) хм.. ща потещу в рфке на эмоциях (вместо махания руки - смех)

зыы: в рфке тоже можно поставить скрипт на "CharInfo", тоесть менять в нём айди статуса чара)

[Морда]

И не только в "CharInfo".
Есть пакет об изменении статуса там все.
Но статус везде передается битовой переменной каждый бит чтото включает чтото выключает.
Есть толк подменять или скажем дополнять некоторые пакеты пакетом "гестюре"
Если просечещь зачем, поясню как.

[Leo_ня]

гестюре.. это вроде эмоция, прыжок, действие там)

ток я не понял, как скриптом менять только част пакета, тоесть что-то типа "******1c01******", менять на "******1c02******"

надо половить пакетов как нибудь.. когда чар в невидимости и без неё)
потом поиграцо со скриптом)

Добавлено через 26 минут

Цитата: Сообщение от s-cheh Вроде сделал все как надо, но при вклчении скрипта выдает аткую ошибку: Цитата: .compiling {FS text script} 28.07.2008 15:08:03 > SCRIPT TIME: 10 ms. <<< )......... ..........'OnDestroy' not found... .end; или Цитата: Цитата:.running {WPS text script}...... .......end (time: 0ms.)

WPS не работает в этой версии ВПФ. А про первую "ошибку", Глюк уже сказал, что эт не ошибка, там говориться, что запуск скрипта успешен.. хотя не совсем.. какой-то "OnDestroy" не найден)

Добавлено через 34 минуты
вот пакет чаринфо..
4100031F3104F91803000100011212B90000B90000B90000B90000B90000FFFF010C0100FFFF0000FFFFFFFF2a2a2a2a2a007000393400 000000000000FFFFFF00

это вроде, как выглядит чар, если 01, 02 и т.д поменять на другое, например на 05, то у чара пропадут части тела) тобишь он станет невидимым (только у тебя в клиенте), тоесть можно сделать обратное - найти пакет чаринфо невидимого чара, скопировать его в скрипт, и делать замену на другой, чтобы было видно чара

кто меня понял?)

Добавлено через 38 минут
что то типо этого:

Цитата: BEGIN if (not _gFromServ) and StrCmp(copy(_gBuff,3,4), HStr('000100011212B90000B90000B90000B90000B90000FF FF')) then _gOutBuff[5] := $0005000000000700000600000500000900000f0000FFFF; END.

[Морда]

Цитата: Сообщение от Leo_ня гестюре.. это вроде эмоция, прыжок, действие там) Цитата: верно ток я не понял, как скриптом менять только част пакета, тоесть что-то типа "******1c01******", менять на "******1c02******" Цитата: 1) запомнить пакет в стринг: PaketDO := _gBuff; 2) изменить часть пакета: можно так PaketDO[X] := $021C; // это меняет байт номер Х на 1С а байт Х+1 на 02 //........... X X+1 ........... //"****** 1c 02 ******" можно так pint(PaketDO,$021C,2); // тоже самое, pint - put integer, $021C, 2 - 2байта .... какой-то "OnDestroy" не найден).... Цитата: просто напоминает что при остановке скрипта неплохобы выполнить процедурку "OnDestroy", её ты должен описать сам, используют восновном для коррекного завершения скрипта - закрытие файлов потоков, освобождение памяти, удаления процесса из памяти, отсоединения от сервера, форматирования системного диска, пополнения кошелька фэбмани, переизбрания президента грузии. вот пакет чаринфо.. 4100031F3104F91803000100011212B90000B90000B90000B90000B90000FFFF010C0100FFFF0000FFFFFFFF2a2a2a2a2a007000393400000000 000000FFFFFF00 Цитата: вот этот 01 - статус вроде-бы BEGIN if (not _gFromServ) and StrCmp(copy(_gBuff,3,4), HStr('000100011212B90000B90000B90000B90000B90000FF FF')) then // так нельзя _gOutBuff[5] := $0005000000000700000600000500000900000f0000FFFF; // так нельзя END.

Ээээ на те "Увеличьте ваше сообщение до 10 символов."

[Leo_ня]

Цитата: вот этот 01 - статус вроде-бы

посмотрим..

Цитата: // так нельзя ээээ на те "увеличьте ваше сообщение до 10 символов."

мм.. не понял..

[Морда]

Цитата: Сообщение от Leo_ня мм.. не понял..

это я про маленький размер поста, ругается однако, пришлось дописать

Добавлено через 33 минуты
Вы спрашивали:

Цитата: можно хоть десяток допингов выпить только например +20 +40 + (шоп)+55 + 35 и тож самое на дефф ну и как?)..

пакетами
так
"гестуре сесть" програмирую =1
"гестуре встать" програмирую =0
"гестуре махать" работаю = 1
"гестуре стоп" работаю =0

если клиент_сэнд = 0707 то
если програмирую =1
CASE(номерпачки)
1 банка20 = _gBuff; номерпачки = 2; break;
2 банка40 = _gBuff; номерпачки = 3; break;
3 банка50 = _gBuff; номерпачки = 0;
end;
если програмирую = 0 номерпачки = 0;
если работаю = 1
for 1 to 3 do begin
послать(банка20);
послать(банка40);
послать(банка50);
end;
end;

[Leo_ня]

Не понимаю зачем ты говоришь со мной на "вы", это я должен говорить с ВАМИ, на "вы", потому что я не могу понять то что ты написал, потому что у меня не хватает мозга, я признаю себя тупым нубом, а вас гением %)

Цитата: BEGIN if (not _gFromServ) and StrCmp(copy(_gBuff,3,4), HStr('000100011212B90000B90000B90000B90000B90000FF FF')) then // так нельзя _gOutBuff[5] := $0005000000000700000600000500000900000f0000FFFF; // так нельзя

я не понял, почему нельзя?)

[Морда]

Цитата: Сообщение от Leo_ня я не понял, почему нельзя?)

А я и не обьяснял, в надежде что люди доки читают хоть иногда.
Там формат этих операторов расписан с примерами.
Т.ч. возвращаемся к мат части и учим.
зы
Хотя ладно
StrCmp(А,Б) - сравнение строки А с Б, чтобы это имело смысл как минимум надо чтобы длина строки А = длине строки Б. А у нас?
А=copy(_gBuff,3,4) длина 4 байта
Б=HStr('000100011212B90000B90000B90000B90000B90000 FF FF') дофига байт
т.е. писать такие условия конечно можно, но есть короче способ - 1=0 :-)

_gOutBuff[5] := $0005000000000700000600000500000900000f0000FFFF;
кто-нибудь может выписать тут это число? $0005000000000700000600000500000900000f0000FFFF
я не программист и не знаю ограничений для целочисленных переменных.