--- deliantra/gde/GCE/Util.pm	2006/04/01 18:45:05	1.13
+++ deliantra/gde/GCE/Util.pm	2006/04/02 09:54:18	1.14
@@ -20,7 +20,15 @@
 use File::Spec::Functions;
 use Cwd 'abs_path';
 
-our @EXPORT = qw(insert_arch_stack_layer replace_arch_stack_layer new_arch_pb fill_pb_from_arch arch_is_floor stack_find_floor stack_find_wall stack_find arch_is_wall arch_is_monster add_table_widget quick_msg def arch_is_exit map2abs exit_paths);
+our @EXPORT = qw(insert_arch_stack_layer replace_arch_stack_layer new_arch_pb fill_pb_from_arch arch_is_floor stack_find_floor stack_find_wall stack_find arch_is_wall arch_is_monster add_table_widget quick_msg def arch_is_exit map2abs exit_paths pseudohtml2txt);
+
+sub pseudohtml2txt {
+   my ($html) = @_;
+
+   $html =~ s/<br\s*?\/?>/\n/gsi;
+   $html =~ s/<b>(.*?)<\/b>/_\1_/gsi;
+   $html
+}
 
 sub exit_paths {
    my ($mappath, $map1path, $map2path) = @_;