Find
You are looking at a blip
Created by
wolis
, last updated 12 May 2007
Code
if reacting to mood then incrme;
if reacting to blob then testcombine;
if target of push then reloacation;
##testcombine:
$obj1 = "brick";
$obj2 = "fig";
$own = "wolis";
$nob = "scissors";
combine $obj1 by $own with $obj2 by $own in $loc to make $nob;
rem combine fig by wolis with brick by wolis in $loc to make "hat";
print "[$actor] made [$new_id]";
relook $loc;
##incrme:
$tmp to $actor's weight;
incr $tmp from 5 by -1 to 3 then 5;
print "[$actor] is $tmp";
set $actor's weight to $tmp;
##reloacation:
rem move the object and inform the old location first;
$newloc = 1;
set $init_obj's loc to $newloc;
msg $newloc,$init_obj,0,0,'arrives',"[$init_obj] is spirited away";
relook $loc;
rem - now inform the player of their new location
sayto $init_obj,"[$init_obj] is spirited away";
msg $newloc,$init_obj,0,0,'arrives',"[$init_obj] arrives as if from nowhere";
relook $newloc;