Скрипт бафф бот

[Xen]

Сделал сегодня скрипт, пока он сырой, но при компиляции вылезла странная ошибка...

Ошибка: Incompatible types: 'String',''>

При этом НЕ подчеркивается строка с ошибкой, т.е. как будто скрипт проходит проверку, но внизу появляется эта надпись и этим ограничивается. Не запускается.

Файл прикрепил, пробывал менять кодировки, и возвращать в ansi, но и это не помогает (думаю это в этом дело). Ошибка в несоответствии типов, но где эта ошибка локализуется непонятно), щас сам поочереди все закомментирую и выявлю.

[NLObP]

Xen, вот где ошибка начинается:

Shield:
        begin
        buf:=WriteC(IDRequestMagicSkillUse);
        WriteD(Shield);                         
        WriteD(CtrlPressID);                 
        WriteC(ShiftPressID);                
        SendToServerEx(BufferName);    
        delay(BuffTime);                     
        end;

В переменную buf пиши id пакета либо так

buf:=hstr('39');

либо так

buf:=#$39;

Слева от команды WriteX() ничего не должно быть, она сама в buf пишет.

Команда delay(); не рекомендуется в скриптах (если только задержка не в пределах 200-500 мс). Она замораживает прогу вместе с клиентом.
Ниже еще опечатка в переменной, вместо UseBuffID написано UseBuff.

[Xen]

Спасибо, скриптованием только занялся, еще не все тонкости понятны.

Если кто может поделитесь кусками или целыми скриптами на данную тематику, а именно баффа, для ознакомления и т.д.
Гуглил и тут искал, но таких скриптов на удивление мало, я б сказал их вообще нет.

С дэлей согласен, оставлять его неразумно, попробую заменить на функцию, которая будет проверять системное сообщение-ответ от сервера об успешности наложения баффа, тогда приступать к след. процессу баффа.

Главная фишка это контроль баффов .)

[Breadfan]

на твое удивление, здесь на форуме есть скрипты для баферов, бд и свс, полностью автономных, с регулярным бафом и хилом, так что я хз как ты "...Гуглил и тут искал..."

[Xen]

Спс NLObP, ошибку нашел, значительную часть полностью переписал. Оффтоп

Не подскажеш как объявить массив констант? А то стандартный метод, например:

Const
Mas: array[1..4] of string=('Первый', 'Второй', 'Третий', 'Четвертый');
var
...
begin
...
end.

Это не проходит, хотя корректно. Хочется в "шапку", на "видное место", а не в процедуру инициализации. Не хочется пихать код в плагин или длл, хотя там полное раздолье.

Мне нужно полная функциональность бафа типа валкера. В тех темах, которые я нашел, там очень простые и банальные примеры, по функционалу похожие на макросы клиента.

Сорри конечно, но видимо я не умею искать ) Тыкни меня носом, на эту "автономность", которую я, пролистав более 10 тем по данной тематике, так и не нашел, да есть конечно чтото похожее на "бота", но такими не являются, т.к. ограничены функционалом или не учитывают реалий "активного кача".

Если скрипт бафа, значит он должен не только раз в ацать минут делать перебаф, но проверять свои и чужие баффы, проверять их кол-во, вдруг моб канцель кинул или т.д., учитывать состояни мр, расстояние до игрока, откат скилла, разрешение бафать в режиме боя, проверять собственное положение для баффа, т.к. не всегда основа близко к баферу, а то в некоторых темах про так называемого "бафф-бота", который лишен банальной проверки сидит он или стоит когда бафает, сводит к 0 эффективность этого скрипта сводя его к макросу клиента.
Тогда да, в этом случае такой скрипт можно назвать "бафф бот", который является автономным, а которые я тут увидел, это обычно "макросы", но с небольшими "прибамбасами" типа трейда и др. "лабуды".

Наверно я не правильно акцент поставил с 1 поста, скрипт для кача, чтобы бафер бегал как аля "2окно" и делал всю скучную работу, но главное - баффы, с хилом в разы проще, там не нужно столько телодвижений делать как с бафами.

[Breadfan]

Grinch, MHz делали уже когда-то скрипт баферов, да и VORON тож....Ворона скрипт взял, добавил баф по таймеру (там, насколько помню - по команде) и вставил проверку на абнормалстатус патимемберов и все. У Grinch`а есть пример организации таймера не по делей, а именно от приходящего пакета с временем каста скила...
Оффтоп

А вместо миллиона строк типа

PHP код:

Mental_Shield:
        begin
        buf:=WriteC(IDRequestMagicSkillUse);WriteD(Mental_Shield);WriteD(CtrlPressID);WriteC(ShiftPressID);
        SendToServerEx(BufferName);
        delay(BuffTime);
        end;
Bless_Shield:
        begin
        buf:=WriteC(IDRequestMagicSkillUse);WriteD(Bless_Shield);WriteD(CtrlPressID);WriteC(ShiftPressID);
        SendToServerEx(BufferName);
        delay(BuffTime);
        end;
Advanced_Block:
        begin
        buf:=WriteC(IDRequestMagicSkillUse);WriteD(Advanced_Block);WriteD(CtrlPressID);WriteC(ShiftPressID);
        SendToServerEx(BufferName);
        delay(BuffTime);
        end; 


использовать

PHP код:

 begin
    buf:=WriteC(IDRequestMagicSkillUse);WriteD(UseBuffID);WriteD(CtrlPressID);WriteC(ShiftPressID);
    SendToServerEx(BufferName);
    delay(BuffTime);
 end; 


- религия не позволяет?

[Xen]

На верхнюю копию можешь не смотреть я ее изменил уже несколько раз) Это копипаст кусок с небольшими вкроплениями моего кода, щас я работаю над расширением функционала до валкерского аналога.
Теперь она выглядит проще, выбором на процедуру:

...
case UseBuffID of 
Shield:             SendPckServerUseSkill(Shield,CtrlPressID,ShiftPressID);
Mental_Shield:      SendPckServerUseSkill(Mental_Shield,CtrlPressID,ShiftPressID);
...
end;

procedure SendPckServerUseSkill(IDSkill,CtrlStatus,ShiftStatus: integer);
begin
    buf:=hstr(IDRequestMagicSkillUse);       // Формируем заголовок пакета (ид)
    WriteD(IDSkill);                                 // Задаем ИД скилла
    WriteD(CtrlStatus);                            // Задаем значение CtrlPressed
    WriteC(ShiftStatus);                          // Задаем значение ShiftPressed
    SendToServerEx(BufferName);             // Отправляем на сервер пакет
end;
...

Скрипт получится в итоге довольно объемным, пока все, мб еще хил прикручу и вебморду

[NLObP]

Сообщение от Xen

Не подскажеш как объявить массив констант?

Попробуй через TStringList (можно из файла грузить или прямо присвоить)

[Fer123]

Не подскажеш как объявить массив констант?

Const
Numbers=['Первый', 'Второй', 'Третий', 'Четвертый'];

[Xen]

Скрипт значительно пополнился. Скрипт умеет распознавать свой бафф, если отсутствует какой-либо баф он его добафает (по опции вкл/выкл.), имеет ПОЛНЫЙ аналог функций валкеровского бафф-бота, щас пишу функции для баффа всей пати и чтобы скрипт был универсальным =)
В планах хилл и следование за пати лидером.
Кстати не все так сложно, как казалось )

У меня вопросик небольшой, как непосредственно в скрипте подключить модули и можно ли?) типа uses Windows; и другие, не критически, но в хелпе не нашел.