| 1 | #!perl # mandatory |
1 | #!perl # mandatory |
| 2 | |
2 | |
| 3 | our $WAIT_TIME = 5 * 60; # 4 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 * 50; # 70 platinum (for lvl 115 players) |
5 | our $MAX_BASE_PRICE = 100 * 100 * 25; # 50 platinum (for lvl 115 players) |
| 6 | our $MIN_BASE_PRICE = 100 * 10; # 10 gold |
6 | our $MIN_BASE_PRICE = 100 * 10; # 10 gold |
| 7 | |
7 | |
| 8 | sub calc_player_price { |
8 | sub calc_player_price { |
| 9 | my ($name) = @_; |
9 | my ($name) = @_; |
| 10 | |
10 | |
