/** ventriloquism **/

status ventriloquism(string str, mixed alt_type) {
  string who;
  object ob;
  int level, sp_points;

  if(!str || sscanf(str,"%s %s", who, str) != 2) {
    write("ventriloquism <who> <message>\n");
    return 1;
  }
  if(!(ob = present(who, environment(this_player())))) {
    write("There is no "+ who +" here.\n");
    return 1;
  }
  if(!alt_type) alt_type = "illusion";
  level = (objectp(alt_type)) 
        ? (int)alt_type->query_cast_level()
        : (int)call_other(this_player(), "query_"+ alt_type);

  sp_points = (objectp(alt_type))
            ? (int)alt_type->query_charges()
            : (int)call_other(this_player(), "query_"+ alt_type +"_points");

  if(level < 1) {
    write("You are not knowledgable enough.\n");
    return 1;
  }
  if(sp_points < 1) {
    write("You feel too weak.\n");
    return 1;
  }

  if(objectp(alt_type)) 
    alt_type->adj_charges(-1);
  else
    call_other(this_player(), "adj_"+ alt_type +"_points", -1);

  say(capitalize(who) +" says: "+ str +"\n", ob);
  write("From "+ capitalize(who) +" you hear: "+ str +"\n");
  tell_object(ob,"You say: "+ str +"\nBut it wasn't you who said it!!\n");
  log_file("Illusion", (string)this_player()->query_name(1) +
                       " ventriloquised "+ (string)ob->query_name(1) +
                       " saying "+ str +"\n");
  if(objectp(alt_type)) alt_type->end_spell();
  return 1;
}

/* Native Mode Move */

#include <move.h>