| … | |
… | |
| 93 | } else { |
93 | } else { |
| 94 | push @unfinished, $q; |
94 | push @unfinished, $q; |
| 95 | } |
95 | } |
| 96 | } |
96 | } |
| 97 | |
97 | |
| 98 | if ($cmd eq 'finished') { |
98 | if ($cmd eq 'finished') { |
| 99 | $who->reply ($npc, "You finished these quests: "); |
99 | $who->reply ($npc, "You finished these quests: "); |
| 100 | for (@finished) { |
100 | for (@finished) { |
| 101 | $who->reply ($npc, "- \"$_->{name}\""); |
101 | $who->reply ($npc, "- \"$_->{name}\""); |
| 102 | } |
102 | } |
| 103 | |
103 | |
| … | |
… | |
| 135 | if ($arguments eq '') { |
135 | if ($arguments eq '') { |
| 136 | $who->reply ($npc, "If you want to have the spoiler for one the following quests enter this into the message entry: 'spoiler <name of quest>', for example: 'spoiler hero of scorn'."); |
136 | $who->reply ($npc, "If you want to have the spoiler for one the following quests enter this into the message entry: 'spoiler <name of quest>', for example: 'spoiler hero of scorn'."); |
| 137 | $who->reply ($npc, "I know spoilers for these quests:"); |
137 | $who->reply ($npc, "I know spoilers for these quests:"); |
| 138 | for my $q (@QUESTS) { |
138 | for my $q (@QUESTS) { |
| 139 | next unless $q->{spoiler}; |
139 | next unless $q->{spoiler}; |
| 140 | $who->reply ($npc, "- \"$q->{name}\", cost: " |
140 | $who->reply ($npc, "- \"$q->{name}\", cost: " |
| 141 | . cf::cost_string_from_value ($q->{spoiler_cost})); |
141 | . cf::cost_string_from_value ($q->{spoiler_cost})); |
| 142 | } |
142 | } |
| 143 | |
143 | |
| 144 | } else { |
144 | } else { |
| 145 | my $q = name2quest ($arguments); |
145 | my $q = name2quest ($arguments); |
