… | |
… | |
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 { |
… | |
… | |
184 | } |
184 | } |
185 | |
185 | |
186 | } else { |
186 | } else { |
187 | $who->reply ($npc, <<REPL); |
187 | $who->reply ($npc, <<REPL); |
188 | Welcome adventurer! What do you want to do? |
188 | Welcome adventurer! What do you want to do? |
|
|
189 | |
189 | Do you want me to list your finished quests? |
190 | Do you want me to list your finished quests? |
190 | Or do you want a list of unfinished quests? |
191 | Or do you want a list of unfinished quests? |
191 | Or do you want a start point or even a spoiler to a quest? |
192 | Or maybe you want a starting point, or even a spoiler, for a quest? |
192 | REPL |
193 | REPL |
193 | } |
194 | } |
194 | |
195 | |
195 | 1 |
196 | 1 |
196 | }; |
197 | }; |