COWbrowse

You are looking at a gold stone

use me and you will become the same colour as me.

use the stone

Oh yes.. watch out for giant hamspers

This object demonstrates:

reacting to a 'use'
making sure its the object being used
reading values from objects
setting values in objects
saying stuff
forcing a look so everyone sees the changes in the room
using 'call' to create a new object
gnerating a random number to change an objects worth
setting host, hosthow and pose for an object

Created by wolis, last updated 23 Mar 2008

Code

##use:runsub isitme;

##isitme:
if $actor eq $target then goldme else end;

##goldme:
set $init_obj's colour to $actor's colour;
msg $loc,$actor,0,0,'force',"force:look $loc,look",$actor;
var $mycolour to $actor's colour;
call "think [$init_obj] is now be $mycolour";

new a gigantic hamster;
var $mny to random 20;
set $new_id's worth to $mny;
set $new_id's host to $init_obj;
set $new_id's hosthow to "to";
set $new_id's pose to "clinging";
set $new_id's colour to "chocolate";
set $new_id's info to "I am very affectionate";
say 'msg',"[$new_id] appears from nowhere and rushes at [$init_obj]!";
set $new_id's qty to 1;
msg $loc,$actor,0,0,'force',"force:look $loc,look",$actor;