COWbrowse

You are looking at a material called killquest

This material can be used to manage a 'killquest'. This is a simple quest that involves finding and killing the object and receiving its treasure. Once killed, the quest is over and the object will decay and be erased forever.

Please don't put this material on a wimpy object worth 1 penny or with no weapon or items. Also, since the victor gets all that is wielded, worn, carried, or given, be sure the items supplied are hosted in the right way. Also remember to gender the object before you use it (which sets up the quest).

Example:
spawn robber from passive4
material it as _killquest_
gender it as him

Then work on making some decent items. For example, create a dagger and visit the blacksmith called Stan at the Smithy so you can put it on the forge to make it more deadly. Visit the Talisman of Cold (or Heat) to give it some enchanted attacks. Then force your killquest object to wield it. If you can code, then consider creating something unique and interesting as treasure. And if it is really worth the trouble, then consider setting the healthmax of your killquest object to something formidable, perhaps with the ability to gradually heal. Don't make it impossible. There's no fun in that. You can hint of the unique treasure by customizing the rumor and news (see below).

Reactions:
use: This does a number of things.
- a newsflash is created and published in the daily cow
- a rumour is created and recorded in the book of rumours
- the material's killquest values (qname, rumour, and lasthit) are set
Note: be sure to gender your object before you use it.

arrives: As long as the object is alive, this sets the lasthit value to whomever arrived. If the killquest object is alive it will also attack.

tickloc: This detects when health reaches 0 (or less) and does a number of things:
- Any object hosted to the killquest object with hosthow of 'wielded', 'worn', or 'carried' is unhosted and locked and owned to lasthit object.
- Same with anything in the inventory.
- The worth of the killquest object is transfered to the victor.
- The initial rumour is removed from the book of rumours and erased.
- An obituary is created and published in the daily cow, declaring lasthit as the victor.
- _killquest_ is removed and _decaymeat_ is added, which causes it to rot away and erase itself. read the material called decaymeat

Customizing the quest name and story
We tried to make the default name and story work well enough, but you may want something better. Some simple scripting can be used to customize the setup of your quest. Just script the object that has _killquest_ material on it, add a block named killquestdata. This will override the killquestdata block defined in the material object. The purpose of this block is to set up $questname which becomes part of some rumour and news object names, as well as $queststory which becomes the info of those objects. Don't put things like [$init_obj] in $queststory since it is not sent as a message but put in the info.

Note: you must do this before you use your killquest object, since this sets up the news and rumour.

Some variables are already available:
$myclass = The class of the killquest object.
$locclass = The class of the killquest object's location.
$heshe, $himher, $hisher = Make sure you gender {object} so these will hold something besides 'it'.
$myworth = How much your killquest object is worth (especially if you create {objectclass} worth {numberofpennies}.

Example:
##killquestdata:
$questname = "A robber runs loose";
$queststory = "A robber has been spotted roaming about the old town. The $myclass was last seen lurking at $locclass and has stolen at least $myworth pennies. $heshe is armed and dangerous. We just want $himher killed, so you may take whatever $heshe carries.";

note: double quotes appear as " when you examine this, so you will need to fix the above example in your code

Customizing the attack
You can also use simple scripting to add something to the object's behavior before it attacks a player who arrives at its location. Just script the killquest object and make a block called whyattack where you can have it say something before attacking and even set a delay (in seconds) before it strikes.

Some variables available:
$init_obj = the object id of the player that just arrived.
$actor = the object id of the killquest object.

Example:

##whyattack:
print "[$init_obj] recognizes [$actor] and exclaims, 'So you are the robber that has been looting this town!'";
print "[$actor] glares at [$initobj] and fumes, 'So I am, but you will never escape to tell! Prepare to die!'";
$attackdelay = 10;

note: double quotes appear as " when you examine this, so you will need to fix the above example in your code

Created by thorn, last updated 13 Jul 2012

Code

if target of use then killquestuse;
if reacting to arrives then killquestarr;

##killquestarr:
if $init_obj's class ne 'player' then continue else killquestarr1;
##killquestarr1:
if $actor ne 66330 then killquestarr2;
##killquestarr2:
if $actor's health > 0 then killquestattack;
##killquestattack:
$matvals = $actor's matvals;
manipulate $matvals get killquest to $killquest by 1;
manipulate $killquest set lasthit to $init_obj by 2;
manipulate $matvals set killquest to $killquest by 1;
set $actor's matvals to $matvals;
$target = $init_obj;
$attackdelay = 0;
runsub whyattack;
call "attack $target",$attackdelay;

##tickloc:runsub killquesthealth;
##killquesthealth:
if $actor's health > 0 then continue else killquestdied;

##killquestuse:
$matvals = $actor's matvals;
manipulate $matvals get killquest to $killquest;
if $killquest == '' then killquestinit else killquestfail;
##killquestinit:
getgender $actor;
$myclass = $actor's class;
$locclass = $loc's class;
$myworth = $actor's worth;
runsub killquestdata;
runsub killquestaddrumour;
runsub killquestnews;
print "Quest initialised.";
##killquestfail:
sayto $init_obj,"This killquest was already set up";

##killquestdata:
$questname = "$myclass menace";
$queststory = "A $myclass was last seen lurking around the $locclass, hoarding $myworth pennies. Kill $himher to receive that plus any items $heshe carries.";

##killquestaddrumour:
$rumourbook = 66332;
$rumourname = "the rumour about the $questname";
new $rumourname;
$matvals = $actor's matvals;
manipulate $matvals get killquest to $killquest by 1;
manipulate $killquest set qname to $questname by 2;
manipulate $killquest set rumour to $new_id by 2;
manipulate $killquest set lasthit to $init_obj by 2;
manipulate $matvals set killquest to $killquest by 1;
set $actor's matvals to $matvals;
multiset $new_id = "info='$queststory',loc='$rumourbook'";
print "[$new_id] has been recorded in [$rumourbook].";

##killquestnews:
$newsname = "the newsflash about the $questname";
new $newsname;
set $new_id's info to "$queststory";
call "publish $new_id";

##killquestdied:
$actdead = (slumps to the floor,gasps one last breath then falls,cries out in agony then is silent);
print "[$actor] $actdead.";
$material = $actor's material;
swap $material add '_decaymeat_';
swap $material take '_killquest_';
set $actor's material to $material;
set $actor's pose to 'dead';
$matvals = $actor's matvals;
manipulate $matvals get killquest to $killquest by 1;
manipulate $killquest get qname to $questname by 2;
manipulate $killquest get rumour to $rumour by 2;
manipulate $killquest get lasthit to $lasthit by 2;
$myworth = $actor's worth;
if $myworth > 0 then killquestreward1;
$gotitem = 0;
foreach in $loc do killquestreward2;
foreach in $actor do killquestreward3;
if $gotitem == 1 then killquestreward5;
if $rumour > 0 then killquesttakerumour;
if $questname == '' then continue else killquestwinnews;
relook $loc;
##killquestreward1:
$yourworth = $lasthit's worth;
add $myworth to $yourworth;
set $lasthit's worth to $yourworth;
print "[$lasthit] finds $myworth pennies on [$actor]'s body.";
##killquestreward2:
if $for_id's host == $actor then killquestreward3;
##killquestreward3:
if $lasthit's loc ne $for_id's loc then killquestreward4;
$pwd = $lasthit's pwd;
multiset $for_id = "owner='$lasthit',pwd='$pwd',host='',hosthow='',pose='',loc='$loc'";
$gotitem = 1;
##killquestreward4:
print "[$lasthit] searches the body of [$actor] and finds [$for_id]!";
##killquestreward5:
sayto $init_obj,"You now own everything [$actor] was carrying.";

##killquesttakerumour:
$rumourbook = 66332;
set $rumour's loc to 0;
print "[$rumour] has been removed from [$rumourbook]";

##killquestwinnews:
$myclass = $actor's class;
$lhname = $lasthit's name;
$lhclass = $lasthit's class;
$locname = $loc's class;
if $locname == '' then killquestwinclass else killquestwinname;
$queststory = "We've received reports that the $myclass has been slain by $victor. The body of the $myclass was found at the $locname.";
$newsname = "the obituary about the $questname";
new $newsname;
set $new_id's info to $queststory;
call "publish $new_id";

##killquestwinclass:
$victor = "the $lhclass";
##killquestwinname:
$victor = "$lhname";