Принимаю заказы

[rtghf]

кому нужны скрипты для версии 3.0+, заказуйте!
Оформление заказа:
1)Класс
2)скилы, которые хотим увидеть в скрипте (жилательно ссылками)
по возможности благодарим меня спасибками и повышением репутации.
P.S выполню заказы не раньше 2-3 марта. после буду выполнять заказы по мере свободного времени

[78dima]

А на быстрый релог не сможешь сделать? Отблагодарю

[rtghf]

на быстрый релог неполучается( пробовал, получается быстрый выход из игры...

[VVarn1ng]

На снятие бана xD

[rtghf]

Цитата: Сообщение от VVarn1ng На снятие бана xD

бред прошу не писать

[AsyVen]

Переделай все скрипты под 3.0 с моей темы.

[rtghf]

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

[TheTrollFather]

А как на счёт антихайда?) Вот это реально будет очень полезно, а то раздел aion опустел уже) нечего интересного, а вес мёд в подполье походу)

[rtghf]

Цитата: Сообщение от TheTrollFather А как на счёт антихайда?) Вот это реально будет очень полезно, а то раздел aion опустел уже) нечего интересного, а вес мёд в подполье походу)

братюнь, сори( на антихайд немогу(((( до этого совершенства я ещё не дошел(((

[TheTrollFather]

Где же c-lavr давно его работ не было видно( А по теме: на моём серве стоит какая то защита типа когда юзаешь все скилы моментально пишет что необходимо вырубить сторонние ПО и выкидывает с игры(

[rtghf]

Цитата: Сообщение от TheTrollFather Где же c-lavr давно его работ не было видно( А по теме: на моём серве стоит какая то защита типа когда юзаешь все скилы моментально пишет что необходимо вырубить сторонние ПО и выкидывает с игры(

хреново тебе(
да,без c-lavra туго(((
c-lavr- где же ты????

[Nathan45]

Переделай пож.скрипт сбора под 3.0

//Mod by Usilok d.16.02.2012
var
IdRes,i,b:integer;
name:string;
Timer:TTimer;

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

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

procedure OnTimer(Sender: TObject);
begin
buf:=hstr('CE 00 57 6D FF');
writed(b);
buf:=buf+#$00;
SendToServerEx(name);
buf:=hstr('BA 00 57 79 FF 00 00 00 00');
SendToServerEx(name);
inc(b);
inc(i);
if (i>50) then Timer.enabled:=false;
end;

begin
//проверяем пакет
if FromClient then
case pck[1] of
//узнаем иди ресурса
#$CE:
begin
IdRes:=readD(6);
end;
//ловим пакет на эмоцию думать
#$c2:
begin
if pck=HStr('C2 00 57 61 FF 15 21 00 00 00 00 00') then
begin
b:=IdRes;
name:=ConnectName;
//Активируем таймер
i:=1;
Timer.enabled:=true;
end;
end;
end;
end.

[rtghf]

Цитата: Сообщение от Nathan45 Переделай пож.скрипт сбора под 3.0 //Mod by Usilok d.16.02.2012 var IdRes,i,b:integer; name:string; Timer:TTimer; procedure Init; begin Timer:=TTimer.Create(nil); Timer.OnTimer:=@OnTimer; Timer.interval:=100; Timer.enabled:=false; end; procedure Free; begin Timer.enabled:=false; end; procedure OnTimer(Sender: TObject); begin buf:=hstr('CE 00 57 6D FF'); writed(b); buf:=buf+#$00; SendToServerEx(name); buf:=hstr('BA 00 57 79 FF 00 00 00 00'); SendToServerEx(name); inc(b); inc(i); if (i>50) then Timer.enabled:=false; end; begin //проверяем пакет if FromClient then case pck[1] of //узнаем иди ресурса #$CE: begin IdRes:=readD(6); end; //ловим пакет на эмоцию думать #$c2: begin if pck=HStr('C2 00 57 61 FF 15 21 00 00 00 00 00') then begin b:=IdRes; name:=ConnectName; //Активируем таймер i:=1; Timer.enabled:=true; end; end; end; end.

что за скрипт?

[Nathan45]

Скрипт на сбор для 2.7 прошу переделать его поз 3.0

[rtghf]

Цитата: Сообщение от Nathan45 Скрипт на сбор для 2.7 прошу переделать его поз 3.0

я ж писал,делаю скрипты на скилы...