stables.php

<?php
// translator ready
// addnews ready
// mail ready
require_once("common.php");
require_once("lib/http.php");
require_once("lib/buffs.php");
require_once("lib/sanitize.php");
require_once("lib/villagenav.php");

translator::tlschema('stables');

$basetext=array(
	"title"=>"Merick's Stables",
	"desc"=>array(
		"`7Behind the inn, and a little to the left of Ye Olde Bank, is as fine a stable as one might expect to find in any village. ",
		"In it, Merick, a burly looking dwarf tends to various beasts.`n`n",
		array("You approach, and he whirls around, pointing a pitchfork in your general direction, \"`&Ach, sorry m'%s, I dinnae hear ya' comin' up on me, an' I thoht fer sure ye were %s`&; he what been tryin' to improve on his dwarf tossin' skills. ",translator::translate_inline($session['user']['sex']?'lass':'lad'),settings::getsetting('barkeep','`tCedrik')),
		"Naahw, wha' can oye do fer ya?`7\" he asks.",
	),
	"nosuchbeast"=>"`7\"`&Ach, thar dinnae be any such beestie here!`7\" shouts the dwarf!",
	"finebeast"=>array(
		"`7\"`&Aye, tha' be a foyne beastie indeed!`7\" comments the dwarf.`n`n",
		"`7\"`&Ye cert'nly have an oye fer quality!`7\" exclaims the dwarf.`n`n",
		"`7\"`&Och, this beastie will serve ye well indeed,`7\" says the dwarf.`n`n",
		"`7\"`&That beastie be one o' me finest!`7\" says the dwarf with pride.`n`n",
		"`7\"`&Ye couldnae hae made a foyner choice o' beasts!`7\" says the dwarf with pride.`n`n"
	),
	"toolittle"=>"`7Merick looks at you sorta sideways.  \"`&'Ere, whadday ya think yeer doin'?  Cannae ye see that %s`& costs `^%s`& gold an' `%%s`& gems?`7\"",
	"replacemount"=>"`7You hand over the reins to %s`7 and the purchase price of your new critter, and Merick leads out a fine new `&%s`7 for you!`n`n",
	"newmount"=>"`7You hand over the purchase price of your new critter, and Merick leads out a fine `&%s`7 for you!`n`n",
	"nofeed"=>"`7\"`&Ach, m'%s, what dae ye think this is, a hostelry?  I cannae feed yer critter here!`7\"`nMerick thumps you on the back good naturedly, and sends you on your way.",
	"nothungry"=>"%s`7 isn't hungry.  Merick hands your gold back.",
	"halfhungry"=>"%s`7 pinches a bit of the given food and leaves the rest alone. %s`7 is fully restored. Because there is still more than half of the food left, Merick gives you 50%% discount.`nYou only pay %s gold.",
	"hungry"=>"%s`7 eats all the food greedily.`n%s`7 is fully restored and you give your %s gold to Merick.",
	"mountfull"=>"`n`7\"`&Aye, there ye go %s, yer %s`& be full o' foyne grub. I willnae be able t' feed 'em again 'til the morrow though.  Well, enjoy ye day!`7\"`nMerick whistles a jaunty tune and heads back to work.",
	"nofeedgold"=>"`7You don't have enough gold with you to pay for the food. Merick refuses to feed your creature and advises you to look for somewhere else to let %s`7 graze for free, such as in the `@Forest`7.",
	"confirmsale"=>"`n`n`7Merick whistles.  \"`&Yer mount shure is a foyne one, %s. Are ye sure ye wish t' part wae it?`7\"`n`nHe waits for your answer.`0",
	"mountsold"=>"`7As sad as it is to do so, you give up your precious %s`7, and a lone tear escapes your eye.`n`nHowever, the moment you spot the %s, you find that you're feeling quite a bit better.",
	"offer"=>"`n`n`&Merick offers you `^%s`& gold and `%%s`& gems for %s`7.",
	"lass"=>"lass",
	"lad"=>"lad",
);
$schemas = array(
	'title'=>'stables',
	'desc'=>'stables',
	'nosuchbeast'=>'stables',
	'finebeast'=>'stables',
	'toolittle'=>'stables',
	'replacemount'=>'stables',
	'newmount'=>'stables',
	'nofeed'=>'stables',
	'nothungry'=>'stables',
	'halfhungry'=>'stables',
	'hungry'=>'stables',
	'mountfull'=>'stables',
	'nofeedgold'=>'stables',
	'confirmsale'=>'stables',
	'mountsold'=>'stables',
	'offer'=>'stables',
);
$basetext['schemas']=$schemas;
$texts = modules::modulehook("stabletext", $basetext);
$schemas = $texts['schemas'];

translator::tlschema($schemas['title']);
page_header($texts['title']);
translator::tlschema();

output::addnav("Other");
villagenav();
modules::modulehook("stables-nav");

global $mount_dev, $playermount;
list($name, $lcname) = $mount_dev->getName($playermount);

$repaygold = 0;
$repaygems = 0;
$grubprice = 0;

if ($playermount->getID()>0) {
	$repaygold = round($playermount->getCostGold()*2/3,0);
	$repaygems = round($playermount->getCostGems()*2/3,0);
	$grubprice = round($session['user']['level']*$playermount->getFeedCost(), 0);
}
$confirm = 0;

$op = http::httpget('op');
$id = http::httpget('id');

global $playermount;

if ($op==""){
	checkday();
	translator::tlschema($schemas['desc']);
  	if (is_array($texts['desc'])) {
  		foreach ($texts['desc'] as $description) {
  			output_notl(translator::sprintf_translate($description));
  		}
  	} else {
  		output::doOutput($texts['desc']);
  	}
	translator::tlschema();
	modules::modulehook("stables-desc");
}elseif($op=="examine"){
	$sql = "SELECT * FROM " . db_prefix("mounts") . " WHERE mountid='$id'";
	$result = db_query_cached($sql, "mountdata-$id", 3600);
	if (db_num_rows($result)<=0){
		translator::tlschema($schemas['nosuchbeast']);
		output::doOutput($texts['nosuchbeast']);
		translator::tlschema();
	}else{
		// Idea taken from Robert of dragonprime.cawsquad.net
		$t = e_rand(0,count($texts['finebeast'])-1);
		translator::tlschema($schemas['finebeast']);
		output::doOutput($texts['finebeast'][$t]);
		translator::tlschema();
		$mount = db_fetch_assoc($result);
		output::doOutput("`7Creature: `&%s`0`n", $mount['mountname']);
		output::doOutput("`7Description: `&%s`0`n", $mount['mountdesc']);
		output::doOutput("`7Cost: `^%s`& gold, `%%s`& gems`n`n", $mount['mountcostgold'], $mount['mountcostgems']);
		output::addnav(array("New %s", $mount['mountname']));
		output::addnav("Buy this creature","stables.php?op=buymount&id={$mount['mountid']}");
	}
}elseif($op=='buymount'){
	if ($session['user']['hashorse']) {
		translator::tlschema($schemas['confirmsale']);
		output::doOutput($texts['confirmsale'],
				($session['user']['sex']?$texts["lass"]:$texts["lad"]));
		translator::tlschema();
		output::addnav("Confirm trade");
		output::addnav("Yes", "stables.php?op=confirmbuy&id=$id");
		output::addnav("No","stables.php");
		$confirm = 1;
	} else {
		$op="confirmbuy";
		httpset("op",$op);
	}
}
if ($op == 'confirmbuy') {
	$sql = "SELECT * FROM " . db_prefix("mounts") . " WHERE mountid='$id'";
	$result = db_query_cached($sql, "mountdata-$id", 3600);
	if (db_num_rows($result)<=0){
		translator::tlschema($schemas['nosuchbeast']);
		output::doOutput($texts['nosuchbeast']);
		translator::tlschema();
	}else{
		$mount = db_fetch_assoc($result);
		if (($session['user']['gold']+$repaygold) < $mount['mountcostgold'] ||
			($session['user']['gems']+$repaygems) < $mount['mountcostgems']){
			translator::tlschema($schemas['toolittle']);
			output::doOutput($texts['toolittle'], $mount['mountname'], $mount['mountcostgold'], $mount['mountcostgems']);
			translator::tlschema();
		}else{
			if ($session['user']['hashorse']>0){
				translator::tlschema($schemas['replacemount']);
				output::doOutput($texts['replacemount'], $lcname, $mount['mountname']);
				translator::tlschema();
			}else{
				translator::tlschema($schemas['newmount']);
				output::doOutput($texts['newmount'], $mount['mountname']);
				translator::tlschema();
			}
                        if ($playermount->getName() !== '')
                            $debugmount1=$playermount->getName();
                        else 
                            $debugmount1=false;
                        
			if ($debugmount1) $debugmount1="a ".$debugmount1;
			$session['user']['hashorse']=$mount['mountid'];
			$debugmount2=$mount['mountname'];
			$goldcost = $repaygold-$mount['mountcostgold'];
			$session['user']['gold']+=$goldcost;
			$gemcost = $repaygems-$mount['mountcostgems'];
			$session['user']['gems']+=$gemcost;
			debuglog(($goldcost <= 0?"spent ":"gained ") . abs($goldcost) . " gold and " . ($gemcost <= 0?"spent ":"gained ") . abs($gemcost) . " gems trading $debugmount1 for a new mount, a $debugmount2");
			$buff = unserialize($mount['mountbuff']);
			if ($buff['schema'] == "") $buff['schema'] = "mounts";
			apply_buff('mount',unserialize($mount['mountbuff']));
			// Recalculate so the selling stuff works right
			global $mount_dev;
                        $playermount = $mount_dev->getMount($mount['mountid']);
			$repaygold = round($playermount->getCostGold()*2/3,0);
			$repaygems = round($playermount->getCostGems()*2/3,0);
			// Recalculate the special name as well.
			modules::modulehook("stable-mount", array());
			modules::modulehook("boughtmount");
			global $mount_dev, $playermount;
			list($name, $lcname) = $mount_dev->getName($playermount);
			$grubprice = round($session['user']['level']*$playermount->getFeedCost(), 0);
		}
	}
}elseif($op=='feed'){
	if (settings::getsetting("allowfeed", 0) == 0) {
		translator::tlschema($schemas['nofeed']);
		output::doOutput($texts['nofeed'],
				($session['user']['sex']?$texts["lass"]:$texts["lad"]));
		translator::tlschema();
	} elseif($session['user']['gold']>=$grubprice) {
		$buff = unserialize($playermount->getBuff());
		if (!isset($buff['schema']) || $buff['schema'] == "") $buff['schema'] = "mounts";
		if (isset($session['bufflist']['mount']) && $session['bufflist']['mount']['rounds'] == $buff['rounds']) {
			translator::tlschema($schemas['nothungry']);
			output::doOutput($texts['nothungry'],$name);
			translator::tlschema();
		} else {
			if (isset($session['bufflist']['mount']) && $session['bufflist']['mount']['rounds'] > $buff['rounds']*.5) {
				$grubprice=round($grubprice/2,0);
				translator::tlschema($schemas['halfhungry']);
				output::doOutput($texts['halfhungry'], $name, $name, $grubprice);
				translator::tlschema();
				$session['user']['gold']-=$grubprice;
			}else{
				$session['user']['gold']-=$grubprice;
				translator::tlschema($schemas['hungry']);
				output::doOutput($texts['hungry'], $name, $name, $grubprice);
				translator::tlschema();
			}
			debuglog("spent $grubprice feeding their mount");
			apply_buff('mount',$buff);
			$session['user']['fedmount'] = 1;
			translator::tlschema($schemas['mountfull']);
			output::doOutput($texts['mountfull'],
				($session['user']['sex']?$texts["lass"]:$texts["lad"]),
				($playermount->getName()));
			translator::tlschema();
		}
	} else {
		translator::tlschema($schemas['nofeedgold']);
		output::doOutput($texts['nofeedgold'], $lcname);
		translator::tlschema();
	}
}elseif($op=='sellmount'){
	translator::tlschema($schemas['confirmsale']);
	output::doOutput($texts['confirmsale'],
			($session['user']['sex']?$texts["lass"]:$texts["lad"]));
	translator::tlschema();
	output::addnav("Confirm sale");
	output::addnav("Yes", "stables.php?op=confirmsell");
	output::addnav("No","stables.php");
	$confirm = 1;
}elseif($op=='confirmsell'){
	$session['user']['gold']+=$repaygold;
	$session['user']['gems']+=$repaygems;
	$debugmount=$playermount->getName();
	debuglog("gained $repaygold gold and $repaygems gems selling their mount, a $debugmount");
	strip_buff('mount');
	$session['user']['hashorse']=0;
	modules::modulehook("soldmount");

	$amtstr = "";
	if ($repaygold > 0) {
		$amtstr .= "%s gold";
	}
	if ($repaygems > 0) {
		if ($repaygold) $amtstr .= " and ";
		$amtstr .= "%s gems";
	}
	if ($repaygold > 0 && $repaygems > 0) {
		$amtstr = translator::sprintf_translate($amtstr, $repaygold, $repaygems);
	} elseif ($repaygold > 0) {
		$amtstr = translator::sprintf_translate($amtstr, $repaygold);
	} else {
		$amtstr = translator::sprintf_translate($amtstr, $repaygems);
	}

	translator::tlschema($schemas['mountsold']);
	output::doOutput($texts['mountsold'],
			($playermount->getName()),
			$amtstr);
	translator::tlschema();
}

if ($confirm == 0) {
	if ($session['user']['hashorse']>0){
		output::addnav(array("%s", color_sanitize($name)));
		translator::tlschema($schemas['offer']);
		output::doOutput($texts['offer'], $repaygold, $repaygems, $lcname);
		translator::tlschema();
		output::addnav(array("Sell %s`0", $lcname),"stables.php?op=sellmount");
		if (settings::getsetting("allowfeed", 0) && $session['user']['fedmount']==0) {
			output::addnav(array("Feed %s`0 (`^%s`0 gold)", $lcname, $grubprice),
					"stables.php?op=feed");
		}
	}

	$sql = "SELECT mountname,mountid,mountcategory,mountdkcost FROM " . db_prefix("mounts") .  " WHERE mountactive=1 AND mountlocation IN ('all','{$session['user']['location']}') ORDER BY mountcategory,mountcostgems,mountcostgold";
	$result = db_query($sql);
	$category="";
	$number=db_num_rows($result);
	for ($i=0;$i<$number;$i++){
		$row = db_fetch_assoc($result);
		if ($category!=$row['mountcategory']){
			output::addnav(array("%s", $row['mountcategory']));
			$category = $row['mountcategory'];
		}
		if ($row['mountdkcost'] <= $session['user']['dragonkills'])
			output::addnav(array("Examine %s`0", $row['mountname']),"stables.php?op=examine&id={$row['mountid']}");
	}
}

page_footer();