Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
302 lines (285 sloc) 11.6 KB
<?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");
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. ",translate_inline($session['user']['sex']?'lass':'lad'),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`nMerick offers you `^%s`& gold and `%%s`& gems for %s`7.",
);
$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 = modulehook("stabletext", $basetext);
$schemas = $texts['schemas'];
tlschema($schemas['title']);
page_header($texts['title']);
tlschema();
addnav("Other");
villagenav();
modulehook("stables-nav");
require_once("lib/mountname.php");
list($name, $lcname) = getmountname();
$repaygold = 0;
$repaygems = 0;
$grubprice = 0;
if ($playermount) {
$repaygold = round($playermount['mountcostgold']*2/3,0);
$repaygems = round($playermount['mountcostgems']*2/3,0);
$grubprice = round($session['user']['level']*$playermount['mountfeedcost'], 0);
}
$confirm = 0;
$op = httpget('op');
$id = httpget('id');
global $playermount;
if ($op==""){
checkday();
tlschema($schemas['desc']);
if (is_array($texts['desc'])) {
foreach ($texts['desc'] as $description) {
output_notl(sprintf_translate($description));
}
} else {
output($texts['desc']);
}
tlschema();
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){
tlschema($schemas['nosuchbeast']);
output($texts['nosuchbeast']);
tlschema();
}else{
// Idea taken from Robert of dragonprime.cawsquad.net
$t = e_rand(0,count($texts['finebeast'])-1);
tlschema($schemas['finebeast']);
output($texts['finebeast'][$t]);
tlschema();
$mount = db_fetch_assoc($result);
$mount=modulehook("mount-modifycosts",$mount);
output("`7Creature: `&%s`0`n", $mount['mountname']);
output("`7Description: `&%s`0`n", $mount['mountdesc']);
output("`7Cost: `^%s`& gold, `%%s`& gems`n`n", $mount['mountcostgold'], $mount['mountcostgems']);
addnav(array("New %s", $mount['mountname']));
addnav("Buy this creature","stables.php?op=buymount&id={$mount['mountid']}");
}
}elseif($op=='buymount'){
if ($session['user']['hashorse']) {
tlschema($schemas['confirmsale']);
output($texts['confirmsale'],
translate_inline($session['user']['sex']?$texts["lass"]:$texts["lad"]));
tlschema();
addnav("Confirm trade");
addnav("Yes", "stables.php?op=confirmbuy&id=$id");
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){
tlschema($schemas['nosuchbeast']);
output($texts['nosuchbeast']);
tlschema();
}else{
$mount = db_fetch_assoc($result);
$mount=modulehook("mount-modifycosts",$mount);
if (($session['user']['gold']+$repaygold) < $mount['mountcostgold'] ||
($session['user']['gems']+$repaygems) < $mount['mountcostgems']){
tlschema($schemas['toolittle']);
output($texts['toolittle'], $mount['mountname'], $mount['mountcostgold'], $mount['mountcostgems']);
tlschema();
}else{
if ($session['user']['hashorse']>0){
tlschema($schemas['replacemount']);
output($texts['replacemount'], $lcname, $mount['mountname']);
tlschema();
}else{
tlschema($schemas['newmount']);
output($texts['newmount'], $mount['mountname']);
tlschema();
}
$debugmount1=$playermount['mountname'];
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
$playermount = getmount($mount['mountid']);
$repaygold = round($playermount['mountcostgold']*2/3,0);
$repaygems = round($playermount['mountcostgems']*2/3,0);
// Recalculate the special name as well.
modulehook("stable-mount", array());
modulehook("boughtmount");
require_once("lib/mountname.php");
list($name, $lcname) = getmountname();
$grubprice = round($session['user']['level']*$playermount['mountfeedcost'], 0);
}
}
}elseif($op=='feed'){
if (getsetting("allowfeed", 0) == 0) {
tlschema($schemas['nofeed']);
output($texts['nofeed'],
translate_inline($session['user']['sex']?$texts["lass"]:$texts["lad"]));
tlschema();
} elseif($session['user']['gold']>=$grubprice) {
$buff = unserialize($playermount['mountbuff']);
if ($buff['schema'] == "") $buff['schema'] = "mounts";
if ($session['bufflist']['mount']['rounds'] == $buff['rounds']) {
tlschema($schemas['nothungry']);
output($texts['nothungry'],$name);
tlschema();
} else {
if ($session['bufflist']['mount']['rounds'] > $buff['rounds']*.5) {
$grubprice=round($grubprice/2,0);
tlschema($schemas['halfhungry']);
output($texts['halfhungry'], $name, $name, $grubprice);
tlschema();
$session['user']['gold']-=$grubprice;
}else{
$session['user']['gold']-=$grubprice;
tlschema($schemas['hungry']);
output($texts['hungry'], $name, $name, $grubprice);
tlschema();
}
debuglog("spent $grubprice feeding their mount");
apply_buff('mount',$buff);
$session['user']['fedmount'] = 1;
tlschema($schemas['mountfull']);
output($texts['mountfull'],
translate_inline($session['user']['sex']?$texts["lass"]:$texts["lad"]),
($playermount['basename']?
$playermount['basename']:$playermount['mountname']));
tlschema();
}
} else {
tlschema($schemas['nofeedgold']);
output($texts['nofeedgold'], $lcname);
tlschema();
}
}elseif($op=='sellmount'){
tlschema($schemas['confirmsale']);
output($texts['confirmsale'],
translate_inline($session['user']['sex']?$texts["lass"]:$texts["lad"]));
tlschema();
addnav("Confirm sale");
addnav("Yes", "stables.php?op=confirmsell");
addnav("No","stables.php");
$confirm = 1;
}elseif($op=='confirmsell'){
$session['user']['gold']+=$repaygold;
$session['user']['gems']+=$repaygems;
$debugmount=$playermount['mountname'];
debuglog("gained $repaygold gold and $repaygems gems selling their mount, a $debugmount");
strip_buff('mount');
$session['user']['hashorse']=0;
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 = sprintf_translate($amtstr, $repaygold, $repaygems);
} elseif ($repaygold > 0) {
$amtstr = sprintf_translate($amtstr, $repaygold);
} else {
$amtstr = sprintf_translate($amtstr, $repaygems);
}
tlschema($schemas['mountsold']);
output($texts['mountsold'],
($playermount['newname']?
$playermount['newname']:$playermount['mountname']),
$amtstr);
tlschema();
}
if ($confirm == 0) {
if ($session['user']['hashorse']>0){
addnav(array("%s", color_sanitize($name)));
tlschema($schemas['offer']);
output($texts['offer'], $repaygold, $repaygems, $lcname);
tlschema();
addnav(array("Sell %s`0", $lcname),"stables.php?op=sellmount");
if (getsetting("allowfeed", 0) && $session['user']['fedmount']==0) {
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']){
addnav(array("%s", $row['mountcategory']));
$category = $row['mountcategory'];
}
if ($row['mountdkcost'] <= $session['user']['dragonkills'])
addnav(array("Examine %s`0", $row['mountname']),"stables.php?op=examine&id={$row['mountid']}");
}
}
page_footer();
?>
You can’t perform that action at this time.