| 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 | |
