… | |
… | |
8940 | value 10000 |
8940 | value 10000 |
8941 | weight 1 |
8941 | weight 1 |
8942 | unpaid 1 |
8942 | unpaid 1 |
8943 | identified 1 |
8943 | identified 1 |
8944 | startequip 1 |
8944 | startequip 1 |
|
|
8945 | no_skill_ident 1 |
8945 | end |
8946 | end |
8946 | arch unholy_ground |
8947 | arch unholy_ground |
8947 | x 44 |
8948 | x 44 |
8948 | y 30 |
8949 | y 30 |
8949 | end |
8950 | end |
… | |
… | |
9766 | end |
9767 | end |
9767 | arch sign |
9768 | arch sign |
9768 | name Nimbus angel |
9769 | name Nimbus angel |
9769 | msg |
9770 | msg |
9770 | @match Key To Life |
9771 | @match Key To Life |
9771 | @cond my ($dc) = grep { $_->name =~ /Death Certificate/ } $who->inv; $dc && $dc->nrof >= 33 |
9772 | @cond my $cnt = 0; map { $cnt += $_->nrof } grep { $_->name =~ /Death Certificate/ } $who->inv; $cnt >= 33 |
9772 | @eval my ($it) = grep { $_->name =~ /Death Certificate/ } $who->inv; $it->decrease (33); |
9773 | @eval my $cnt = 33; map { my $acnt = $cnt - $_->nrof; $_->decrease ($cnt) if $cnt >= 0; $cnt = $acnt; } grep { $_->name =~ /Death Certificate/ } $who->inv; |
9773 | @trigger 1 1 |
9774 | @trigger 1 1 |
9774 | Ok, here is your Key To Life! |
9775 | Ok, here is your Key To Life! |
9775 | I've put it on the ground to the right of me. |
9776 | I've put it on the ground to the right of me. |
9776 | You will find the Backdoor to Life in the hallway you get to when |
9777 | You will find the Backdoor to Life in the hallway you get to when |
9777 | you trip on a mine. Have a safe trip back to life! |
9778 | you trip on a mine. Have a safe trip back to life! |