=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\"",$session['user']['goldinbank']); }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\"",abs($session['user']['goldinbank'])); } }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("

"); output("Transfer how much: "); rawoutput(""); output_notl("`n"); output("To: "); rawoutput(""); output(" (partial names are ok, you will be asked to confirm the transaction before it occurs).`n"); rawoutput("

"); rawoutput(""); 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"); output("`6Transfer `^%s`6 to `&%s`6.",$amt,$row['name']); rawoutput("",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("

"); output("Transfer how much: "); rawoutput("
"); output("To: "); rawoutput(""); output(" (partial names are ok, you will be asked to confirm the transaction before it occurs).`n"); rawoutput("

"); rawoutput("",true); addnav("","bank.php?op=transfer2"); }elseif(db_num_rows($result)>1){ rawoutput("

"); output("`6Transfer `^%s`6 to ",$amt); rawoutput(""); $number=db_num_rows($result); for ($i=0;$i<$number;$i++){ $row = db_fetch_assoc($result); rawoutput("".full_sanitize($row['name']).""); } $msg = translate_inline("Complete Transfer"); rawoutput("

",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\"",$amt,$session['user']['gold']+$session['user']['goldinbank']); }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("

"); $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,abs($session['user']['goldinbank'])); output("`6Searching through all your pockets and pouches, you calculate that you currently have `^%s`6 gold on hand.`n`n", $session['user']['gold']); $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(" "); output("`n`iEnter 0 or nothing to deposit it all`i"); rawoutput("

"); rawoutput("",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,$session['user']['gold'],$amount); }else{ debuglog("deposited " . $amount . " gold in the bank"); $session['user']['goldinbank']+=$amount; $session['user']['gold']-=$amount; output_notl($session['user']['goldinbank']>=0?$depositbalance:$depositdebt,$amount,$session['user']['name'], abs($session['user']['goldinbank']),$session['user']['gold']); } }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("

"); output_notl($session['user']['goldinbank']>=0?$balance:$debt,abs($session['user']['goldinbank'])); 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(" "); output("`n(Money will be withdrawn until you have none left, the remainder will be borrowed)"); rawoutput("

"); rawoutput(""); 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("

"); output_notl($session['user']['goldinbank']>=0?$balance:$debt,abs($session['user']['goldinbank'])); output("`6\"`@How much would you like to withdraw `&%s`@?`6\"`n`n",$session['user']['name']); rawoutput(" "); output("`n`iEnter 0 or nothing to withdraw it all`i"); rawoutput("

"); rawoutput(""); 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", $session['user']['goldinbank'], $amount); 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.", $session['user']['goldinbank']); $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.", $leftoborrow); } else { output("`6You ask to borrow `^%s`6 gold.", $lefttoborrow); } output("`@Elessa`6 looks up your account and informs you that you may only borrow up to `^%s`6 gold.", $maxborrow); }else{ if ($didwithdraw) { output("`6Additionally, you borrow `^%s`6 gold.", $lefttoborrow); } else { output("`6You borrow `^%s`6 gold.", $lefttoborrow); } $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\"", $amount,$session['user']['name'], abs($session['user']['goldinbank']),$session['user']['gold']); } }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.", $session['user']['goldinbank'], $lefttoborrow-$session['user']['goldinbank'], $maxborrow); } }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\"", $amount,$session['user']['name'], abs($session['user']['goldinbank']),$session['user']['gold']); } } 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(); ?>