function supplycrate_use($args)
{
increment_module_pref("cratesopened", 1, "supplycrates");
$found = get_module_pref("cratesopened", "supplycrates");
if (is_module_active("medals")) {
if ($found > 250) {
require_once "modules/medals.php";
medals_award_medal("crate1000", "Supreme Crate Finder", "This player has opened more than 250 Supply Crates!", "medal_crategold.png");
}
if ($found > 50) {
require_once "modules/medals.php";
medals_award_medal("crate500", "Expert Crate Finder", "This player has opened more than 50 Supply Crates!", "medal_cratesilver.png");
}
if ($found > 10) {
require_once "modules/medals.php";
medals_award_medal("crate100", "Supreme Crate Finder", "This player has opened more than 10 Supply Crates!", "medal_cratebronze.png");
}
}
$crateables = get_items_with_settings("cratefind");
$randompool = array();
foreach ($crateables as $item => $prefs) {
for ($i = 0; $i < $prefs['cratefind']; $i++) {
$randompool[] = $item;
}
}
output("You spend a few minutes prying open your Supply Crate.`n");
$giveitems = array();
$numitems = e_rand(get_module_setting("minitems", "supplycrates"), get_module_setting("maxitems", "supplycrates"));
$chosenitems = array_rand($randompool, $numitems);
foreach ($chosenitems as $key => $poolkey) {
$item = $randompool[$poolkey];
$name = $crateables[$item]['verbosename'];
output("You find a %s!`n", $name);
give_item($item);
}
return $args;
}
function eboy_updateprices()
{
global $session;
$eboy_info = get_items_with_settings("eboy");
require_once "modules/cityprefs/lib.php";
$cid = get_cityprefs_cityid("location", $session['user']['location']);
$sql = "SELECT count(acctid) AS c FROM " . db_prefix("accounts") . " WHERE locked=0";
$result = db_query($sql);
$row = db_fetch_assoc($result);
$totalplayers = $row['c'];
foreach ($eboy_info as $item => $settings) {
if ($settings['eboy_stock_' . $cid]) {
if (!$settings['eboy_multiplier_' . $cid] || !isset($settings['eboy_multiplier_' . $cid])) {
$settings['eboy_multiplier_' . $cid] = 1;
}
$newprice = round($totalplayers / $settings['eboy_stock_' . $cid] * $settings['eboy_multiplier_' . $cid]);
set_item_setting("eboy_price_" . $cid, $newprice, $item);
$eboy_info['eboy_price_' . $cid] = $newprice;
} else {
if (!$settings['eboy_multiplier_' . $cid] || !isset($settings['eboy_multiplier_' . $cid])) {
$settings['eboy_multiplier_' . $cid] = 1;
}
$newprice = round($totalplayers * $settings['eboy_multiplier_' . $cid]);
set_item_setting("eboy_price_" . $cid, $newprice, $item);
$eboy_info['eboy_price_' . $cid] = $newprice;
}
if ($settings['eboy_price_' . $cid] < 10) {
set_item_setting("eboy_price_" . $cid, 10, $item);
}
}
}
function giftstation_run()
{
global $session;
page_header("The Gifting Station");
$op = httpget('op');
$points = $session['user']['donation'] - $session['user']['donationspent'];
switch ($op) {
case "start":
if (httpget("subop") == "continue") {
output("The KittyMorph shows you a big smile. \"`1Okay, that'll be delivered first thing in the morning. Should make for a nice surprise when they wake up. Anyone else you'd like to send a gift to?`0\"`n`n");
$player = httpget('player');
$itemid = httpget('item');
$box = httpget('box');
$free = httpget('free');
$anonymous = httpget('anonymous');
$boxid = give_item($box, false, "giftstation_" . $player);
// debug($boxid);
// debug($itemid);
change_item_owner($itemid, $boxid);
set_item_pref("giftbox_contains", $itemid, $boxid);
if (!$anonymous) {
$desc = get_item_pref("description", $boxid);
$desc .= "`nThere's a gift tag attached to the box, telling you that this present came from " . $session['user']['name'] . "`0.";
set_item_pref("description", $desc, $boxid);
}
//notify player that they've got something awesome waiting for them
require_once "lib/systemmail.php";
$body = "Someone has used the Gifting Station in Common Ground to send you something. Whatever it is, it'll turn up on your next new Game Day.";
systemmail($player, "Someone sent you something awesome!", $body);
if (!$free) {
$session['user']['donationspent'] += 1;
//log purchase
$sql = "INSERT INTO " . db_prefix("purchaselog") . " (acctid,purchased,amount,data,giftwrap,timestamp) VALUES ('" . $session['user']['acctid'] . "','giftstation_giftwrap','1','none','0','" . date("Y-m-d H:i:s") . "')";
$points = $session['user']['donation'] - $session['user']['donationspent'];
}
addnav("No, I think that'll do, thanks.", "gardens.php");
} else {
if (httpget("subop") == "searchagain") {
output("The KittyMorph nods, scratching out the contestant's name on his clipboard. \"`1No problem. Let's take it from the top.`0\"`n`n");
addnav("Actually, forget the whole thing.", "gardens.php");
} else {
output("`0You head into the Gift Exchange. A black-furred KittyMorph stands behind a counter.`n`n\"`1Hey there!`0\" he says. \"`1As part of our continued diplomatic efforts, we provide a gift-wrapping service for items you'd like to send to your fellow contestants. Interested?`0\"`n`n");
output("It costs one Supporter Point to gift-wrap and transfer (nearly) any item to any player. Some items can be transferred for free. You currently have %s Supporter Points.`n`n", number_format($points));
addnav("No thanks.", "gardens.php");
}
}
if ($points > 0) {
output("Search below for a player to send a present to.");
rawoutput("<form action='runmodule.php?module=giftstation&op=findplayer' method='post'>");
rawoutput("<input name='name'>");
rawoutput("<input type='submit' class='button' value='" . translate_inline("search") . "'>");
rawoutput("</form>");
addnav("", "runmodule.php?module=giftstation&op=findplayer");
} else {
output("You don't have any Supporter Points!`n`n");
}
break;
case "findplayer":
$search = "%";
$n = httppost('name');
for ($x = 0; $x < strlen($n); $x++) {
$search .= substr($n, $x, 1) . "%";
}
$search = " AND name LIKE '" . addslashes($search) . "' ";
$uid = $session['user']['uniqueid'];
$lastip = $session['user']['lastip'];
$sql = "SELECT uniqueid, acctid, name FROM " . db_prefix("accounts") . " WHERE locked=0 {$search} ORDER BY name DESC ";
$result = db_query($sql);
output("The KittyMorph nods. \"`1Okay, let's have a look at who I've got written down here whose name sounds like that...`0\"`n`n");
$matches = 0;
for ($i = 0; $i < db_num_rows($result); $i++) {
$row = db_fetch_assoc($result);
if ($row['uniqueid'] != $session['user']['uniqueid']) {
addnav("", "runmodule.php?module=giftstation&op=chooseitem&player=" . $row['acctid']);
output_notl("<a href='runmodule.php?module=giftstation&op=chooseitem&player=" . $row['acctid'] . "'>" . $row['name'] . "</a>", true);
output("`n");
$matches++;
}
}
if ($matches == 0) {
output("He looks down at his list. \"`1Oh. Actually, it doesn't look like there's `ianyone`i matching that description who you can send a present to. Bummer. Wanna try that again?`0\"");
}
addnav("Return to Common Ground", "gardens.php");
addnav("Search Again", "runmodule.php?module=giftstation&op=start");
break;
case "chooseitem":
$player = httpget('player');
output("The KittyMorph reaches below his counter and brings up a clipboard on which he writes down the name of your nominated contestant. \"`1Okay, I've got the name - now, what would you like to send?`0\"`n`n");
$giftables = get_items_with_prefs("giftable");
if ($giftables) {
$giftables = group_items($giftables);
foreach ($giftables as $sortid => $prefs) {
$itemid = $prefs['itemid'];
if ($prefs['freegift']) {
addnav("Send for free");
addnav(array("%s (%s available)", $prefs['verbosename'], $prefs['quantity']), "runmodule.php?module=giftstation&op=choosewrapping&item={$itemid}&player={$player}&free=1");
} else {
addnav("Send for one Supporter Point");
addnav(array("%s (%s available)", $prefs['verbosename'], $prefs['quantity']), "runmodule.php?module=giftstation&op=choosewrapping&item={$itemid}&player={$player}&free=0");
}
}
addnav("Cancel?");
addnav("Wait, I've changed my mind. Let's back up a step.", "runmodule.php?module=giftstation&op=start&subop=searchagain");
addnav("Actually, forget the whole thing.", "gardens.php");
} else {
output("You realise that you have nothing that you can give away. You shrug your shoulders and give the KittyMorph a big, silly grin.`n`n");
addnav("This is awkward.");
addnav("Run out of the shop. Just run.", "gardens.php");
}
break;
case "choosewrapping":
$player = httpget('player');
$itemid = httpget('item');
$free = httpget('free');
output("The KittyMorph nods, taking the item from you and beginning to wrap it in tissue paper. \"`1They should be pleased with that. Care to choose a box, while I wrap this up?`0\"`n`nClick on any box to confirm the gift.`n`n");
$boxes = get_items_with_settings("giftwrap");
foreach ($boxes as $boxid => $prefs) {
$img = $prefs['image'];
rawoutput("<a href='runmodule.php?module=giftstation&op=chooseanonymous&player={$player}&item={$itemid}&box={$boxid}&free={$free}'><img src='images/items/{$img}'></a>");
addnav("", "runmodule.php?module=giftstation&op=chooseanonymous&player={$player}&item={$itemid}&box={$boxid}&free={$free}");
}
addnav("Cancel?");
addnav("Wait, I've changed my mind. Let's back up a step.", "runmodule.php?module=giftstation&op=start&subop=searchagain");
addnav("Actually, forget the whole thing.", "gardens.php");
break;
case "chooseanonymous":
$player = httpget('player');
$itemid = httpget('item');
$free = httpget('free');
$box = httpget('box');
output("The KittyMorph ties a ribbon around the box before reaching below the counter and bringing up a gift tag and a preposterously flamboyant quill pen.`n`n\"`1So, is this an anonymous gift, or would you like your name on it?`0\"`n`n");
addnav("Anonymous or not?");
addnav("Tell them who it's from", "runmodule.php?module=giftstation&op=start&subop=continue&player={$player}&item={$itemid}&box={$box}&free={$free}");
addnav("Give anonymously", "runmodule.php?module=giftstation&op=start&subop=continue&player={$player}&item={$itemid}&box={$box}&free={$free}&anonymous=true");
break;
}
page_footer();
return true;
}
function improbablehousing_furnitureshop_run()
{
global $session;
page_header("Cadfael's Furniture");
//have the beds and such allowed to be carried in backpack (insert suitable hundred-kilo-bed-in-backpack-lols) or carried by a secondary character in a new Inventory space (we'll call it Delivery Boy - will need a suitably silly photo).
switch (httpget('op')) {
case "start":
output("Cadfael greets you with a preposterously strong Welsh accent. \"`3Well hey there! Take a look around, all one 'undred per cent natural and me own work!`0\"`n`n");
//find items that are furniture!
$furniture = get_items_with_settings("furniture");
//debug($furniture);
usort($furniture, 'sortbyprice');
rawoutput("<table width=100% style='border: dotted 1px #000000;'>");
foreach ($furniture as $sort => $vals) {
$key = $vals['item'];
$classcount += 1;
$class = $classcount % 2 ? "trdark" : "trlight";
rawoutput("<tr class='{$class}'><td>");
if ($vals['image']) {
rawoutput("<table width=100% cellpadding=0 cellspacing=0><tr><td width=100px align=center><img src=\"images/items/" . $vals['image'] . "\"></td><td>");
}
output("`b%s`b`n", stripslashes($vals['verbosename']));
output("%s`0`n", stripslashes($vals['description']));
if ($vals['weight']) {
output("Weight: %s kg`n`0", $vals['weight']);
}
rawoutput("<table width=100%><tr><td width=50%>");
if ($vals['goldcost'] && $vals['gemcost']) {
$disp = "`b" . number_format($vals['goldcost']) . "`b Requisition and `b" . number_format($vals['gemcost']) . "`b Cigarettes";
$sdisp = $vals['goldcost'] . " Req, " . $vals['gemcost'] . " Cigs";
} else {
if ($vals['goldcost']) {
$disp = "`b" . number_format($vals['goldcost']) . "`b Requisition";
$sdisp = $vals['goldcost'] . " Req";
} else {
$disp = "`b" . number_format($vals['goldcost']) . "`b Cigarettes";
$sdisp = $vals['goldcost'] . " Cigs";
}
}
if ($session['user']['gold'] >= $vals['goldcost'] && $session['user']['gems'] >= $vals['gemcost']) {
addnav("Buy Items");
addnav(array("%s (%s)", $vals['verbosename'], $sdisp), "runmodule.php?module=improbablehousing_furnitureshop&op=buy&item=" . $key, true);
addnav("", "runmodule.php?module=improbablehousing_furnitureshop&op=buy&item=" . $key);
rawoutput("<a href=\"runmodule.php?module=improbablehousing_furnitureshop&op=buy&item=" . $key . "\">Buy for " . appoencode($disp) . "</a><br />");
} else {
output("Price: %s`n", $disp);
output("`&You can't afford this item right now.`0`n");
}
rawoutput("</td></tr></table>");
if ($vals['image']) {
rawoutput("</td></tr></table>");
}
rawoutput("</td></tr>");
}
rawoutput("</td></tr></table>");
break;
case "buy":
$item = httpget("item");
$goldcost = get_item_setting("goldcost", $item);
$gemcost = get_item_setting("gemcost", $item);
$name = get_item_setting("verbosename", $item);
if ($goldcost && $gemcost) {
$disp = "`b" . number_format($goldcost) . "`b Requisition and `b" . number_format($gemcost) . "`b Cigarettes";
} else {
if ($goldcost) {
$disp = "`b" . number_format($goldcost) . "`b Requisition";
} else {
$disp = "`b" . number_format($goldcost) . "`b Cigarettes";
}
}
output("Cadfael nods. \"`3So, you're after a %s then, are ye? That'll be %s, please.`0\"`n`n", $name, $disp);
addnav("Confirmation");
addnav("Confirm sale", "runmodule.php?module=improbablehousing_furnitureshop&op=confirmbuy&item=" . $item);
addnav("Wait, I've changed my mind!", "runmodule.php?module=improbablehousing_furnitureshop&op=start");
break;
case "confirmbuy":
$item = httpget("item");
$goldcost = get_item_setting("goldcost", $item);
$gemcost = get_item_setting("gemcost", $item);
$name = get_item_setting("verbosename", $item);
$session['user']['gold'] -= $goldcost;
$session['user']['gems'] -= $gemcost;
give_item($item);
output("You hand over your hard-won currency to Cadfael, who grins and says \"`3Ah, much obliged! Pleasure doin' business... with...`0\" he stops, bemused. \"`3Are... are you trying to fit that into a `ibackpack?`i`0\"`n`nAfter several minutes of grunting and sweating, your backpack now resembles a... well, a barely-held-together layer of canvas stretched drum-tight into the shape of a %s. With a very small %s bent double underneath. Cadfael shakes his head and mutters something about it taking all sorts.`n`n", $name, $session['user']['race']);
break;
case "drop":
page_header("");
$itemid = httpget('item');
debug($itemid);
$hid = httpget('hid');
require_once "modules/improbablehousing/lib/lib.php";
$house = improbablehousing_gethousedata($hid);
$rid = httpget('rid');
$slot = httpget('slot');
$house['data']['rooms'][$rid]['sleepslots'][$slot]['stamina'] = get_item_pref("sleepslot_stamina", $itemid);
$house['data']['rooms'][$rid]['sleepslots'][$slot]['name'] = get_item_pref("sleepslot_name", $itemid);
$house['data']['rooms'][$rid]['sleepslots'][$slot]['desc'] = get_item_pref("sleepslot_desc", $itemid);
use_item($itemid);
improbablehousing_sethousedata($house);
addnav("Continue");
addnav(array("Return to %s", $house['data']['rooms'][$rid]['name']), "runmodule.php?module=improbablehousing&op=interior&hid=" . $hid . "&rid=" . $rid);
break;
}
if (httpget('op') != "drop") {
addnav("Exit");
addnav("Back to the Outpost", "village.php");
}
page_footer();
return true;
}
function iitems_hunterslodge_run()
{
global $session;
page_header("Hunter's Lodge");
$op = httpget('op');
$pointsleft = $session['user']['donation'] - $session['user']['donationspent'];
$pointstotal = $session['user']['donation'];
$pointsspent = $session['user']['donationspent'];
switch ($op) {
case "superuser":
$sql = "SELECT * FROM " . db_prefix("purchaselog");
$result = db_query($sql);
$peritem = array();
$now = time();
while ($row = db_fetch_assoc($result)) {
$item = $row['purchased'];
$peritem[$item]['sold'] += 1;
$peritem[$item]['income'] += $row['amount'];
$time = strtotime($row['timestamp']);
if (isset($peritem[$item]['firstpurchase']) && $peritem[$item]['firstpurchase'] > $time) {
$peritem[$item]['firstpurchase'] = $time;
} else {
if (!isset($peritem[$item]['firstpurchase'])) {
$peritem[$item]['firstpurchase'] = $time;
}
}
}
foreach ($peritem as $item => $data) {
$timesincefirst = $now - $data['firstpurchase'];
$incomeperday = round($data['income'] / ($timesincefirst / 86400) / 100, 2);
$peritem[$item]['incomeperday'] = $incomeperday;
$peritem[$item]['item'] = $item;
}
function sortbysold($a, $b)
{
if ($b['sold'] > $a['sold']) {
return true;
} else {
return false;
}
}
function sortbyincome($a, $b)
{
if ($b['income'] > $a['income']) {
return true;
} else {
return false;
}
}
function sortbydailyincome($a, $b)
{
if ($b['incomeperday'] > $a['incomeperday']) {
return true;
} else {
return false;
}
}
rawoutput("<table width=100% border=0 cellpadding=0 cellspacing=0><tr class='trhead'><td>Item</td><td>Item Verbose Name</td><td><a href='runmodule.php?module=iitems_hunterslodge&op=superuser&sort=sortbysold'>Units sold</a></td><td><a href='runmodule.php?module=iitems_hunterslodge&op=superuser&sort=sortbyincome'>Profit total</a></td><td><a href='runmodule.php?module=iitems_hunterslodge&op=superuser&sort=sortbydailyincome'>Profit per day</a></td></tr>");
$classcount = 1;
addnav("", "runmodule.php?module=iitems_hunterslodge&op=superuser&sort=sortbysold");
addnav("", "runmodule.php?module=iitems_hunterslodge&op=superuser&sort=sortbyincome");
addnav("", "runmodule.php?module=iitems_hunterslodge&op=superuser&sort=sortbydailyincome");
if (httpget('sort')) {
usort($peritem, httpget('sort'));
}
foreach ($peritem as $item => $data) {
$classcount++;
$class = $classcount % 2 ? "trdark" : "trlight";
$vname = get_item_setting("verbosename", $data['item']);
if (!$vname) {
$vname = $data['item'];
}
rawoutput("<tr class='{$class}'><td>" . $data['item'] . "</td><td>" . $vname . "</td><td>" . number_format($data['sold']) . "</td><td>\$" . number_format($data['income'] / 100, 2) . "</td><td>\$" . number_format($data['incomeperday'], 2) . "</td></tr>");
}
rawoutput("</table>");
addnav("Return");
addnav("Back to the Grotto", "superuser.php");
break;
case "explain":
output("You give a friendly nod to the proprietor, and open your mouth to ask him a question.`n`nHe grins back at you.`n`nThere's a small `ipop`iping sensation in the centre of your skull, like a muscle abruptly shifting - and you suddenly realise what this place is all about.`n`n`bAbout Supporter Points`b`nImprobable Island is entirely funded by donations from its players. When you donate, you get Supporter Points, which you can use on items in the Hunter's Lodge. You get one hundred Supporter Points per US Dollar, and donations are accepted through PayPal. To donate, click the coin slot to the lower right of your screen. Always use the \"Site Admin\" PayPal button when donating if you wish to receive Supporter Points (donations made through the \"Author\" button go to Eric Stevens, the author of the game engine on which Improbable Island was originally based - you don't get any Supporter Points for donating through this button). You can also get Supporter Points by referring new players to the site (click the Referrals link to the left) or sometimes in `4Other Ways`0 which will be announced from time to time.`n`n`bTo give presents`b`nAll Hunter's Lodge items (and most other in-game items) can be given as gifts to other players. Visit the Gifting Station in Common Ground to do so. Some items can be gifted for free - others cost one Supporter Point each to gift. Hunter's Lodge items that bestow permanent benefits (IE unlimited title change documents) can only be gifted if they're unused. In all cases, you'll get to choose your gift-wrap and whether to give anonymously or not.`n`n`bHey, it's my birthday soon. Can I ask my non-Island-playing mates to buy me points on the Island?`b`nYes! Just send them to this link:`nhttp://www.improbableisland.com/runmodule.php?module=giftpoints&acctid=%s`n`n", $session['user']['acctid']);
addnav("Okay");
addnav("Back to the Hunter's Lodge", "runmodule.php?module=iitems_hunterslodge&op=start");
addnav("Referrals", "runmodule.php?module=iitems_hunterslodge&op=referrals");
break;
case "referrals":
output("If you help bring new players to Improbable Island, you'll earn one Supporter Point every time those players hit a new Game Day. To refer players, use this address:`n`n");
$url = getsetting("serverurl", "http://" . $_SERVER['SERVER_NAME'] . ($_SERVER['SERVER_PORT'] == 80 ? "" : ":" . $_SERVER['SERVER_PORT']) . dirname($_SERVER['REQUEST_URI']));
if (!preg_match("/\\/\$/", $url)) {
$url = $url . "/";
savesetting("serverurl", $url);
}
output_notl("%shome.php?r=%s`n`n", $url, rawurlencode($session['user']['login']));
$sql = "SELECT name FROM " . db_prefix("accounts") . " WHERE referer={$session['user']['acctid']} ORDER BY dragonkills,level";
$result = db_query($sql);
$number = db_num_rows($result);
if ($number) {
output("Accounts you've referred:`n");
for ($i = 0; $i < $number; $i++) {
$row = db_fetch_assoc($result);
output_notl("%s`0`n", $row['name']);
}
}
addnav("Okay");
addnav("Back to the Hunter's Lodge", "runmodule.php?module=iitems_hunterslodge&op=start");
break;
case "start":
output("You head into the Hunter's Lodge. It's a bright, shiny place, with many expensive-looking items arranged inside glass cabinets. The proprietor, a snappily-dressed male Joker, grins at you from behind the counter.`n`n");
if (!has_item("lodgebag")) {
output("The joker silently hands you a small bag, with a look that suggests you put your purchases inside.`n`n");
give_item("lodgebag");
}
output("`0You have `b`5%s`0`b Supporter Points left, out of `5%s`0 accumulated in total.`n`n", number_format($pointsleft), number_format($pointstotal));
addnav("What's all this about, then?");
addnav("How do I get supporter points, or give presents to people?", "runmodule.php?module=iitems_hunterslodge&op=explain");
$lodgeitems = get_items_with_settings("lodge");
//debug($lodgeitems);
rawoutput("<table width=100% style='border: dotted 1px #000000;'>");
$boughtitems = array();
$sql = "SELECT * FROM " . db_prefix("purchaselog") . " WHERE acctid = '" . $session['user']['acctid'] . "'";
$result = db_query($sql);
while ($row = db_fetch_assoc($result)) {
$boughtitems[$row['purchased']] = 1;
}
foreach ($lodgeitems as $key => $vals) {
if (!$vals['lodge']) {
continue;
}
$classcount += 1;
$class = $classcount % 2 ? "trdark" : "trlight";
rawoutput("<tr class='{$class}'><td>");
if ($vals['image']) {
rawoutput("<table width=100% cellpadding=0 cellspacing=0><tr><td width=100px align=center><img src=\"images/items/" . $vals['image'] . "\"></td><td>");
}
output("`b%s`b`n", stripslashes($vals['verbosename']));
output("%s`0`n", stripslashes($vals['description']));
if ($vals['weight']) {
output("Weight: %s kg`n`0", $vals['weight']);
}
rawoutput("<table width=100%><tr><td width=50%>");
if ($vals['tradable']) {
output("`5Giftable Item`0`n");
}
if ($vals['lodge_cost']) {
$disp = "`b`5" . number_format($vals['lodge_cost']) . "`0`b Supporter Points";
$sdisp = $vals['lodge_cost'] . " Points";
output("Price: %s`n", $disp);
if ($vals['lodge_limited']) {
output("`4Limited Item`0: %s available`n", $vals['lodge_stock']);
}
}
if ($vals['lodge_limited'] && $vals['lodge_stock'] > 0 || !$vals['lodge_limited']) {
if ($vals['lodge_singlebuy'] && $boughtitems[$key]) {
output("`7You've already obtained and used this item. No need to get it again!`n");
} else {
if ($pointstotal >= $vals['lodge_freebie_threshold'] && $vals['lodge_freebie_threshold']) {
output("`2This item is now `bfree`b!`0`n");
addnav("", "runmodule.php?module=iitems_hunterslodge&op=buy&item=" . $key . "&freebie=true");
rawoutput("<a href=\"runmodule.php?module=iitems_hunterslodge&op=buy&item=" . $key . "&freebie=true\">Get it!</a><br />");
} else {
if ($vals['lodge_freebie_threshold']) {
output("`2This item becomes free once you have accumulated more than %s Supporter Points, spent or unspent.`0`n", $vals['lodge_freebie_threshold']);
}
if ($pointsleft >= $vals['lodge_cost']) {
addnav("Buy Items");
addnav(array("%s (%s)", stripslashes($vals['verbosename']), $sdisp), "runmodule.php?module=iitems_hunterslodge&op=buy&item=" . $key, true);
addnav("", "runmodule.php?module=iitems_hunterslodge&op=buy&item=" . $key);
rawoutput("<a href=\"runmodule.php?module=iitems_hunterslodge&op=buy&item=" . $key . "\">More Details / Buy for " . appoencode($disp) . "</a><br />");
} else {
output("`&You need another %s Supporter Points for this item.`0`n", number_format($vals['lodge_cost'] - $pointsleft));
addnav("", "runmodule.php?module=iitems_hunterslodge&op=buy&item=" . $key . "&cannotafford=1");
rawoutput("<a href=\"runmodule.php?module=iitems_hunterslodge&op=buy&item=" . $key . "&cannotafford=1\">More Details</a><br />");
}
}
}
} else {
output("`&Sold out!`0`n");
}
rawoutput("</td></tr></table>");
if ($vals['image']) {
rawoutput("</td></tr></table>");
}
rawoutput("</td></tr>");
}
rawoutput("</td></tr></table>");
modulehook("hunterslodge");
break;
case "buy":
$itemid = httpget("item");
$item = get_item_settings($itemid);
$free = httpget("freebie");
$cannotafford = httpget("cannotafford");
//debug($item);
if ($item['lodge_longdesc']) {
output_notl("`0%s`0`n`n", stripslashes($item['lodge_longdesc']));
}
if (!$cannotafford) {
if (!$free) {
output("You're about to buy a %s for %s Supporter Points, leaving you with %s points available to spend afterwards.`n`n", $item['verbosename'], number_format($item['lodge_cost']), number_format($pointsleft - $item['lodge_cost']));
addnav("Confirm");
addnav(array("Buy %s for %s Points", stripslashes($item['verbosename']), $item['lodge_cost']), "runmodule.php?module=iitems_hunterslodge&op=buyconfirm&item={$itemid}");
addnav("No, I don't want to do that!");
addnav("Back to the Lodge", "runmodule.php?module=iitems_hunterslodge&op=start");
} else {
redirect("runmodule.php?module=iitems_hunterslodge&op=buyconfirm&item={$itemid}&freebie=true");
}
} else {
output("`0You need another %s Supporter Points to get this item.`0`n`n", number_format($item['lodge_cost'] - $pointsleft));
addnav("Okay");
addnav("Back to the Lodge", "runmodule.php?module=iitems_hunterslodge&op=start");
addnav("How do I get supporter points?", "runmodule.php?module=iitems_hunterslodge&op=explain");
}
break;
case "buyconfirm":
$itemid = httpget("item");
$iteminside = httpget("item_inside");
$item = get_item_settings($itemid);
$free = httpget("freebie");
if (!$free) {
$cost = $item['lodge_cost'];
output("You have purchased a %s for %s Supporter Points. You can find the item in your Inventory. Thank you for your support!`n`n", $item['verbosename'], $item['lodge_cost']);
give_item($itemid);
$session['user']['donationspent'] += $item['lodge_cost'];
} else {
//handle freebie items
give_item($itemid);
output("`0You now have a %s`0! Thank you for your support!`n`n", $item['verbosename']);
$cost = 0;
}
if ($item['lodge_limited']) {
increment_item_setting("lodge_stock", -1, $itemid);
}
//log purchase
$sql = "INSERT INTO " . db_prefix("purchaselog") . " (acctid,purchased,amount,data,giftwrap,timestamp) VALUES ('" . $session['user']['acctid'] . "','" . $itemid . "','" . $cost . "','" . addslashes(serialize($item)) . "','" . $wrap . "','" . date("Y-m-d H:i:s") . "')";
//debug($sql);
db_query($sql);
addnav("Yay!");
addnav("Back to the Hunter's Lodge", "runmodule.php?module=iitems_hunterslodge&op=start");
break;
}
addnav("Leave");
addnav("Return to the Outpost", "village.php");
addnav("Inventory");
addnav("View your Inventory", "inventory.php?items_context=lodge");
page_footer();
return true;
}
function improbablehousing_furnitureshop_run()
{
global $session;
page_header("Cadfael's Furniture");
//have the beds and such allowed to be carried in backpack (insert suitable hundred-kilo-bed-in-backpack-lols) or carried by a secondary character in a new Inventory space (we'll call it Delivery Boy - will need a suitably silly photo).
switch (httpget('op')) {
case "start":
output("Cadfael greets you with a preposterously strong Welsh accent. \"`3Well hey there! Take a look around, all one 'undred per cent natural and me own work!`0\"`n`n");
//find items that are furniture!
$furniture = get_items_with_settings("furniture");
//debug($furniture);
usort($furniture, 'sortbyprice');
rawoutput("<table width=100% style='border: dotted 1px #000000;'>");
foreach ($furniture as $sort => $vals) {
$key = $vals['item'];
$classcount += 1;
$class = $classcount % 2 ? "trdark" : "trlight";
rawoutput("<tr class='{$class}'><td>");
if ($vals['image']) {
rawoutput("<table width=100% cellpadding=0 cellspacing=0><tr><td width=100px align=center><img src=\"images/items/" . $vals['image'] . "\"></td><td>");
}
output("`b%s`b`n", stripslashes($vals['verbosename']));
output("%s`0`n", stripslashes($vals['description']));
if ($vals['weight']) {
output("Weight: %s kg`n`0", $vals['weight']);
}
rawoutput("<table width=100%><tr><td width=50%>");
if ($vals['goldcost'] && $vals['gemcost']) {
$disp = "`b" . number_format($vals['goldcost']) . "`b Requisition and `b" . number_format($vals['gemcost']) . "`b Cigarettes";
$sdisp = $vals['goldcost'] . " Req, " . $vals['gemcost'] . " Cigs";
} else {
if ($vals['goldcost']) {
$disp = "`b" . number_format($vals['goldcost']) . "`b Requisition";
$sdisp = $vals['goldcost'] . " Req";
} else {
$disp = "`b" . number_format($vals['goldcost']) . "`b Cigarettes";
$sdisp = $vals['goldcost'] . " Cigs";
}
}
if ($session['user']['gold'] >= $vals['goldcost'] && $session['user']['gems'] >= $vals['gemcost']) {
addnav("Buy Items");
addnav(array("%s (%s)", $vals['verbosename'], $sdisp), "runmodule.php?module=improbablehousing_furnitureshop&op=buy&item=" . $key, true);
addnav("", "runmodule.php?module=improbablehousing_furnitureshop&op=buy&item=" . $key);
rawoutput("<a href=\"runmodule.php?module=improbablehousing_furnitureshop&op=buy&item=" . $key . "\">Buy for " . appoencode($disp) . "</a><br />");
} else {
output("Price: %s`n", $disp);
output("`&You can't afford this item right now.`0`n");
}
rawoutput("</td></tr></table>");
if ($vals['image']) {
rawoutput("</td></tr></table>");
}
rawoutput("</td></tr>");
}
rawoutput("</td></tr></table>");
addnav("Custom Furniture");
addnav("Enquire about Custom Furniture", "runmodule.php?module=improbablehousing_furnitureshop&op=custom&sub=start");
break;
case "buy":
$item = httpget("item");
$goldcost = get_item_setting("goldcost", $item);
$gemcost = get_item_setting("gemcost", $item);
$name = get_item_setting("verbosename", $item);
if ($goldcost && $gemcost) {
$disp = "`b" . number_format($goldcost) . "`b Requisition and `b" . number_format($gemcost) . "`b Cigarettes";
} else {
if ($goldcost) {
$disp = "`b" . number_format($goldcost) . "`b Requisition";
} else {
$disp = "`b" . number_format($goldcost) . "`b Cigarettes";
}
}
output("Cadfael nods. \"`3So, you're after a %s then, are ye? That'll be %s, please.`0\"`n`n", $name, $disp);
addnav("Confirmation");
addnav("Confirm sale", "runmodule.php?module=improbablehousing_furnitureshop&op=confirmbuy&item=" . $item);
addnav("Wait, I've changed my mind!", "runmodule.php?module=improbablehousing_furnitureshop&op=start");
break;
case "confirmbuy":
$item = httpget("item");
$goldcost = get_item_setting("goldcost", $item);
$gemcost = get_item_setting("gemcost", $item);
$name = get_item_setting("verbosename", $item);
$session['user']['gold'] -= $goldcost;
$session['user']['gems'] -= $gemcost;
give_item($item);
output("You hand over your hard-won currency to Cadfael, who grins and says \"`3Ah, much obliged! Pleasure doin' business... with...`0\" he stops, bemused. \"`3Are... are you trying to fit that into a `ibackpack?`i`0\"`n`nAfter several minutes of grunting and sweating, your backpack now resembles a... well, a barely-held-together layer of canvas stretched drum-tight into the shape of a %s. With a very small %s bent double underneath. Cadfael shakes his head and mutters something about it taking all sorts.`n`n", $name, $session['user']['race']);
break;
case "drop":
page_header("");
$itemid = httpget('item');
debug($itemid);
$hid = httpget('hid');
require_once "modules/improbablehousing/lib/lib.php";
$house = improbablehousing_gethousedata($hid);
$rid = httpget('rid');
$slot = httpget('slot');
$house['data']['rooms'][$rid]['sleepslots'][$slot]['stamina'] = get_item_pref("sleepslot_stamina", $itemid);
$house['data']['rooms'][$rid]['sleepslots'][$slot]['name'] = get_item_pref("sleepslot_name", $itemid);
$house['data']['rooms'][$rid]['sleepslots'][$slot]['desc'] = get_item_pref("sleepslot_desc", $itemid);
$house['data']['rooms'][$rid]['sleepslots'][$slot]['multicapacity'] = get_item_pref("sleepslot_multicapacity", $itemid);
use_item($itemid);
improbablehousing_sethousedata($house);
addnav("Continue");
addnav(array("Return to %s", $house['data']['rooms'][$rid]['name']), "runmodule.php?module=improbablehousing&op=interior&hid=" . $hid . "&rid=" . $rid);
break;
case "custom":
$sub = httpget('sub');
switch ($sub) {
case "start":
output("\"`3Oh yeah, I get lots of custom orders,`0\" says Cadfael, grinning. \"`3Mostly for Mutants and Robots. Interestin' stuff, really, tryin' to figure out where all the extra arms and legs would go. I can make any of my furniture pieces look like just about anythin'. Custom work'll set ye back five ciggies as a startin' price, an' goes up from there according to complexity. You got somethin' in mind?`0\"`n`n`JCadfael can take any piece of furniture intended for sleeping on and assign a new name and description to the sleeping slot that it'll take up. If you want your houseguests to be able to sleep on top of a bookcase, or inside a cleverly-concealed secret foldaway bed, or in a zero-gravity chamber (yes, Cadfael's carpentry skills are `ijust that good`i), then bring one of his furniture pieces here.`0`n`n");
$furniture = get_items_with_prefs("furniture");
if (is_array($furniture)) {
addnav("Customize Furniture");
foreach ($furniture as $key => $vals) {
addnav(array("Customize %s", $vals['verbosename']), "runmodule.php?module=improbablehousing_furnitureshop&op=custom&sub=desc&item=" . $key);
}
}
addnav("Return");
addnav("Back to the Furniture List", "runmodule.php?module=improbablehousing_furnitureshop&op=start");
break;
case "desc":
//get the descriptions from the player
$item = httpget('item');
output("\"`3Right, then - what'll this be called?`0\"`n`n`0Enter a title for the furniture piece here. This is what's displayed in the nav links in your Dwelling - it'll read something like \"(your title) Available\" or \"(your title) Occupied by Admin CavemanJoe\" - you've got 25 characters to play about with, and no colour or formatting codes are allowed here.`n`n");
$oldtitle = get_item_pref("sleepslot_name", $item);
$olddesc = get_item_pref("sleepslot_desc", $item);
rawoutput("<form action='runmodule.php?module=improbablehousing_furnitureshop&op=custom&sub=confirm&item=" . $item . "' method='POST'>");
rawoutput("<input id='newtitle' name='newtitle' width='25' maxlength='25' value='" . $oldtitle . "'>");
output("`n`nNow enter a description for the new furniture piece. This is what's displayed to players when they settle down for a good night's kip. The longer the description, the more it'll cost. You can use colour and formatting codes here - remember to use ``n for new lines.`n`n");
rawoutput("<textarea name='newdesc' id='newdesc' rows='6' cols='60'>" . $olddesc . "</textarea><input type=submit></form>");
addnav("Return");
addnav("Back to the Furniture List", "runmodule.php?module=improbablehousing_furnitureshop&op=start");
addnav("", "runmodule.php?module=improbablehousing_furnitureshop&op=custom&sub=confirm&item=" . $item);
break;
case "confirm":
$newtitle = httppost('newtitle');
$newdesc = httppost('newdesc');
$item = httpget('item');
$newdesc = str_replace("\n", "`n", $newdesc);
$newtitle = str_replace("`", "", $newtitle);
$newtitle = substr($newtitle, 0, 25);
$newtitle = stripslashes($newtitle);
$newdesc = stripslashes($newdesc);
//show the descriptions
output("Your new title is:`n%s`0`n`nYour new description is:`n%s`0`n`n", $newtitle, $newdesc);
$cigcost = 5 + floor(strlen($newdesc) / 50);
output("This much work will cost %s cigarettes.`n`n", $cigcost);
set_item_pref("proposed_sleepslot_name", $newtitle, $item);
set_item_pref("proposed_sleepslot_desc", $newdesc, $item);
if ($session['user']['gems'] >= $cigcost) {
addnav("Continue");
addnav("Pay the man!", "runmodule.php?module=improbablehousing_furnitureshop&op=custom&sub=confirmfinal&item=" . $item . "&cost=" . $cigcost);
} else {
output("You don't have enough cigarettes for that!`n`n");
}
addnav("Return");
addnav("Back to the Furniture List", "runmodule.php?module=improbablehousing_furnitureshop&op=start");
break;
case "confirmfinal":
//take the cigaretes, change the prefs
$item = httpget('item');
$cost = httpget('cost');
$session['user']['gems'] -= $cost;
output("Cadfael takes your cigarettes and furniture with a smile, and disappears into the back of the shop. You hear muffled sounds of sawing, hammering, swearing and so forth, and after half an hour or so he returns. \"`3Here you go - might not look much different `inow,`i but wait 'til you get it in yer house.`0\"`n`nYour furniture is now customized!");
$newtitle = get_item_pref("proposed_sleepslot_name", $item);
$newdesc = get_item_pref("proposed_sleepslot_desc", $item);
set_item_pref("verbosename", "Customized Furniture (" . $newtitle . ")", $item);
set_item_pref("sleepslot_name", $newtitle, $item);
set_item_pref("sleepslot_desc", $newdesc, $item);
set_item_pref("description", "This furniture was modified at Cadfael's shop in Improbable Central.", $item);
addnav("Return");
addnav("Back to the Furniture List", "runmodule.php?module=improbablehousing_furnitureshop&op=start");
break;
}
break;
}
if (httpget('op') != "drop") {
addnav("Exit");
addnav("Back to the Outpost", "village.php");
}
page_footer();
return true;
}
