Source for file shop.php

Documentation is available at shop.php

<?php
/**
* A Small Shop
*
* DutchPIPE version 0.4; PHP version 5
*
* LICENSE: This source file is subject to version 1.0 of the DutchPIPE license.
* If you did not receive a copy of the DutchPIPE license, you can obtain one at
* http://www.dutchpipe.org/license/1_0.txt or by sending a note to
* license@dutchpipe.org, in which case you will be mailed a copy immediately.
*
* @package DutchPIPE
* @subpackage dpuniverse_page
* @author Lennert Stock <ls@dutchpipe.org>
* @license http://dutchpipe.org/license/1_0.txt DutchPIPE License
* @version Subversion: $Id: shop.php 281 2007-08-20 21:45:53Z ls $
* @link http://dutchpipe.org/manual/package/DutchPIPE
* @see DpPage
*/
/**
* Builts upon the standard DpPage class
*/
inherit(DPUNIVERSE_STD_PATH . 'DpPage.php');
/**
* A Small Shop
*
* @package DutchPIPE
* @subpackage dpuniverse_page
* @author Lennert Stock <ls@dutchpipe.org>
* @license http://dutchpipe.org/license/1_0.txt DutchPIPE License
* @version Release: 0.2.1
* @link http://dutchpipe.org/manual/package/DutchPIPE
* @see DpPage
*/
final class Shop extends DpPage
{
/**
* Sets up the page at object creation time
*/
public function createDpPage()
{
// Standard setup calls:
$this->title = dp_text('A Small Shop');
$this->setBody('<img src="' . DPUNIVERSE_IMAGE_URL . 'shop.jpg"
width="352" height="264" border="0" usemap="#shop_map" alt=""
style="border: solid 1px black; margin-right: 10px" title="" alt=""
align="left" />
<div style="width: 220px; float: left">
' . dp_text('Small Shop') . ' '
. sprintf(dp_text('You are in a small pawn shop
where you can buy and sell things. Try this
<a href="javascript:send_action2server(\'list\')">list</a> to view all items for
sale. Check out your
<a href="javascript: send_action2server(\'inventory\')">inventory</a> to see
what you can sell.An exit <a href="%s">west</a> leads
back to the village square.',
DPSERVER_CLIENT_URL . '?location=/page/square.php')
. '</div> '), 'text');
$this->setNavigationTrail(
array(DPUNIVERSE_NAVLOGO, ''),
array(dp_text('Showcases'), DPUNIVERSE_PAGE_PATH
. 'showcases.php'));
$this->addExit(explode('#',
dp_text('w#square#out#exit#leave#leave shop')),
DPUNIVERSE_PAGE_PATH . 'square.php', NULL,
array('shop_map', 'square_area', 'rect',
'0,20,50,244', dp_text('leave shop')), dp_text('leave shop'));
$this->addAction(dp_text('list'), dp_text('list'), 'actionList',
DP_ACTION_OPERANT_MENU, DP_ACTION_TARGET_SELF,
DP_ACTION_AUTHORIZED_ALL, DP_ACTION_SCOPE_INVENTORY);
$this->addAction(dp_text('sell'), dp_text('sell'), 'actionSell',
DP_ACTION_OPERANT_MENU, DP_ACTION_TARGET_SELF,
DP_ACTION_AUTHORIZED_ALL, DP_ACTION_SCOPE_INVENTORY);
$this->addAction(dp_text('buy'), dp_text('buy'), 'actionBuy',
DP_ACTION_OPERANT_MENU, DP_ACTION_TARGET_SELF,
DP_ACTION_AUTHORIZED_ALL, DP_ACTION_SCOPE_INVENTORY);
$this->addAction(dp_text('see'), dp_text('see'), 'actionSee',
DP_ACTION_OPERANT_MENU, DP_ACTION_TARGET_SELF,
DP_ACTION_AUTHORIZED_ALL, DP_ACTION_SCOPE_INVENTORY);
$store = get_current_dpuniverse()->getDpObject(DPUNIVERSE_PAGE_PATH
. 'store.php');
$store->addAction(dp_text('buy'), dp_text('buy'), 'actionBuy',
DP_ACTION_OPERANT_MENU, array($store, DP_ACTION_TARGET_OBJINV),
DP_ACTION_AUTHORIZED_ALL, array($this, DP_ACTION_SCOPE_INVENTORY));
$store->addAction(dp_text('see'), dp_text('see'), 'actionSee',
DP_ACTION_OPERANT_MENU, array($store, DP_ACTION_TARGET_OBJINV),
DP_ACTION_AUTHORIZED_ALL, array($this, DP_ACTION_SCOPE_INVENTORY));
}
function eventDpPage($name)
{
if (EVENT_ENTERED_INV == $name) {
$who = func_get_arg(1);
$who->addAction(dp_text('sell'), dp_text('sell'), 'actionSell',
DP_ACTION_OPERANT_MENU, DP_ACTION_TARGET_OBJINV,
DP_ACTION_AUTHORIZED_ALL, DP_ACTION_SCOPE_SELF);
} elseif (EVENT_LEFT_INV == $name) {
$who = func_get_arg(1);
$who->removeAction('sell');
}
}
/**
* Called at regular intervals
*/
public function resetDpPage()
{
$this->makePresent(DPUNIVERSE_NPC_PATH . 'shopkeeper.php');
}
public function actionList($verb, $noun)
{
$store = get_current_dpuniverse()->getDpObject(DPUNIVERSE_PAGE_PATH
. 'store.php');
$inventory = $store->getAppearance(0, TRUE, NULL,
get_current_dpobject()->displayMode, -1, 'dpobinv');
$title = dp_text('The shop has the following items for sale:');
get_current_dpobject()->tell(
"<window name=\"list\">$title$inventory</window>");
return TRUE;
}
function filterAppearance($level, &$from, $appearance, &$user)
{
if ($from[0]->getEnvironment() === $user && 1 === $level
&& !$from[0]->isNoSell) {
$store = get_current_dpuniverse()->getDpObject(DPUNIVERSE_PAGE_PATH
. 'store.php');
$appearance .= ' <a href="javascript:send_action2server(\''
. sprintf(dp_text('sell %s'), $from[0]->uniqueId) . '\')">'
. sprintf(dp_text('sell for %d credits'),
$store->getSellValue($from[0]->value)) . '</a>';
}
return $appearance;
}
public function actionBuy($verb, $noun)
{
$user = get_current_dpuser();
$store = get_current_dpuniverse()->getDpObject(DPUNIVERSE_PAGE_PATH
. 'store.php');
if (!($item = $store->isPresent($noun))) {
$user->tell(sprintf(
dp_text('That item ("%s") is not for sale here. '),
$noun));
return TRUE;
}
$price = $store->getBuyValue($item->value);
if ($user->credits < $price) {
$user->tell(sprintf(
dp_text("%s costs %d credits, which you don't have. "),
ucfirst($item->getTitle(DPUNIVERSE_TITLE_TYPE_DEFINITE)),
$price));
return TRUE;
}
if (TRUE !== ($move_result = $item->moveDpObject($user))) {
switch ($move_result) {
case E_MOVEOBJECT_HEAVY:
$err = sprintf(
dp_text("You cannot carry %s, it is too heavy. Drop something else first. "),
$item->getTitle(DPUNIVERSE_TITLE_TYPE_DEFINITE));
break;
case E_MOVEOBJECT_VOLUME:
$err = sprintf(
dp_text("You cannot carry %s, it takes too much volume. Drop something else first. "),
$item->getTitle(DPUNIVERSE_TITLE_TYPE_DEFINITE));
break;
default:
$err = sprintf(
dp_text("You fail to buy %s as it cannot be moved. "),
$item->getTitle(DPUNIVERSE_TITLE_TYPE_DEFINITE));
}
$user->tell($err);
return TRUE;
}
$user->credits -= $price;
$user->tell(sprintf(dp_text("You buy %s for %d credits. "),
$item->getTitle(DPUNIVERSE_TITLE_TYPE_INDEFINITE), $price));
if (($env = $user->getEnvironment()) && $env === $this) {
$this->tell(sprintf(dp_text("%s buys %s. "),
$user->getTitle(DPUNIVERSE_TITLE_TYPE_DEFINITE),
$item->getTitle(DPUNIVERSE_TITLE_TYPE_INDEFINITE)), $user);
}
$user->tell('<refreshDpWindow name="list" action="' . dp_text('list')
. '"> </refreshDpWindow>');
$user->tell('<refreshDpWindow name="inventory" action="'
. dp_text('inventory') . '"> </refreshDpWindow>');
return TRUE;
}
public function actionSell($verb, $noun)
{
$user = get_current_dpuser();
$store = get_current_dpuniverse()->getDpObject(DPUNIVERSE_PAGE_PATH
. 'store.php');
if (!($item = $user->isPresent($noun))) {
$user->tell(sprintf(
dp_text("You don't own that item (\"%s\"). "), $noun));
return TRUE;
}
if ($item->isDrink && $item->isFull) {
$user->tell(dp_text("The shop doesn't accept filled glasses and liquids. "));
return TRUE;
}
if (0 == ($price = $store->getSellValue($item->value))) {
$user->tell(sprintf(
dp_text("%s has no value. "),
$item->getTitle(DPUNIVERSE_TITLE_TYPE_DEFINITE)));
return TRUE;
}
if ($item->isNoStore) {
$item->removeDpObject();
} elseif ($item->isNoSell
|| TRUE !== ($move_result = $item->moveDpObject($store))) {
$user->tell(sprintf(dp_text("%s cannot be sold. "),
$item->getTitle(DPUNIVERSE_TITLE_TYPE_DEFINITE)));
return TRUE;
}
$user->credits += $price;
$user->tell(sprintf(dp_text("You sell %s for %d credits. "),
$item->getTitle(DPUNIVERSE_TITLE_TYPE_INDEFINITE), $price));
if (($env = $user->getEnvironment()) && $env === $this) {
$this->tell(sprintf(dp_text("%s sells %s. "),
$user->getTitle(DPUNIVERSE_TITLE_TYPE_DEFINITE),
$item->getTitle(DPUNIVERSE_TITLE_TYPE_INDEFINITE)), $user);
}
return TRUE;
}
/**
* Makes this living object examine an object
*
* @param string $verb the action, "examine"
* @param string $noun what to examine, could be empty
* @return boolean TRUE for action completed, FALSE otherwise
*/
function actionSee($verb, $noun)
{
$user = get_current_dpuser();
if (!dp_strlen($noun)) {
$user->setActionFailure(dp_text('See what item for sale? '));
return FALSE;
}
$store = get_current_dpuniverse()->getDpObject(DPUNIVERSE_PAGE_PATH
. 'store.php');
if (!($item = $store->isPresent($noun))) {
$user->tell(sprintf(
dp_text('That item ("%s") is not for sale here. '), $noun));
return TRUE;
}
$user->tell('<window>' . $item->getAppearance(0, TRUE, NULL,
$this->displayMode, FALSE, 'dpobinv') . '</window>');
return TRUE;
}
}
?>

Documentation generated on Mon, 03 Sep 2007 22:22:23 +0200 by phpDocumentor 1.3.0RC6

Guest#215