[patch] Automatic finding charBlockSize

[UltimaWeapon]

Code: Select all

Index: src/Network/Receive.pm

===================================================================

--- src/Network/Receive.pm	(revision 6497)

+++ src/Network/Receive.pm	(working copy)

@@ -4639,9 +4639,34 @@

 		$charServer = $net->serverPeerHost . ":" . $net->serverPeerPort;
 	}
 
-	my $num;
+	my ($num, $startVal);
 	my $blockSize = $self->received_characters_blockSize();
-	for (my $i = $args->{RAW_MSG_SIZE} % $blockSize; $i < $args->{RAW_MSG_SIZE}; $i += $blockSize) {
+
+	if ($blockSize eq 'auto') {
+		my $devide = ($args->{RAW_MSG_SIZE} - 24) % 106;
+
+		if ($devide == 0) {
+			#Sakexe with block size 106
+			$startVal = 24;
+			$blockSize = 106;
+		} elsif (length(unpack('x4 Z4', $args->{msg})) == 0 && $devide <= 24) {
+			#Sakexe with block size 108
+			$startVal = 24;
+			$blockSize = 108;
+		} elsif ($devide == 86) {
+			#Ragexe with block size 106
+			$startVal = 4;
+			$blockSize = 106;
+		} else {
+			#Ragexe with block size 108
+			$startVal = 4;
+			$blockSize = 108;
+		}
+	} else {
+		$startVal = $args->{RAW_MSG_SIZE} % $blockSize;
+	}
+
+	for (my $i = $startVal; $i < $args->{RAW_MSG_SIZE}; $i += $blockSize) {
 		#exp display bugfix - chobit andy 20030129
 		$num = unpack("C1", substr($args->{RAW_MSG}, $i + 104, 1));
 		$chars[$num] = new Actor::You;

Change 'charBlockSize' in servers.txt to 'auto' to using Auto finding charBlockSize.

Need tester because I don't tested yet.

[Click]

Good idea, somebody test silt it?

[kangkong]

Code: Select all

Index: src/Network/Receive.pm

===================================================================

--- src/Network/Receive.pm	(revision 6497)

+++ src/Network/Receive.pm	(working copy)

@@ -4639,9 +4639,34 @@

 		$charServer = $net->serverPeerHost . ":" . $net->serverPeerPort;
 	}
 
-	my $num;
+	my ($num, $startVal);
 	my $blockSize = $self->received_characters_blockSize();
-	for (my $i = $args->{RAW_MSG_SIZE} % $blockSize; $i < $args->{RAW_MSG_SIZE}; $i += $blockSize) {
+
+	if ($blockSize eq 'auto') {
+		my $devide = ($args->{RAW_MSG_SIZE} - 24) % 106;
+
+		if ($devide == 0) {
+			#Sakexe with block size 106
+			$startVal = 24;
+			$blockSize = 106;
+		} elsif (length(unpack('x4 Z4', $args->{msg})) == 0 && $devide <= 24) {
+			#Sakexe with block size 108
+			$startVal = 24;
+			$blockSize = 108;
+		} elsif ($devide == 86) {
+			#Ragexe with block size 106
+			$startVal = 4;
+			$blockSize = 106;
+		} else {
+			#Ragexe with block size 108
+			$startVal = 4;
+			$blockSize = 108;
+		}
+	} else {
+		$startVal = $args->{RAW_MSG_SIZE} % $blockSize;
+	}
+
+	for (my $i = $startVal; $i < $args->{RAW_MSG_SIZE}; $i += $blockSize) {
 		#exp display bugfix - chobit andy 20030129
 		$num = unpack("C1", substr($args->{RAW_MSG}, $i + 104, 1));
 		$chars[$num] = new Actor::You;

Change 'charBlockSize' in servers.txt to 'auto' to using Auto finding charBlockSize.

Need tester because I don't tested yet.

Apparently, I tested it and this was the result.

Screenshot

hmm I do what you said and instructed and I got errors.

[kLabMouse]

Apparently, I tested it and this was the result.

Screenshot

hmm I do what you said and instructed and I got errors.

LOL! it's 4y old patch. You still think that it will work properly?
Not... Network subsystem changed alot. so it needs to be rewritten from scratch with same idea in mind.