| … | |
… | |
| 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! |
