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

[.::SHOT::.]

Цитата: Сообщение от 666Смерть666 мм там твой пакет? на то что ты инвиз палишь?

ну да)

[lightbearer]

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
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.
попробуй я просто щас не дома с ноута сижу нет возможности проверить так что проверь

[.::SHOT::.]

Цитата: Сообщение от 666Смерть666 //основная часть скрипта //вызывается при приходе каждого пакета если скрипт включен 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. попробуй я просто щас не дома с ноута сижу нет возможности проверить так что проверь

ща попробую зарание спс)))

Добавлено через 50 минут
Неа не робит(((((((

[Gestapooo]

Цитата: Сообщение от 666Смерть666 Пример скрипта 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

спасибо!работает!
а задержки между скилами можно сделать? пробовал с 2.7 не получилось

[Nacho]

Спасибо большое! А как. задержку сделать? Буду блогодарен.))

[Djagernaut]

На фин..ле не работает ((