[Информация] Скриптинг или от новичка к профи

[happytorn]

Цитата: Сообщение от chilay07 а каким оброзом к примеру чтоб вместо этого , вставить прост пакет D0 00 57 6F FF 37 09 02 00 53 54 00 00 3F 01 05 CC 00 00 чтоб отправлял(вместо ид скила отправлял нужный пакет)

buf:=hstr('D0 00 57 6F FF 37 09 02 00 53 54 00 00 3F 01 05 CC 00 00');
SendToServer;

[bert4ever]

Цитата: Сообщение от Abensur у меня не получается написать скрипт((( играю на Ньюшке вот мой скрипт, подскажи что я делаю не так? Код: const name = 'borrow'; //тут логин var Timer:TTimer; TimerStep:integer; 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); SendToServerEx(name); end; procedure Init; begin TimerStep:=1; Timer:=TTimer.Create(nil); Timer.OnTimer:=@OnTimer; Timer.enabled:=false; Timer.interval:=300; end; procedure Free; begin Timer.free; end; procedure OnTimer(Sender: TObject); begin case TimerStep of 1: begin DoTheSkill(1990,1); Inc(TimerStep); end; 2: begin DoTheSkill(839,1); TimerStep:=1; end; end; end; begin StartSkill := 1987; if (FromClient) and (ReadC(6) = $CF) and (ReadH(4) = StartSkill) then begin TargetID := ReadD(8); Timer.enabled:=true; end; end.

и так вот первая ошибка которая в глаза кинулась

у тебя строчка:
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then


а должно быть:
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then

[Djagernaut]

Happytorn, подскажи плиз в 3.0 с этим как бороться:

buf := HStr('D0 00 57 6F FF CC CC DD 00 60 CA 00 00 00 00 79 8D 00 00'); //Начальный пакет на скил
WriteH(SkillID, 6); //Вставляем в начальный пакет ID скила
WriteC(Level, 8); //Всталяем в начальный пакет уровень скила
WriteD(TargetID, 10); //Вставляем в начальный пакет ID таргета

[happytorn]

Цитата: Сообщение от Djagernaut Happytorn, подскажи плиз в 3.0 с этим как бороться

Не совсем понятно в чем проблема. Хотя бы отлови и покажи пару пакетов, использования скилов.

[Djagernaut]

Цитата: Сообщение от happytorn Не совсем понятно в чем проблема. Хотя бы отлови и покажи пару пакетов, использования скилов.

D0 00 57 6F FF CC CC DD 00 60 CA 00 00 00 00 79 8D 00 00 -- 2.7

3.0:

21 B3 34 F9 FF B5 02 01 CE B3 59 E9 00 00 00 79 43 B3 59 --- без таргета
95 93 34 F9 FF B5 02 01 42 FE 10 FC 00 00 00 79 CF 93 59 --- таргет на себя
31 93 34 F9 FF B5 02 01 DE 96 AC E9 00 00 00 79 53 93 59 --- таргет на цель

[x-miskalin-x]

Подскажите что означает 14 и 15 байт в Пакете Скила.??
Почему-то клиент посылает не верный пакет на сервер и именно в этих двух байтах проблема... не могу понять из-за чего...
Скил.пак родной

===
И из клиента когда формируется пакет на отправку на сервер - Данные берутся из скил.пака? (ну не считая таргета...) или ещё откуда-то...?

[fanFermara]

Подскажите как должен выглядеть пакет на скил или на юз скила на 3.0 и как его выловить?

Добавлено через 23 минуты
//Script by fanFermara
var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte); //Формируем пакет нового скила
begin
buf := HStr('D0 00 57 6F FF CC CC DD 00 60 CA 00 00 00 00 79 8D 00 00'); //Начальный пакет на скил
WriteH(SkillID, 6); //Вставляем в начальный пакет ID скила
WriteC(Level, 8); //Всталяем в начальный пакет уровень скила
WriteD(TargetID, 10); //Вставляем в начальный пакет ID таргета
SendToServer;
end;
begin

StartSkill := 693; //Ясновидение I
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then

begin
TargetID := ReadD(10);
DoTheSkill(777, 1); //Осторожность I
DoTheSkill(776, 1); //Орлиный глаз I
DoTheSkill(786, 1); //Усиление I
DoTheSkill(646, 1); //Тигриный глаз I
DoTheSkill(684, 1); //Яростный взгляд I
end;

end.

Вот мой скрипт, скажите пожалуйста как мне сделать его под 3.0 подправьте знающие люди!

[just4omp]

Здравствуйте, что то не могу понять как сделать скрипт на серию.
Сделайте пожалуйста скрипт на вот такие серии:
1) [Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]

2)[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]

Заранее благодарен, спасибо пока что еще не смогу сказать.

[vitalyafox1]

как найти на 3.0 ти етого пакета.?
buf := HStr('D0 00 57 6F FF CC CC DD 00 60 CA 00 00 00 00 79 8D 00 00'); //Начальный пакет на скил

[Xsadan]

Кто подскажет нубу куда эти скрипты вставлять((

[Donthappy]

может кто-нибудь скинуть скрипт на задержку

[happytorn]

Обновил первый пост.Добавил для 3.0

[Nathan45]

на сбор ресурсов для 3.0 напишите скрипт пожалуйста

[serega402]

Может кто расскажет как написать скрипт на ноаним? а именно пример скрипта и какие пакеты надо отловить с сервера. + желательно что бы изменение скорости анимации можно было менять в скрипте. Патч 3.7

[Stinson]

Напишите пожалуйста скрипт на авто атаку для 4.0.