/** * The wonderous joys of pan pipes :) * Based on the toy fanfare: /obj/toys/fanfare.c * By Liceas - 17/07/02 */ inherit HELD_OBJ; void setup() { set_name("pipes"); set_short("set of wooden pan pipes"); add_adjective("set of wooden pan"); add_plural("pipes"); set_long("This is a rather compact set of wooden tubes bundled together " "to a set of pan-pipes. The pipes decrease in length and breadth " "from one side of the instrument to the other, and have been bound " "together with a white string.\n"); set_weight(12); set_value(450); } /* setup() */ /** @ignore yes */ int do_blow() { string str; if( !query_holder() ) { add_failed_mess("You have to hold $D before you can play " "$V$0=it,them$V$.\n"); return 0; } str = ({"giving a short and quiet trill", "giving a long trill", "playing a brief melodic tune", "playing a calming, but short tune", "playing a soothing melody", "giving a loud beep out", "producing a short and sharp tune.", "producing a controlled little melody", "producing a soothing, yet short, tune", "producing a short and sharp tune", "producing a long, ballad", "producing a short but romantic tune", "making a loud beep", })[random(13)]; add_succeeded_mess("$N take$s a hefty lungful of breath, raise$s " "$D to just under $p lips and blow$s the air out, "+str+".\n"); return 1; } /* do_blow() */ /** @ignore yes */ int do_play() { return do_blow(); } /** @ignore yes */ void init() { add_command("blow"); add_command("play"); } /* init() */