[Скрипт] Снятие сна и колясок скриптом

[Tyomytch]

И так с помощью даного скрипта вы сможете снимать сон и коляску
var
i:integer;
name:string;
Timer: TTimer;

procedure Init;
begin
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@TimerOn;
Timer.interval:=150;
Timer.enabled:=false;
end;

procedure Free;
begin
Timer.enabled:=false;
end;

procedure TimerOn;
begin
case (i) of
9:
begin
buf:=HStr('CA 00 57 69 FF D9 05 00');
SendToServerEx(name);
inc(1);
Timer.enabled:=false;
end;

8:
begin
buf:=HStr('CA 00 57 69 FF A3 05 00');
SendToServerEx(name);
inc(i);
end;

7:
begin
buf:=HStr('CA 00 57 69 FF AE 05 00');
SendToServerEx(name);
inc(i);
end;

6:
begin
buf:=HStr('CA 00 57 69 FF D7 05 00');
SendToServerEx(name);
inc(i);
end;
5:
begin
buf:=HStr('CA 00 57 69 FF 63 20 00');
SendToServerEx(name);
inc(i);

end;

4:
begin
buf:=HStr('CA 00 57 69 FF 64 06 00');
SendToServerEx(name);
inc(i);
end;

3:
begin
buf:=HStr('CA 00 57 69 FF 95 06 00');
SendToServerEx(name);
inc(i);
end;

2:
begin
buf:=HStr('CA 00 57 69 FF F5 06 00');
SendToServerEx(name);
inc(i);
end;

1:
begin
buf:=HStr('CA 00 57 69 FF F6 06 00');
SendToServerEx(name);
inc(i);
end;
end;
end;


begin
name:=ConnectName;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 20 00 00 00 ')) then // написать в чат пробел
begin
i:=1;
Timer.enabled:=true;
end;
end.
тестилось на версии 2.7
скрип активируеться так в чат пишите пробел и через 1-2 сек сон или коляска снимается!
извините что такой вид, я просто не знаю как сделать норм)
если чтото не ясно пишите постараюсь обьяснить, если работает отписывайте где тестилось

[BUMBASTIKS]

Вроде была тема от Mars"a", где всякое дерьмо с себя снимаешь. Если уж ты и выложил ,то будь добр, напиши хотя бы для какой версии, а то люди будут гадать, и писать что не работает ,не зная, что по версии не подходит.

Добавлено через 3 минуты
Вот же она - http://zhyk.ru/forum/showthread.php?p=2534553, и вот - http://zhyk.ru/forum/showthread.php?t=372439 =\

[x-miskalin-x]

И чё реально работает?

[BobGubko]

Цитата: Сообщение от x-miskalin-x И чё реально работает?

да)
все работает
если что не ясно то пиши в лс мне или в скайп tyomytch6
я просто забыл пасс от Tyomytch пришлось зарегаться заново
и кстати от спасибок не откажусь)

[Terrorbllade]

На newaion х75 Работает?

[ARTi4]

на нью х2 точно пашет . сеня тестил

[kviki1990]

вместо pck=Hstr('B2 00 57 71 FF 00 20 00 00 00 ') лучше писать ReadS(7)=' '
а вместо таймера и структуры case лучше используй delay(150), где 150 - миллисекунды
Получится что-то типа этого:

PHP код:

begin
If FromClient and (reads(7)=' ') then
begin
buf:=HStr('CA 00 57 69 FF F6 06 00'); 
sendtoserver;
delay(150);
buf:=HStr('CA 00 57 69 FF F5 06 00'); 
sendtoserver;
delay(150);
buf:=HStr('CA 00 57 69 FF 95 06 00'); 
sendtoserver;
delay(150);
buf:=HStr('CA 00 57 69 FF 64 06 00'); 
sendtoserver;
delay(150);
buf:=HStr('CA 00 57 69 FF 63 20 00'); 
sendtoserver;
delay(150);
buf:=HStr('CA 00 57 69 FF D7 05 00'); 
sendtoserver;
delay(150);
buf:=HStr('CA 00 57 69 FF AE 05 00'); 
sendtoserver;
delay(150);
buf:=HStr('CA 00 57 69 FF A3 05 00'); 
sendtoserver;
delay(150);
buf:=HStr('CA 00 57 69 FF D9 05 00'); 
sendtoserver;
end; 
end. 


[manyunya]

на счет delay(150) ты не прав.
это заморозит всю игру!
а вот с таймером - основной поток будет по прежнему обрабатываться, а нужный пакет отправит с требуемой задержкой.

[altairalentus]

Цитата: Сообщение от kviki1990 вместо pck=Hstr('B2 00 57 71 FF 00 20 00 00 00 ') лучше писать ReadS(7)=' ' а вместо таймера и структуры case лучше используй delay(150), где 150 - миллисекунды

Это норм работает если будет немного пакетов. Потому что delay(n) останавливает скрипт и обработку пакетов на n миллисекунд, уже в этом скрипте суммарная задержка 1350 миллисекунд + время работы скрипта + пинг + лаги и может получиться что не снимешь дебаф а только быстрее умрешь.

[x-miskalin-x]

Цитата: Сообщение от kviki1990 вместо pck=Hstr('B2 00 57 71 FF 00 20 00 00 00 ') лучше писать ReadS(7)=' ' а вместо таймера и структуры case лучше используй delay(150), где 150 - миллисекунды Получится что-то типа этого: PHP код: begin If FromClient and (reads(7)=' ') then begin buf:=HStr('CA 00 57 69 FF F6 06 00');  sendtoserver; delay(150); buf:=HStr('CA 00 57 69 FF F5 06 00');  sendtoserver; delay(150); buf:=HStr('CA 00 57 69 FF 95 06 00');  sendtoserver; delay(150); buf:=HStr('CA 00 57 69 FF 64 06 00');  sendtoserver; delay(150); buf:=HStr('CA 00 57 69 FF 63 20 00');  sendtoserver; delay(150); buf:=HStr('CA 00 57 69 FF D7 05 00');  sendtoserver; delay(150); buf:=HStr('CA 00 57 69 FF AE 05 00');  sendtoserver; delay(150); buf:=HStr('CA 00 57 69 FF A3 05 00');  sendtoserver; delay(150); buf:=HStr('CA 00 57 69 FF D9 05 00');  sendtoserver; end;  end.

Ерунда. Это работать не будет.
Разве что на древних серверах где можно 100500 пакетов за раз отправлять.