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

2 files changed, 243 insertions, 0 deletions

diff --git a/npc/merchants/custom/breeder.txt b/npc/merchants/custom/breeder.txt
new file mode 100644
index 000000000..76fe3a700
--- /dev/null
+++ b/npc/merchants/custom/breeder.txt
@@ -0,0 +1,67 @@
+//Peco Peco breeder for Knight by Darkchild v1.1

+//FIXED checkriding/cart/falcon funcs [Lupus]

+

+prontera.gat,122,200,1	script	Universal Rental Npc	726,{

+mes "[Universal Rental Npc]";

+mes "Hi, here you can rent Carts, Falcons or Pecopecos.";

+next;

+L_Menu:

+menu "Rent a Cart",L_Cart,"Rent a Falcon",L_Falcon,"Rent a Pecopeco",L_Peco,"Quit",L_Quit;

+close;

+L_Cart:

+if(Class == 5 && checkcart(0) == 0) goto L_Cart_Ok;

+if(Class == 10 && checkcart(0) == 0) goto L_Cart_Ok;

+if(Class == 18 && checkcart(0) == 0) goto L_Cart_Ok;

+if(Class == 4006 && checkcart(0) == 0) goto L_Cart_Ok;

+if(Class == 4011 && checkcart(0) == 0) goto L_Cart_Ok;

+if(Class == 4019 && checkcart(0) == 0) goto L_Cart_Ok;

+if(getskilllv(39)<1) goto L_Need_Skill;

+mes "[Universal Rental Npc]";

+mes "Sorry " + strcharinfo(0) + " but I only rent carts to Merchants, Blacksmiths and Alchimists who have enough skills to handle a cart.";

+close;

+L_Cart_Ok:

+	setcart;

+	goto L_Quit2;

+L_Need_Skill:

+mes "[Universal Rental Npc]";

+mes "Sorry you don't have the required skill to rent a cart.";

+close;

+L_Falcon:

+	if(Class == 11 && checkfalcon(0) == 0) goto L_falc;

+	if(Class == 4012 && checkfalcon(0) == 0) goto L_falc;

+	if(getskilllv(127)<1) goto L_Need_Skill2;

+	mes "[Universal Rental Npc]";

+	mes "Sorry " + strcharinfo(0) + " but I only rent falcons to Hunters who the ability to handle 'em.";

+	close;

+	L_falc:

+		setfalcon;

+		goto L_Quit2;

+L_Need_Skill2:

+mes "[Universal Rental Npc]";

+mes "Sorry you don't have the required skill to own a Falcon.";

+close;

+L_Peco:

+if (Class == 7 && checkriding(0) == 0) goto L_Peco_Ok;

+if (Class == 14 && checkriding(0) == 0) goto L_Peco_Ok;

+if (Class == 4008 && checkriding(0) == 0) goto L_Peco_Ok;

+if (Class == 4015 && checkriding(0) == 0) goto L_Peco_Ok;

+if(getskilllv(63)<1) goto L_Need_Skill3;

+mes "[Universal Rental Npc]";

+mes "Sorry" + strcharinfo(0) + "but I only rent pecopecos to Knight and Crusader who have the ability to handle 'em";

+close;

+L_Peco_Ok:

+setriding;

+goto L_Quit2;

+L_Need_Skill3:

+mes "[Universal Rental Npc]";

+mes "Sorry you don't have the required skill to ride a Peco Peco.";

+close;

+L_Quit:

+mes "[Universal Rental Npc]";

+mes strcharinfo(0) + ", please come back when you are ready to rent something.";

+close;

+L_Quit2:

+mes "[Universal Rental Npc]";

+mes strcharinfo(0) + ", please come again when you want another...";

+close;

+}
\ No newline at end of file
diff --git a/npc/merchants/custom/dye.txt b/npc/merchants/custom/dye.txt
new file mode 100644
index 000000000..0c5d19741
--- /dev/null
+++ b/npc/merchants/custom/dye.txt
@@ -0,0 +1,176 @@
+//===== eAthena Script ======================================= 

+//= Stylist & Tailor Script (former Dye Script)

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

+//= eAthena Dev team

+//= Revised by Nekosume [pyRO v3.0] 

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

+//= 4.0

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

+//= Any eAthena Version 

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

+//= Revised dye NPC, split into two NPCs, one for hair color

+//= and style, the other for clothes color.

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

+//= v4.0 - Refined and Combined [Darkchild]

+//= v3.0 - Added the 'Browse' options

+//= v2.5 - Added more hair colors

+//= v2.0 - Changed palette and hair style select

+//= v1.5 - Revised script / different dialog

+//= v1.0 - Split into two NPCs

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

+

+

+//Stylist------------------------------------------------------------------------------------------------------------

+prontera.gat,149,189,1	script	Stylist	122,{

+	mes "[^FF8000Stylist^000000]";

+	mes "I'm the greatest stylist in all of Rune-Midgard~~!";

+	mes "I can change your hair style or color!";

+	mes "What do you wish to change?";

+	next;

+	menu "Hair style",Lstyle,"Hair color",Lcolor,"Cloth Color",Lcloth,"Nothing",LCancel;

+

+	Lstyle:

+		mes "[^FF8000Stylist^000000]";

+		mes "Do you want to browse through the choices, or do you know what you want?";

+		next;

+		menu "Browse",Lbrowsesty,"I know what I want",Lwantsty;

+

+	Lwantsty:

+		mes "[^FF8000Stylist^000000]";

+		mes "Great!  Now just pick a style and I'll get started!";

+ 		next;

+		mes "[^FF8000Stylist^000000]";

+		mes "Please pick a style number ^0000FFbetween 0 and 18^000000.";

+		mes "Number 0, by the way, is the default style for your character.";

+ 		next;

+		input @sty;

+		if (@sty>18) close;

+		if (@sty<0) close;

+		setlook 1,@sty;

+		next;

+		mes "[^FF8000Stylist^000000]";

+		mes "Is this good, or do you want a different style?";

+		next;

+		menu "This is good",-,"Different style, please",Lwantsty;

+		next;

+		mes "[^FF8000Stylist^000000]";

+		mes "You look great~!  Come back again, okay?";

+		close;

+

+	Lbrowsesty:

+		set @look, -1;

+		mes "[^FF8000Stylist^000000]";

+		mes "Okay, here we go~!  Just stop me when you see something you like, okay?";

+		next;

+

+	Lbrowserep:

+		set @look,@look+1;

+		setlook 1,@look;

+		mes "This is Pallete Number^FF9009 "+@look+" ^000000!"; 

+		if(@look == 18) menu "Back To The Begin",Lbrowsesty,"I like this one",Lstop;

+		if(@look != 18)	menu "Keep going",Lbrowserep,"I like this one",Lstop;

+		

+	Lcolor:

+		mes "[^FF8000Stylist^000000]";

+		mes "Do you want to browse through the choices, or do you know what you want?";

+		next;

+		menu "Browse",Lbrowsecolor,"I know what I want",Lwantcolor;

+

+	Lwantcolor:

+		mes "[^FF8000Stylist^000000]";

+		mes "Just pick a color and we can get started.";

+		next;

+		mes "[^FF8000Stylist^000000]";

+		mes "Please pick a style number ^0000FFbetween 0 and 20^000000.";

+		mes "Number 0, by the way, is the default color for your character.";

+ 		next;

+		mes "[^FF8000Stylist^000000]";

+		mes "0 is default...";

+		mes "1 is blonde...";

+		mes "2 is lavender...";

+		mes "3 is brown...";

+		mes "4 is green...";

+		mes "5 is blue...";

+		mes "6 is white...";

+		mes "7 is black...";

+		mes "8 is red...";

+		mes "and 9-20 are new colors.";

+		input @color;

+		if (@color>20) close;

+		if (@color<0) close;

+		setlook 6,@color;

+		next;

+		mes "[^FF8000Stylist^000000]";

+		mes "Is this good, or do you want a different color?";

+		next;

+		menu "This is good",-,"Different color, please",Lwantcolor;

+		next;

+		mes "[^FF8000Stylist^000000]";

+		mes "You look great~!  Come back again, okay?";

+		close;

+

+	Lbrowsecolor:

+		set @look, -1;

+		mes "[^FF8000Stylist^000000]";

+		mes "Okay, here we go~!  Just stop me when you see something you like, okay?";

+		next;

+

+	Lbrowsecolorrep:

+		set @look,@look+1;

+		setlook 6,@look;

+		mes "This is Pallete Number^FF9009 "+@look+" ^000000!"; 

+		if(@look == 20) menu "Back To The Begin",Lbrowsecolor,"I like this one",Lstop;

+		if(@look != 20)	menu "Keep going",Lbrowsecolorrep,"I like this one",Lstop;

+

+		Lstop:

+			mes "[^FF8000Stylist^000000]";

+			mes "You look great~!  I love it~! ^_^";

+			close;

+

+	LCancel:

+		mes "[^FF8000Stylist^000000]";

+		mes "Well come again.";

+		close;

+

+	Lcloth:

+		mes "[^FF8000Stylist^000000]";

+		mes "Do you want to browse through the choices, or do you know what you want?";

+		next;

+		menu "Browse",Lbrowsecloth,"I know what I want",Lwantcloth;

+

+	Lwantcloth:

+		mes "[^FF8000Stylist^000000]";

+		mes "Great!  Now just pick a pallete and I'll get started!";

+ 		next;

+		mes "[^FF8000Stylist^000000]";

+		mes "Please pick a style number ^0000FFbetween 0 and 77^000000.";

+		mes "Number 0, by the way, is the default style for your character.";

+ 		next;

+		input @pal;

+		if (@pal>77) close;

+		if (@pal<0) close;

+		setlook 7,@pal;

+		next;

+		mes "[^FF8000Stylist^000000]";

+		mes "Is this good, or do you want a different pallet";

+		next;

+		menu "This is good",-,"Different pallet, please",Lwantcloth;

+		next;

+		mes "[^FF8000Stylist^000000]";

+		mes "You look great~!  Come back again, okay?";

+		close;

+

+	Lbrowsecloth:

+		set @look, -1;

+		mes "[^FF8000Stylist^000000]";

+		mes "Okay, here we go~!  Just stop me when you see something you like, okay?";

+		next;

+

+	Lbrowseclothrep:

+		set @look,@look+1;

+		setlook 7,@look;

+		mes "This is Pallete Number^FF9009 "+@look+" ^000000!"; 

+		if(@look == 77) menu "Back To The Begin",Lbrowsecloth,"I like this one",Lstop;

+		if(@look != 77)	menu "Keep going",Lbrowseclothrep,"I like this one",Lstop;

+}

+