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

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

где я ошибся?

[dyh9l]

По примеру NLObP у меня вроде получилось, но т.к., это быдлокод, вобщем попробуй

const
    name = '~VIP~Dunyaxa' ; //name 
    
var
    ObjectIDtarget:integer;  
    
procedure Action;
    begin
    if (ReadD(2)=ObjectIDtarget) then pck[18]:=#$01;
    ObjectIDtarget:=ReadD(2); 
    end;                     
    
procedure Attack;
    begin
    if (ReadD(2)=ObjectIDtarget) then pck:='';
    end;
        
begin  
    if (connectname=name) and (fromclient) then
        case pck[1] of
        #$04: Action;
        #$0A: Attack;
        end;               
end.

Добавлено через 10 минут
Короче, 2 екшена вызывают атаку, но если блочить екшены, брать он их больше не будет) т.е. походу, все таки надо как то убивать екшен если цель на таргете)

[nab]

i got a problem i cant make my script reads the SystemMessage packet and then send the result to party chat(its for skill reuse time )
2304=До повторного использования умения $s1 осталось $s2 мин $s3 сек.
62=SystemMessage:d(MsgID:Get.MsgID)d(typesCount:Lo op.01.0002)d(0=Str,1=Int,2=NpcID,3=ItmID,4=SklID,6 =Amnt)s(data)

begin
         if FromServer then begin 
         case pck[1] of 
         #$62 : if ReadD(2)=2304 then begin 
         buf:=#$49;
         WriteS(time left on skill to be ready);
         WriteD(3);
         SendToServer;

[NLObP]

Вот такая теперь расшифровка пакета

62=SystemMessage:d(_messageId:Get.MsgID)d(size:Loop.1.1)d(type:switch.0.13)_(TYPE_TEXT:case.0.1)s(String)_(TYPE_NUMBER:case.1.1)d(Number)_(TYPE_NPC_NAME:case.2.1)d(Number:Get.NpcID)_(TYPE_ITEM_NAME:case.3.1)d(ItemID:Get.Func01)_(TYPE_SKILL_NAME:case.4.2)d(skill_id:Get.SkillID)d(skill_level)_(TYPE_UNKNOWN_5:case.5.1)d(Number)_(TYPE_LONG:case.6.1)q(Long)_(TYPE_ZONE_NAME:case.7.3)d(coord.x)d(coord.y)d(coord.z)_(TYPE_UNKNOWN_8:case.8.3)d(ItemID:Get.Func01)h(Number)h(Number)_(TYPE_UNKNOWN_9:case.9.1)d(Number)_(TYPE_UNKNOWN_10:case.10.1)d(Number)_(TYPE_UNKNOWN_11:case.11.1)d(Number)_(TYPE_UNKNOWN_12:case.12.1)s(String)

[nab]

нет получатся если расшифровка грешна ..
http://img853.imageshack.us/img853/5239/decomp.jpg

[NLObP]

nab, попробуй версию 167

[nab]

Сейчас лучше

Type:0x62 (SystemMessage)
Size: 37+2
Recive time: 21:27:09:434
0002 d  _messageId: Äî ïîâòîðíîãî èñïîëüçîâàíèÿ óìåíèÿ $s1 îñòàëîñü $s2 ìèí $s3 ñåê. ID:2304 (0x0900)
0006 d  size: 3 (0x00000003)
              [begin of repeat block  1/3]
0010 d  type: 4 (0x00000004)
0014 d  skill_id: 1413
0018 d  skill_level: 1 (0x00000001)
              [End of repeat block  1/3]
              [begin of repeat block  2/3]
0022 d  type: 1 (0x00000001)
0026 d  Number: 2 (0x00000002)
              [End of repeat block  2/3]
              [begin of repeat block  3/3]
0030 d  type: 1 (0x00000001)
0034 d  Number: 3 (0x00000003)
              [End of repeat block  3/3

now i need to make ti ReadD(26) , ReadD(34) and then do
#$49
WriteS(readD(26)+'minute(s)'+readD(34)+'second(s))
WriteD(3)
sendtoserver ......
need help

DWordToStr how ?

[Breadfan]

О таргете мага:Оффтоп

init
...
CurrentTargetOid:=0; //текущий таргет
........
begin
........
if fromclient then begin
    case (pck[1]) of
    ......
          #$1f: begin //action
                if (readd(2)<>CurrentTargetOid) then CurrentTargetOid:=readd(2) else pck:='';
          end;
    ......
    end;
end;
.....
if fromserver and (pck[1]=#$00) and (ReadD(2)=CurrentTargetOid) then CurrentTargetOid:=0;//при смерти цели сбросить переменную
if fromserver and (pck[1]=#$24) and (readd(2)=MyOID) then CurrentTargetOid:=0; //если таргет сбили - тож самое
//иначе - отхватив чемто вроде аура флеша - будет перс стоять и курить, пока его не добьют.
.....
end.

About time use skills: Оффтоп

time is not always present in the package SystemMessage, the better will look at 48=MagicSkillUse:d(CharID)d(TargetID)d(skillID:Get .Skill)d(SkillLevel)d(HitTime)d(ReuseDelay)d(X)d(Y)d(Z)d(?)d(TargetX)d(TargetY)d(TargetZ)

[DarkAppleNV]

Здравствуйте, у меня один вопрос, который стоит меня (не опытного нуба). Возможно ли в принципе т.с. отпакетировать этот серв (x1000) http://www.rpg-club.com/bezzzymue
Заранее благодарю

[Nickers]

отпакетировать

ШТОА?

Если имеется в виду подключение ПХ и его дальнейшее использование, то возможно. (В теории)

[DarkAppleNV]

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

ШТОА?

Если имеется в виду подключение ПХ и его дальнейшее использование, то возможно. (В теории)

Именно это я и имел ввиду. Просто если кто точно знал и сказал, бы мне, хорошо было бы. Просто я только разбираюсь с программой и хотел узнать по зубам ли этот серв мне, да и матёрым пользователям.