// An emote testing object. // Leto fixed target to be lalala, since target was inherited as type object somewhere #include <mudlib.h> #include <daemons.h> string *list ; int which, lalala ; inherit MONSTER ; void create() { ::create() ; enable_commands() ; set_living_name("barney") ; set("gender", "male") ; set("id", ({ "barney", "dick" }) ) ; set ("short", "Barney the dinosaur") ; set ("long", "Barney is looking very emotional.\n") ; set_name("barney") ; list = sort_array((string *)EMOTE_D->query_keys(),"compare",this_object()); which = 0 ; } void init() { add_action ("poke", "poke") ; } int poke( string str) { write ("You poke Barney in the tummy.\n") ; if (str) which = member_array(str,list) ; call_out ("do_emote", 4) ; return 1 ; } int compare(string one, string two) { return strcmp(one, two); } int do_emote() { string str ; switch (lalala) { case 0 : { str = list[which] ; break ; } case 1 : { str = list[which] + " annoyingly" ; break ; } case 2 : { str = list[which] + " mobydick" ; break ; } } command (str) ; say ("Barney says: That was the "+str+" emote. Thank you.\n") ; switch (lalala) { case 2 : { which += 1; if (which==sizeof(list)) which=0 ; lalala = 0 ; break ; } case 1: { lalala = 2 ; break ; } case 0: { // this is kinda pointless as is but we have it for future if we need it. lalala = 1 ; } } call_out ("do_emote", 4) ; }