PDA

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

Tyomytch
20.08.2012, 20:28
И так с помощью даного скрипта вы сможете снимать сон и коляску/problem
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 сек сон или коляска снимается!:bl:
извините что такой вид, я просто не знаю как сделать норм)
если чтото не ясно пишите постараюсь обьяснить, если работает отписывайте где тестилось:)
BUMBASTIKS
20.08.2012, 21:02
Вроде была тема от Mars"a", где всякое дерьмо с себя снимаешь. Если уж ты и выложил ,то будь добр, напиши хотя бы для какой версии, а то люди будут гадать, и писать что не работает ,не зная, что по версии не подходит.

Добавлено через 3 минуты
Вот же она - [Ссылки могут видеть только зарегистрированные и активированные пользователи] и вот - [Ссылки могут видеть только зарегистрированные и активированные пользователи] =\
x-miskalin-x
21.08.2012, 17:25
И чё реально работает?
BobGubko
21.08.2012, 17:32
И чё реально работает?

да)
все работает
если что не ясно то пиши в лс мне или в скайп tyomytch6
я просто забыл пасс от Tyomytch пришлось зарегаться заново/dgs
и кстати от спасибок не откажусь)
Terrorbllade
21.08.2012, 17:49
На newaion х75 Работает?
ARTi4
21.08.2012, 18:01
на нью х2 точно пашет . сеня тестил
kviki1990
21.08.2012, 22:45
вместо pck=Hstr('B2 00 57 71 FF 00 20 00 00 00 ') лучше писать ReadS(7)=' '
а вместо таймера и структуры case лучше используй delay(150), где 150 - миллисекунды
Получится что-то типа этого:

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
22.08.2012, 00:26
на счет delay(150) ты не прав.
это заморозит всю игру!
а вот с таймером - основной поток будет по прежнему обрабатываться, а нужный пакет отправит с требуемой задержкой.
altairalentus
22.08.2012, 00:27
вместо 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
28.08.2012, 17:08
вместо pck=Hstr('B2 00 57 71 FF 00 20 00 00 00 ') лучше писать ReadS(7)=' '
а вместо таймера и структуры case лучше используй delay(150), где 150 - миллисекунды
Получится что-то типа этого:

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 пакетов за раз отправлять.