Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг
Войти через OpenID

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 17.05.2009, 23:19   #21
Новичок
 
Регистрация: 15.05.2009
Сообщений: 7
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Гема пока неопределено
По умолчанию

Чет я или туплю под вечер, ни кто не подскажет в каком пакете HP передается других персонажей. Может плохо ищу. Валкер же видит как то HP других игроков и л2контрол тоже.
П.С. Искал в пакете CharInfo. Щас поищу по форуму еще...

Последний раз редактировалось Гема, 17.05.2009 в 23:30.
Гема вне форума   Ответить с цитированием
Старый 14.03.2010, 15:35   #22
Новичок
 
Регистрация: 16.02.2010
Сообщений: 20
Сказал Спасибо: 5
Имеет 0 спасибок в 0 сообщенях
0rfin пока неопределено
По умолчанию

Как правильно считывать значения хп цп? Красный ХП, Орандж ЦП
18 E0 51 02 10 03 00 00 00 09 00 00 00 E3 12 00 00 0B 00 00 00 61 07 00 00 21 00 00 00 78 09 00 00
Код:
Tип: 0x18 (StatusUpdate)
Pазмер: 33+2
Время прихода: 16:32:09:553
0002 d  ObjectID: 268587488 (0x100251E0)
0006 d  AttribCount: 3 (0x00000003)
              [Начало повторяющегося блока 1/3]
0010 d  AttrID: cur_HP ID:9 (0x0009) (0x00000009)
0014 d  AttrValue: 4835 (0x000012E3)
              [Конец повторяющегося блока  1/3]
              [Начало повторяющегося блока 2/3]
0018 d  AttrID: cur_MP ID:11 (0x000B) (0x0000000B)
0022 d  AttrValue: 1889 (0x00000761)
              [Конец повторяющегося блока  2/3]
              [Начало повторяющегося блока 3/3]
0026 d  AttrID: cur_CP ID:33 (0x0021) (0x00000021)
0030 d  AttrValue: 2424 (0x00000978)
              [Конец повторяющегося блока  3/3]

delphi Код:
if FromServer and (pck[1]=#$18) then   //берем значения из пакета StatusUpdate     begin     CurHP:=ReadD(5);     CurCP:=ReadD(20); // НЕ понимаю как работает реадд     SAY(IntToStr(CurCP));   end;

Последний раз редактировалось 0rfin, 14.03.2010 в 20:46.
0rfin вне форума   Ответить с цитированием
Старый 14.03.2010, 16:34   #23
Пользователь
 
Аватар для Liiion911
 
Регистрация: 19.05.2009
Сообщений: 56
Сказал Спасибо: 4
Имеет 3 спасибок в 3 сообщенях
Liiion911 пока неопределено
По умолчанию

Код:
  insert('[мат]', Msg, x);
очень интересно для чего вот такая строка xD если тут просто форум сам заменил ее то скиньте как-нить эту строку. походу из-за нее меня банит сервер ((( хорошо хоть твинаками эксперементирую
Liiion911 вне форума   Ответить с цитированием
Старый 14.03.2010, 19:29   #24
Пользователь
 
Регистрация: 19.02.2010
Сообщений: 49
Сказал Спасибо: 1
Имеет 35 спасибок в 12 сообщенях
Vilson пока неопределено
По умолчанию

Цитата:
Сообщение от 0rfin Посмотреть сообщение
Еще откуда брать значение макс ЦП? в пакете UserInfo его нет
Точно нет? А это тогда что такое?

delphi Код:
procedure UserInfo; var   i, tmpCharObjectId: integer;   tmpMyName: stringbegin   tmpCharObjectId:=ReadD(18);       if CharObjectId=0 then CharObjectId:=tmpCharObjectId;   case tmpCharObjectId of   CharObjectId:   begin     MyCorX:=ReadD(2);    MyCorY:=ReadD(6);    MyCorZ:=ReadD(10);    i:=22;    tmpMyName:=ReadS(i);       i:=i+48;    MaxHP:=ReadD(i);    CurHP:=ReadD(i);    MaxMP:=ReadD(i);    CurMP:=ReadD(i);    MaxCP:=ReadD(655);     CurCP:=ReadD(659);          end;                    end;

Только сразу предпреждаю что отсюда ты возьмешь только начальные значения, а потом отслеживай StatsUpdate. Из моего пвп-скрипта:
delphi Код:
procedure StatsUpdate; var   i, tmpMaxHP, tmpCurHP, tmpMaxMP, tmpCurMP, tmpMaxCP, tmpCurCP, tmpCharObjectId :integer; begin   tmpCharObjectId:=ReadD(2);        if (tmpCharObjectId<>CharObjectId) then Exit;   for i:=0 to ReadD(6)-1 do     case pck[i*8+10] of       #$09: tmpCurHP:=ReadD(i*8+14);       #$0A: tmpMaxHP:=ReadD(i*8+14);       #$0B: tmpCurMP:=ReadD(i*8+14);       #$0C: tmpMaxMP:=ReadD(i*8+14);       #$21: tmpCurCP:=ReadD(i*8+14);       #$22: tmpMaxCP:=ReadD(i*8+14);     end;         if (tmpMaxHP<>0) then MaxHP:=tmpMaxHP;    if (tmpCurHP<>0) then CurHP:=tmpCurHP;    if (tmpMaxCP<>0) then MaxCP:=tmpMaxCP;     if (tmpCurCP<>0) then CurCP:=tmpCurCP;           if (tmpMaxMP<>0) then MaxMP:=tmpMaxMP;    if (tmpCurMP<>0) then CurMP:=tmpCurMP;    if (BSOEAutoUse) and (BSOEAmount>1) and (CurHP<>0) and (not TimerBSOE.Enabled) and (CurHP<((MaxHP*BSOEUsePercent)/100)) then    begin     UseItem(MyName, BSOEObjectId);     TimerBSOE.Enabled:=True;       end;              if (PotsAutoUse) then   begin    if (GCPAutoUse) and (GCPAmount>1) and (not TimerGCP.Enabled) and (CurCP<((MaxCP*GCPUsePercent)/100)) then     begin      UseItem(MyName, GCPObjectId);     TimerGCP.Enabled:=True                 end;       if (QHPAutoUse) and (QHPAmount>1) and (CurHP<>0) and (not TimerQHP.Enabled) and (CurHP<((MaxHP*QHPUsePercent)/100)) then    begin     UseItem(MyName, QHPObjectId);     TimerQHP.Enabled:=True                 end;                  if (GHPAutoUse) and (GHPAmount>1) and (CurHP<>0) and (not TimerGHP.Enabled) and (CurHP<((MaxHP*GHPUsePercent)/100)) then    begin            UseItem(MyName, GHPObjectId);     TimerGHP.Enabled:=True;           end;             if (MPAutoUse)   and (MPAmount>1) and (not TimerMP.Enabled) and (CurMP<((MaxMP*MPUsePercent)/100))  then    begin        UseItem(MyName, MPObjectId);     TimerMP.Enabled:=True;           end;              end;              end;

Последний раз редактировалось Vilson, 14.03.2010 в 19:40.
Vilson вне форума   Ответить с цитированием
Старый 14.03.2010, 20:07   #25
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

Цитата:
019E d PAtk: 0 (0x00000000)
01A2 d AtkSpd: 0 (0x00000000)
01A6 d PDef: 0 (0x00000000)
хиленький какойто персонаж )
__________________
L2Ext - project closed.
alexteam вне форума   Ответить с цитированием
Старый 14.03.2010, 20:09   #26
Новичок
 
Регистрация: 16.02.2010
Сообщений: 20
Сказал Спасибо: 5
Имеет 0 спасибок в 0 сообщенях
0rfin пока неопределено
По умолчанию

Не правильно расшифровывается наверно l2ph 3.5.11.118, сервер epilogue.
Vislon сложно как то всё у тебя, я так и не понял как инфу взять из пакета
http://coderx.ru/showpost.php?p=71122&postcount=22
Объясните

Последний раз редактировалось 0rfin, 14.03.2010 в 20:23.
0rfin вне форума   Ответить с цитированием
Старый 14.03.2010, 20:15   #27
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

расшифровывает правильно. инишку под сервер подгонять надо.
__________________
L2Ext - project closed.
alexteam вне форума   Ответить с цитированием
Старый 14.03.2010, 20:28   #28
Пользователь
 
Регистрация: 19.02.2010
Сообщений: 49
Сказал Спасибо: 1
Имеет 35 спасибок в 12 сообщенях
Vilson пока неопределено
По умолчанию

Цитата:
Сообщение от 0rfin Посмотреть сообщение
Ну вот где тут максЦП
Давай реальный пакет (саму строку) в студию и напиши реальное макс СП твоего чара.

Цитата:
Сообщение от 0rfin Посмотреть сообщение
Vislon сложно как то всё у тебя, я так и не понял как инфу взять из пакета
Объясните
Это не у меня, это у сервера линейки. Говори какая буква не понятна, попробую пояснить.

Последний раз редактировалось Vilson, 14.03.2010 в 20:32.
Vilson вне форума   Ответить с цитированием
Старый 14.03.2010, 20:43   #29
Новичок
 
Регистрация: 16.02.2010
Сообщений: 20
Сказал Спасибо: 5
Имеет 0 спасибок в 0 сообщенях
0rfin пока неопределено
По умолчанию

Вот же я спрашивал как инфу выдрать наверно с помощь readd не пойму как он работает. Макс цп 2424


Пакет UserInfo
Код:
32 84 39 01 00 68 D1 00 00 E5 F9 FF FF 00 00 00 00 E0 51 02 10 18 04 33 04 3E 04 40 04 4C 04 00 00 00 00 00 00 00 00 00 00 5D 00 00 00 55 00 00 00 7F FC D4 E4 05 00 00 00 28 00 00 00 25 00 00 00 24 00 00 00 15 00 00 00 0B 00 00 00 19 00 00 00 E3 12 00 00 E3 12 00 00 90 07 00 00 90 07 00 00 69 C3 F1 7F 27 F3 00 00 71 DA 01 00 28 00 00 00 07 BB 06 10 31 90 03 10 3C 90 03 10 87 90 03 10 B2 90 03 10 B1 90 03 10 E1 B8 03 10 B3 44 01 10 00 00 00 00 05 B9 03 10 98 DA 03 10 C1 B8 03 10 33 B9 03 10 45 B9 06 10 00 00 00 00 27 2A 08 10 27 2A 08 10 FB 22 07 10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 50 8E 04 10 12 29 00 00 EF 24 00 00 EF 24 00 00 F0 24 00 00 F1 24 00 00 F1 24 00 00 D5 24 00 00 D0 28 00 00 00 00 00 00 D6 24 00 00 D2 24 00 00 D4 24 00 00 D7 24 00 00 43 36 00 00 00 00 00 00 B0 16 00 00 B0 16 00 00 77 25 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 90 36 00 00 00 00 00 00 C1 11 00 00 57 03 00 00 7A 11 00 00 83 03 00 00 70 11 00 00 00 00 00 00 B5 18 B4 3F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 03 00 00 00 01 00 00 00 7E 04 00 00 75 02 00 00 98 04 00 00 A4 00 00 00 92 00 00 00 FD 00 00 00 84 01 00 00 D5 00 00 00 75 02 00 00 41 05 00 00 00 00 00 00 00 00 00 00 72 00 00 00 50 00 00 00 72 00 00 00 50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 A0 85 2C F4 3F 00 00 00 E0 5E 73 02 40 00 00 00 00 00 00 22 40 00 00 00 00 00 00 37 40 03 00 00 00 02 00 00 00 02 00 00 00 00 00 00 00 20 00 42 04 30 04 3C 04 20 00 33 04 34 04 35 04 20 00 40 04 30 04 3D 04 4C 04 48 04 35 04 20 00 00 00 A1 9B 01 10 A9 38 06 10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 00 00 00 50 00 00 00 00 00 00 00 00 00 00 00 0C 5C 09 00 09 00 00 00 00 00 00 00 64 00 5D 00 00 00 00 00 00 00 78 09 00 00 78 09 00 00 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FF FF FF 00 01 03 00 00 00 00 00 00 00 77 FF FF 00 00 00 00 00 00 00 00 00 00 00 96 00 5B 00 33 00 51 00 74 00 51 00 77 00 00 00 00 00 B5 01 00 00 00 00 00 00 20 4E 00 00 00 00 00 00 00 00 00 00 00 00 00 00

Последний раз редактировалось 0rfin, 14.03.2010 в 20:47.
0rfin вне форума   Ответить с цитированием
Старый 14.03.2010, 21:03   #30
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

замени в пакетс ини.
Код:
32=UserInfo:d(X)d(Y)d(Z)d(isInAirShip)d(ObjectID)s(Name)d(Race)d(Sex)d(ClassID:Get.ClassID)d(Level)q(Exp)d(Str)d(Dex)d(Con)d(Int)d(Wit)d(Men)d(MaxHP)d(CurrentHP)d(MaxMP)d(CurrentMP)d(Sp)d(CurrentLoad)d(MaxLoad)d(WeaponEquipment 20=no,40=yes)d(OIDUnder)d(OIDRear)d(OIDLear)d(OIDNeck)d(OIDFinger)d(OIDLfinger)d(OIDHead)d(OIDRhand)d(OIDLhand)d(OIDGloves)d(OIDChest)d(OIDLegs)d(OIDFeet)d(OIDBack)d(OIDLrhand)d(OIDHair)d(OIDHair2)d(OIDRbracelet)d(OIDLbracelet)d(OIDDeco)d(OIDDeco2)d(OIDDeco3)d(OIDDeco4)d(OIDDeco5)d(OIDDeco6)d(OIDBelt)d(IDUnder:Get.Func01)d(IDRear:Get.Func01)d(IDLear:Get.Func01)d(IDNeck:Get.Func01)d(IDFinger:Get.Func01)d(IDLfinger:Get.Func01)d(IDHead:Get.Func01)d(IDRhand:Get.Func01)d(IDLhand:Get.Func01)d(IDGloves:Get.Func01)d(IDChest:Get.Func01)d(IDLegs:Get.Func01)d(IDFeet:Get.Func01)d(IDBack:Get.Func01)d(IDLrhand:Get.Func01)d(IDHair:Get.Func01)d(IDHair2:Get.Func01)d(IDRbracelet:Get.Func01)d(IDLbracelet:Get.Func01)d(IDDeco:Get.Func01)d(IDDeco2:Get.Func01)d(IDDeco3:Get.Func01)d(IDDeco4:Get.Func01)d(IDDeco5:Get.Func01)d(IDDeco6:Get.Func01)d(IDBelt:Get.Func01)d(AugIDUnder)d(AugIDRear)d(AugIDLear)d(AugIDNeck)d(AugIDFinger)d(AugIDLfinger)d(AugIDHead)d(AugIDRhand)d(AugIDLhand)d(AugIDGloves)d(AugIDChest)d(AugIDLegs)d(AugIDFeet)d(AugIDBack)d(AugIDLrhand)d(AugIDHair)d(AugIDHair2)d(AugIDRbracelet)d(AugIDLbracelet)d(AugIDDeco)d(AugIDDeco2)d(AugIDDeco3)d(AugIDDeco4)d(AugIDDeco5)d(AugIDDeco6)d(AugIDBelt)d(TalismanSlots)d(CloakStatus)d(Patk)d(PatkSpd)d(Pdef)d(EvasionRate)d(Accuracy)d(CriticalHit)d(Matk)d(MatkSpd)d(PatkSpd)d(Mdef)d(PvPFlag)d(Karma)d(RunSpd)d(WalkSpd)d(SwimRunSpd)d(SwimWalkSpd)d(0)d(0)d(FlyRunSpd)d(FlyWalkSpd)f(MoveMul)f(AtkSpeedMul)f(ColRadius)f(ColHeight)d(HairStyle)d(HairColor)d(Face)d(isGM:1,0)s(Title)d(ClanID)d(ClanCrestID)d(AllyID)d(AllyCrestID)d(Relation)c(MountType)c(PrivateStoreType)c(DwarvenCraft:1,0)d(PkKills)d(PvPKills)h(CubicsSize:Loop.01.0001)h(CubicID)c(0)d(AbnormalEffect)c(FlayingMounted:2,0)d(ClanPrivileges)h(RecomLeft)h(RecomHave)d(MountNpcID)h(InventoryLimit)d(ClassID:Get.ClassID)h(0)d(MaxCP)d(CurrentCP)c(isMounted)c(Team:1-blue,2-red)d(ClanCrestLargeID)c(isNoble)c(isHero)c(isFishing)d(FishingX)d(FishingY)d(FishingZ)d(NameColor)c(isRunning)d(PledgeClass)d(PledgeType)d(TitleColor)d(CursedWeaponEquipID)d(TranformationID)h(AtkElementAttr)h(AttackElementVal)h(DefAttrFire)h(DefAttrWater)h(DefAttrWind)h(DefAttrEarth)h(DefAttrHoly)h(DefAttrDark)d(AgathionId)d(Fame)d(Unknown)d(VitalityPoints)d(SpecialEffect)d(0)d(0)d(0)d(0)
__________________
L2Ext - project closed.
alexteam вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 03:32.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!