Кружок нубов(Вопрос-Ответ)

[DeVolf]

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.

const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.

где я ошибся?

[Imperial2008]

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

Если правильно понял, то Империалу нужно нечто подобное.

Дело в том, что на моем гфш в холле рифта нет мирной зоны, как на других серверах. Если у вас то же самое, то вот мой скрипт на слив гномов магом.


Суть скрипта проста - маг DAMAGER_CHAR_NAME бьет скиллом DAMAGER_USE_SKILL чара DELEVEL_CHAR_NAME каждый раз, как тот флагнется.

Чар DELEVEL_CHAR_NAME после смерти жмет кнопку В деревню и после реса начинает атаковать чара DAMAGER_CHAR_NAME кулаками до тех пор, пока лвл больше NEW_LEVEL.

Запускается скрипт просто - включаете и бьете кулаками чара DAMAGER_CHAR_NAME


Почему именно рифт? патамуша при нажатии кнопки В деревню вы ресаетесь там же, в холле рифта.

А, еще момент: DAMAGER_CHAR_NAME при включенном скрипте бьет всех, кто его ударит, не только DELEVEL_CHAR_NAME, но исправлять это мне влом)

да, спс это реально то что мне надо было) но нигде я найти не мог)

Добавлено через 14 минут
Еще один вопрос)
Скажите плиз. Вот у меня скрипт:

begin
if fromclient and (pck=#$D0#$45#$00) then
begin
     buf:=hstr('14');
SendToServer;

end;
if fromclient and (pck=#$1A#$E5#$CE#$00#$10) then
begin
buf:=hstr('D0 43 00 93 78 03 10');
SendToServer;
end;
end.

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

[Imperial2008]

Тут на форуме мне Клемберг кидал уже готовый скрипт на делевел (да только на Грации финал он не работал, а сам переделать не могу, навыки не те), по этому создал был альтернативный скрипт, который работает просто на посылке конкретных пакетов на сервер по какому-то логическому действию.
Значит вот скрипт:

        begin   
               
            if FromServer and (ConnectName='Империал') and (pck=#$01#$73#$70#$02#$10) then begin
    buf:=hstr('01 9B 52 04 10 9E C0 01 00 45 CD 03 00 A8 FF FF FF 00');
    SendToServerEx('Империал');
    buf:=hstr('01 9B 52 04 10 9E C0 01 00 45 CD 03 00 A8 FF FF FF 00'); 
    SendToServerEx('Империал');    
    end;
    
        if FromServer and (ConnectName='Searcher') and (pck=#$62#$2A#$00#$00#$00#$01#$00#$00#$00#$00#$00#$00#$00#$18#$04#$3C#$04#$3F#$04#$35#$04#$40#$04#$38#$04#$30#$04#$3B#$04#$00#$00) then begin
    buf:=hstr('01 73 70 02 10 7B C0 01 00 52 CD 03 00 A8 FF FF FF 00');
    SendToServerEx('Searcher');
    buf:=hstr('01 73 70 02 10 7B C0 01 00 52 CD 03 00 A8 FF FF FF 00'); 
    SendToServerEx('Searcher');
    end;         
    
        if FromServer and (ConnectName='Империал') and (pck=#$00#$73#$70#$02#$10#$01#$00#$00#$00#$01#$00#$00#$00#$01#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00) then begin
    buf:=hstr('7D 02 00 00 00 ');
    SendToServerEx('Империал');
    buf:=hstr('3A ');
    end;  
    
            if FromServer and (ConnectName='Империал') and (pck=#$25#$73#$70#$02#$10) then begin
    buf:=hstr('01 9B 52 04 10 9E C0 01 00 45 CD 03 00 A8 FF FF FF 00');
    SendToServerEx('Империал');
    buf:=hstr('01 9B 52 04 10 9E C0 01 00 45 CD 03 00 A8 FF FF FF 00'); 
    SendToServerEx('Империал');
    end;

end.

Но у меня есть два вопроса (просьбы)... Когда я юзаю этот скрипт все работает действительно отлично, но по истечению очень малого кол-во времени скрипт просто "сжирает" оперативную память. За каких-то 10 минут скрипт берет 1-1,5 Гб ОП. С чем это связанно и как это исправить. Если это возможно, то подправьте, пожалуйста, мой скрипт.
Ну и второй вопрос...есть ли какая-то проверка на "флаганутость"? Дело в том, что я то сделал, что бы второй чар (который бьет снимая левел) начинал атаковать только когда придет пакет от первого на атаку, но есть ли что-то более эффективное?

[pascalpwnz]

Как в l2phx3.5.13.122 объявить запись? Type понятное дело не работает, делаю по мануалу (паскаля) через var:

var
 rec:record   
      abc123:string;
      flag:boolean;
     end;

но на 3 строке компилятор ругается.
Как же ее правильно объявить?

[QaK]

pascalpwnz, FastScript не поддерживает типы и записи.

[TAMBIK]

//==========================================
//Tип: 0x48 (MagicSkillUse)
begin
 if FromServer and (pck[1]=#$48) then begin

 if (ReadD(2)=myID) and (ReadD(10)=klID) then begin

   skillID:=ReadD(10);

   HitTime:=ReadD(18);

   ReuseDelay:=ReadD(22);

   Message:=''+inttostr( ReuseDelay+HitTime)+'';
   SendMsg2('Время отката скила:'+Message);

Народ как время из милисекунд перевести в такой вид: 00мин00сек

[Yegor]

TAMBIK, вот написал:

function MsekToString(msek: integer): string;
var
  min, sek: string;
begin
  msek:= msek div 1000;
  min:= IntToStr(msek div 60);
  sek:= IntToStr(msek mod 60);
  if Length(min) = 1 then min:= '0' + min;
  if Length(sek) = 1 then sek:= '0' + sek;
  Result:= min + 'мин ' + sek + 'сек';
end;

[TAMBIK]

А как вместе соединить ?????????????????

[pascalpwnz]

Такой вопрос:
Как реализовать оповещение пользователя? Ну например через проигрывание звука как в валкере.
В мануале нашел "procedure ShowMessage(Msg: Variant);", но оно не очень подходит.

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

А как вместе соединить ?????????????????

Странный вопрос... очевидно, что воспользоваться входным значением.

[Yegor]

pascalpwnz, есть такая Api функция
sndPlaySound('полный путь к аудио файлу', SND_ASYNC);

Будет ли работать в фастскрипте незнаю, попробуй.

[pascalpwnz]

Увы, не компилится. Вопрос актуален.