Расчитано на пвп серваки и изобилие блес точек...
Использование: включаем скрипт, включаем скрипт << СМОТРЕТЬ
забиваем ник и уровень точки, точим нужную шмотку на +1(не важно со скольки), скрипт запоминает необходимые данные, 1е соц действие включает и выключает автозаточку. 1е соц действие << СМОТРЕТЬ
Скорость заточки выставлена 500мс(+2 в секунду), можно ускорять или замедлять в зависимости от сервака...
Ясн,зделал =).
Вопрос, где в этом скрипте устанавливается скорость энчата?
Я так и непонял где устанавливать скорость энчата,единственное что я там нашол
Цитата:
begin
FormMain:=Create_FormMain;
//Enchant:=false;
CurEnchLvl:=0;
timer:=TTimer.Create(nil);
timer.OnTimer:=@OnTimer;
timer.enabled:=false;
timer.interval:=500; //время задержки
парни, я играю на сервере mordred.ru . И там точка стоит 1 адену безоп точка 20к она же и максимальная. Но вот одно но я вхожу на сервер активирую скрипт все как положено и нет никакого эффекта. Прошу помочь мне-нубу. Жалко сервер такой нашел а так и не смог воспользоваться вашим чудным скриптом!
парни, я играю на сервере mordred.ru . И там точка стоит 1 адену безоп точка 20к она же и максимальная. Но вот одно но я вхожу на сервер активирую скрипт все как положено и нет никакого эффекта. Прошу помочь мне-нубу. Жалко сервер такой нашел а так и не смог воспользоваться вашим чудным скриптом!
Ясн,зделал =).
Вопрос, где в этом скрипте устанавливается скорость энчата?
Я так и непонял где устанавливать скорость энчата,единственное что я там нашол
Подскажите плиз. А то ели точит )
если поставишь меньше будет банить, в моём скрипте менять скорость инчанта здесь:
Код:
#$FE: begin
if pck[2]=#$81
then begin
flagFE:=true;
delay (2000);
exit;
end;
Последний раз редактировалось v0ltag3, 01.08.2009 в 13:26.
Причина: Добавлено сообщение
вот что получилось в этом скрипте: Автоматизация заточки by NLObP!
Команда Старт!!!
Прервано!
Команда Старт!!!
Прервано!
Команда Старт!!!
Прервано!
Почему прервано?
Добавлено через 12 минут
парни я смогу без скрипта только скажите как сделать чтобы все заточки были в инвентаре все в одном квадратике может у кого есть софт скиньте плиз
Последний раз редактировалось helpme777, 01.08.2009 в 19:06.
Причина: Добавлено сообщение
Попробывал все скрипты выложэнные в этой теме,не один не работает =), Только вот единственный от TAMBIK
Код:
const
nik='pixel';
Enchant=13;
var
UseItem, EnchantItem: string;
Count, CurrentEnch: integer;
Timer01: TTimer;
procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=800;
end;
procedure OnTimer01(Sender: TObject);
begin
buf:=UseItem;
SendToServerEx(nik);
buf:=EnchantItem;
SendToServerEx(nik);
end;
procedure Free;
begin
Timer01.free;
count:=0;
CurrentEnch:=0;
end;
begin
if FromServer and (pck[1]=#$81) then case ReadD(2) of
0: begin
CurrentEnch:=CurrentEnch+1;
if CurrentEnch=Enchant then Timer01.enabled:=false;
end;
2: CurrentEnch:=0;
end;
if FromClient and (pck[1]=#$14) then UseItem:=pck;
if FromClient and (pck[1]=#$58) then EnchantItem:=pck;
if FromClient and (pck=#$1B#$02#$00#$00#$00) then
begin
pck:='';
Timer01.enabled:=not(Timer01.enabled);
end;
end.
И то после нажатия 1соц действия,над юзнуть точку чтоб он точнул,а сам автоматом нехочет ).
Я знаю что данные скрипты выкладывались под блесс точи,но мне интерестно почему они нехотят точить простыми точками.
На ХБ блесами точил на ура,а на Т0 простыми немогу,поидее должножэ работать)
Подскажите как подредактировать дан скрипт чтоб он автоматом точил)
Последний раз редактировалось Doberman, 02.08.2009 в 02:32.