From 195dffc20af1fb32c7e4119988911b72955aeabc Mon Sep 17 00:00:00 2001 From: "(no author)" <(no author)@54d463be-8e91-2dee-dedb-b68131a5f0ec> Date: Thu, 4 Nov 2004 23:25:09 +0000 Subject: git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/athena@2 54d463be-8e91-2dee-dedb-b68131a5f0ec --- npc/merchants/custom/breeder.txt | 67 +++++++++++++++ npc/merchants/custom/dye.txt | 176 +++++++++++++++++++++++++++++++++++++++ 2 files changed, 243 insertions(+) create mode 100644 npc/merchants/custom/breeder.txt create mode 100644 npc/merchants/custom/dye.txt (limited to 'npc/merchants/custom') 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; +} + -- cgit v1.2.3-70-g09d2