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

[TAMBIK]

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

Извиняюсь, не понял?

сам с собой в пати. % и SP в 2 раза больше получаю

[Imperial2008]

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

сам с собой в пати. % и SP в 2 раза больше получаю

А как это ты сделал?
Послал пакеты на пати сам себе и принял пакетом его?

[Yegor]

TAMBIK, вот это глюки, не удивлюсь если такое возможно на шоке. С каждым апдейтом становить все больше и больше новых ошибок.

[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, но исправлять это мне влом)

[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.

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

[QuesT]

плз помогите нубу я этой прогой начел недавно пользоватсо почитал ваш форум немного. я слышал о такой вещи что с помощью этой проги мона тип покупаеш short sword и заменить его на любое другое оружие но у меня почему то не получается пробывал много раз мот я непрально что настроил вроде изменяю ID вещи прально и отправляю пакет но нечего непроисходит не кика не разрыва соединения нечего изменяю я ID во время покупки вещи.
вот скрины плз помогите разобратсо




сори если не по теме пишу.

//nlobp: Ты неверно форум выбрал. Здесь данные вопросы не рассматриваются. Читай правила форума.

[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сек