RO-fan

jack_spa писал(а):Проблема в слудующем(прикреплённом ниже).
Такое странное отображение может быть виной линукса?(кубунту 7.10)
На винде не могу щас проверить.Антибот вылазит крайне редко,а время жмёт

чот с аботом

DInvalid писал(а):piroJOKE
Да я не про то как это выглядит, я про то как это сделано (на коленке).

Что делаем: в файле Receive.pm заменяем ф-ю npc_talk на это:

Код: Выделить всё

sub npc_talk {
	my ($self, $args) = @_;
	my $newmsg;
	$self->decrypt(\$newmsg, substr($args->{RAW_MSG}, 8));

	my $msg = substr($args->{RAW_MSG}, 0, 8) . $newmsg;
	my $ID = substr($msg, 4, 4);
	my $talkMsg = unpack("Z*", substr($msg, 8));
	$talk{ID} = $ID;
	$talk{nameID} = unpack("V1", $ID);
	$talk{msg} = bytesToString($talkMsg);
	# Remove RO color codes
#	# $talk{msg} =~ s/\^[a-fA-F0-9]{6}//g;

	$ai_v{npc_talk}{talk} = 'initiated';
	$ai_v{npc_talk}{time} = time;

	my $name = getNPCName($ID);
#	message "$name: $talk{msg}", "npc";
	
	if ($talk{msg}=~/\^[a-fA-F0-9]{6}/) {
		message "$name: ", "npc";
		$talk{msg}="^FFFFFF" . $talk{msg};
		pos($talk{msg})=0;

		while  ($talk{msg} =~/\^([a-fA-F0-9]{2})([a-fA-F0-9]{2})([a-fA-F0-9]{2})/g) {
	
		     my $colR = oct "0x" . $1;
		     my $colG = oct "0x" . $2;
		     my $colB = oct "0x" . $3;
	
		     my $colY = ($colR + $colG +$colB) / 3;
     
		     $talk{msg}=~/\G(.*?)(\^|\Z)/x;
		     next if $1 eq "";
		     if ($colY>224) {
			message "$1","white";
		     }	
		     else {
			message "$1","color";
		     }
	
		}
		message "\n", "npc";
	} else {
	message "$name: $talk{msg}\n", "npc";
	}
}

В consolecolors.txt определяем домены
color red
white darkgray

Получаем


Какие у меня вопросы...
1)Вообще писать цветом не извращаясь с доменами можно?
2)Если как говорит piroJOKE, "заменять "слабо видимые цвета" пробелами", это надо делать в плагине и не для всех НПЦ а для вот таких антиботоф. Как их от нормальных отличить я не знаю.