ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/cf.schmorp.de/maps/perl/bank.ext
Revision: 1.24
Committed: Fri Dec 15 19:11:46 2006 UTC (17 years, 7 months ago) by root
Branch: MAIN
CVS Tags: HEAD
Changes since 1.23: +0 -0 lines
State: FILE REMOVED
Log Message:
move .ext to server

File Contents

# Content
1 #! perl
2
3 # The international bank script. There are five commands one can
4 # give the banker in-game:
5 # - help, will show the usage information
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
8 # provided, the bank account has this amount of money
9 # - exchange, will exchange between royalties and platinum coins
10 # - balance, simply shows how much money one has on his/her account.
11 #
12 # TODO:
13 # - Comment more steps
14 # - Implement exchange()
15
16 # The units are being used in each sub so they are declared globally.
17 my %unit = (
18 silver => 1,
19 gold => 10,
20 platina => 50,
21 royalty => 5000,
22 );
23
24 # Subroutine just to calculate exchange rates.
25 sub calc_exchange_rate {
26 my ($value, $from_cur, $to_cur) = @_;
27
28 $value * $unit{$from_cur} / $unit{$to_cur}
29 }
30
31 # Calculates and returns how much money someone has starting with the
32 # highest value currency going down. Think of it like having the date
33 # and time in the format of 2006-05-19 03:21:31 UTC instead of 1148001691
34 # seconds since 1970-01-01 00:00:00 UTC.
35 sub balance {
36 my ($who, $is_wiz) = @_;
37 my $balance = $who->{bank_balance};
38
39 unless ($is_wiz) {
40 return "Sorry, you have no balance."
41 unless $balance >= 1;
42 } else {
43 return $who->name." has no balance."
44 unless $balance >= 1;
45 }
46
47 my $account_info = cf::cost_string_from_value ($balance);
48
49 return "You have $account_info"
50 unless $is_wiz;
51
52 return $who->name." has $account_info";
53 }
54
55 sub transaction {
56 my ($who, $action, $amount, $currency) = @_;
57 my $pay = $amount * $unit{$currency};
58
59 return "We don't trade in that currency."
60 unless exists $unit{$currency};
61
62 return "You can not $action fractions."
63 unless $amount =~ /^\d+$/;
64
65 # First check for possible overflow and user stupidity
66 if ($amount > 2**31) {
67 return "Sorry, we do not handle that kind of money for one ".$action.".";
68 } elsif ($amount == 0) {
69 return "You can not ".$action." nothing.";
70 } elsif ($amount < 0) {
71 return "You can not ".$action." negative values.";
72 }
73
74 # Here we handle the transactions
75 if ($action eq "deposit") {
76 if ($who->pay_amount ($pay)) {
77 $who->{bank_balance} += $pay;
78 return "$amount $currency received.";
79 } else {
80 return "You don't have enough money with you.";
81 }
82 } elsif ($action eq "withdraw") {
83 if ($pay <= $who->{bank_balance}) {
84 my $paid = $who->pay_player_arch (
85 $currency eq 'royalty' ? 'royalty' : $currency . "coin",
86 $amount
87 );
88 if ($paid) {
89 $who->{bank_balance} -= $pay;
90 } else {
91 $amount = 0;
92 }
93 return "Withdrew $amount $currency";
94 } else {
95 return "You don't have that much money on your bank account.";
96 }
97 }
98 }
99
100 sub help {
101 my ($command) = @_;
102
103 if ($command eq "") {
104 return "You can:
105 deposit <amount> <currency>
106 withdraw <amount> <currency>
107 balance
108 exchange <amount> <direction>
109 help <topic>";
110 } elsif ($command eq "deposit") {
111 return "You can deposit some of the money you don't currently use in our bank. To do this, ask me to:
112 deposit <amount> <currency>\nSee help exchange for our currencies.";
113 } elsif ($command eq "withdraw") {
114 return "To get the money you stored in our system back, just say:
115 withdraw <amount> <currency>";
116 } elsif ($command eq "balance") {
117 return "I can tell you how much money you are saving in our bank, just ask me about your balance.";
118 } elsif ($command eq "exchange") {
119 return "We exchange between royalties and platina coins at a very low price. To change from platina to royalties, say:
120 exchange <amount> platina royalty\nTo change from royalties to platina, say:
121 exchange <amount> royalty platina\nWe currently only exchange between these two currencies. If you want to know more about exchange rates, ask me:
122 help exchange rates\nThanks for using our bank.";
123 } elsif ($command eq "exchange rates") {
124 my @units = sort { $unit{$b} <=> $unit{$a} } keys %unit;
125 my $exchange_rates = "Here is a list of exchange rates:\n";
126
127 for my $from_cur_nr (0 .. $#units) {
128 for my $to_cur_nr ($from_cur_nr+1 .. $#units) {
129 $exchange_rates = $exchange_rates."One $units[$from_cur_nr] is ".calc_exchange_rate(1, $units[$from_cur_nr], $units[$to_cur_nr])." $units[$to_cur_nr]\n";
130 }
131 }
132 return $exchange_rates."This may change a bit with the stock markets but don't expect it to be much.";
133 }
134 }
135
136 cf::register_script_function "bank::command" => sub {
137 my ($who, $msg, $npc) = @_;
138
139 my ($cmd, $arguments) = split /\s+/, $msg, 2;
140 my ($amount, $currency) = split /\s+/, $arguments, 2;
141 my $service_charge = 5;
142 my @units = sort keys %unit;
143 my $units = join ", ", @units;
144 my $fees = - ($service_charge / 100) + 1;
145
146 # Have some aliases for currencies
147 if ($currency eq "platinum") {
148 $currency = "platina";
149 } elsif ($currency eq "royalties") {
150 $currency = "royalty";
151 }
152
153 if ($cmd eq "balance") {
154 if ($who->flag (cf::FLAG_WIZ)) {
155 if (my $player = cf::player::find $arguments) {
156 $who->reply ($npc, balance $player->ob, 1);
157 }
158 } else {
159 $who->reply ($npc, balance $who, 0);
160 }
161
162 } elsif ($cmd eq "balance" and !$arguments) {
163 $who->reply ($npc, "Balance of whom?");
164
165 } elsif ($cmd eq "deposit" and $currency) {
166 $who->reply ($npc, transaction $who, "deposit", $amount, $currency);
167 $who->reply ($npc, balance $who);
168
169 } elsif ($cmd eq "deposit" and $amount and $currency eq "") {
170 $who->reply ($npc, "deposit $amount of what: $units");
171
172 } elsif ($cmd eq "deposit" and $amount eq "" and $currency eq "") {
173 $who->reply ($npc, "How much do you want to deposit?");
174
175 } elsif ($cmd eq "withdraw" and $currency) {
176 $who->reply ($npc, transaction $who, "withdraw", $amount, $currency);
177 $who->reply ($npc, balance $who);
178
179 } elsif ($cmd eq "withdraw" and $amount and $currency eq "") {
180 $who->reply ($npc, "Withdraw $amount of what: $units");
181
182 } elsif ($cmd eq "withdraw" and $amount eq "" and $currency eq "") {
183 $who->reply ($npc, "How much do you want to withdraw?");
184
185 } elsif ($cmd eq "exchange") {
186 $who->reply ($npc, "This function is not yet implemented. Ask me again later.");
187
188 } elsif ($cmd eq "help" or $cmd eq "yes" and $arguments eq "") {
189 $who->reply ($npc, help $arguments);
190
191 } elsif ($cmd eq "help" or $cmd eq "yes" and $arguments ne "") {
192 $who->reply ($npc, help);
193
194 } else {
195 $who->reply ($npc, "Do you need help?");
196 }
197 }
198