[Скрипт] Написание скриптов под 3.0

[lightbearer]

Пример скрипта

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 := 2437;
if (FromClient) and (ReadC(1) = $EF) and (ReadH(6) = StartSkill) then
begin
buf:=pck;
TargetID := ReadD(10);
DoTheSkill(2348, 4);
end;
end.

2437 это наш айди активатора скрипта меняем его под себя 2348 айди скилла айди который вылетает после активатора 4 это уровень скилла ну вообщем это всё [Ссылки могут видеть только зарегистрированные пользователи. ]не реклама
Псссы. Со скриптом помог c-lavr

[Oni-San]

Хм очень кстати спасибо за пример скрипта

такой вопрос на анти инвиз случаем не имеется такого ?

[lightbearer]

Цитата: Сообщение от Oni-San Хм очень кстати спасибо за пример скрипта такой вопрос на анти инвиз случаем не имеется такого ?

Наверное через неделю сделаю сейчас времени нету

[Oni-San]

Цитата: Сообщение от 666Смерть666 Наверное через неделю сделаю сейчас времени нету

Буду признателен будит еще спасибка

[ZlukaZorg]

Дождались ))) Работает

[.::SHOT::.]

Цитата: Сообщение от 666Смерть666 Наверное через неделю сделаю сейчас времени нету

вот это бы не помешало а по раньше не можешь сделать?) очень нужнооо)

[lightbearer]

Цитата: Сообщение от .::SHOT::. вот это бы не помешало а по раньше не можешь сделать?) очень нужнооо)

Вообще времени нету как будет напишу скрипт

[.::SHOT::.]

Цитата: Сообщение от 666Смерть666 Вообще времени нету как будет напишу скрипт

может обьяснишь как сделать его плизззззззззз))

[lightbearer]

Цитата: Сообщение от .::SHOT::. может обьяснишь как сделать его плизззззззззз))

Ловишь пакет когда заюзан скилл антиинвиз вместо ид персонажа везде 00 и берешь за шаблон скрипт для 2.7 и если есть клиент 2.7 то можеш посмотреть какой пакет отвечает за какую функцию

[.::SHOT::.]

Цитата: Сообщение от 666Смерть666 Ловишь пакет когда заюзан скилл антиинвиз вместо ид персонажа везде 00 и берешь за шаблон скрипт для 2.7 и если есть клиент 2.7 то можеш посмотреть какой пакет отвечает за какую функцию

как узнать id перса? клиент и 2.7 есть и 3.0 скрипт на 2.7 тож найду)
а когда ты сам его сделаешь?)
просто сам не ху* не пойму)

[lightbearer]

Цитата: Сообщение от .::SHOT::. как узнать id перса? клиент и 2.7 есть и 3.0 скрипт на 2.7 тож найду) а когда ты сам его сделаешь?) просто сам не ху* не пойму)

время будет обязательно сделаю

[.::SHOT::.]

Цитата: Сообщение от 666Смерть666 время будет обязательно сделаю

как узнать ID ПЕРСА????

[xamik :3]

автор да раскажи ты им как узнать ид перса!мне тоже интересно.

[.::SHOT::.]

Цитата: Сообщение от 666Смерть666 ладно скажу как нужен друг когда вы взяли в таргет ловите пакет начинающийся на ED с 6 по 10 байтов ид персонажа

спс большое я на сообчений 5 тыкнул спс) ща проверю)

Добавлено через 13 минут
карочи зырь что получилось


procedure Init; //Вызывается при включении скрипта
begin

end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin

if fromserver and (readC(1)=$EF) and (ReadC(35)=$00) then begin
buf := hstr('EF 00 6D 10 FF B5 02 01 00 7D 00 00 00 00 00 79 8D 00 00');
writes(ReadS(50) + ' ' + vartostr(readH(length(pck)-19)) + ' ');
setlength(buf, length(buf)-2);
case ReadC(37) of
$04: writes('Убийца ');
$05: writes('Стрелок ');
$0B: writes('Чародей ');
$08: writes('Закл ');
$01: writes('Глад ');
$0A: writes('Целитель ');
$02: writes('Страж ');
$07: writes('Волш ');
end;
setlength(buf, length(buf)-2);
case ReadH(length(pck)-13) of
$01: writes('Воин 9-го ранга');
$02: writes('Воин 8-го ранга');
$03: writes('Воин 7-го ранга');
$04: writes('Воин 6-го ранга');
$05: writes('Воин 5-го ранга');
$06: writes('Воин 4-го ранга');
$07: writes('Воин 3-го ранга');
$08: writes('Воин 2-го ранга');
$09: writes('Воин 1-го ранга');
$0A: writes('Офицер 1-го ранга');
$0B: writes('Офицер 2-го ранга');
$0C: writes('Офицер 3-го ранга');
$0D: writes('Офицер 4-го ранга');
$0E: writes('Офицер 5-го ранга');
$0F: writes('Генерал');
$10: writes('Великий генерал');
$11: writes('Командующий');
$12: writes('Военачальник');
end;
sendtoclient;
end;
end.



красным был id перса (A2 01 00 00) я поставил как ты сказал 00 00 00 00 ну проверяй)

[lightbearer]

Цитата: Сообщение от .::SHOT::. спс большое я на сообчений 5 тыкнул спс) ща проверю) Добавлено через 13 минут карочи зырь что получилось procedure Init; //Вызывается при включении скрипта begin end; procedure Free; //Вызывается при выключении скрипта begin end; //основная часть скрипта //вызывается при приходе каждого пакета если скрипт включен begin if fromserver and (readC(1)=$EF) and (ReadC(35)=$00) then begin buf := hstr('EF 00 6D 10 FF B5 02 01 00 7D 00 00 00 00 00 79 8D 00 00'); writes(ReadS(50) + ' ' + vartostr(readH(length(pck)-19)) + ' '); setlength(buf, length(buf)-2); case ReadC(37) of $04: writes('Убийца '); $05: writes('Стрелок '); $0B: writes('Чародей '); $08: writes('Закл '); $01: writes('Глад '); $0A: writes('Целитель '); $02: writes('Страж '); $07: writes('Волш '); end; setlength(buf, length(buf)-2); case ReadH(length(pck)-13) of $01: writes('Воин 9-го ранга'); $02: writes('Воин 8-го ранга'); $03: writes('Воин 7-го ранга'); $04: writes('Воин 6-го ранга'); $05: writes('Воин 5-го ранга'); $06: writes('Воин 4-го ранга'); $07: writes('Воин 3-го ранга'); $08: writes('Воин 2-го ранга'); $09: writes('Воин 1-го ранга'); $0A: writes('Офицер 1-го ранга'); $0B: writes('Офицер 2-го ранга'); $0C: writes('Офицер 3-го ранга'); $0D: writes('Офицер 4-го ранга'); $0E: writes('Офицер 5-го ранга'); $0F: writes('Генерал'); $10: writes('Великий генерал'); $11: writes('Командующий'); $12: writes('Военачальник'); end; sendtoclient; end; end. красным был id перса (A2 01 00 00) я поставил как ты сказал 00 00 00 00 ну проверяй)

мм там твой пакет? на то что ты инвиз палишь?