bank.php

<?php
// translator ready
// addnews ready
// mail ready
/**
* \file bank.php
* This file holds the entire bank code for the village bank. You can withdraw or depost gold here as user.
* @see village.php
*/
require_once("common.php");
require_once("lib/systemmail.php");
require_once("lib/sanitize.php");
require_once("lib/http.php");
require_once("lib/villagenav.php");

tlschema("bank");

page_header("Ye Olde Bank");
output("`^`c`bYe Olde Bank`b`c");
$op = httpget('op');
$point=getsetting('moneydecimalpoint',".");
$sep=getsetting('moneythousandssep',",");
if ($op==""){
  checkday();
  output("`6As you approach the pair of impressive carved rock crystal doors, they part to allow you entrance into the bank.");
  output("You find yourself standing in a room of exquisitely vaulted ceilings of carved stone.");
  output("Light filters through tall windows in shafts of soft radiance.");
  output("About you, clerks are bustling back and forth.");
  output("The sounds of gold being counted can be heard, though the treasure is nowhere to be seen.`n`n");
  output("You walk up to a counter of jet black marble.`n`n");
  output("`@Elessa`6, a petite woman in an immaculately tailored business dress, greets you from behind reading spectacles with polished silver frames.`n`n");
  output("`6\"`5Greetings, my good lady,`6\" you greet her, \"`5Might I inquire as to my balance this fine day?`6\"`n`n");
  output("`@Elessa`6 blinks for a moment and then smiles, \"`@Hmm, `&%s`@, let's see.....`6\" she mutters as she scans down a page in her ledger.",$session['user']['name']);
	if ($session['user']['goldinbank']>=0){
		output("`6\"`@Aah, yes, here we are.  You have `^%s gold`@ in our prestigious bank.  Is there anything else I can do for you?`6\"",number_format($session['user']['goldinbank'],0,$point,$sep));
	}else{
		output("`6\"`@Aah, yes, here we are.  You have a `&debt`@ of `^%s gold`@ in our prestigious bank.  Is there anything else I can do for you?`6\"",number_format(abs($session['user']['goldinbank']),0,$point,$sep));
	}
}elseif($op=="transfer"){
	output("`6`bTransfer Money`b:`n");
	if ($session['user']['goldinbank']>=0){
		output("`@Elessa`6 tells you, \"`@Just so that you are fully aware of our policies, you may only transfer `^%s`@ gold per the recipient's level.",getsetting("transferperlevel",25));
		$maxout = $session['user']['level']*getsetting("maxtransferout",25);
		output("Similarly, you may transfer no more than `^%s`@ gold total during the day.`6\"`n",$maxout);
		if ($session['user']['amountouttoday'] > 0) {
			output("`6She scans her ledgers briefly, \"`@For your knowledge, you have already transferred `^%s`@ gold today.`6\"`n",$session['user']['amountouttoday']);
		}
		output_notl("`n");
		$preview = translate_inline("Preview Transfer");
		rawoutput("<form action='bank.php?op=transfer2' method='POST'>");
		output("Transfer how much: ");
		rawoutput("<input name='amount' id='amount' width='5'>");
		output_notl("`n");
		output("To: ");
		rawoutput("<input name='to'>");
		output(" (partial names are ok, you will be asked to confirm the transaction before it occurs).`n");
		rawoutput("<input type='submit' class='button' value='$preview'></form>");
		rawoutput("<script language='javascript'>document.getElementById('amount').focus();</script>");
		addnav("","bank.php?op=transfer2");
	}else{
		output("`@Elessa`6 tells you that she refuses to transfer money for someone who is in debt.");
	}
}elseif($op=="transfer2"){
	output("`6`bConfirm Transfer`b:`n");
	$string="%";
	$to = httppost('to');
	for ($x=0;$x<strlen($to);$x++){
		$string .= substr($to,$x,1)."%";
	}
	$sql = "SELECT name,login FROM " . db_prefix("accounts") . " WHERE name LIKE '".addslashes($string)."' AND locked=0 ORDER by login='$to' DESC, name='$to' DESC, login";
	$result = db_query($sql);
	$amt = abs((int)httppost('amount'));
	if (db_num_rows($result)==1){
		$row = db_fetch_assoc($result);
		$msg = translate_inline("Complete Transfer");
		rawoutput("<form action='bank.php?op=transfer3' method='POST'>");
		output("`6Transfer `^%s`6 to `&%s`6.",$amt,$row['name']);
		rawoutput("<input type='hidden' name='to' value='".HTMLEntities($row['login'], ENT_COMPAT, getsetting("charset", "ISO-8859-1"))."'><input type='hidden' name='amount' value='$amt'><input type='submit' class='button' value='$msg'></form>",true);
		addnav("","bank.php?op=transfer3");
	}elseif(db_num_rows($result)>100){
		output("`@Elessa`6 looks at you disdainfully and coldly, but politely, suggests you try narrowing down the field of who you want to send money to just a little bit!`n`n");
		$msg = translate_inline("Preview Transfer");
		rawoutput("<form action='bank.php?op=transfer2' method='POST'>");
		output("Transfer how much: ");
		rawoutput("<input name='amount' id='amount' width='5' value='$amt'><br>");
		output("To: ");
		rawoutput("<input name='to' value='$to'>");
		output(" (partial names are ok, you will be asked to confirm the transaction before it occurs).`n");
		rawoutput("<input type='submit' class='button' value='$msg'></form>");
		rawoutput("<script language='javascript'>document.getElementById('amount').focus();</script>",true);
		addnav("","bank.php?op=transfer2");
	}elseif(db_num_rows($result)>1){
		rawoutput("<form action='bank.php?op=transfer3' method='POST'>");
		output("`6Transfer `^%s`6 to ",$amt);
		rawoutput("<select name='to' class='input'>");
		while ($row = db_fetch_assoc($result)) {
			rawoutput("<option value=\"".HTMLEntities($row['login'], ENT_COMPAT, getsetting("charset", "ISO-8859-1"))."\">".full_sanitize($row['name'])."</option>");
		}
		$msg = translate_inline("Complete Transfer");
		rawoutput("</select><input type='hidden' name='amount' value='$amt'><input type='submit' class='button' value='$msg'></form>",true);
		addnav("","bank.php?op=transfer3");
	}else{
		output("`@Elessa`6 blinks at you from behind her spectacles, \"`@I'm sorry, but I can find no one matching that name who does business with our bank!  Please try again.`6\"");
	}
}elseif($op=="transfer3"){
	$amt = abs((int)httppost('amount'));
	$to = httppost('to');
	output("`6`bTransfer Completion`b`n");
	if ($session['user']['gold']+$session['user']['goldinbank']<$amt){
		output("`@Elessa`6 stands up to her full, but still diminutive height and glares at you, \"`@How can you transfer `^%s`@ gold when you only possess `^%s`@?`6\"",number_format($amt,0,$point,$sep),number_format($session['user']['gold']+$session['user']['goldinbank'],0,$point,$sep));
	}else{
		$sql = "SELECT name,acctid,level,transferredtoday FROM " . db_prefix("accounts") . " WHERE login='$to'";
		$result = db_query($sql);
		if (db_num_rows($result)==1){
			$row = db_fetch_assoc($result);
			$maxout = $session['user']['level']*getsetting("maxtransferout",25);
			$maxtfer = $row['level']*getsetting("transferperlevel",25);
			if ($session['user']['amountouttoday']+$amt > $maxout) {
				output("`@Elessa`6 shakes her head, \"`@I'm sorry, but I cannot complete that transfer; you are not allowed to transfer more than `^%s`@ gold total per day.`6\"",$maxout);
			}else if ($maxtfer<$amt){
				output("`@Elessa`6 shakes her head, \"`@I'm sorry, but I cannot complete that transfer; `&%s`@ may only receive up to `^%s`@ gold per day.`6\"",$row['name'],$maxtfer);
			}else if($row['transferredtoday']>=getsetting("transferreceive",3)){
				output("`@Elessa`6 shakes her head, \"`@I'm sorry, but I cannot complete that transfer; `&%s`@ has received too many transfers today, you will have to wait until tomorrow.`6\"",$row['name']);
			}else if($amt<(int)$session['user']['level']){
				output("`@Elessa`6 shakes her head, \"`@I'm sorry, but I cannot complete that transfer; you might want to send a worthwhile transfer, at least as much as your level.`6\"");
			}else if($row['acctid']==$session['user']['acctid']){
				output("`@Elessa`6 glares at you, her eyes flashing dangerously, \"`@You may not transfer money to yourself!  That makes no sense!`6\"");
			}else{
				debuglog("transferred $amt gold to", $row['acctid']);
				$session['user']['gold']-=$amt;
				if ($session['user']['gold']<0){
					//withdraw in case they don't have enough on hand.
					$session['user']['goldinbank']+=$session['user']['gold'];
					$session['user']['gold']=0;
				}
				$session['user']['amountouttoday']+= $amt;
				$sql = "UPDATE ". db_prefix("accounts") . " SET goldinbank=goldinbank+$amt,transferredtoday=transferredtoday+1 WHERE acctid='{$row['acctid']}'";
				db_query($sql);
				output("`@Elessa`6 smiles, \"`@The transfer has been completed!`6\"");
				$subj = array("`^You have received a money transfer!`0");
				$body = array("`&%s`6 has transferred `^%s`6 gold to your bank account!",$session['user']['name'],$amt);
				systemmail($row['acctid'],$subj,$body);
			}
		}else{
			output("`@Elessa`6 looks up from her ledger with a bit of surprise on her face, \"`@I'm terribly sorry, but I seem to have run into an accounting error, would you please try telling me what you wish to transfer again?`6\"");
		}
	}
}elseif($op=="deposit"){
	output("`0");
	rawoutput("<form action='bank.php?op=depositfinish' method='POST'>");
	$balance = translate_inline("`@Elessa`6 says, \"`@You have a balance of `^%s`@ gold in the bank.`6\"`n");
	$debt = translate_inline("`@Elessa`6 says, \"`@You have a `\$debt`@ of `^%s`@ gold to the bank.`6\"`n");
	output_notl($session['user']['goldinbank']>=0?$balance:$debt,number_format(abs($session['user']['goldinbank']),0,$point,$sep));
	output("`6Searching through all your pockets and pouches, you calculate that you currently have `^%s`6 gold on hand.`n`n", number_format($session['user']['gold'],0,$point,$sep));
	$dep = translate_inline("`^Deposit how much?");
	$pay = translate_inline("`^Pay off how much?");
	output_notl($session['user']['goldinbank']>=0?$dep:$pay);
	$dep = translate_inline("Deposit");
	rawoutput(" <input id='input' name='amount' width=5 > <input type='submit' class='button' value='$dep'>");
	output("`n`iEnter 0 or nothing to deposit it all`i");
	rawoutput("</form>");
	rawoutput("<script language='javascript'>document.getElementById('input').focus();</script>",true);
  addnav("","bank.php?op=depositfinish");
}elseif($op=="depositfinish"){
	$amount = abs((int)httppost('amount'));
	if ($amount==0){
		$amount=$session['user']['gold'];
	}
	$notenough = translate_inline("`\$ERROR: Not enough gold in hand to deposit.`n`n`^You plunk your `&%s`^ gold on the counter and declare that you would like to deposit all `&%s`^ gold of it.`n`n`@Elessa`6 stares blandly at you for a few seconds until you become self conscious and recount your money, realizing your mistake.");
	$depositdebt = translate_inline("`@Elessa`6 records your deposit of `^%s `6gold in her ledger. \"`@Thank you, `&%s`@.  You now have a debt of `\$%s`@ gold to the bank and `^%s`@ gold in hand.`6\"");
	$depositbalance= translate_inline("`@Elessa`6 records your deposit of `^%s `6gold in her ledger. \"`@Thank you, `&%s`@.  You now have a balance of `^%s`@ gold in the bank and `^%s`@ gold in hand.`6\"");
	if ($amount>$session['user']['gold']){
		output_notl($notenough,number_format($session['user']['gold'],0,$point,$sep),number_format($amount,0,$point,$sep));
	}else{
		debuglog("deposited " . $amount . " gold in the bank");
		$session['user']['goldinbank']+=$amount;
		$session['user']['gold']-=$amount;
		output_notl($session['user']['goldinbank']>=0?$depositbalance:$depositdebt,number_format($amount,0,$point,$sep),$session['user']['name'], number_format(abs($session['user']['goldinbank']),0,$point,$sep),number_format($session['user']['gold'],0,$point,$sep));
	}
}elseif($op=="borrow"){
	$maxborrow = $session['user']['level']*getsetting("borrowperlevel",20);
	$borrow = translate_inline("Borrow");
	$balance = translate_inline("`@Elessa`6 scans through her ledger, \"`@You have a balance of `^%s`@ gold in the bank.`6\"`n");
	$debt = translate_inline("`@Elessa`6 scans through her ledger, \"`@You have a `\$debt`@ of `^%s`@ gold to the bank.`6\"`n");
	rawoutput("<form action='bank.php?op=withdrawfinish' method='POST'>");
	output_notl($session['user']['goldinbank']>=0?$balance:$debt,number_format(abs($session['user']['goldinbank']),0,$point,$sep));
	output("`6\"`@How much would you like to borrow `&%s`@?  At your level, you may borrow up to a total of `^%s`@ from the bank.`6\"`n`n",$session['user']['name'], $maxborrow);
	rawoutput(" <input id='input' name='amount' width=5 > <input type='hidden' name='borrow' value='x'><input type='submit' class='button' value='$borrow'>");
	output("`n(Money will be withdrawn until you have none left, the remainder will be borrowed)");
	rawoutput("</form>");
	rawoutput("<script language='javascript'>document.getElementById('input').focus();</script>");
	addnav("","bank.php?op=withdrawfinish");
}elseif($op=="withdraw"){
	$withdraw = translate_inline("Withdraw");
	$balance = translate_inline("`@Elessa`6 scans through her ledger, \"`@You have a balance of `^%s`@ gold in the bank.`6\"`n");
	$debt = translate_inline("`@Elessa`6 scans through her ledger, \"`@You have a `\$debt`@ of `^%s`@ gold in the bank.`6\"`n");
	rawoutput("<form action='bank.php?op=withdrawfinish' method='POST'>");
	output_notl($session['user']['goldinbank']>=0?$balance:$debt,number_format(abs($session['user']['goldinbank']),0,$point,$sep));
	output("`6\"`@How much would you like to withdraw `&%s`@?`6\"`n`n",$session['user']['name']);
	rawoutput("<input id='input' name='amount' width=5 > <input type='submit' class='button' value='$withdraw'>");
	output("`n`iEnter 0 or nothing to withdraw it all`i");
	rawoutput("</form>");
	rawoutput("<script language='javascript'>document.getElementById('input').focus();</script>");
	addnav("","bank.php?op=withdrawfinish");
}elseif($op=="withdrawfinish"){
	$amount=abs((int)httppost('amount'));
	if ($amount==0){
		$amount=abs($session['user']['goldinbank']);
	}
	if ($amount>$session['user']['goldinbank'] && httppost('borrow')=="") {
		output("`\$ERROR: Not enough gold in the bank to withdraw.`^`n`n");
		output("`6Having been informed that you have `^%s`6 gold in your account, you declare that you would like to withdraw all `^%s`6 of it.`n`n", number_format($session['user']['goldinbank'],0,$point,$sep), number_format($amount,0,$point,$sep));
		output("`@Elessa`6 looks at you for a few moments without blinking, then advises you to take basic arithmetic.  You realize your folly and think you should try again.");
	}else if($amount>$session['user']['goldinbank']){
		$lefttoborrow = $amount;
		$didwithdraw = 0;
		$maxborrow = $session['user']['level']*getsetting("borrowperlevel",20);
		if ($lefttoborrow<=$session['user']['goldinbank']+$maxborrow){
			if ($session['user']['goldinbank']>0){
				output("`6You withdraw your remaining `^%s`6 gold.", number_format($session['user']['goldinbank'],0,$point,$sep));
				$lefttoborrow-=$session['user']['goldinbank'];
				$session['user']['gold']+=$session['user']['goldinbank'];
				$session['user']['goldinbank']=0;
				debuglog("withdrew $amount gold from the bank");
				$didwithdraw = 1;
			}
			if ($lefttoborrow-$session['user']['goldinbank'] > $maxborrow){
				if ($didwithdraw) {
					output("`6Additionally, you ask to borrow `^%s`6 gold.", number_format($leftoborrow,0,$point,$sep));
				} else {
					output("`6You ask to borrow `^%s`6 gold.", number_format($lefttoborrow,0,$point,$sep));
				}
				output("`@Elessa`6 looks up your account and informs you that you may only borrow up to `^%s`6 gold.", number_format($maxborrow,0,$point,$sep));
			}else{
				if ($didwithdraw) {
					output("`6Additionally, you borrow `^%s`6 gold.", number_format($lefttoborrow,0,$point,$sep));
				} else {
					output("`6You borrow `^%s`6 gold.", number_format($lefttoborrow,0,$point,$sep));
				}
				$session['user']['goldinbank']-=$lefttoborrow;
				$session['user']['gold']+=$lefttoborrow;
				debuglog("borrows $lefttoborrow gold from the bank");
				output("`@Elessa`6 records your withdrawal of `^%s `6gold in her ledger. \"`@Thank you, `&%s`@.  You now have a debt of `\$%s`@ gold to the bank and `^%s`@ gold in hand.`6\"", number_format($amount,0,$point,$sep),$session['user']['name'], number_format(abs($session['user']['goldinbank']),0,$point,$sep),number_format($session['user']['gold'],0,$point,$sep));
			}
		}else{
			output("`6Considering the `^%s`6 gold in your account, you ask to borrow `^%s`6. `@Elessa`6 peers through her ledger, runs a few calculations and then informs you that, at your level, you may only borrow up to a total of `^%s`6 gold.", number_format($session['user']['goldinbank'],0,$point,$sep), number_format($lefttoborrow-$session['user']['goldinbank'],0,$point,$sep), number_format($maxborrow,0,$point,$sep));
		}
	}else{
		$session['user']['goldinbank']-=$amount;
		$session['user']['gold']+=$amount;
		debuglog("withdrew $amount gold from the bank");
		output("`@Elessa`6 records your withdrawal of `^%s `6gold in her ledger. \"`@Thank you, `&%s`@.  You now have a balance of `^%s`@ gold in the bank and `^%s`@ gold in hand.`6\"", number_format($amount,0,$point,$sep),$session['user']['name'], number_format(abs($session['user']['goldinbank']),0,$point,$sep),number_format($session['user']['gold'],0,$point,$sep));
	}
}
villagenav();
addnav("Money");
if ($session['user']['goldinbank']>=0){
	addnav("W?Withdraw","bank.php?op=withdraw");
	addnav("D?Deposit","bank.php?op=deposit");
	if (getsetting("borrowperlevel",20)) addnav("L?Take out a Loan","bank.php?op=borrow");
}else{
	addnav("D?Pay off Debt","bank.php?op=deposit");
	if (getsetting("borrowperlevel",20)) addnav("L?Borrow More","bank.php?op=borrow");
}
if (getsetting("allowgoldtransfer",1)){
	if ($session['user']['level']>=getsetting("mintransferlev",3) || $session['user']['dragonkills']>0){
		addnav("M?Transfer Money","bank.php?op=transfer");
	}
}

page_footer();

?>