1 | #!perl # mandatory |
1 | #! perl # mandatory |
2 | |
2 | |
3 | our $WAIT_TIME = 5 * 60; # 5 minutes |
3 | our $WAIT_TIME = 5 * 60; # 5 minutes |
4 | # the max price is base_price * 1.5 |
4 | # the max price is base_price * 1.5 |
5 | our $MAX_BASE_PRICE = 100 * 100 * 25; # 25 platinum (for lvl 115 players) |
5 | our $MAX_BASE_PRICE = 100 * 100 * 25; # 25 platinum (for lvl 115 players) |
6 | our $MIN_BASE_PRICE = 100 * 10; # 10 gold |
6 | our $MIN_BASE_PRICE = 100 * 10; # 10 gold |
… | |
… | |
97 | $who->{gravedigger_last_time} = time; |
97 | $who->{gravedigger_last_time} = time; |
98 | }; |
98 | }; |
99 | |
99 | |
100 | $who->reply ($npc, "Let me have a look..."); |
100 | $who->reply ($npc, "Let me have a look..."); |
101 | }; |
101 | }; |
|
|
102 | |