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

[8tomat8]

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


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

[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

работал

?

[PanAm]

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

[8tomat8]

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

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

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

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

[YssurTiger]

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

yssurtiger@mail.ru вместе то мы быстрей найдем способ учить скилы=)

[8tomat8]

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

[8tomat8]

А вот собственно и рабочий скрипт :

PHP код:

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. 


Спасибо за содействие) теперь я летаю на сервере)

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