| … | |
… | |
| 44 | name => "Mike Miller House", |
44 | name => "Mike Miller House", |
| 45 | match => ['marker', 'quest_mike_millers_house'], |
45 | match => ['marker', 'quest_mike_millers_house'], |
| 46 | difficulty => 'tricky', |
46 | difficulty => 'tricky', |
| 47 | start => "In the north west of scorn you will find the 'West Scorn Trademarket', just south from the weapons shop. The first neighbour house to the east of the trademarket, just right next to the street, is Mike Miller's house. Speak to him. H<He wants the angry pixie's head, which you should drop right next to him.>", |
47 | start => "In the north west of scorn you will find the 'West Scorn Trademarket', just south from the weapons shop. The first neighbour house to the east of the trademarket, just right next to the street, is Mike Miller's house. Speak to him. H<He wants the angry pixie's head, which you should drop right next to him.>", |
| 48 | }, |
48 | }, |
|
|
49 | { |
|
|
50 | name => "Jeweler Quest", |
|
|
51 | match => ['flag', 'jeweler_quest_1'], |
|
|
52 | difficulty => 'tough fighting', |
|
|
53 | start => "You have to travel to Valleynoy. You find a ship to Valleynoy in Navar. Take it and search the valley of the jeweler town. Go to the welcome house and speak to the old man there." |
|
|
54 | } |
| 49 | ); |
55 | ); |
| 50 | |
56 | |
| 51 | sub name2quest { |
57 | sub name2quest { |
| 52 | my ($n) = @_; |
58 | my ($n) = @_; |
| 53 | for my $q (@QUESTS) { |
59 | for my $q (@QUESTS) { |
| … | |
… | |
| 56 | } |
62 | } |
| 57 | } |
63 | } |
| 58 | return undef; |
64 | return undef; |
| 59 | } |
65 | } |
| 60 | |
66 | |
| 61 | # this is the main command interface for the IPO NPC |
67 | # this is the main command interface for the NPC |
| 62 | cf::register_script_function "quest_master::talk" => sub { |
68 | cf::register_script_function "quest_master::talk" => sub { |
| 63 | my ($who, $msg, $npc) = @_; |
69 | my ($who, $msg, $npc) = @_; |
| 64 | my ($cmd, $arguments) = split /\s+/, $msg, 2; |
70 | my ($cmd, $arguments) = split /\s+/, $msg, 2; |
| 65 | $cmd = lc $cmd; |
71 | $cmd = lc $cmd; |
| 66 | |
72 | |
