[Скрипт] Написание АВТО скриптов под ваш класс.

[lightbearer]

Цитата: Сообщение от fenix17 var TargetID:integer; StartSkill:word; procedure DoTheSkill(SkillID:word; Level:byte); begin buf := HStr('EF 00 6D 10 FF CC CC DD 00 00 00 00 00 00 00 f9 2f 00 00'); WriteH(SkillID, 6); WriteC(Level, 8); WriteD(TargetID, 10); SendToServer; end; begin StartSkill := 951; if (FromClient) and (ReadC(1) = $EF) and (ReadH(6) = StartSkill) then begin TargetID := ReadD(10); DoTheSkill(955, 1); end; end. вот простейший скрипт. при его использовании хил должен бафать на цель Благославение жизни (951) и Благославение защиты (955). НО! бафается почемуто лишь скилл 955, хотя пакеты посылаются от обоих баффов...

код не правельный на 3.0 чуть другой

[fenix17]

Цитата: Сообщение от 666Смерть666 код не правельный на 3.0 чуть другой

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

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

Цитата: Сообщение от -Emp- Если я не ошибаюсь, то он сначала делает проверку на каст 951: StartSkill := 951; if (FromClient) and (ReadC(1) = $EF) and (ReadH(6) = StartSkill) и если он был использован, то тут же использует каст 955: DoTheSkill(955, 1); На цель, на которую был использован каст 951.

именно. StartSkill := 951 - скилл активатор, то есть при его использовании должны выполняться следущие действия : DoTheSkill(955, 1) (можно и дальше до конца блока) .
но дело в том, что скилл активатор 951 почему то не срабатывает, а следующий (955) работает. Загадка для меня)

[-Emp-]

Цитата: Сообщение от fenix17 я в курсе, что он некорректен. почему бы не написать рабочий код, а не бессмысленные посты размещать?...

Дело в том, что он:

Цитата: Сообщение от 666Смерть666 просто рад помочь людям (c)Profit

А по делу, проблема скорее всего в этой строчке:

if (FromClient) and (ReadC(1) = $EF) and (ReadH(6) = StartSkill)

Проверка проходит всегда? Значит что-то тут не так. Я бы попробовал вручную отловить пакеты и внимательно проверить. Может опкод должен быть не $EF, а другой.

[fenix17]

Цитата: Сообщение от -Emp- Дело в том, что он: А по делу, проблема скорее всего в этой строчке: if (FromClient) and (ReadC(1) = $EF) and (ReadH(6) = StartSkill) Проверка проходит всегда? Значит что-то тут не так. Я бы попробовал вручную отловить пакеты и внимательно проверить. Может опкод должен быть не $EF, а другой.

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

Рассмотрю код автора темы:

var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 2238;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(2238, 4);
DoTheSkill(2233, 5);
end;
end.

buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00') - наш пакет-"образец"

далее автор так же работает с битами :

StartSkill := 2238;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);


думаю разницы нет, что этот случай, что мой, делаю всё аналогично...

ошибка где-то тут : 'EF 00 6D 10 FF CC CC DD 00 00 00 00 00 00 00 f9 2f 00 00'

[-Emp-]

Цитата: Сообщение от fenix17 ошибка где-то тут : 'EF 00 6D 10 FF CC CC DD 00 00 00 00 00 00 00 f9 2f 00 00'

Может и тут. У меня, к сожалению, нет возможности проверить это.

В последнем примере, как я вижу, используются 2 скила:

DoTheSkill(2238, 4);
DoTheSkill(2233, 5);

В твоем один.

[fenix17]

Цитата: Сообщение от -Emp- Может и тут. У меня, к сожалению, нет возможности проверить это. В последнем примере, как я вижу, используются 2 скила: DoTheSkill(2238, 4); DoTheSkill(2233, 5); В твоем один.

не в этом суть) можно все скиллы разом выпустить.

[lightbearer]

Цитата: Сообщение от fenix17 я пытаюсь сделать скрипт для 3.0 по аналогии, пользуясь уже имеющимися темами.. в этой строчке я уверен практически... Рассмотрю код автора темы: var TargetID:integer; StartSkill:word; procedure DoTheSkill(SkillID:word; Level:byte); begin buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00'); WriteH(SkillID, 4); WriteC(Level, 6); WriteD(TargetID, 8); SendToServer; end; begin StartSkill := 2238; if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then begin TargetID := ReadD(8); DoTheSkill(2238, 4); DoTheSkill(2233, 5); end; end. buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00') - наш пакет-"образец" далее автор так же работает с битами : StartSkill := 2238; if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then begin TargetID := ReadD(8); думаю разницы нет, что этот случай, что мой, делаю всё аналогично... ошибка где-то тут : 'EF 00 6D 10 FF CC CC DD 00 00 00 00 00 00 00 f9 2f 00 00'

вот это надо менять

[c-lavr]

попробуй так:

Цитата: var TargetID:integer; StartSkill:word; procedure DoTheSkill(SkillID:word; Level:byte); begin WriteH(SkillID, 6); WriteC(Level, 8); WriteD(TargetID, 10); SendToServer; end; begin StartSkill := 951; if (FromClient) and (ReadC(1) = $EF) and (ReadH(6) = StartSkill) then begin buf:=pck; TargetID := ReadD(10); DoTheSkill(955, 1); end; end.

или так

Цитата: var TargetID:integer; StartSkill:word; procedure DoTheSkill(SkillID:word; Level:byte); begin WriteH(SkillID, 6); WriteC(Level, 8); WriteD(TargetID, 10); SendToServer; end; begin StartSkill := 951; if (FromClient) and (ReadC(1) = $EF) and (ReadH(6) = StartSkill) then begin buf:=pck; SendToServer; TargetID := ReadD(10); DoTheSkill(955, 1); pck:=''; end; end.

[fenix17]

Цитата: Сообщение от c-lavr попробуй так: или так

спасибо за помощь, но... В первом случае бафается лишь скилл (955) при использовании активатора (951), а во втором - сам активатор, и всё.

Добавлено через 5 минут
хм, эти 2 скрипта натолкнули на мысль: возможно ли написание индивидуальных скриптов для персонажа, в которых не будет использоваться строчка DoTheSkill, а буду посылаться пакеты отловленных скиллов, в которых будет лишь меняться ID таргета?

[c-lavr]

можно еще больше упростить

PHP код:

var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
WriteH(SkillID, 6);
WriteC(Level, 8);
SendToServer;
end;

begin
StartSkill := 951;
if (FromClient) and (ReadC(1) = $EF) and (ReadH(6) = StartSkill) then
begin
buf:=pck;
DoTheSkill(955, 1);
end;
end. 


Добавлено через 2 минуты
Сделай вот что: скопируй в посылку два пакета своих скилов и отправь их вместе.
Что-то мне подсказывает нужно ставить задержку между пакетиками)

Добавлено через 8 минут
тебе лучше писать в ту тему. или еще проще разобраться в ней ссылка

[fenix17]

Цитата: Сообщение от c-lavr можно еще больше упростить PHP код: var TargetID:integer; StartSkill:word; procedure DoTheSkill(SkillID:word; Level:byte); begin WriteH(SkillID, 6); WriteC(Level, 8); SendToServer; end; begin StartSkill := 951; if (FromClient) and (ReadC(1) = $EF) and (ReadH(6) = StartSkill) then begin buf:=pck; DoTheSkill(955, 1); end; end.  Добавлено через 2 минуты Сделай вот что: скопируй в посылку два пакета своих скилов и отправь их вместе. Что-то мне подсказывает нужно ставить задержку между пакетиками) Добавлено через 8 минут тебе лучше писать в ту тему. или еще проще разобраться в ней ссылка

эффект тот же... бафается лишь 2ой бафф.
Действительно, при отправке на сервер 2х пакетов, только от 1 эффект.

[c-lavr]

тогда между пакетами поставь задержку в 200-400 милисек

[lightbearer]

Цитата: Сообщение от c-lavr попробуй так: или так

спс по аналогии написал свой скрипт на повторялки

[crat]

на фенексе актуально, правдо ни сразу пакеты заработали

[lightbearer]

Цитата: Сообщение от crat на фенексе актуально, правдо ни сразу пакеты заработали

Причем тут пакеты?