Кружок нубов(Вопрос-Ответ) - Страница 108

DeVolf · 05.10.2007, 22:00

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

где я ошибся?

QaK · 29.10.2009, 05:54

GaremkO, поиск в руки и вперед, на форуме есть гайд
g1zmo, посмотри в ветке про ASI. Та ВРОДЕ был.

sk8ty · 29.10.2009, 11:26

Здравствуйте, помогите пожалста...
Запускаю L2ph 3.5.28.151 , настройки брал отсюда
http://coderx.ru/showthread.php?t=423
вообщем ввожу лог/пас -> далее как обычно соглашение-> далее список серверов нажимаю ок - и тут выскакивает фигня "Соединение с сервером прервано.Зайдите в игру пожже."

лог
Оффтоп

Пробовал вставить в поле неигровые порты - порт 4446.
При етом на выборе сервера зависает.

лог
Оффтоп

И еще когда вылетает при последующем входе пишет что персонаж уже в игре.
Cервер valakasworld.com грация финал.

Спс.

spiritofsands · 31.10.2009, 18:53

Приходит пакет "pet status update":

Код:

B6 01 00 00 00 9B 79 0E 10 08 33 02 00 48 3B 02 00 08 D1 FF FF 4B 00 69 00 6C 00 6C 00 43 00 6F 00 6F 00 6C 00 00 00 04 04 98 00 80 96 98 00 D0 41 00 00 D0 41 00 00 31 09 00 00 A9 09 00 00 53 00 00 00 00 19 F5 C1 02 00 00 00 00 19 F5 C1 02 00 00 00 00 31 40 9A 03 00 00 00

Часть скрипта:

Код:

Const name=''
Var a                        : array[1..100] of string;
i,curhppos,curmppos  : integer;
curmp,curhp,maxhp,maxmp,curhphex,curmphex    : string;
procedure Send2Msg(msg:string);
begin 
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(msg);
  SendToClient;
end;
BEGIN
    if (connectname=name) and (pck[1]=#$B6) and (fromserver) then
    begin
        for i:=1 to length(pck) do
            a[i]:=pck[i];
        {###############analiz curhp###############}
        for i:=1 to length(pck) do
        begin
        if (a[i]=#$86) and (a[i+1]=#$96) and (a[i+2]=#$98) and (a[i+3]=#$00) then
        curhppos:=i+4;
        end;
        curhphex:='#$'+a[curhppos]+'#$'+a[curhppos+1]+'#$'+a[curhppos+2]+'#$'+a[curhppos+3];
	curhp:=ReadD(curhphex);

Пишет несоответствие типов.
В чем я ошибся и как считать хп нормально?

alexteam · 31.10.2009, 19:27

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

Оффтоп

delphi Код:

procedure Init; //Вызывается при включении скрипта
begin
  UseForConnectName := 'name';
end;

procedure Free; //Вызывается при выключении скрипта
begin

end;


var
  Values : array[0..100] of variant;
  x, y, z : integer;
  Title : string;
  HpPercent, MpPercent, FeedPercent, LvlPercent : integer;
  
begin
if (fromserver) then
case pck[1] of
#$B6:  //PetStatusUpdate
    begin  
    {
[0]     0002 d  SummonType: 1 (0x00000001)
[1]     0006 d  ObjectID: 269384091 (0x100E799B)
[2]     0010 d  X: 144136 (0x00023308)
[3]     0014 d  Y: 146248 (0x00023B48)
[4]     0018 d  Z: -12024 (0xFFFFD108)
[5]     0022 s  Title: KillCool
[6]     0040 d  CurrentFed: 9962500 (0x00980404)
[7]     0044 d  MaxFed: 10000000 (0x00989680)
[8]     0048 d  CurrenHP: 16848 (0x000041D0)
[9]     0052 d  MaxHP: 16848 (0x000041D0)
[10]    0056 d  CurrenMP: 2353 (0x00000931)
[11]    0060 d  MaxMP: 2473 (0x000009A9)
[12]    0064 d  Level: 83 (0x00000053)
[13]    0068 q  Exp: 11844000000
[14]    0076 q  ExpForThisLevel: 11844000000
[15]    0084 q  ExpForNextLevel: 15472800000}

    readmask('dddddsdddddddqqq',2,Values); 
    //текущие хп пета после этой строчки лежат в values[8].. 
    //но мы пойдем дальше и выведем краткие сведения о пете в лог пх

    x := Values[2];
    y := Values[3];
    z := Values[4];
    Title := Values[5];
    FeedPercent := round(Values[6]/Values[7]*100);
    HpPercent := round(Values[8]/Values[9]*100);
    MpPercent := round(Values[10]/Values[11]*100);
    LvlPercent := round((Values[14]-Values[13])/(Values[15]-Values[14])*100);
    
    sendMSG(format('Pet: "%s" x:%d, y:%d, z:%d, Lvlup: %d%%, Hp: %d%%, Mp: %d%%, feeed: %d%%',
                    [Title, x, y, z, LvlPercent, HpPercent, MpPercent, FeedPercent]));
      
    end;
end;
end.

будет выводить в лог вот такое

Код:

31.10.2009 17:23:11 Script: Pet: "KillCool" x:144136, y:146248, z:-12024, Lvlup: 0%, Hp: 100%, Mp: 95%, feeed: 100%

пакет, для наглядности в качестве коментария оставил, чтобы было понятно откуда беруться values[x] и что это за строчка "dddddsdddddddqqq"

spiritofsands · 31.10.2009, 22:40

Цитата:

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

НЕ квотте простыни!!

Еще одна ошибка:
при отправке через скрипт

delphi Код:

buf:='#$39#$67#404#$00#400#400#$00#400#$00#400';
SendToServerEx('KillCool');

пакета, к нему добавляется в начале #$23#$24#$33 при чем если отправлять через простую отправку - все нормально. Как этого избежать?
Оффтоп

alexteam · 31.10.2009, 23:44

да ? только в начале ?
еще рекоменду почитать чтото где описыаветься тип string и char
ибо в одной строчке. питцотпидисят ошибок.

приемлемые варианты:
buf := #$HexByte#$HexByte2#$Hexbyte3... где 00<=HexbyteX<=FF
buf := #$Byte#$Byte2#byte3 где 0<=byte<255
buf := hstr('hex string')

а еще лучше задавать их вот так.
я так понимаю речь о

Цитата:

Tип: 0x39 (RequestMagicSkillUse)
Pазмер: 12+2
Время прихода: 21:52:22:858
0002 d skillID: 0
0006 d CtrlPressed: 0 (0x00000000)
0010 c ShiftPressed: 0 (0x00)
Mask : ddc

buf := #$39;
writemask('ddc', [skillID, 0, 0]);
SendToServerEx('KillCool');

и еще.
если задана переменная UseForConnectName то вместо SendToServerEx(''); можно просто вызывать SendToServer;

spiritofsands · 01.11.2009, 01:53

Цитата:

Сообщение от http://l2phx.pp.ru/arhive/l2ph_help/

var
i:integer;
s:string;
c:byte;
d:integer;
h:word;
f:double;
q:int64;
begin
i := 10; //offset;
ReadMask('cdhfqs', i, [c, d, h, f, q, s]);
.....

Нашел на сайте хелпа по phx в "Разработка>Скриптинг>Перечень поддерживаемых функций"
процедуру ReadMask. Что означает переменная i ? Что такое "offset;" не понял =\

kordub · 01.11.2009, 03:34

Здравствуйте, помогите настроить L2PacketHack 3.5.28.151. для cервера lineage.ru The Chaotic Throne – Interlude (сервер 4 x10). Версия L2phx_3.2.0 работает отлично, получилось настроить l2phx.3.4.1.83, а вот 3.5.28.151 ну никак не могу…
Пожалуйста, выложите скриншоты настроек. Заранее Спасибо.

TAMBIK · 01.11.2009, 05:16

spiritofsands,

Код:

Что означает переменная i ?

i или xxxxxxxxxxxxxxxx
все =

добавлю
вопрос на сайте другом задал ?
может ответ тебе более понятен там !!

spiritofsands · 01.11.2009, 05:57

Цитата:

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

i или xxxxxxxxxxxxxxxx
все =

Так смысл какой? Какая функция переменной??