inherit "inherit/monster";

reset(arg) {
  ::reset(arg);
  if(arg) return;

  set_name("aleena");
  set_gender(2);
  set_short("Aleena, the Chosen Prophet of the All-God");
  set_long(
	"Aleena is here to guide those in need, and aid the sick and dying.\n"+
	"Her power is great as she is the All-God's chosen one.\n");
  set_level(25);
  set_hp(2400);
  set_ac(26);
  set_wc(30);
  load_chat(5, ({ "Aleena asks: Do you seek the power of the All-God?\n",
	"Aleena asks: Do you seek wisdom, my child?\n",
	"Aleena says: Come worship with me child.\n"
  }));
  load_a_chat(5, ({ "Aleena calls to the All-God for aid.\n",
	"Aleena says: I am sorry to do this to you.\n",
	"Aleena says: You will feel the wrath of the Almighty One.\n"
  }));
}

init() {
  ::init();
  add_action("worship", "worship");
  welcome();
}

welcome() {
    write("Aleena says: Welcome, my child.\n"+
	  "Aleena says: Come and worship with me.\n");
  }

worship() {
  if(this_player()->query_ghost()) {
    write("Aleena says: By the power of the All-God I shall raise you!\n");
    this_player()->toggle_ghost();
    this_player()->heal_self(random(20));  /* nice service */
    return 1;
  }

  write("Aleena says: I can offer you the following services...\n\n"+

" Cure Disease...............100 gold coins.     \n"+
" Cure Wounds................100 gold coins.     \n"+

"\nAleena says: What healing can I aid you with?   \n"+
" Enter spell name (Return for none) > ");

input_to("worship2");
return 1;
}

worship2(string str) {
  string tmp1, tmp2;
  if(sscanf(str, "%sdisease%s", tmp1, tmp2))
    cure_disease();
  else if(sscanf(str, "%swounds%s", tmp1, tmp2))
    cure_wounds();
  else if(sscanf(str, "%srestoration%s", tmp1, tmp2))
    restoration();
  return 1;
}

  
cure_wounds() {
  if(healing_sphere_points < 2) {
    write("Aleena says: I am truely sorry, "+ this_player()->query_name() +
    ", but my powers are all spent.\nCome back when I am rested.\n");
    return 1;
  }
  if(this_player()->query_money() < 100) {
    write("Aleena says: I cannot pray for you if you cannot make the "+
    "correct donation.\n");
    return 1;
  }
  command("cw "+ lower_case(this_player()->query_name()), this_object());
  this_player()->add_money(-100);
  return 1;
}

cure_disease() {
  if(healing_sphere_points < 7) {
    write("Aleena says: I am truely sorry, "+ this_player()->query_name() +
    ", but my powers are all spent.\nCome back when I am rested.\n");
    return 1;
  }
  if(this_player()->query_money() < 200) {
    write("Aleena says: I cannot pray for you if you cannot make the "+
    "correct donation.\n");
    return 1;
  }
  command("cdis "+ lower_case(this_player()->query_name()), this_object());
  this_player()->add_money(-200);
  return 1;
}