summaryrefslogtreecommitdiff
path: root/npc/other/heal_payment.txt
blob: 39a8329850fa798ffda0ff83e3cbf353c83e15e0 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
//===== eAthena Script =======================================
//= Dog Script (for healings)
//===== By: ==================================================
//= Yor
//===== Current Version: =====================================
//= 1.1
//===== Compatible With: =====================================
//= Any Athena Version (need dog sprite)
//===== Description: =========================================
//= Dog 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]
//============================================================

prontera.gat,150,184,5	script	Healring#h2-1::Healring	1002,{
	set @tempHp, MaxHp-Hp;
	set @tempSp, ((MaxSp-Sp) * BaseLevel) / 5;
	if (@tempHp > 0) goto WOUNDED;
	if (@tempSp > 0) goto ONLY_REGENERATION;

	mes "[Healring]";
	mes "Booiiing Boiing (You don't need healings).";
	mes "Boing Boing! (Bye Bye!)";
	close;

	WOUNDED:
		if (@tempSp > 0) goto WITH_REGENERATION;
		mes "[Healring]";
		mes "Booiing: BoooiiinnnG (Need healings: "+@tempHp+" z)?";
		mes "BOINNG: Booing (I use zenys for a good cause: my medicines and my Poring Food)!";
		next;
		menu "Healing ("+@tempHp+"z)",HEALINGS,"No, thanks",CANCEL;

	WITH_REGENERATION:
		mes "[Healring]";
		mes "Booiing: BoooiiinnnG (Need only healing: "+@tempHp+" z)?";
		mes "Boooing: BoooiiinnnG (Only a regeneration: "+@tempSp+" z)?";
		mes "Booiing Boooing: BoooiiinnnG (or healing and regeneration: "+(@tempHp+@tempSp)+" z)?";
		mes "BOINNG: Booing (I use zenys for a good cause: my medicines and my Poring Food)!";
		next;
		menu "Only healings ("+@tempHp+"z)",HEALINGS,"Only a regeneration ("+@tempSp+"z)",REGENERATION,"Healings with regeneration ("+(@tempHp+@tempSp)+"z)",HEALINGS_AND_REGENERATION,"Nothing, thanks",CANCEL;

	ONLY_REGENERATION:
		mes "[Healring]";
		mes "Boooing: BoooiiinnnG (Need a regeneration: "+@tempSp+" z)?";
		mes "BOINNG: Booing (I use zenys for a good cause: my medicines and my Poring Food)!";
		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_REGENERATION:
		if (Zeny < (@tempHp+@tempSp)) goto NO_ZENYS;
		set Zeny, Zeny-(@tempHp+@tempSp);
		heal 30000,30000;
		goto FIN;

	NO_ZENYS:
		mes "[Healring]";
		mes "BOIING! (You don't have enough zenys)!";
		mes "BOING BOING!! (Starver)!";
		close;

	FIN:
		mes "[Healring]";
		mes "Boooing! Booiing Boing! (Healed! Have fun!)";
		close;

	CANCEL:
		mes "[Healring]";
		mes "Boing Boing! (Bye Bye!)";
		close;
}


morocc.gat,159,96,5	duplicate(Healring)	Healring#h2-2	1002
geffen.gat,121,61,5	duplicate(Healring)	Healring#h2-3	1002
payon.gat,180,105,5	duplicate(Healring)	Healring#h2-4	1002
alberta.gat,185,144,5	duplicate(Healring)	Healring#h2-5	1002
aldebaran.gat,134,123,5	duplicate(Healring)	Healring#h2-6	1002
izlude.gat,125,118,5	duplicate(Healring)	Healring#h2-7	1002
xmas.gat,149,136,5	duplicate(Healring)	Healring#h2-8	1002
comodo.gat,188,162,5	duplicate(Healring)	Healring#h2-9	1002
amatsu.gat,200,80,5	duplicate(Healring)	Healring#h2-10	1002
gonryun.gat,164,130,5	duplicate(Healring)	Healring#h2-1	1002