--- deliantra/maps/nimbus.map	2008/11/29 00:19:37	1.41
+++ deliantra/maps/nimbus.map	2008/11/30 21:21:55	1.42
@@ -8942,6 +8942,7 @@
 unpaid 1
 identified 1
 startequip 1
+no_skill_ident 1
 end
 arch unholy_ground
 x 44
@@ -9768,8 +9769,8 @@
 name Nimbus angel
 msg
 @match Key To Life
-@cond my ($dc) = grep { $_->name =~ /Death Certificate/ } $who->inv; $dc && $dc->nrof >= 33
-@eval my ($it) = grep { $_->name =~ /Death Certificate/ } $who->inv; $it->decrease (33);
+@cond my $cnt = 0; map { $cnt += $_->nrof } grep { $_->name =~ /Death Certificate/ } $who->inv; $cnt >= 33
+@eval my $cnt = 33; map { my $acnt = $cnt - $_->nrof; $_->decrease ($cnt) if $cnt >= 0; $cnt = $acnt; } grep { $_->name =~ /Death Certificate/ } $who->inv;
 @trigger 1 1
 Ok, here is your Key To Life!
 I've put it on the ground to the right of me.