ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/maps/perl/bank.ext
(Generate patch)

Comparing deliantra/maps/perl/bank.ext (file contents):
Revision 1.15 by pippijn, Tue May 23 13:07:10 2006 UTC vs.
Revision 1.16 by pippijn, Wed May 24 01:40:21 2006 UTC

… …
4# give the banker in-game: 4# give the banker in-game:
5# - help, will show the usage information 5# - help, will show the usage information
6# - deposit, can deposit a certain amount of a given currency unit 6# - deposit, can deposit a certain amount of a given currency unit
7# - withdraw, can give out a certain amount of a given currency unit 7# - withdraw, can give out a certain amount of a given currency unit
8# provided, the bank account has this amount of money 8# provided, the bank account has this amount of money
9# - exchange, will exchange between imperials and platinum coins 9# - exchange, will exchange between royalties and platinum coins
10# - balance, simply shows how much money one has on his/her account. 10# - balance, simply shows how much money one has on his/her account.
11# 11#
12# TODO: 12# TODO:
13# - Comment more steps 13# - Comment more steps
14# - Implement exchange() 14# - Implement exchange()
15 15
16# The units are being used in each sub so they are declared globally. 16# The units are being used in each sub so they are declared globally.
17my %unit = ( 17my %unit = (
18 silver => 1, 18 silver => 1,
19 gold => 10, 19 gold => 10,
20 platina => 50, 20 platina => 50,
21 imperial => 10000, 21 royalty => 5000,
22); 22);
23 23
24# Subroutine just to calculate exchange rates. 24# Subroutine just to calculate exchange rates.
25sub calc_exchange_rate { 25sub calc_exchange_rate {
26 my ($value, $from_cur, $to_cur) = @_; 26 my ($value, $from_cur, $to_cur) = @_;
… …
36 my ($who, $is_wiz) = @_; 36 my ($who, $is_wiz) = @_;
37 my $balance = $who->{bank_balance}; 37 my $balance = $who->{bank_balance};
38 38
39 unless ($is_wiz) { 39 unless ($is_wiz) {
40 return "Sorry, you have no balance." 40 return "Sorry, you have no balance."
41 unless $balance; 41 unless $balance >= 1;
42 } else { 42 } else {
43 return $who->name." has no balance." 43 return $who->name." has no balance."
44 unless $balance; 44 unless $balance >= 1;
45 } 45 }
46 46
47 my $imperials = calc_exchange_rate $balance, "silver", "imperial"; 47 my $royalties = calc_exchange_rate $balance, "silver", "royalty";
48 my $platinum = calc_exchange_rate $imperials - (int $imperials), "imperial", "platina"; 48 my $platinum = calc_exchange_rate $royalties - (int $royalties), "royalty", "platina";
49 my $gold = calc_exchange_rate $platinum - (int $platinum), "platina", "gold"; 49 my $gold = calc_exchange_rate $platinum - (int $platinum), "platina", "gold";
50 my $silver = calc_exchange_rate $gold - (int $gold), "gold", "silver"; 50 my $silver = calc_exchange_rate $gold - (int $gold), "gold", "silver";
51 51
52 my $account_info = 52 my $account_info =
53 (int $imperials) . " imperials, " 53 (int $royalties) . " royalties, "
54 . (int $platinum) . " platinum, " 54 . (int $platinum) . " platinum, "
55 . (int $gold) . " gold and about " 55 . (int $gold) . " gold and about "
56 . (int $silver) ." silver coins."; 56 . (int $silver) ." silver coins.";
57 57
58 return "You have $account_info" 58 return "You have $account_info"
… …
89 return "You don't have enough money with you."; 89 return "You don't have enough money with you.";
90 } 90 }
91 } elsif ($action eq "withdraw") { 91 } elsif ($action eq "withdraw") {
92 if ($who->{bank_balance} - $pay > 0) { 92 if ($who->{bank_balance} - $pay > 0) {
93 $who->{bank_balance} -= $pay; 93 $who->{bank_balance} -= $pay;
94 if ($currency eq "imperial") { 94 if ($currency eq "royalty") {
95 my $money = cf::object::new "imperial"; 95 my $money = cf::object::new "royalty";
96 $money->set_property (1, 24, $amount); 96 $money->set_property (1, 24, $amount);
97 $money->insert_in_ob ($who); 97 $money->insert_in_ob ($who);
98 } else { 98 } else {
99 my $money = cf::object::new $currency . "coin"; 99 my $money = cf::object::new $currency . "coin";
100 $money->set_property (1, 24, $amount); 100 $money->set_property (1, 24, $amount);
101 $money->insert_in_ob ($who); 101 $money->insert_in_ob ($who);
102 } 102 }
103 return "Withdrew $amount $currency"; 103 return "Withdrew $amount $currency";
104 } else {
105 return "You don't have that much money on your bank account.";
104 } 106 }
105 } 107 }
106} 108}
107 109
108sub help { 110sub help {
… …
122 return "To get the money you stored in our system back, just say: 124 return "To get the money you stored in our system back, just say:
123 withdraw <amount> <currency>"; 125 withdraw <amount> <currency>";
124 } elsif ($command eq "balance") { 126 } elsif ($command eq "balance") {
125 return "I can tell you how much money you are saving in our bank, just ask me about your balance."; 127 return "I can tell you how much money you are saving in our bank, just ask me about your balance.";
126 } elsif ($command eq "exchange") { 128 } elsif ($command eq "exchange") {
127 return "We exchange between imperial notes and platina coins at a very low price. To change from platina to imperials, say: 129 return "We exchange between royalties and platina coins at a very low price. To change from platina to royalties, say:
128 exchange <amount> platina\nTo change from imperials to platina, say: 130 exchange <amount> platina royalty\nTo change from royalties to platina, say:
129 exchange <amount> imperial\nWe currently only exchange between these two currencies. If you want to know more about exchange rates, ask me: 131 exchange <amount> royalty platina\nWe currently only exchange between these two currencies. If you want to know more about exchange rates, ask me:
130 help exchange rates\nThanks for using our bank."; 132 help exchange rates\nThanks for using our bank.";
131 } elsif ($command eq "exchange rates") { 133 } elsif ($command eq "exchange rates") {
132 my @units = sort { $unit{$b} <=> $unit{$a} } keys %unit; 134 my @units = sort { $unit{$b} <=> $unit{$a} } keys %unit;
133 my $exchange_rates = "Here is a list of exchange rates:\n"; 135 my $exchange_rates = "Here is a list of exchange rates:\n";
134 136
… …
148 my $name = $ob->name; 150 my $name = $ob->name;
149 my $service_charge = 5; 151 my $service_charge = 5;
150 my @units = sort keys %unit; 152 my @units = sort keys %unit;
151 my $units = join ", ", @units; 153 my $units = join ", ", @units;
152 my $fees = - ($service_charge / 100) + 1; 154 my $fees = - ($service_charge / 100) + 1;
155
156 # Have some aliases for currencies
153 if ($currency eq "platinum") { 157 if ($currency eq "platinum") {
154 $currency = "platina"; 158 $currency = "platina";
159 } elsif ($currency eq "royalties") {
160 $currency = "royalty";
155 } 161 }
156
157 162
158 if ($cmd eq "balance") { 163 if ($cmd eq "balance") {
159 if ($who->flag (cf::FLAG_WIZ)) { 164 if ($who->flag (cf::FLAG_WIZ)) {
160 if (my $player = cf::player::find $arguments) { 165 if (my $player = cf::player::find $arguments) {
161 $who->message ("$name says: ".balance ($player->ob, 1), cf::NDI_WHITE); 166 $who->message ("$name says: ".balance ($player->ob, 1), cf::NDI_WHITE);

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines