BasicRO Map Server Timeout..

[SkylorD]

Code: Select all

00824419 push 3D807D80
0082441E push 5E805580
00824423 push 7E241DE0
00824428 call 006402A0

Code: Select all

if (something) 
{
6402A0((int)dword_......, 2116296160, 1585468800, 1031830912);

Code: Select all

int sub_6402A0(int this, int a2, int a3, int a4)
{
  int result;

  *(_DWORD *)(this + 4) = a2;
  result = a4;
  *(_DWORD *)(this + 8) = a3;
  *(_DWORD *)(this + 12) = a4;
  return result;
}

[shampuday]

Thanks Mate.. its works now.. though there are some Packet Parser sometimes.. its really ok if it connects..

Thanks a lot mate.. will update again if something happens..

btw.. how did you find the solution for my problem?

[SkylorD]

btw.. how did you find the solution for my problem?

R :

4epT : likely server encrypts some packages, look through WPE

I installed it here and took a look.

though there are some Packet Parser sometimes.. its really ok if it connects..

Maybe a custom packet, i don't know. If you want, you can post a screenshot. :/ It's not enough for you keep connected on server, i guess will occur a problem in the future.

[shampuday]

Packet Parser: Unknown switch: 0983

[SkylorD]

You need to add this packet on your receive file \src\Network\Receive\kRO\serverType

'0983' => ['actor_status_active', 'v a4 C V4', [qw(type ID flag tick unknown1 unknown2 unknown3)]], # 25 personal modification

Will need to add this sub. Your serverType will look like this :

Code: Select all

use strict;
use base qw(Network::Receive::kRO::RagexeRE_2013_03_20);

sub new {
	my ($class) = @_;
	my $self = $class->SUPER::new(@_);
	my %packets = (
		'0983' => ['actor_status_active', 'v a4 C V4', [qw(type ID flag tick unknown1 unknown2 unknown3)]], # 25 personal modification
	);

	foreach my $switch (keys %packets) { $self->{packet_list}{$switch} = $packets{$switch}; }

	return $self;
}

1;

Now is identifying my "Owg 50%". ;D

[shampuday]

Still Getting the error after Doing that sir

[SkylorD]

Hm, really ? What you did, and how are your serverType, Send and Receive?
Strange, if you didn't nothing wrong. Is it with the same packet ? o.O

[shampuday]

i Edit src/network/receive/kro/serverType/RagexeRE_2013_08_07a

and put this

sub new {
my ($class) = @_;
my $self = $class->SUPER::new(@_);
my %packets = (
'0983' => ['actor_status_active', 'v a4 C V4', [qw(type ID flag tick unknown1 unknown2 unknown3)]], # 25 personal modification
);

foreach my $switch (keys %packets) { $self->{packet_list}{$switch} = $packets{$switch}; }

return $self;
}

[shampuday]

Send :

Code: Select all

package Network::Send::kRO::RagexeRE_2013_08_07a;

use strict;
use base qw(Network::Send::kRO::RagexeRE_2013_03_20);
use Log qw(debug);

sub new {
	my ($class) = @_;
	my $self = $class->SUPER::new(@_);
	
	my %packets = (
		'088E' => undef,
		'0369' => ['actor_action', 'a4 C', [qw(targetID type)]],#7
		'089B' => undef,
		'083C' => ['skill_use', 'v2 a4', [qw(lv skillID targetID)]],#10
		'0881' => undef,
		'0437' => ['character_move','a3', [qw(coordString)]],#5
		'0363' => undef,
		'035F' => ['sync', 'V', [qw(time)]],#6
		'093F' => undef,
		'0202' => ['actor_look_at', 'v C', [qw(head body)]],#5
		'0933' => undef,
		'07E4' => ['item_take', 'a4', [qw(ID)]],#6
		'0362' => ['item_drop', 'v2', [qw(index amount)]],#6
		'08AC' => undef,
		'07EC' => ['storage_item_add', 'v V', [qw(index amount)]],#8
		'0874' => undef,
		'0364' => ['storage_item_remove', 'v V', [qw(index amount)]],#8
		'0959' => undef,
		'0438' => ['skill_use_location', 'v4', [qw(lv skillID x y)]],#10
		'0898' => undef,
		'096A' => ['actor_info_request', 'a4', [qw(ID)]],#6
		'094C' => undef,
		'0368' => ['actor_name_request', 'a4', [qw(ID)]],#6
		'0888' => undef,
		'022D' => ['map_login', 'a4 a4 a4 V C', [qw(accountID charID sessionID tick sex)]],#19
		'086F' => undef,
		'0802' => ['party_join_request_by_name', 'Z24', [qw(partyName)]],#26
		'086D' => undef,
		'023B' => ['friend_request', 'a*', [qw(username)]],#26
		'0897' => undef,
		'0361' => ['homunculus_command', 'v C', [qw(commandType, commandID)]],#5
	);
	$self->{packet_list}{$_} = $packets{$_} for keys %packets;
	
	my %handlers = qw(
		actor_action 0369
		actor_info_request 096A
		actor_look_at 0202
		actor_name_request 0368
		character_move 0437
		friend_request 023B
		homunculus_command 0361
		item_drop 0362
		item_take 07E4
		map_login 022D
		party_join_request_by_name 0802
		skill_use 083C
		skill_use_location 0438
		storage_item_add 07EC
		storage_item_remove 0364
		sync 035F
	);
	$self->{packet_lut}{$_} = $handlers{$_} for keys %handlers;
	$self->cryptKeys(2116296160, 1031830912, 1585468800);
	$self;
}

1;
=pod
0x369,7,actionrequest,2:6
0x083C,10,useskilltoid,2:4:6
0x437,5,walktoxy,2
0x035F,6,ticksend,2
0x202,5,changedir,2:4
0x70000,6,takeitem,2
0x362,6,dropitem,2:4
0x07EC,8,movetokafra,2:4
0x364,8,movefromkafra,2:4
0x438,10,useskilltopos,2:4:6:8
0x366,90,useskilltoposinfo,2:4:6:8:10
0x096A,6,getcharnamerequest,2
0x368,6,solvecharname,2
0x838,12,searchstoreinfolistitemclick,2:6:10
0x835,2,searchstoreinfonextpage,0
0x819,-1,searchstoreinfo,2:4:5:9:13:14:15
0x811,-1,reqtradebuyingstore,2:4:8:12
0x360,6,reqclickbuyingstore,2
0x817,2,reqclosebuyingstore,0
0x815,-1,reqopenbuyingstore,2:4:8:9:89
0x365,18,bookingregreq,2:4:6
// 0x363,8 CZ_JOIN_BATTLE_FIELD
0x281,-1,itemlistwindowselected,2:4:8:12
0x022D,19,wanttoconnection,2:6:10:14:18
0x802,26,partyinvite2,2
// 0x436,4 CZ_GANGSI_RANK
0x023B,26,friendslistadd,2
0x361,5,hommenu,2:4
0x887,36,storagepassword,2:4:20
=cut

Receive :

Code: Select all

package Network::Receive::kRO::RagexeRE_2013_08_07a;

use strict;
use base qw(Network::Receive::kRO::RagexeRE_2013_03_20);

sub new {
   my ($class) = @_;
   my $self = $class->SUPER::new(@_);
   my %packets = (
      '0983' => ['actor_status_active', 'v a4 C V4', [qw(type ID flag tick unknown1 unknown2 unknown3)]], # 25 personal modification
      '0977' => ['attack'], #personal modification
   );

   foreach my $switch (keys %packets) {
      $self->{packet_list}{$switch} = $packets{$switch};
   }
   my %handlers = qw(
      actor_status_active 0983
      attack 0977
   );
   $self->{packet_lut}{$_} = $handlers{$_} for keys %handlers;
   
   return $self;
}
1;

=pod
0x369,7,actionrequest,2:6
0x083C,10,useskilltoid,2:4:6
0x437,5,walktoxy,2
0x035F,6,ticksend,2
0x202,5,changedir,2:4
0x70000,6,takeitem,2
0x362,6,dropitem,2:4
0x07EC,8,movetokafra,2:4
0x364,8,movefromkafra,2:4
0x438,10,useskilltopos,2:4:6:8
0x366,90,useskilltoposinfo,2:4:6:8:10
0x096A,6,getcharnamerequest,2
0x368,6,solvecharname,2
0x838,12,searchstoreinfolistitemclick,2:6:10
0x835,2,searchstoreinfonextpage,0
0x819,-1,searchstoreinfo,2:4:5:9:13:14:15
0x811,-1,reqtradebuyingstore,2:4:8:12
0x360,6,reqclickbuyingstore,2
0x817,2,reqclosebuyingstore,0
0x815,-1,reqopenbuyingstore,2:4:8:9:89
0x365,18,bookingregreq,2:4:6
// 0x363,8 CZ_JOIN_BATTLE_FIELD
0x281,-1,itemlistwindowselected,2:4:8:12
0x022D,19,wanttoconnection,2:6:10:14:18
0x802,26,partyinvite2,2
// 0x436,4 CZ_GANGSI_RANK
0x023B,26,friendslistadd,2
0x361,5,hommenu,2:4
0x887,36,storagepassword,2:4:20
=cut

[shampuday]

I think it works now.. i can see all the char status..

You are now sitting.. Sitting Duration <9.999s>
Where can i edit that sir?
It always stands up after 10 sec..


sitAuto_hp_lower 45
sitAuto_hp_upper 95
sitAuto_sp_lower 20
sitAuto_sp_upper 80
sitAuto_follow 0
sitAuto_over_50 0
sitAuto_idle 1
sitAuto_look
sitAuto_look_from_wall