AS OF SVN REV. 5901, WE ARE NOW USING TRUNK. ALL UNTESTED BUGFIXES/FEATURES GO INTO TRUNK.

IF YOU HAVE A WORKING AND TESTED BUGFIX PUT IT INTO STABLE AS WELL AS TRUNK.  EVERYTHING ELSE
GOES INTO TRUNK AND WILL BE MERGED INTO STABLE BY VALARIS AND WIZPUTER. -- VALARIS


git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@5094 54d463be-8e91-2dee-dedb-b68131a5f0ec

2 files changed, 157 insertions, 0 deletions

diff --git a/npc/custom/healers/heal.txt b/npc/custom/healers/heal.txt
new file mode 100644
index 000000000..d065d30c1
--- /dev/null
+++ b/npc/custom/healers/heal.txt
@@ -0,0 +1,52 @@
+//===== eAthena Script =======================================

+//= Heal Npc

+//===== By: ==================================================

+//= Lotsa People (1.x)

+//===== Current Version: =====================================

+//= 3.0

+//===== Compatible With: =====================================

+//= eAthena 0.1+;

+//===== Description: =========================================

+//= Healer NPC Which Heals For Free

+//===== Additional Comments: =================================

+//= 3.0 By massdriller, Changed and edited the script

+//= added other warp points of maps.

+//= 2.0 By Darkchild, Duplicates And Changed A Bit

+//= you can replace this script file by heal_payment.txt

+//= if you want that players have to pay their healings.

+//============================================================

+

+prontera.gat,150,184,5	script	Healer#h1-1::Healer	742,{

+

+	mes "[Healer]";

+	mes "I have amazing healing powers!!";

+	mes "You look like a person who needs them";

+	mes "Want some?";

+	next;

+	menu "Heal",-,"No thanks",CANCEL;

+		percentheal 100,100;

+		mes "[Healer]";

+		mes "Wonderfull, You are now healed!.";

+		mes "Have fun adventuring!!";

+		close;

+	CANCEL:

+	mes "[Healer]";

+	mes "Allright, come back if you need a heal.";

+	close;

+}

+

+morocc.gat,159,96,5	duplicate(Healer)	Healer#h1-2	742

+ayothaya.gat,155,111,5	duplicate(Healer)	Healer#h1-3	742

+geffen.gat,121,61,5	duplicate(Healer)	Healer#h1-4	742

+umbala.gat,94,162,5	duplicate(Healer)	Healer#h1-5	742

+payon.gat,180,105,5	duplicate(Healer)	Healer#h1-6	742

+alberta.gat,185,144,5	duplicate(Healer)	Healer#h1-7	742

+aldebaran.gat,134,123,5	duplicate(Healer)	Healer#h1-8	742

+izlude.gat,125,118,5	duplicate(Healer)	Healer#h1-9	742

+xmas.gat,149,136,5	duplicate(Healer)	Healer#h1-10	742

+comodo.gat,188,162,5	duplicate(Healer)	Healer#h1-11	742

+amatsu.gat,200,80,5	duplicate(Healer)	Healer#h1-12	742

+gonryun.gat,164,130,5	duplicate(Healer)	Healer#h1-13	742

+yuno.gat,152,186,5	duplicate(Healer)	Healer#h1-14	742

+niflheim.gat,188,180,5	duplicate(Healer)	Healer#h1-15	742

+louyang.gat,225,103,5	duplicate(Healer)	Healer#h1-16	742
\ No newline at end of file
diff --git a/npc/custom/healers/heal_payment.txt b/npc/custom/healers/heal_payment.txt
new file mode 100644
index 000000000..325bfd008
--- /dev/null
+++ b/npc/custom/healers/heal_payment.txt
@@ -0,0 +1,105 @@
+//===== eAthena Script =======================================

+//= Healer Script (/w payments)

+//===== By: ==================================================

+//= Yor & abunch of other people

+//===== Current Version: =====================================

+//= 1.2

+//===== Compatible With: =====================================

+//= Any Athena Version

+//===== Description: =========================================

+//= NPC heals/regenerates people against zenys

+//===== Additional Comments: =================================

+//= alternative dog with payment.

+//= each HP need 1 zeny

+//= each SP need (baselevel / 5) zenys

+//= calculation is done at start of the script

+//= Added Duplicates And Correct payon Loc [Darkchild]

+//= Some modifications. Added NPC locations. [massdriller]

+//============================================================

+

+prontera.gat,150,184,5	script	Healer#h1-1::Healer	742,{

+	set @tempHp, MaxHp-Hp;

+	set @tempSp, ((MaxSp-Sp) * BaseLevel) / 5;

+	if (@tempHp > 0) goto WOUNDED;

+	if (@tempSp > 0) goto ONLY_REGENERATION;

+

+	mes "[Healer]";

+	mes "Oh?";

+	mes "You do not look like a person in pain.";

+	close;

+

+	WOUNDED:

+		if (@tempSp > 0) goto WITH_REGENERATION;

+		mes "[Healer]";

+		mes "Oh dear, you look really hurt,";

+		mes "I can cure you for: "+@tempHp+" z)";

+		mes "Do you want me to cure you?";

+		next;

+		menu "Healings ("+@tempHp+"z)",HEALINGS,"No, thanks",CANCEL;

+

+	WITH_REGENERATION:

+		mes "[Healer]";

+		mes "Do you want only your HP to be healed? ("+@tempHp+" z)";

+		mes "Do you want only your SP to be healed? ("+@tempSp+" z)?";

+		mes "Or Would you like both? ("+(@tempHp+@tempSp)+" z)";

+		next;

+		menu "Only HP ("+@tempHp+"z)",HEALINGS,"Only SP ("+@tempSp+"z)",REGENERATION,"Both HP & SP ("+(@tempHp+@tempSp)+"z)",HEALINGS_AND_REGEN,"Nothing, thanks",CANCEL;

+

+	ONLY_REGENERATION:

+		mes "[Healer]";

+		mes "So, you only want your SP to heal? ("+@tempSp+" z)";

+		mes "I need to make a living...";

+		next;

+		menu "Regeneration ("+@tempSp+"z)",REGENERATION,"No, thanks",CANCEL;

+

+	HEALINGS:

+		if (Zeny < @tempHp) goto NO_ZENYS;

+		set Zeny, Zeny-@tempHp;

+		heal 30000,0;

+		goto FIN;

+

+	REGENERATION:

+		if (Zeny < @tempSp) goto NO_ZENYS;

+		set Zeny, Zeny-@tempSp;

+		heal 0,30000;

+		goto FIN;

+

+	HEALINGS_AND_REGEN:

+		if (Zeny < (@tempHp+@tempSp)) goto NO_ZENYS;

+		set Zeny, Zeny-(@tempHp+@tempSp);

+		heal 30000,30000;

+		goto FIN;

+

+	NO_ZENYS:

+		mes "[Healer]";

+		mes "Oh dear, you don't look like you have enough zeny.";

+		mes "Sorry, i can't help you.";

+		close;

+

+	FIN:

+		mes "[Healer]";

+		mes "You are Completely Healed.";

+		close;

+

+	CANCEL:

+		mes "[Healer]";

+		mes "Allright. Please come again if you need anything.";

+		close;

+}

+

+

+morocc.gat,159,96,5	duplicate(Healer)	Healer#h2-2	742

+ayothaya.gat,155,111,5	duplicate(Healer)	Healer#h2-3	742

+geffen.gat,121,61,5	duplicate(Healer)	Healer#h2-4	742

+umbala.gat,94,162,5	duplicate(Healer)	Healer#h2-5	742

+payon.gat,180,105,5	duplicate(Healer)	Healer#h2-6	742

+alberta.gat,185,144,5	duplicate(Healer)	Healer#h2-7	742

+aldebaran.gat,134,123,5	duplicate(Healer)	Healer#h2-8	742

+izlude.gat,125,118,5	duplicate(Healer)	Healer#h2-9	742

+xmas.gat,149,136,5	duplicate(Healer)	Healer#h2-10	742

+comodo.gat,188,162,5	duplicate(Healer)	Healer#h2-11	742

+amatsu.gat,200,80,5	duplicate(Healer)	Healer#h2-12	742

+gonryun.gat,164,130,5	duplicate(Healer)	Healer#h2-13	742

+yuno.gat,152,186,5	duplicate(Healer)	Healer#h2-14	742

+niflheim.gat,188,180,5	duplicate(Healer)	Healer#h2-15	742

+louyang.gat,225,103,5	duplicate(Healer)	Healer#h2-16	742
\ No newline at end of file