ShortCutInit\Управление вторым окном

[Breadfan]

Где-то встречал идею о переносе панелей скилов из пакета ShortCutInit - у когонть наработки имеются?

[J-Fobos]

О переносе куда?

[Breadfan]

Грубо говоря мысль такова:
1. есть 2 окна (1 - главное, 2 - саппорт\ассистент)
2. набор скилов с одной из панелей 2го окна - передаются в 1ое (например одна полоска с рутом\слипом и т.д.) - это приведет к отображению в 1ом клиенте панели 2го
3. вызов скилов с этой панели перехватывается и отправляется на сервер от имени 2го

Не перенос скилов между окнами) Просто вариант управления 2ым окном. Он будет более менее-универсален для разных проф, просто потребуется выставить нужные скилы (которые будут задействованы, к примеру рут\блок вв и прочее, что иногда хочется использовать) на одну из панелей, к примеру на 10ю, откуда ярлыки будут считаны и переданы в клиент 1, причем в самом скрипте править ничего не придется, все будет делаться в клиенте 2

Придется писать отдельную процедуру для распознавания пакета ShortCutInit, т.к. его структура записей в нем различна, в зависимости от ярлыков панели (ярлыки скила\макроса\банки - записываются по разному. Вот из исходников кусочек кода:Оффтоп

{
private static final String _S__57_SHORTCUTINIT = "[S] 45 ShortCutInit";

private L2ShortCut[] _shortCuts;
private L2PcInstance _activeChar;

public ShortCutInit(L2PcInstance activeChar)
{
_activeChar = activeChar;

if (_activeChar == null)
return;

_shortCuts = _activeChar.getAllShortCuts();
}

@Override
protected final void writeImpl()
{
writeC(0x45);
writeD(_shortCuts.length);

for (L2ShortCut sc: _shortCuts)
{
writeD(sc.getType());
writeD(sc.getSlot() + sc.getPage() * 12);

switch(sc.getType())
{
case L2ShortCut.TYPE_ITEM: //1
writeD(sc.getId());
writeD(0x01);
writeD(-1);
writeD(0x00);
writeD(0x00);
writeH(0x00);
writeH(0x00);
break;
case L2ShortCut.TYPE_SKILL: //2
writeD(sc.getId());
writeD(sc.getLevel());
writeC(0x00); // C5
writeD(0x01); // C6
break;
case L2ShortCut.TYPE_ACTION: //3
writeD(sc.getId());
writeD(0x01); // C6
break;
case L2ShortCut.TYPE_MACRO: //4
writeD(sc.getId());
writeD(0x01); // C6
break;
case L2ShortCut.TYPE_RECIPE: //5
writeD(sc.getId());
writeD(0x01); // C6
break;
default:
writeD(sc.getId());
writeD(0x01); // C6

). Хотя если передавать панель с однотипными ярлыками - то все будет нормально.

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

Обновлено: не, настолько внаглую не получится, надо как-то подругому пробовать.................

[J-Fobos]

Отличная идея, да и на первый взгляд не сложная в реализации.

В грации эпилог пакет с клавишами выглядит следующим образом:

45 = id
05 00 00 00 = количество используемых клавиш
................
01 00 00 00 =тип клавиши (итем)
00 00 00 00 =позиция (в данном случаи F1)
BC AF 41 10 =ObjectId итема
01 00 00 00 = хз
FF FF FF FF = хз (вроде как количество, но не уверен)
00 00 00 00 = хз
00 00 00 00 = хз
00 00 00 00 = хз
..................
02 00 00 00 =тип клавиши (скил)
01 00 00 00 =позиция (в данном случаи F2)
64 00 00 00 =id скила
0F 00 00 00 =лвл скила
00 = хз
01 00 00 00 = хз 
.....................
03 00 00 00 =тип клавиши (действие)
02 00 00 00 =позиция (в данном случаи F3)
00 00 00 00 =id действия (в данном случаи сесть)
01 00 00 00 =хз что, но для всех действий всегда такой
.......................
04 00 00 00 =тип клавиши (макрос)
03 00 00 00 =позиция (в данном случаи F4)
E8 03 00 00 =id макроса
01 00 00 00 = хз что, но  для всех макросов всегда такой

Рецептов у меня в сумке не было, так что их я не смотрел. Собственно исходя из выше написанной информации можно написать следующую обработку пакета (в виде массива считаю хорошим решением).

var
type1,slot,id,lvl,a1,a2,a3,a4,a5,a6,a7,a8,a9:array [0..99] of integer; 
//массивы клавиш, 100 значений потому что максимум 100 клавиш.
//массивы а будут использоваться для хранения неизвестных параметров пакета.
//согласен что не оптимально объявлять 9 массивов неизвестных значений:) 

procedure ShortCutInit;

var
count,i,number:integer;

begin

number:=2;//позиция "курсора" в пакете 

count:=ReadD(2); //количество используемых клавиш

for i:=0 to count do
begin

type1[i]:=ReadD(number); //смотрим тип клавиши

case  type1[i] of

1:begin         //обрабатываем клавишу с итемом
slot[i]:=ReadD(number+4);
id[i]:=ReadD(number+8);
lvl[i]:=ReadD(number+12);
a1[i]:=ReadD(number+16);
a2[i]:=ReadD(number+20);
a3[i]:=ReadD(number+24);
a4[i]:=ReadD(number+28);
a5[i]:=ReadD(number+32);
number:=number+36;  //перемещаем курсор на следующую клавишу
end;

2:begin   //обрабатываем клавишу со скилом
slot[i]:=ReadD(number+4);
id[i]:=ReadD(number+8);
lvl[i]:=ReadD(number+12);
a6[i]:=ReadC(number+16);
a7[i]:=ReadD(Number+17);
number:=number+21;  //перемещаем курсор на следующую клавишу
end;

3:begin     //обрабатываем клавишу с действием
slot[i]:=ReadD(number+4);
id[i]:=ReadD(number+8);
lv[i]l:=ReadD(number+12)
a8[i]:=ReadD(number+16);
number:=number+20;
end;

4:begin    // обрабатываем клавишу с макросом
slot[i]:=ReadD(number+4);
id[i]:=ReadD(number+8);
lvl[i]:=ReadD(number+12)
a9[i]:=ReadD(number+16);
number:=number+20;
end;

5:begin 
//а тут надо рецепт дописать, но времени нету :)
number:=number+0;
end;
end;
end;
end;

Дальше надо будет изменить пакет что пойдет в главное окно (в принципе получается что вторичное окно надо будет грузить до того как загружено главное). Код примерно такой:

for i:=1 to count do
case slot[i] of
12:begin {тут изменим клавишу что предлагает сервер, значения возьмем с ранее полученных массивов}end;//если клавиша для F1 второй панельки
13:begin{тут изменим клавишу что предлагает сервер} end;//если клавиша для F2 второй панельки
14:begin{тут изменим клавишу что предлагает сервер} end;//если клавиша для F3 второй панельки
end;

Это уже будем править под себя пакет пакет с главного окна.


PS: не уверен в правильности кода, писал в блокноте

[Breadfan]

Ну (как я думаю), в данном варианте рецепты и рассмотривать не стоит, т.к. расчитывается скрипт на использование в замесах\фарме, где лучше не переключаться меж окон, либо на использование вместе с отключенным клиентом (NoCloseServerAfterClientDisconnect; )
Поправлю: максимум - 120 клавиш (10 панелек по 12). Так же можно в любой момент вызвать пакет ShortCutInit - добавив и тут же убрав любой скил\банку\макрос на панель.

В данный момент считывает 10ю панельку у 'donor' (кнопки отвечающие условию slot>107) и в виде набора макросов передает в главное окошко. Макрос в названии и акроним имеют ИД скила (впоследствии надо изменить акронимы), внутри он же - т.е. при его нажатии перс в общий чат пишет этот ИД. Запись названия скила убрал из-за кривости руссификации серверной части - после релога русские символы в макросе превращаются в наборы вопросительных знаков, так что куски использующие работу с SkillsID.INI - можно будет смело выкинуть, или заменить файл его английский версией ...
При этом передаются лишь скилы - остальное пока не стал создавать. Напрямую передать - попытка провалилась) Ярлык скила появляется - но серый, при его нажатии пакетов годных для обработки клиент не отправляет к сожалению, так что немного изменил принцип.

Теперь необходимо добавить части обрабатывающие пакеты от 'rec' - своевременно убивать их, не давая попасть на сервер, и включать скил\прочее в клиенте 'donor', соответственно запроса, ну и часть следящую за таргетом...На пару минут копаний

Добавлено через 1 час 34 минуты
Кстати, надо будет оценить, насколько жестко он будет относиться к уже имеющимся макросам

[Breadfan]

Может сразу сделать работу только с макросами имеющими определенное имя (напр. cut1, cut2...cut12), и проверять наличие свободных ячеек под вновь создаваемые - что бы не переживать за сохранность ранее созданных

Пока вылилось в "это":
Оффтоп

const
rec='Lapeno';
donor='Freya';
var
SkillsNameEng,ItemsNameEng,StringList:TStringList;
i,ii,iii,SKID,Slot:integer;
SkillID:integer;
Pskill:array[1..12] of string;   //массив с именами скилов панельки
PskillID:array[1..12] of integer;//массив с ИД          --//--
values:array[0..100] of variant;
procedure Init; //Вызывается при включении скрипта
begin
  StringList:=TStringList.Create;
  SkillsNameEng:=TStringList.Create;
  ItemsNameEng:=TStringList.Create;
  try
    SkillsNameEng.LoadFromFile('skillseng.ini');
  except
    Sendmsg('SkillsidEng.ini не найден!');
    exit;
  end;
  try
    ItemsNameEng.LoadFromFile('itemseng.ini');
  except
    Sendmsg('ItemsIDEng.ini не найден!');
    exit;
  end;
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
    if fromserver and (connectname=donor) and (pck[1]=#$45) then begin      //InitCut
        i:=(ReadD(2));                                  //kol-vo Cuts
        Sendmsg('Kol-vo Cuts: '+Inttostr(i));   
        ii:=6;
        for iii:=1 to i do begin
        
            case  (ReadD(ii)) of 
                1:begin                          //item
                    ReadMask('ddddddhh',2,values);
                    ii:=ii+28;
                end;
            
                2:begin
                                               //skill
                    Slot:=ReadD(ii);
                    SKID:=ReadD(ii);
                    ReadD(ii);
                    ReadC(ii);
                    ReadD(ii);
                    if (slot>107) then begin          //Запись только с 10ой панельки
                        Pskill[(slot-107)]:=(SkillsNameEng.Values[InttoStr(SKID)]);
                        if (Pskill[(slot-107)]='') then Pskill[(slot-107)]:=('Unkn: '+Inttostr(skid));
                        PskillID[(slot-107)]:=skid;
                        Sendmsg(Pskill[(Slot-107)]+' ID skill: '+inttostr(PskillID[(slot-107)]));
                        Sendmsg('Slot '+Inttostr(slot));
                        Sendmsg('SKID '+Inttostr(SKID));
                        buf:=#$CD;
                        WriteMask('DSSSCCCCDCS',[(15+(slot-107)),((Pskill[(Slot-107)])),'',(Inttostr(SKID)),0,1,1,3,0,0,('Use Skill: '+inttostr(PskillID[(Slot-107)]))]);
                        Sendmsg(Strtohex(buf));
                        Sendtoserverex(rec);
                        end;
                    end;
            
                3:begin                         //social action
                    ReadMask('ddd',2,values);
                    ii:=ii+12;
                end;

                4:begin                         //macro
                    ReadMask('ddd',2,values);
                    ii:=ii+12;
                end;
                
                5:begin                         //recipe
                    ReadMask('ddd',2,values);
                    ii:=ii+12;
                end;
      
          end;
          end;
    end;
      
    if fromclient and (connectname=rec) and (pck[1]=#$49) and (Copy(ReadS(2),1,10)='Use Skill:') then begin
       SkillID:= StrtoInt(Copy(ReadS(4),11,4)); //из команды в чат считываем ИД скила
       pck:='';                                 //
       buf:=#$39;                               // формируем пакет   MagicSkillUse
       WriteMask('ddc',[SkillID,0,0]);          // и отправляем его
       Sendtoserverex(donor);                   // в клиент 'donor'
     end;
end.

- Пока что оно "переносит" только скилы, не бегает за 'rec', не меняет таргет, не делает прочего, чего бы туда ни хотелось засунуть Только включает скилы со своей 10ой панели (предварительно таргет надо взять)
И все бы ничего, но только зарраза чат блокирует периодически, при спаме макроса

PS: файлы skillseng.ini и itemseng.ini - взяты от более старой версии - L2phx 3.2.1, изза этого будут недочеты...

[supernewbie]

Я делал такое

Помоему не проще ли

begin
if FromServer and (ConnectName=Name1) and (pck[1]=#$45) then
begin
buf:=pck;
SendToClientEx(Name);
end;
end;

PS это если надо перенести панель с одного перса на другого. Перед этим еще придется переносить СкиллЛист и ИтемЛист, это давольно удобно при написании скрипта "Вселение", который вселяет в перса от которого есть только соединение)

[Breadfan]

Это вообще явно не такое. К чему мне полностью замененная панель? в моем варианте - добавляются макросы на панель Главного, в твоем же - произойдет полная замена. Я смысла от такого "вселения" не вижу - ты заменишь скиллист, итемлист - а к чему это все? проще без извращений сразу в окне с бафером быть
У меня так: в главном окне формируется набор макросов, повторяющих скилы выставленные на 10ую панель ведомого окна. При нажатии макрос в чат выдает текстовую команду use skill xxxx (ид скила) - команда перехватывается и отправляется на ведомый клиент. Ведомый, получив такую команду и юзает соответствующий скил на цель находящуюся в таргете у Главного. Простейший пример применения: лук в связке с пп - берет в таргет цель, жмет макрос на своей панели (пп берет в таргет ту же цель и кидает ей рут) и спокойно расстреливает...Выделяет себя - бафает ченть или может хильнутся - как угодно....
Можно то же самое сделать написав обработчик наподобие "если от клиента А в чат "используй 1" то --> в клиенте Б включить скил 1" НО: для каждого отдельного перса придется создавать свой обработчик команд, в зависимости от набора имеющихся скилов, моя же цель - создание унифицированного скрипта, минимизирующего правку и подгонку под разные профы\случаи: сегодня бегаю луком и пп, а завтра - спойлером + овер

[Breadfan]

В итоге вышло: бегает за ведущим не тыкая по нему (соответственно удерживая нужную цель в таргете), а используя координаты перемещения, юзает свитки ТП, стараясь использовать то же что и ведущий, держит в таргете ту же цель что и ведущий. Диапазон разницы координат при перемещении при старте равен 99, в процессе может меняться командой в чат "mult XX", где х - 0..99, либо нажатием Соц.Действий "Да"\"Нет" - с шагом 10. Порядок запуска - запустить скрипт, открыть сумку бота (в лог L2PHX выведет инфу о наличии сое: тип 1 - сое, 2 - соеКХ, 3 - соеЗамок), принять его в пати (будут считаны необходимые ИД персов). Макросы в главном окне - имеют имя - ИД скила, акроним - его название (необходима англ. версия файла SkillsID.ini под именем skillseng.ini !!! - от одной из старых версий подойдет переименованный) - сформировать набор скилов на 10ой панели( если это необходимо) и на какой либо другой (1-9) переместить туда-сюда любой ярлык (перемещать надо для формирования пакета ярлыков).
Если бегаете с mult не сильно маленьким - то лучше маленькими перебежками не передвигаться, иначе саппорта болтать начинает, как г... в проруби НЕ бьет с Ctrl (хотя это можно подправить при желании в блоке формирования пакета скила), не тепешится от гк одновременно с ведущим, НЕ тестировалась работа при отключенном клиенте (да и нет там пары кусков для такого).
Гонял в основном связку тх+пп, и под конец написания тх+спойл, так что замечания - только приветствуются
Файлы из архива files.rar кинуть в корень папки L2phx
Хроники: Грация Финал (ну судя по тому что на моем сервере написано )
Обновлено:
mod_2: Оффтоп

добавлена возможность управления сумонами - тестировалось на ПП(ведущий)+гном с чайником
изменение дистанции разбега - соц.действием Да\Нет
включить\выключить зажатый контрол - соц.действие Bow - действует на перса и на его сумона (при наличии) Названия макросов управления сумоном - пока обезличены, имеют в названии лишь ИД скилов

[Kilatif]

Вообще интересная идея.. Сам бы занялся, имея бы достаточные знания вообще о пакетах, о написании скриптов... Спасибо)