/* -*- LPC -*- */ /* * $Locker: $ * $Id: tu_rn.c,v 1.3 2002/02/24 02:35:04 ceres Exp $ * $Log: tu_rn.c,v $ * Revision 1.3 2002/02/24 02:35:04 ceres * Modified so turning while sneaking doesn't make you vis. * * Revision 1.2 1998/09/06 04:58:48 presto * Moved syntax message into query_patterns thingy * * Revision 1.1 1998/01/06 05:29:43 ceres * Initial revision * */ inherit "/cmds/base"; #define TP this_player() mixed cmd(string str) { int i; mixed * facing; if ( !( i = ([ "half right": 1, "right": 2, "rt": 2, "around": 4, "left": 6, "lt": 6, "half left": 7 ])[ str ] ) ) { return 0; } facing = TP->query_facing(); facing[ 0 ] = ( i + facing[ 0 ] ) % 8; write( "You reorient yourself with the world.\n" ); if(TP->query_sneak_level()) say( TP->one_short(1)+" reorients "+ TP->query_objective() +"self.\n"); else say(TP->one_short() +" reorients "+ TP->query_objective() +"self.\n" ); TP->set_facing(facing); if ( environment(TP) ) environment(TP)->init(); return 1; } mixed *query_patterns() { return ({ "<string'around, [half] right, [half] left, rt, lt'>", (: cmd($4[0]) :) }); }