--- deliantra/gde/GCE/Util.pm	2006/03/16 14:00:24	1.6
+++ deliantra/gde/GCE/Util.pm	2006/03/17 01:18:01	1.7
@@ -18,7 +18,7 @@
 use Crossfire;
 use Crossfire::MapWidget;
 
-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);
+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);
 
 sub def($$) {
    return defined ($_[0]) ? $_[0] : $_[1];
@@ -88,6 +88,12 @@
    }
 }
 
+sub arch_is_exit {
+   my ($a) = @_;
+   my $type = $Crossfire::ARCH{$a->{_name}}->{type};
+   return $type eq '66' || $type eq '41';
+}
+
 sub arch_is_floor {
    my ($a) = @_;
    return $Crossfire::ARCH{$a->{_name}}->{is_floor};