/** * Cotains some simul_efuns. * @author Pinkfish */ private string ob_short(object ob) { string ret; if (ob->query_clothing()) { ret = ob->query_pocket_mess(); } else { ret = "$ob_short$"; } return ret; } /* ob_short() */ /** * This method produces the inside messages for the given object up * to the player object. This one generates 'the_short' messages. * This should only be called with an object that is a container. * It will produce weird and incorrect messages otherwise. * @param ob the object to generate the short for * @param play the player to generate the short up to * @see inside_a_short() */ string inside_the_short(object ob, object play) { string str; if (!play) { play = this_player(); } if (!ob) { ob = environment(play); } str = replace_string(ob_short(ob), "$ob_short$", ob->the_short()); while (environment(ob) && environment(ob) != play && environment(ob) != environment(play)) { ob = environment(ob); str += " inside " + replace_string(ob_short(ob), "$ob_short$", ob->the_short()); } return str; } /* inside_the_short() */ /** * This method produces the inside messages for the given object up * to the player object. This one generates 'a_short' messages. * This should only be called with an object that is a container. * It will produce weird and incorrect messages otherwise. * @param ob the object to generate the short for * @param play the player to generate the short up to * @see inside_the_short() */ string inside_a_short(object ob, object play) { string str; if (!play) { play = this_player(); } if (!ob) { ob = environment(play); } str = replace_string(ob_short(ob), "$ob_short$", ob->a_short()); while (environment(ob) && environment(ob) != play && environment(ob) != environment(play)) { ob = environment(ob); str += " inside " + replace_string(ob_short(ob), "$ob_short$", ob->the_short()); } return str; } /* inside_a_short() */ /** * This method produces the inside messages for the given object up * to the player object. This one generates 'a_short' messages. * This should only be called with an object that is a container. * It will produce weird and incorrect messages otherwise. * @param ob the object to generate the short for * @param play the player to generate the short up to * @see inside_the_short() */ string inside_one_short(object ob, object play) { string str; if (!play) { play = this_player(); } if (!ob) { ob = environment(play); } str = replace_string(ob_short(ob), "$ob_short$", ob->one_short()); while (environment(ob) && environment(ob) != play && environment(ob) != environment(play)) { ob = environment(ob); str += " inside " + replace_string(ob_short(ob), "$ob_short$", ob->the_short()); } return str; } /* inside_one_short() */