Помогите, нуждаюсь))))

[8tomat8]

Я извиняюсь, я где то видел подобную тему но найти не могу вобще никак:(
Поймите меня правильно и если кто то знает дайте ссылку на ту тему)


Так вот, есть у меня пакет 6C 02 01 00 00 01 00 00 00 00 00 00 00 , на изучение скила. Мне надо сделать так что бы pck[6] менялся на +1 при определенном пакете от клиента.
Как привязать проблем нету, осталась проблема как изменять и отсылать серверу измененное :pardon: не шарю))
Помогите плиииз

[AD!]

var levels:integer;
....
levels:=0;

.....
if (ConnectName=name) and (FromClient) then
begin

if (pck[1]='#$1B') and (pck[2]='#$06') then //социальное действие Yes
begin
levels:=levels+1;
buf:=#$6C; //6C
WriteD(258); //02 01 00 00
WriteD(levels); //
WriteD(0); //00 00 00 00
SendToServerEx(Name);
end;
end;


как-то так, не проверял на работоспособность)

[Grinch]

угу прикольно интересно где этот идиотизм ещё работает

[PanAm]

На мелке в С4 работал прекрасно....

[Grinch]

PanAm, работал?

[PanAm]

сейчас интерлюд, не проверял, а в С4 работало изучение скилов профы чара без проверки уровня, и вроде мультипрофа на заточке скилов (это я не проверял). что говорить, если там можно было создовать гибридов орко-хумонов. )

[8tomat8]

угу прикольно интересно где этот идиотизм ещё работает

Наверно на L2strike, там мультипрофа и поскольку впадлу каждый раз впадлу искать в списке нужный скил, то захотелось автоматизировать, по по причине отсутствия достаточного опыта токо потратил кучу времени на свои эксперементы):)

Добавлено через 4 минуты
хахахаха, спасибо конечно за помощ но мне уже влепили бан хаххаахах:D

[YssurTiger]

Томат меня тотже вопрос мучает,создал себе нового героя,а скилы в лом качать,и полез за советом сюда=)я на страйке играю)там скилы нефига не пашут рб..выкидывает стукни yssurtiger@mail.ru вместе то мы быстрей найдем способ учить скилы=)

[8tomat8]

меня на мульте окончательно там забанили, а на х500 я все точеное другу отдал):D

[8tomat8]

А вот собственно и рабочий скрипт :
var l:integer;
begin
if (pck[1]=#$1B) and (pck[2]=#$06) then //Yes
begin
l:=l+1;
buf:=#$6C; //6C
WriteD(229); //ID скила
WriteD(l); //
WriteD(0); //00 00 00 00
SendToServer;
l:=l;
end;
end.
Спасибо за содействие) теперь я летаю на сервере):D

Добавлено через 19 часов 45 минут
сори) мусор пооставлял в скрипте)))

[Amorality]

8tomat8,
Бред какой-то ты написал :)
Сначало плюсуешь к l еденицу, а потом присваеваешь l значение 1.. Смысл? Либо первое, либо второе определенно лишнее..

[lexayar]

l:=l;
Amorality, Да это он не единицу присваивает, а переменную саму себе)) определенно это лишнее)

[8tomat8]

Я же написал что мусор не поубирал) чо вы так строго?))))))) я не специально))))) оно всеравно ничего не меняет, так что юзайте

[8tomat8]

Народ подскаажите плиз для этого скрипта одну вещь)
На изучение скила я отправляю пакет:
6C 22 01 00 00 01 00 00 00 00 00 00 00
Как мне сделать так что бы какой то переменной(к примеру I) присваивалось значение ID скила(22 01 00 00)?
Я попытался командой ReadD но в итоге меня кикнуло)
помогите плиз) Спасибками не обделю)

[ManiDevil]

Могу дать наводку где прога пашет я гмал но так как я не шарю не пользовался но пакеты в проге присылает))и не дискнектит вот сслка интерлюд http://exi-world.net/

[8tomat8]

Могу дать наводку где прога пашет я гмал но так как я не шарю не пользовался но пакеты в проге присылает))и не дискнектит вот сслка интерлюд http://exi-world.net/
Ты это к чему?Оо

[lexayar]

Как мне сделать так что бы какой то переменной(к примеру I) присваивалось значение ID скила(22 01 00 00)?
ReadD(2);

[8tomat8]

ReadD(2);

благодарю)

Добавлено через 1 минуту
Стоп, а как присваивать это какойто переменной?)))))

[lexayar]

))) обычно:
I:=ReadD(2);
Там где будешь юзать вместо: WriteD(229); пиши:
WriteD(I);
Только учти, чтоб на тот момент I уже вычислена была.

Добавлено через 1 минуту
угу прикольно интересно где этот идиотизм ещё работает Думаю везде работает, это обычный процесс точки скила. Вчера для хелбоунда написал такой скрипт, когда руками точить надоело:)

[8tomat8]

Добавлено через 6 минут
Только учти, чтоб на тот момент I уже вычислена была.
Ну это уже понятно) спс)

Добавлено через 5 минут
Думаю везде работает, это обычный процесс точки скила
В данном случаи процес - не точения, а Учения скилов)

[lexayar]

В данном случаи процес - не точения, а Учения скилов) Теперь понятно:) Значит принцип одинаковый (почти), просто у меня на хеллбоунде Ид пакетов другие.

Добавлено через 1 минуту
Стоп, а как присваивать это какойто переменной?))))) Только сейчас дошло, что это прикол был:)) Гы Гы.

[8tomat8]

с начала чото не так было...)

[8tomat8]

Народ подскаажите плиз для этого скрипта одну вещь)
На изучение скила я отправляю пакет:
6C 22 01 00 00 01 00 00 00 00 00 00 00
Как мне сделать так что бы какой то переменной(к примеру I) присваивалось значение ID скила(22 01 00 00)?
Я попытался командой ReadD но в итоге меня кикнуло)
помогите плиз) Спасибками не обделю)

АП!!!:confused:

[PanAm]

Var
i : integer;
begin
if fromclient and (pck=#$6C) then begin
i :=ReadD(2);
end;
end.
недолжно тут выкидывать.

[8tomat8]

недолжно тут выкидывать.
Сори):pardon: