#include <drinks.h>
inherit "/obj/ring";
void setup() {
set_name( "ring" );
set_short( "blue crystal ring" );
add_adjective( ({ "blue", "crystal" }) );
set_main_plural( "blue crystal rings" );
set_long( "The ring is a single piece of $material$, cut and polished "+
"until its facets sparkle in the light.\n" );
set_material( "sapphire" );
set_value( 500 );
set_value_info( "artifact", 10000 );
set_weight( 1 );
set_enchant( 3 );
add_property( "artifact form", ([
"ring of recall" : 3
]) );
adjust_charges( 1 + random( 11 ) );
set_level( 30 );
set_zapper( file_name( this_object() ) );
} /* setup() */
string query_ring_name() { return "ring of recall"; }
void zap( object dummy, object person, object ring ) {
string place;
place = query_property( "destination" );
if ( !place )
call_out( "move_person", 0, person, (string)person->query_start_pos() );
else
call_out( "move_person", 0, person, place );
call_out( "move_person", 0, person, (string)person->query_start_pos() );
} /* zap() */
int failed_zap( object dummy, object person, object ring ) {
call_out( "move_person", 0, person, ({
"/d/klatch/tsort/desert/roads/road3",
"/d/sur/Sheepridge/firkin",
})[ random( 2 ) ] );
person->add_succeeded_mess( ring, "$N $V $D.\n", ({ }) );
return 1;
} /* failed_zap() */
void move_person( object person, string place ) {
if ( !find_object( place ) )
place->force_load();
if ( !find_object( place ) ) {
tell_object( person, "Please contact a creator and ask that \""+ place +
"\" be checked. You are also owed a charge on this ring.\n" );
return;
}
if ( environment( person ) == find_object( place ) ) {
tell_object( person, "You momentarily feel dislocated from reality; "+
"the feeling passes, but something has changed...\n" );
person->adjust_volume( D_ALCOHOL, ( 500 + random( 500 ) ) * ( 1 -
2 * random( 2 ) ) );
return;
}
tell_object( person, "You suddenly feel as if something yanks you "+
"across the dimensions.\n" );
person->move_with_look( place, "A spot of blue appears, enlarges and "+
"turns into $N.", "$N shrinks and becomes red, then disappears "+
"altogether." );
} /* move_person() */
