Скриптинг Форум посвещенный созданию скриптов для 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 сообщенях
Как правильно считывать значения хп цп? Красный ХП, Орандж ЦП
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 .
14.03.2010, 16:34
#23
Пользователь
Регистрация: 19.05.2009
Сообщений: 56
Сказал Спасибо: 4
Имеет 3 спасибок в 3 сообщенях
Код:
insert('[мат]', Msg, x);
очень интересно для чего вот такая строка xD если тут просто форум сам заменил ее то скиньте как-нить эту строку. походу из-за нее меня банит сервер ((( хорошо хоть твинаками эксперементирую
14.03.2010, 19:29
#24
Пользователь
Регистрация: 19.02.2010
Сообщений: 49
Сказал Спасибо: 1
Имеет 35 спасибок в 12 сообщенях
Цитата:
Сообщение от
0rfin
Еще откуда брать значение макс ЦП? в пакете UserInfo его нет
Точно нет? А это тогда что такое?
delphi Код:
procedure UserInfo;
var
i, tmpCharObjectId: integer ;
tmpMyName: string ;
begin
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 .
14.03.2010, 20:07
#25
Рыцарь
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
Цитата:
019E d PAtk: 0 (0x00000000)
01A2 d AtkSpd: 0 (0x00000000)
01A6 d PDef: 0 (0x00000000)
хиленький какойто персонаж )
__________________
L2Ext - project closed.
14.03.2010, 20:09
#26
Новичок
Регистрация: 16.02.2010
Сообщений: 20
Сказал Спасибо: 5
Имеет 0 спасибок в 0 сообщенях
Не правильно расшифровывается наверно l2ph 3.5.11.118, сервер epilogue.
Vislon сложно как то всё у тебя, я так и не понял как инфу взять из пакета
http://coderx.ru/showpost.php?p=71122&postcount=22
Объясните
Последний раз редактировалось 0rfin, 14.03.2010 в 20:23 .
14.03.2010, 20:15
#27
Рыцарь
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
расшифровывает правильно. инишку под сервер подгонять надо.
__________________
L2Ext - project closed.
14.03.2010, 20:28
#28
Пользователь
Регистрация: 19.02.2010
Сообщений: 49
Сказал Спасибо: 1
Имеет 35 спасибок в 12 сообщенях
Цитата:
Сообщение от
0rfin
Ну вот где тут максЦП
Давай реальный пакет (саму строку) в студию и напиши реальное макс СП твоего чара.
Цитата:
Сообщение от
0rfin
Vislon сложно как то всё у тебя, я так и не понял как инфу взять из пакета
Объясните
Это не у меня, это у сервера линейки. Говори какая буква не понятна, попробую пояснить.
Последний раз редактировалось Vilson, 14.03.2010 в 20:32 .
14.03.2010, 20:43
#29
Новичок
Регистрация: 16.02.2010
Сообщений: 20
Сказал Спасибо: 5
Имеет 0 спасибок в 0 сообщенях
Вот же я спрашивал как инфу выдрать наверно с помощь 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 .
14.03.2010, 21:03
#30
Рыцарь
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
замени в пакетс ини.
Код:
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.
Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
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
Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!