… | |
… | |
69 | arch magic_mouth |
69 | arch magic_mouth |
70 | msg |
70 | msg |
71 | The gods are pleased with your success. |
71 | The gods are pleased with your success. |
72 | Follow this path to your former life. |
72 | Follow this path to your former life. |
73 | endmsg |
73 | endmsg |
|
|
74 | sound nimbus_win |
74 | food 1 |
75 | food 1 |
75 | x 1 |
76 | x 1 |
76 | y 1 |
77 | y 1 |
77 | sound nimbus_win |
|
|
78 | end |
78 | end |
79 | arch light1 |
79 | arch light1 |
80 | x 1 |
80 | x 1 |
81 | y 1 |
81 | y 1 |
82 | end |
82 | end |
… | |
… | |
111 | arch magic_mouth |
111 | arch magic_mouth |
112 | msg |
112 | msg |
113 | You failed. |
113 | You failed. |
114 | Follow this path to a new and hopefully more successful life. |
114 | Follow this path to a new and hopefully more successful life. |
115 | endmsg |
115 | endmsg |
|
|
116 | sound nimbus_loss |
116 | food 1 |
117 | food 1 |
117 | x 1 |
118 | x 1 |
118 | y 4 |
119 | y 4 |
119 | sound nimbus_loss |
|
|
120 | end |
120 | end |
121 | arch light1 |
121 | arch light1 |
122 | x 1 |
122 | x 1 |
123 | y 4 |
123 | y 4 |
124 | end |
124 | end |
… | |
… | |
8935 | lore |
8935 | lore |
8936 | These Certificates are used to note your deaths. |
8936 | These Certificates are used to note your deaths. |
8937 | endlore |
8937 | endlore |
8938 | x 44 |
8938 | x 44 |
8939 | y 29 |
8939 | y 29 |
8940 | value 50 |
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! |