| … | |
… | |
| 11 | }, |
11 | }, |
| 12 | { |
12 | { |
| 13 | name => "Gramp Malone Earhorn", |
13 | name => "Gramp Malone Earhorn", |
| 14 | match => ['flag', 'quest_gramp_malones_earhorn'], |
14 | match => ['flag', 'quest_gramp_malones_earhorn'], |
| 15 | difficulty => 'be observant', |
15 | difficulty => 'be observant', |
| 16 | start => 'Go to the hoves in the south west of scorn, go into the south east house from the four houses and ask the woman and/or grandpa malone about his earhorn. H<you will have to find it, maybe it\'s not even on the same map>', |
16 | start => 'Go to the hoves in the south west of scorn, go into the south east house from the four houses and ask the woman and/or grandpa malone about his earhorn. H<You will have to find it, maybe it\'s not even on the same map>', |
| 17 | spoiler_cost => 50000, |
17 | spoiler_cost => 50000, |
| 18 | spoiler => "You will find his earhorn in the tavern \"The Barking Mule\", he left it in a workbench there.", |
18 | spoiler => "You will find his earhorn in the tavern \"The Barking Mule\", he left it in a workbench there.", |
| 19 | }, |
19 | }, |
| 20 | { |
20 | { |
| 21 | name => "Gramp Malone Walkingstick", |
21 | name => "Gramp Malone Walkingstick", |
| 22 | match => ['flag', 'quest_gramp_malones_walking_stick'], |
22 | match => ['flag', 'quest_gramp_malones_walking_stick'], |
| 23 | difficulty => 'be observant', |
23 | difficulty => 'be observant', |
| 24 | start => 'Go to the hoves in the south west of scorn, go into the south east house from the four houses and ask the woman and/or grandpa malone about his walking stick. H<you will have to find it, maybe it\'s not even on the same map>', |
24 | start => 'Go to the hoves in the south west of scorn, go into the south east house from the four houses and ask the woman and/or grandpa malone about his walking stick. H<You will have to find it, maybe it\'s not even on the same map>', |
| 25 | spoiler_cost => 50000, |
25 | spoiler_cost => 50000, |
| 26 | spoiler => "The walking stick was lost in the four houses called the \"Riverside Manor\" in the south of Scorn. The House to the very south east has a table, beneath it you will find gramps walking stick." |
26 | spoiler => "The walking stick was lost in the four houses called the \"Riverside Manor\" in the south of Scorn. The House to the very south east has a table, beneath it you will find gramps walking stick." |
| 27 | }, |
27 | }, |
| 28 | { |
28 | { |
| 29 | name => 'Hero of Scorn', |
29 | name => 'Hero of Scorn', |
| … | |
… | |
| 145 | my $q = name2quest ($arguments); |
145 | my $q = name2quest ($arguments); |
| 146 | if ($q) { |
146 | if ($q) { |
| 147 | if ($who->pay_amount ($q->{spoiler_cost})) { |
147 | if ($who->pay_amount ($q->{spoiler_cost})) { |
| 148 | $who->reply ($npc, |
148 | $who->reply ($npc, |
| 149 | "Ok, I received ".cf::cost_string_from_value ($q->{spoiler_cost}) |
149 | "Ok, I received ".cf::cost_string_from_value ($q->{spoiler_cost}) |
| 150 | ." from you. This is the spoiler for the quest " |
150 | . " from you. This is the spoiler for the quest " |
| 151 | ."'$q->{name}': $q->{spoiler}" |
151 | . "'$q->{name}': $q->{spoiler}" |
| 152 | ); |
152 | ); |
| 153 | } else { |
153 | } else { |
| 154 | $who->reply ($npc, |
154 | $who->reply ($npc, |
| 155 | "I'm sorry, but you don't have enough money to pay the spoiler " |
155 | "I'm sorry, but you don't have enough money to pay the spoiler " |
| 156 | ."for the quest '$q->{name}', it would cost you " |
156 | . "for the quest '$q->{name}', it would cost you " |
| 157 | . cf::cost_string_from_value ($q->{spoiler_cost}) . "." |
157 | . cf::cost_string_from_value ($q->{spoiler_cost}) . "." |
| 158 | ); |
158 | ); |
| 159 | } |
159 | } |
| 160 | |
160 | |
| 161 | } else { |
161 | } else { |
| … | |
… | |
| 168 | |
168 | |
| 169 | if ($q->{match}->[0] eq 'marker') { |
169 | if ($q->{match}->[0] eq 'marker') { |
| 170 | my $force; |
170 | my $force; |
| 171 | ext::map_lib::rec_inv_by_slaying ($who, $q->{match}->[1], sub { $force = $_[0] }); |
171 | ext::map_lib::rec_inv_by_slaying ($who, $q->{match}->[1], sub { $force = $_[0] }); |
| 172 | if ($force) { |
172 | if ($force) { |
| 173 | $force->remove; |
|
|
| 174 | $force->destroy (1); |
173 | $force->destroy; |
| 175 | $who->reply ($npc, "Successfully erased quest marker '$q->{name}' from you!"); |
174 | $who->reply ($npc, "Successfully erased quest marker '$q->{name}' from you!"); |
| 176 | |
175 | |
| 177 | } else { |
176 | } else { |
| 178 | $who->reply ($npc, "I'm sorry, but you never had a quest marker for the '$q->{name}' quest!"); |
177 | $who->reply ($npc, "I'm sorry, but you never had a quest marker for the '$q->{name}' quest!"); |
| 179 | } |
178 | } |
| … | |
… | |
| 184 | } |
183 | } |
| 185 | |
184 | |
| 186 | } else { |
185 | } else { |
| 187 | $who->reply ($npc, <<REPL); |
186 | $who->reply ($npc, <<REPL); |
| 188 | Welcome adventurer! What do you want to do? |
187 | Welcome adventurer! What do you want to do? |
|
|
188 | |
| 189 | Do you want me to list your finished quests? |
189 | Do you want me to list your finished quests? |
| 190 | Or do you want a list of unfinished quests? |
190 | Or do you want a list of unfinished quests? |
| 191 | Or do you want a start point or even a spoiler to a quest? |
191 | Or maybe you want a starting point, or even a spoiler, for a quest? |
| 192 | REPL |
192 | REPL |
| 193 | } |
193 | } |
| 194 | |
194 | |
| 195 | 1 |
195 | 1 |
| 196 | }; |
196 | }; |
