[Скрипт] Скрипт сбор ресурсов/эфира

[tatarich]

как узнать id

Добавлено через 2 минуты
например большая частица эфира)

Добавлено через 2 часа 8 минут
{************************************************* ************************************************** ****************************
Скрипт для сбора любого типа ресурсов в Айон от TR0Y ©

Принцип действия: Меняет координату появления ресурса, заменяя ее на координату текущего месторасположения пресонажа.
Данное изменение происходить ТОЛЬКО в клиенте игрока, на сервере и остальных игроков ресурс распологается на стандартном месте
появления данного ресурса. При сборе нет анимации сбора ресурса.
Притягиваемый ресурс принимает вид из константы значения "GatherModelID" с названием значения "GatherNameID"
Если нужно временно исколючить ресурс из списка, поставьте перед его ID 2 знака деления: // - это называется
"комментарий", все что идет за ними в этой строке, является комментарием, программа их не обрабатывает, т.е. не "видит"
Для версии Aion 2.1
Версия: 1.1
Дата: 13.03.11
************************************************** ************************************************** ****************************}
const // список константа
GatherModelID=409002; // ID модели ресурса (внешний вид притягиваемого ресурса)
GatherNameID=743753; // ID названия ресурса (название ресурса) - Папоротник
FindTypeGeater= // ID СОБИРАЕМЫХ типов ресурсов

[ // СПИСОК СОБИРАЕМЫХ РЕСУРСОВ:

401011, // Большая частица эфира: 100 - Элтенен
401022, // Пылающий эфир: 375 - Интердика
401021, // Пылающий эфир: 350 - Интердика
401020, // Пылающий эфир: 325 - Интердика
401019, // Пылающий эфир: 300 - Интердика
400810, // Щука: 290 Интердика
401010, // Маленькие частицы эфира: 75 - Элтенен
400719, // Бинан - Ингисон
400414, // Гардения - Ингисон
400619, // Гернита - Ингисон
400017, // Дайкон - Ингисон
401040, // Магический эфир: 475 - Ингисон
401039, // Магический эфир: 450 - Ингисон
400512, // Носфе - Ингисон
400018, // Ромейн - Ингисон
400812, // Тетра - Ингисон
400325, // Кельфарат - Ингисон
400906, // Фенес - Ингисон
400618, // Эоде - Ингисон
400110 // Ядовитый газ - Ингисон

];

var // список переменных
myX,myY,myZ, // мои координаты
CurrentTargetID, // текущий ид таргета
TypeResID,i // тип ресурса
: integer;
values : array [0..100] of variant; // Считываем значения из пакета
tick: integer;

function Pause(Timewait: Integer):Boolean; // сквозная проверка без остановки скрипта
var t : integer;
begin
result:= false;
t:= Round(Time*86400);
if t>(tick+Timewait) then
begin
tick:= t;
result:= true;
end;
end;

procedure Init; //Вызывается при включении скрипта: инициализация переменных
begin
CurrentTargetID:=0;
myX:=0;myY:=0;myZ:=0;
tick:=0;
TypeResID:=0;
end;

procedure Free; //Вызывается при выключении скрипта: выгружаем память
begin

end;

procedure NewCoordSpawnGather;
var i: byte;
begin
// Создаем пакет с новыми координатами выделенного объекта
if (CurrentTargetID>0)AND(GatherModelID>0)AND(GatherN ameID>0) then
begin
buf:=HStr('2E 54 CD');
WriteD(myX);
WriteD(myY);
WriteD(myZ);
WriteD(CurrentTargetID);
WriteD(0);
WriteD(GatherModelID);
WriteC(1);WriteH(0);
WriteD(GatherNameID);
WriteD(0);WriteH(0);WriteC(100);
SendToClient;
end;
end;

procedure CorrectCoordinatGeater(ObjID, TypeID, NameID: integer);
begin
TypeID:=GatherModelID; // Все в виде GatherModelID
NameID:=GatherNameID; // Все с именем GatherNameID
if (ObjID>0)AND(TypeID>0)AND(NameID>0) then
begin
buf:=HStr('2E 54 CD');
WriteD(myX);
WriteD(myY);
WriteD(myZ);
WriteD(ObjID);
WriteD(0);
WriteD(TypeID);
WriteC(1);WriteH(0);
WriteD(NameID);
WriteD(0);WriteH(0);WriteC(100);
SendToClient;
pck := '';
end;
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
BEGIN //************************************************** ************************************************** *****************

If pck='' then exit; //Не обрабатываем пустые пакеты

try

if FromClient then
case pck[1] of
// id x y z ?
#$9E: // перемещение персонажа Пример: 9E * *|30 55 3B 45|55 48 19 45|6C D9 4F 42|6E 00 для 2.1
begin
ReadMask('hddd',2,values);
myX:=values[1];
myY:=values[2];
myZ:=values[3];
end;

#$B5: // таргет, начинается на B5 57 72... (Например: B5 57 72 D5 D9 11 00 00 , где "D5 D9 11 00" - ид цели) для 2.1
begin
CurrentTargetID:= ReadD(4);
end;

#$C9: // C9 57 66 для 2.1
begin
if ((pck[4]=#$15)And(pck[5]=#$05)) then // Соц. действие "показать пальцем"
begin
NewCoordSpawnGather;
pck := '';
end;
if ((pck[4]=#$15)And(pck[5]=#$12)) then // Соц. действие приклонить колени
begin
buf:=HStr('67 57 04'); // ТПшимся, обновляем обстановку
SendToServer;
pck := '';
end;
end;

end; // case FromClient

//----------------------------------------------------------------------------------------------------------------------------

if FromServer then // от сервера
case pck[1] of

#$2E:
if ((pck[2]=#$54) and (pck[3]=#$CD)) then // Пришел пакет на спавн 2E 54 CD для 2.1
begin
TypeResID:= ReadD(24);
for i:=0 to Length(FindTypeGeater) do
if (TypeResID = FindTypeGeater[i])then
begin
ReadMask('hddddddcccd',2,values); // считываем байты по маске
CorrectCoordinatGeater(values[4],values[6],values[10]); // Вызываем процедуру коректировки координат ресурса
end;
end;

end; // case FromServer

//----------------------------------------------------------------------------------------------------------------------------

except
// тут обрабатываем возможное исключение/ошибку при выборе ид пакета
end;

end.

Добавлено через 2 часа 12 минут
я правильно поставил?

[Rick7]

эт конечно круто, но незя как то замутить чтоб притянуть персонажа к себе?
что то в роде призыв члена группы как у закла

[blekkill]

Всё сделал как написано; появлятся, появляется но собрать не могу пишит не возможно использовать предмет. Даже в 5м находится ресурс всё равно не собирает. пытался изменить папоротник с эфиром встовлял из списка ID эоде появляется вообше другая трава.

Цитата: Сообщение от Tr0y Если на сервере проверяется дистанция ресурса и вас, то собирать ничего не будет...

: если по этому, то почему этот скрипт работает и с 20м: тема http://zhyk.ru/forum/showthread.php?...=1#post1001753

народ подскажите плиз

[Tr0y]

blekkill, tatarich, вас должны лишь интересовать константы:

Цитата: const // список констант GatherModelID=409002; // ID модели ресурса (внешний вид притягиваемого ресурса) GatherNameID=743753; // ID названия ресурса (название ресурса) - Папоротник FindTypeGeater= // ID СОБИРАЕМЫХ типов ресурсов

GatherModelID - если поменять эту цифру на свою, то внешний вид "притягиваемого" ресурса изменится, эта опция "косметическая", на работу не влияет.
GatherNameID - отвечает за название притягиваемого ресурса (чтобы для каждого не писать макрос), ресурсу присваивается новое название, в моем случае "Папоротник", эта опция "косметическая", на работу не влияет.
FindTypeGeater - это массив ид собираемых ресурсов скриптом, скрипт последовательно сравниваем найденный им появление ресурса и елси оно совпадает с одним из элементов этого массива, то "притягивает" к вам, меняя его вид и название, оставляя "содержимое" неизменным. Данную опцию следует менять на свой "вкус", она как раз и отвечает за тот вид "притягиваемо" ресурса.
В виде "бонуса" в макросе вшита еще процедура притягивания, выделяете ресурс, нажимаете соц. действие "указать пальцем" и выделенный ресурс притягивается.

ЗЫ прошу не задавать глупых вопросов и читать внимательно первый пост, скрипт все еще актуален на моей фришке. Если вы не в состоянии пользоваться такими скриптами, возможно он кажется сложным на первый взляд, хотя он по работе довольно простой, прошу его не использовать и всем будет проще жить -)

Если на моем серваке поставят проверки я попытаюсь написать скрипт-обход ну или бота, мне это не так сложно сделать.

[Inako]

Благо читать умею но всё же встретился с проблемой. Сервер - NewAion; Ошибка - при нажатии конпки выполнения скрипта ничего не происходит. Ошибок никаких не выбивает но действий так же нету. Пользуюсь следующим пх http://zhyk.ru/forum/showthread.php?t=193304
Так пх работает, ловил пакеты, работал с ними но почему-то Ваш скрипт не хочет выполнять

[pwigra113]

Скрипт рабочий, спасибо)

[zeaglot]

с сегодняшнего дня с этим скриптом тпшимся на месте не работает командой 67...
незнаю почему(

[Inako]

Нашел свою ошибку и теперь всё работает=) Для тех кто не знает, скрипт нужно открывать в разделе Автоматизация--->Скрипты дальше открываем скачаный скрипт и напротив его названия ставим галочку(в правой колонке) тем самым он активируеться. Очень таки полезный бот за что автору огромнейшая благодарность (как только наберу мессагов обязательно тыкну). Единственная проблема что после приседания персонаж продолжает мигать и при сборе эфира рука собирает пыль из воздуха что есть немножко палевным...

[=CLOSED=]

Как нажимаю на эмоцию тут же рвётся соединение, что нужно исправить?

[warlock9]

пасибо огромное-скрипт супер

[Inako]

Заметил даже такое что этот скрипт позволяет собирать и эфир находясь на земле. Процедура та же, главное найти нужный ID эфра, а то для каждой локации он свой. Сначало думал что он только для ресов, а сеня опробовал и всё пучком ^_^

[Drelann]

вы хотя бы посмотрите на пакеты - они не везде одинаковые...

[Inako]

Эмм... Автор это, кста, продумал и создал 2 вида скриптов, под 2.0 и 2.1. Там же в коде есть алгоритм выбора нужных пакетов, т.е. в самом скрипте нету полных пакетов его сервера, что позволяет адаптировать сию разработку под любой сервер.

[pwigra113]

Цитата: Сообщение от Inako Заметил даже такое что этот скрипт позволяет собирать и эфир находясь на земле. Процедура та же, главное найти нужный ID эфра, а то для каждой локации он свой. Сначало думал что он только для ресов, а сеня опробовал и всё пучком ^_^

ID у предметов сбора не зависит от локации, к примеру 400312 //Алмаз, вбиваешь и собираешь независимо от того, в какой локации.
P.S. Главное чтобы ресы, которые вы собираете, были в окружающей вас зоне. Тогда они будут тпшиться прямо вам под ноги)

[Inako]

Цитата: Сообщение от pwigra113 ID у предметов сбора не зависит от локации, к примеру 400312 //Алмаз, вбиваешь и собираешь независимо от того, в какой локации. P.S. Главное чтобы ресы, которые вы собираете, были в окружающей вас зоне. Тогда они будут тпшиться прямо вам под ноги)

Зависит, еще как зависит. Я убил минут 20 пока лазил по сайбу-бд что б найти ID Осколка эфира который паарит над Интердерикой! Оказываеться там было их несколько и поэтому пришлось перебирать... Бывает такое что в одной локе может находиться один ресурс но с несколькими ID