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

1 files changed, 925 insertions, 0 deletions

diff --git a/npc/merchants/refine.txt b/npc/merchants/refine.txt
new file mode 100644
index 000000000..b4fe39112
--- /dev/null
+++ b/npc/merchants/refine.txt
@@ -0,0 +1,925 @@
+//===== Freya Script =========================================

+//= Refining NPCs

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

+//= Syrus22 (1.1)

+//= dafide18 (1.4)

+//= Skotlex (1.5)

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

+//= 1.7

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

+//= Any Freya Version

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

+//= Refining NPCs and Metal Salesmen.

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

+//= 1.0 - by A bunch of people!

+//=       Syrus22 - Completely redid the script using functions... also

+//=       added the option for auto safe refining and multiple refining.

+//= 1.1 - Negative input bug fixed [Lupus]

+//= 1.2 - Added additional reparimen in morroc and payon. Added

+//=       Christopher the blacksmith in Geffen. Edited some dialogue [kobra_k88]

+//= 1.3 - New Payon Locations [Darkchild]

+//=       Corrected zeny subtraction thx to jpnmania77.[kobra_k88]

+//= 1.3a - Temporary corrected an exploit. Need to check sources

+//=        to fully fix bug [Shinigami]

+//=        Fixed repairman prices [shadowlady]

+//=        Fixed bug that skips requirements thanks to sir_loon [massdriller]

+//=        Fixed itemid error thanks to -Vitamin- [massdriller]

+//= 1.4 - check again item in refining procedure to avoid

+//=        hacker that can change item [dafide18]

+//= 1.5 - Fixed crashing due to badly used callfunc's [Skotlex]

+//        Lupus, don't rollback this important fix again! >.<

+//= 1.5a - Corrected an unneeded callfunc, fixed the anti-bot 

+//=       exploit ruining the safe refine loop. [Skotlex]

+//= 1.5b - Fixed Spelling mistakes. [Nexon] 

+//= 1.6	- Replaced all breaks for ends as per the new script engine [Skotlex]

+//= 1.7 - Added Einbroch Refiners (Custom names ^^;) and a duplicated BS Shop. [Poki#3]

+//= 1.8 - Added Lighthalzen Refiners (Custom names again ^^;) [Poki#3]

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

+

+

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

+// Christopher: Geffen Blacksmith

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

+geffen_in.gat,110,172,2	script	Christopher#1::Chris	63,{

+	mes "[Christopher Guillenrow]";

+	mes "Welcome to Christopher's Workshop. Ye can find all yer forging equipment here. So what can I help ye with?";

+	M_Menu:

+	next;

+	menu "Purchase Anvil",M_0, "Purchase Forging Item",M_1, "Purchase Metal",M_2, "Purify Rough Ores",M_3, "Cancel",M_End;

+

+	M_0:

+		mes "[Christopher Guillenrow]";

+		mes "Higher quality Anvils gives ye a better chance ta make better weapons, ye know. But they cost more than yer typical ones.";

+		next;

+		menu "Anvil - 30000z.",sM_Anvil, "Oridecon Anvil - 120000z.",sM_OriAnvil, "Golden Anvil - 300000z.",sM_GolAnvil,

+			"Better Anvil than others",sM_BetAnvil, "Cancel",M_Menu;

+

+		sM_Anvil:

+			if(Zeny < 30000) goto L_NoZeny;

+			mes "[Christopher Guillenrow]";

+			mes "This is the cheapest one but it's very efficient.";

+			set Zeny, Zeny - 30000;

+			getitem 986,1;

+			next;

+			goto L_Thanks;

+		sM_OriAnvil:

+			if(Zeny < 120000) goto L_NoZeny;

+			mes "[Christopher Guillenrow]";

+			mes "Ah! Ye have a good eye for anvils. This here is the proper anvil for a Blacksmith.";

+			set Zeny, Zeny - 120000;

+			getitem 987,1;

+			next;

+			goto L_Thanks;

+		sM_GolAnvil:

+			if(Zeny < 300000) goto L_NoZeny;

+			mes "[Christopher Guillenrow]";

+			mes "This is the best anvil in my workshop! With this ye'll be the best Blasksmith in no time.";

+			set Zeny, Zeny - 300000;

+			getitem 988,1;

+			next;

+			goto L_Thanks;

+		sM_BetAnvil:

+			mes "[Christopher Guillenrow]";

+			mes "I'm sorry but I don't have anything better than a Golden Anvil.";

+			mes "Maybe 'Ringgel' the legendary Anvil maker would have one... but he be a hard fellow ta find.";

+			close;

+

+	M_1:

+		mes "[Christopher Guillenrow]";

+		mes "A respectable Blacksmith uses fine tools. Ye will come ta know my tools as being the finest around!";

+		mes "Choose anything you want.";

+		sM_Menu1:

+		next;

+		menu "Mini-Furnace - 150z.",sM_Furn, "Iron Hammer - 1000z.",sM_IrHam, "Golden Hammer - 3000z.",sM_GldHam,

+		     "Oridecon Hammer - 5000z.",sM_OriHam, "Cancel",M_Menu;

+

+		sM_Furn:

+			mes "[Christopher Guillenrow]";

+			mes "This is a prerequisite for Metal refining!!";

+			mes "So, how many do ye wish to buy? If you want to quit, please input the number '0'. However, you the maximum amount you can buy is 1000";

+			set @input, 0;

+			input @input;

+			next;

+			if(@input < 1 ) goto sM_Menu1;

+			if(@input > 1000 ) goto sM_Max;

+			if(Zeny < 150 * @input) goto L_NoZeny;

+			set Zeny, Zeny - (150 * @input);

+			getitem 612, @input;

+			goto L_Thanks;

+		sM_IrHam:

+			if(Zeny < 1000) goto L_NoZeny;

+			set Zeny, Zeny - 1000;

+			getitem 613,1;

+			goto L_Thanks;

+		sM_GldHam:

+			if(Zeny < 3000) goto L_NoZeny;

+			set Zeny, Zeny - 3000;

+			getitem 614,1;

+			goto L_Thanks;

+		sM_OriHam:

+			if(Zeny < 5000) goto L_NoZeny;

+			set Zeny, Zeny - 5000;

+			getitem 615,1;

+			goto L_Thanks;

+		sM_Max:

+			mes "[Christopher Guillenrow]";

+			mes "Sorry, you can't buy more than 1000 furnace at a time.";

+			close;

+

+	M_2:

+		mes "[Christopher Guillenrow]";

+		mes "I have 2 kinds of metals for sale. Which do ye like?";

+		set @chris, 1;

+		set @name$, "Christopher Guillenrow";

+		callfunc "phramain";

+

+	M_3:

+		mes "[Christopher Guillenrow]";

+		mes "I can purify yer rough Oridecon and rough Elunium ores. I'll need 5 rough ores to make 1 pure one.";

+		mes "Well... which one do ye want ta make?";

+		set @chris, 1;

+		set @name$, "Christopher Guillenrow";

+		callfunc "orimain";

+

+	M_End:

+		close;

+

+	L_NoZeny:

+		mes "[Christopher Guillenrow]";

+		mes "I don't think I can let ye have this at a lower price. I can't afford ta loose profits because of ye.";

+		emotion 4;

+		close;

+

+	L_Thanks:

+		mes "[Christopher Guillenrow]";

+		mes "Thank you for shopping at my workshop. Feel free to come anytime whenever you need.";

+		emotion 15;

+		close;

+}

+

+ein_in01,38,29,6	duplicate(Chris)	Christopher#2	63

+

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

+// Weapon/Armor Refiners

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

+prt_in.gat,63,60,4	script	Hollengrhen	85,{

+	set @name$,"Hollengrhen";

+	callfunc "refinemain";

+	end;

+}

+morocc_in.gat,73,38,4	script	Aragham	99,{

+	set @name$,"Aragham";

+	callfunc "refinemain";

+	end;

+}

+payon.gat,144,173,4	script	Antonio	88,{

+	set @name$,"Antonio";

+	callfunc "refinemain";

+	end;

+}

+alberta_in.gat,28,58,4	script	Fredrik	85,{

+	set @name$,"Fredrik";

+	callfunc "refinemain";

+	end;

+}

+yuno_in01.gat,164,26,6	script	Disturb	88,{

+	set @name$,"Disturb";

+	callfunc "refinemain";

+	end;

+}

+ein_in01.gat,24,87,6	script	Katamo	826,{

+	set @name$,"Katamo";

+	callfunc "refinemain";

+	end;

+}

+lhz_in02.gat,282,20,7	script	Marc	869,{

+	set @name$,"Marc";

+	callfunc "refinemain";

+	end;

+}

+

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

+//= Main Refiner Function

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

+//= To allow auto safe refining/multiple refining set the

+//= @features variable to 1

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

+function	script	refinemain	{

+	set @features,0;

+

+	mes "[" + @name$ + "]";

+	mes "I am the Armsmith... I can refine any weapon or piece of armor you choose!";

+	mes "Which piece of equipment do you want to refine?";

+	M_Menu:

+	next;

+	menu getequipname(1),PART1,getequipname(2),PART2,getequipname(3),PART3,getequipname(4),PART4,getequipname(5),PART5,

+	     getequipname(6),PART6,getequipname(7),PART7,getequipname(8),PART8,getequipname(9),PART9,getequipname(10),PART10;

+

+	//Head Gear

+	PART1:

+		set @part,1;

+		if (getequipisequiped(1)) goto CHECK1;

+		mes "[" + @name$ + "]";

+		mes "Do you want me to refine your dumb brain?";

+		emotion 6;

+		goto M_Menu;

+	//Armor

+	PART2:

+		set @part,2;

+		if (getequipisequiped(2)) goto CHECK1;

+		mes "[" + @name$ + "]";

+		mes "Do you want me to melt your body with blazing heat...?";

+		emotion 6;

+		goto M_Menu;

+	//Left Hand

+	PART3:

+		set @part,3;

+		if (getequipisequiped(3)) goto CHECK1;

+		mes "[" + @name$ + "]";

+		mes "I can't make your left hand into an ultimate weapon...";

+		emotion 4;

+		goto M_Menu;

+	//Right Hand

+	PART4:

+		set @part,4;

+		if (getequipisequiped(4)) goto CHECK1;

+		mes "[" + @name$ + "]";

+		mes "I can't make your right hand into an ultimate weapon...";

+		emotion 4;

+		goto M_Menu;

+	//Garment

+	PART5:

+		set @part,5;

+		if (getequipisequiped(5)) goto CHECK1;

+		mes "[" + @name$ + "]";

+		mes "Look here... you don't have any Garments on...";

+		goto M_Menu;

+	//Foot Gear

+	PART6:

+		set @part,6;

+		if (getequipisequiped(6)) goto CHECK1;

+		mes "[" + @name$ + "]";

+		mes "Ack!! Those are some stinky feet. I definitely can't refine those... uck!!";

+		emotion 16;

+		goto M_Menu;

+	//Accessory1

+	PART7:

+		set @part,7;

+		if (getequipisequiped(7)) goto CHECK1;

+		mes "[" + @name$ + "]";

+		mes "What do you mean by Accessory? Which One?";

+		emotion 20;

+		goto M_Menu;

+	//Accessory2

+	PART8:

+		set @part,8;

+		if (getequipisequiped(8)) goto CHECK1;

+		mes "[" + @name$ + "]";

+		mes "What do you mean by Accessory? Which One?";

+		emotion 20;

+		goto M_Menu;

+	PART9:

+		set @part,9;

+		if (getequipisequiped(9)) goto CHECK1;

+		mes "[" + @name$ + "]";

+		mes "What do you want from me? There's nothing equipped there...";

+		emotion 20;

+		goto M_Menu;

+	PART10:

+		set @part,10;

+		if (getequipisequiped(10)) goto CHECK1;

+		mes "[" + @name$ + "]";

+		mes "What do you want from me? There's nothing equipped there...";

+		emotion 20;

+		goto M_Menu;

+

+//Check if the item is refinable...

+CHECK1:

+	if(getequipisenableref(@part)) goto CHECK2;

+	mes "[" + @name$ + "]";

+	mes "I can't work on this item...";

+	close;

+

+//Check if the item is identified... (Don't know why this is in here... but kept it anyway)

+CHECK2:

+	if(getequipisidentify(@part)) goto CHECK3;

+	mes "[" + @name$ + "]";

+	mes "You must appraise this item first.";

+	close;

+

+//Check to see if the items is already +10

+CHECK3:

+	if(getequiprefinerycnt(@part) < 10) goto REFINE0;

+	mes "[" + @name$ + "]";

+	mes "This weapon is already at its maximum level and can no longer be refined.";

+	close;

+

+//Refine Armor

+REFINE0:

+	set @refineitemid, getequipid(@part); // save id of the item

+	set @refinerycnt, getequiprefinerycnt(@part); //save refinery count

+	if(getequipweaponlv(@part) > 0) goto REFINE1;

+	set @matname$,"Elunium";

+	set @material,985;

+	set @price,2000;

+	set @safe,4;

+	if(@features == 1) goto L_refinefeatures;

+	goto L_refinenormal;

+//Refine Level 1 Weapon

+REFINE1:

+	if(getequipweaponlv(@part) > 1) goto REFINE2;

+	set @matname$,"Phracon";

+	set @material,1010;

+	set @price,50;

+	set @safe,7;

+	if(@features == 1) goto L_refinefeatures;

+	goto L_refinenormal;

+//Refine Level 2 Weapon

+REFINE2:

+	if(getequipweaponlv(@part) > 2) goto REFINE3;

+	set @matname$,"Emveretarcon";

+	set @material,1011;

+	set @price,200;

+	set @safe,6;

+	if(@features == 1) goto L_refinefeatures;

+	goto L_refinenormal;

+//Refine Level 3 Weapon

+REFINE3:

+	if(getequipweaponlv(@part) > 3) goto REFINE4;

+	set @matname$,"Oridecon";

+	set @material,984;

+	set @price,5000;

+	set @safe,5;

+	if(@features == 1) goto L_refinefeatures;

+	goto L_refinenormal;

+//Refine Level 4 Weapon

+REFINE4:

+	set @matname$,"Oridecon";

+	set @material,984;

+	set @price,20000;

+	set @safe,4;

+	if(@features == 1) goto L_refinefeatures;

+	goto L_refinenormal;

+

+L_refinenormal:

+	mes "[" + @name$ + "]";

+	mes "To refine this stuff, I need ^ff9999" + @matname$ + "^000000 and the fee " + @price + " Zeny.";

+	mes "Continue?";

+	next;

+	menu "Yes",-,"No",Lcancel;

+

+		if (getequippercentrefinery(@part) == 100) goto L_Sub;

+		mes "[" + @name$ + "]";

+		mes "Hmm... Hold on! This piece of equipment has already been refined to its maximum safety level.";

+		mes "I must warn you if it is refined ANYMORE, It could be DESTROYED and become USELESS!!";

+		next;

+		mes "["+@name$+"]";

+		mes "Do you still wish you refine it? If so I will not be able to guarantee my work...";

+		next;

+		menu "Yes",-,"No",Lcancel1;

+

+		L_Sub:

+			if ((countitem(@material) < 1) || (Zeny < @price)) goto Lcancel2;

+			delitem @material,1;

+			set Zeny,Zeny-@price;

+

+Lrefine:

+	if (getequipisequiped(@part) == 0) goto LNoItem; // hacker has removed the item (not changed, why?)

+	if (getequipid(@part) != @refineitemid) goto LNoFake; // hacker has changed the item

+	if (getequiprefinerycnt(@part) != @refinerycnt) goto LNoFake; // hacker has changed the item

+	if (getequippercentrefinery(@part) <= rand(100)) goto Lfail;

+	mes "["+@name$+"]";

+	mes "Clang! Clang! Clang!";

+	successrefitem @part;

+	next;

+	mes "["+@name$+"]";

+	mes "HAHA! It seems my skills haven't gotten rusty yet! Splendid... just splendid...";

+	emotion 21;

+	close;

+

+Lfail:

+	mes "[" + @name$ + "]";

+	mes "Clang! Clang! Clang!";

+	failedrefitem @part;

+	next;

+	mes "["+@name$+"]";

+	mes "Aaahhh!! Oh no...!!";

+	emotion 16;

+	next;

+	mes "["+@name$+"]";

+	mes "Eh..Ehem... I'm sorry but the refining process ^ff0000failed^000000.";

+	next;

+	mes "["+@name$+"]";

+	mes "I am deeply ashamed of what I've done... but I DID warn you earlier about the risks.";

+	close;

+

+LNoItem:

+	mes "[" + @name$ + "]";

+	mes "Look here... you don't have any Items on...";

+	close;

+

+LNoFake:

+	mes "[" + @name$ + "]";

+	mes "Clan... No, but Did you imagine I could be so stupid !?!";

+	mes "You have changed it...";

+	mes "Go out before I stun you with my Hammer!!!";

+	close;

+

+Lcancel:

+	mes "[" + @name$ + "]";

+	mes "You said so..Hmm so be it...";

+	close;

+

+Lcancel1:

+	mes "[" + @name$ + "]";

+	mes "Good Choice.";

+	mes "Ah... good choice. I'd feel awful if I'd destroyed another persons piece of equipment with my own hands.";

+	close;

+

+Lcancel2:

+	mes "[" + @name$ + "]";

+	mes "Is that all you got? Unfortunately I can't work for you at a lower price. Try putting yourself in my shoes.";

+	close;

+

+// New Refining Functions ========================

+L_refinefeatures:

+	if(getequiprefinerycnt(@part) >= @safe) goto Lnosafe;

+	mes "[" + @name$ + "]";

+	mes "I can refine this to the safe limit or a desired number of times... it's your choice...";

+	next;

+	menu "To the safe limit please.",Lsafe,"I'll decide how many times.",Lnosafe,"I've changed my mind...",Lcancel;

+

+Lsafe:

+	set @refinecnt,@safe - getequiprefinerycnt(@part);

+	set @fullprice,@price * @refinecnt;

+	mes "[" + @name$ + "]";

+	mes "That will cost you " + @refinecnt + " " + @matname$ + " and " + @fullprice + " Zeny. Is that ok?";

+	next;

+	menu "Yes",-,"No...",Lcancel;

+	if((countitem(@material) < @refinecnt) || (Zeny < @fullprice)) goto Lcancel2;

+	delitem @material,@refinecnt;

+	set Zeny,Zeny - @fullprice;

+	goto L_refinesafe;

+

+Lnosafe:

+	mes "[" + @name$ + "]";

+	mes "So how many times would you like me to refine your item?";

+	next;

+	input @refinecnt;

+	if (@refinecnt<1) goto Lcancel3; //fixed by Lupus

+	set @refinecheck,@refinecnt + getequiprefinerycnt(@part);

+	if(@refinecheck > 10) goto Lcancel3;

+	set @fullprice,@price * @refinecnt;

+	mes "[" + @name$ + "]";

+	mes "This will cost you " + @refinecnt + " " + @matname$ + " and " + @price + " Zeny... Is that ok?";

+	next;

+	menu "Yes...",-,"No...",Lcancel;

+		if(@refinecheck > @safe) goto Lwarn;

+		if((countitem(@material) < @refinecnt) || (Zeny < @fullprice)) goto Lcancel2;

+		delitem @material,@refinecnt;

+		set Zeny,Zeny - @fullprice;

+		goto L_refinenumber;

+		end;

+

+		Lwarn:

+			set @refinecheck,@refinecheck - @safe;

+			mes "[" + @name$ + "]";

+			mes "This will try to refine the equipment " + @refinecheck + " times past the safe limit. Your equipment may be destroyed... is that ok?";

+			next;

+			menu "Yes",-,"No...",Lcancel1;

+				if((countitem(@material) < @refinecnt) || (Zeny < @fullprice)) goto Lcancel2;

+				delitem @material,@refinecnt;

+				set Zeny,Zeny - @fullprice;

+				goto L_refinenumber;

+

+Lcancel3:

+	mes "[" + @name$ + "]";

+	mes "I can't refine this item that many times.";

+	close;

+

+// SubFunction: Safe Refine ---------------------

+L_refinesafe:

+	if (getequipisequiped(@part) == 0) goto LNoItem; // hacker has removed the item (no changed, why?)

+	if (getequipid(@part) != @refineitemid) goto LNoFake; // hacker has changed the item

+	if (getequippercentrefinery(@part) < 100) goto LNoFake; // hacker has changed the item (it is not safe anymore)

+	mes "Clang, clang!!!";

+	successrefitem @part;

+	emotion 21;

+	set @refinecnt,@refinecnt - 1;

+	next;

+	if(@refinecnt == 0) goto Lend;

+	goto L_refinesafe;

+

+	Lend:

+		mes "[" + @name$ + "]";

+		mes "All finished... Come again soon.";

+		close;

+		

+// SubFunction: Refine 

+L_refinenumber:

+	mes "Clang, clang!!!";

+	if (getequippercentrefinery(@part)<=rand(100)) goto Lfail_number;

+	successrefitem @part;

+	emotion 21;

+	set @refinecnt,@refinecnt - 1;

+	next;

+	if(@refinecnt == 0) goto Lend;

+	goto L_refinenumber;

+

+	Lfail_number:

+		failedrefitem @part;

+		emotion 23;

+		mes "[" + @name$ + "]";

+		mes "WAHHHH!!! I'm so sorry... I warned you this could happen...";

+		set @refinecnt,@refinecnt - 1;

+		if(@refinecnt == 0) goto Lend2;

+		mes "Here's the unused Zeny and Material back...";

+		getitem @material,@refinecnt;

+		set @fullprice,@refinecnt * @price;

+		set Zeny,Zeny + @fullprice;

+

+	Lend2:

+		close;

+}

+

+

+

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

+// Material Salesmen

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

+prt_in.gat,56,69,4	script	Vurewell	86,{

+	set @name$,"Vurewell";

+	callfunc "phramain";

+	end;

+}

+payon.gat,145,178,4	script	Begnahd	88,{

+	set @name$,"Begnahd";

+	callfunc "phramain";

+	end;

+}

+morocc_in.gat,65,37,4	script	Sade	99,{

+	set @name$,"Sade";

+	callfunc "phramain";

+	end;

+}

+alberta_in.gat,18,59,5	script	Kahlamanlith	86,{

+	set @name$,"Kahlamanlith";

+	callfunc "phramain";

+	end;

+}

+yuno_in01.gat,171,26,6	script	Dillemat	88,{

+	set @name$,"Dillemat";

+	callfunc "phramain";

+	end;

+}

+ein_in01.gat,15,87,7	script	Gorly	86,{

+	set @name$,"Gorly";

+	callfunc "phramain";

+	end;

+}

+lhz_in02.gat,278,24,3	script	Kato	86,{

+	set @name$,"Kato";

+	callfunc "phramain";

+	end;

+}

+

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

+//= Material Salesmen Functions

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

+function	script	phramain	{

+	if(@chris == 1) goto M_Menu;

+	mes "[" + @name$ + "]";

+	mes "Hello, Im selling metals I just mined.";

+	mes "They are Pharacon and Emvertacon.";

+	mes "Would you like to buy some?";

+	M_Menu:

+	set @chris, 0;

+	next;

+	menu"Pharacon - 200z",PHARA,"Emvertacon - 1000z",EMVER;

+

+	PHARA:

+		set @itemid,1010;

+		set @value,200;

+		goto CONTINUE;

+

+	EMVER:

+		set @itemid,1011;

+		set @value,1000;

+

+CONTINUE:

+	mes "[" + @name$ + "]";

+	mes "How many would you like?";

+	next;

+	input @ammount;

+	if (@ammount <= 0) goto L_BELOW;

+	if (@ammount > 999) goto L_ABOVE;

+	if (zeny < @value * @ammount) goto L_NOZENY;

+	if (checkweight(@itemid,@ammount) == 0) goto L_WEIGHT;

+	getitem @itemid,@ammount;

+	set Zeny,Zeny-@value*@ammount;

+	mes "[" + @name$ + "]";

+	mes "Here you go.";

+	close;

+

+L_NOZENY:

+	mes "You do not have enough zeny!";

+	close;

+L_WEIGHT:

+	mes "You cant hold that many of that item";

+	close;

+L_BELOW:

+	mes "You have to buy a POSITIVE amount of items!";

+	close;

+L_ABOVE:

+	mes "You cant buy this much of this item!";

+	close;

+}

+

+

+

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

+// Ori/Elu Refiners

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

+prt_in.gat,63,69,4	script	Dietrich	84,{

+	set @name$,"Dietrich";

+	callfunc "orimain";

+	end;

+}

+payon.gat,137,178,4	script	Hakhim	88,{

+	set @name$,"Hakhim";

+	callfunc "orimain";

+	end;

+}

+morocc_in.gat,72,32,4	script	Abdul	99,{

+	set @name$,"Abdul";

+	callfunc "orimain";

+	end;

+}

+alberta_in.gat,21,63,5	script	Xenophon	84,{

+	set @name$,"Xenophon";

+	callfunc "orimain";

+	end;

+}

+yuno_in01.gat,171,22,6	script	Delayt	88,{

+	set @name$,"Delayt";

+	callfunc "orimain";

+	end;

+}

+ein_in01.gat,18,82,6	script	Dati	84,{

+	set @name$,"Dati";

+	callfunc "orimain";

+	end;

+}

+lhz_in02.gat,281,24,5	script	Gadamari	84,{

+	set @name$,"Gadamari";

+	callfunc "orimain";

+	end;

+}

+

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

+//= Ori/Elu Functions

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

+function	script	orimain	{

+	if(@chris == 1) goto M_Menu;

+	mes "[" + @name$ + "]";

+	mes "If you bring Rough Oridecons and";

+	mes "Rough Eluniums to me,";

+	mes "I can refine them for you.";

+	mes "However, you must bring 5 of each.";

+	M_Menu:

+	set @chris, 0;

+	next;

+	menu "Make Oridecon",M_Ori, "Make Elunium",M_Elu, "Ask about enchanted stones",M_Stones;

+

+	M_Ori:

+		if(countitem(756) < 5) goto L_NoOri;

+		delitem 756,5;

+		getitem 984,1;

+		mes "[" + @name$ + "]";

+		mes "As promised, here's your oridecon.";

+		mes "Come back again anytime.";

+		close;

+

+		L_NoOri:

+			mes "[" + @name$ + "]";

+			mes "Huh? You're kidding, right? Didn't I say I can't make you an Oridecon unless you bring me 5 rough ones?";

+			close;

+	M_Elu:

+		if(countitem(757) < 5) goto L_NoElu;

+		delitem 757,5;

+		getitem 985,1;

+		mes "[" + @name$ + "]";

+		mes "As promised, here's your elunium.";

+		mes "Come back again anytime.";

+		close;

+

+		L_NoElu:

+			mes "[" + @name$ + "]";

+			mes "Huh? You're kidding, right? Didn't I say I can't make you an Elunium unless you bring me 5 rough ones?";

+			close;

+	M_Stones:

+		mes "[" + @name$ + "]";

+		mes "Enchanted stones, huh...";

+		next;

+		mes "[" + @name$ + "]";

+		mes "Well, in the 20 years that I've been a stone smith I've heard of them many times... though I've never actually seen them before.";

+		next;

+		mes "[" + @name$ + "]";

+		mes "I've been told that enchanted stones possess different elemental properties such as ^5533FFWater, Earth, Fire, and Wind^000000.";

+		next;

+		mes "[" + @name$ + "]";

+		mes "If someone combines an Enchanted Stone with a weapon during the refining process, that weapon will possess the same property as the stone.";

+		next;

+		mes "[" + @name$ + "]";

+		mes "Of course, that person needs to be skillful enough to work on it.";

+		goto M_Menu;

+}

+

+

+

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

+// Equipment Repairmen

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

+prt_in.gat,62,54,2	script	Grendal	84,{

+	set @name$,"Grendal";

+	callfunc "repairmain";

+	end;

+}

+//Temp Spot, Not Sure Where To place

+payon.gat,149,182,2	script	Repairman	88,{

+	set @name$,"Repairman";

+	callfunc "repairmain";

+	end;

+}

+morocc_in.gat,71,40,2	script	Repairman	99,{

+	set @name$,"Repairman";

+	callfunc "repairmain";

+	end;

+}

+lhz_in02.gat,284,14,3	script	Repairman	86,{

+	set @name$,"Repairman";

+	callfunc "repairmain";

+	end;

+}

+

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

+//= Equipment Repair Function

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

+function	script	repairmain	{

+	set @repairprice,5000;

+	mes "[" + @name$ + "]";

+	mes "I am the Repair Smith and I can repair any Arms you want.";

+	mes "Tell me which Equipment you want to repair.";

+	set @broken1,getbrokenid(1);

+	set @broken2,getbrokenid(2);

+	set @broken3,getbrokenid(3);

+	set @broken4,getbrokenid(4);

+	set @broken5,getbrokenid(5);

+	set @broken6,getbrokenid(6);

+	set @broken7,getbrokenid(7);

+	set @broken8,getbrokenid(8);

+	set @broken9,getbrokenid(9);

+	set @broken10,getbrokenid(10);

+	next;

+	if(@broken1==NULL) goto L_CANCEL_3;

+	menu getitemname(@broken1),REPAIR1,getitemname(@broken2),REPAIR2,getitemname(@broken3),REPAIR3,

+		getitemname(@broken4),REPAIR4,getitemname(@broken5),REPAIR5,getitemname(@broken6),REPAIR6,

+		getitemname(@broken7),REPAIR7,getitemname(@broken8),REPAIR8,getitemname(@broken9),REPAIR9,

+		getitemname(@broken10),REPAIR10;

+	REPAIR1:

+		mes "[" + @name$ + "]";

+		mes "You're gonna repair " + getitemname(@broken1) + ".";

+		mes "To repair this, I need ^ff9999One Steel^000000, and " + @repairprice + " Zeny.";

+		mes "Continue?";

+		next;

+		menu "Yes",-,"No",L_CANCEL_2;

+		if (countitem(999) < 1 || Zeny < @repairprice) goto L_CANCEL_1;

+			delitem 999,1;

+			set Zeny,Zeny-@repairprice;

+			repair(1);

+			goto L_CLOSE;

+	REPAIR2:

+		mes "[" + @name$ + "]";

+		mes "You're gonna repair " + getitemname(@broken1) + ".";

+		mes "To repair this, I need ^ff9999One Steel^000000, and " + @repairprice + " Zeny.";

+		mes "Continue?";

+		next;

+		menu "Yes",-,"No",L_CANCEL_2;

+		if (countitem(999) < 1 || Zeny < @repairprice) goto L_CANCEL_1;

+			delitem 999,1;

+			set Zeny,Zeny-@repairprice;

+			repair(2);

+			goto L_CLOSE;

+	REPAIR3:

+		mes "[" + @name$ + "]";

+		mes "You're gonna repair " + getitemname(@broken1) + ".";

+		mes "To repair this, I need ^ff9999One Steel^000000, and " + @repairprice + " Zeny.";

+		mes "Continue?";

+		next;

+		menu "Yes",-,"No",L_CANCEL_2;

+		if (countitem(999) < 1 || Zeny < @repairprice) goto L_CANCEL_1;

+			delitem 999,1;

+			set Zeny,Zeny-@repairprice;

+			repair(3);

+			goto L_CLOSE;

+	REPAIR4:

+		mes "[" + @name$ + "]";

+		mes "You're gonna repair " + getitemname(@broken1) + ".";

+		mes "To repair this, I need ^ff9999One Steel^000000, and " + @repairprice + " Zeny.";

+		mes "Continue?";

+		next;

+		menu "Yes",-,"No",L_CANCEL_2;

+		if (countitem(999) < 1 || Zeny < @repairprice) goto L_CANCEL_1;

+			delitem 999,1;

+			set Zeny,Zeny-@repairprice;

+			repair(4);

+			goto L_CLOSE;

+	REPAIR5:

+		mes "[" + @name$ + "]";

+		mes "You're gonna repair " + getitemname(@broken1) + ".";

+		mes "To repair this, I need ^ff9999One Steel^000000, and " + @repairprice + " Zeny.";

+		mes "Continue?";

+		next;

+		menu "Yes",-,"No",L_CANCEL_2;

+		if (countitem(999) < 1 || Zeny < @repairprice) goto L_CANCEL_1;

+			delitem 999,1;

+			set Zeny,Zeny-@repairprice;

+			repair(5);

+			goto L_CLOSE;

+	REPAIR6:

+		mes "[" + @name$ + "]";

+		mes "You're gonna repair " + getitemname(@broken1) + ".";

+		mes "To repair this, I need ^ff9999One Steel^000000, and " + @repairprice + " Zeny.";

+		mes "Continue?";

+		next;

+		menu "Yes",-,"No",L_CANCEL_2;

+		if (countitem(999) < 1 || Zeny < @repairprice) goto L_CANCEL_1;

+			delitem 999,1;

+			set Zeny,Zeny-@repairprice;

+			repair(6);

+			goto L_CLOSE;

+	REPAIR7:

+		mes "[" + @name$ + "]";

+		mes "You're gonna repair " + getitemname(@broken1) + ".";

+		mes "To repair this, I need ^ff9999One Steel^000000, and " + @repairprice + " Zeny.";

+		mes "Continue?";

+		next;

+		menu "Yes",-,"No",L_CANCEL_2;

+		if (countitem(999) < 1 || Zeny < @repairprice) goto L_CANCEL_1;

+			delitem 999,1;

+			set Zeny,Zeny-@repairprice;

+			repair(7);

+			goto L_CLOSE;

+	REPAIR8:

+		mes "[" + @name$ + "]";

+		mes "You're gonna repair " + getitemname(@broken1) + ".";

+		mes "To repair this, I need ^ff9999One Steel^000000, and " + @repairprice + " Zeny.";

+		mes "Continue?";

+		next;

+		menu "Yes",-,"No",L_CANCEL_2;

+		if (countitem(999) < 1 || Zeny < @repairprice) goto L_CANCEL_1;

+			delitem 999,1;

+			set Zeny,Zeny-@repairprice;

+			repair(8);

+			goto L_CLOSE;

+	REPAIR9:

+		mes "[" + @name$ + "]";

+		mes "You're gonna repair " + getitemname(@broken1) + ".";

+		mes "To repair this, I need ^ff9999One Steel^000000, and " + @repairprice + " Zeny.";

+		mes "Continue?";

+		next;

+		menu "Yes",-,"No",L_CANCEL_2;

+		if (countitem(999) < 1 || Zeny < @repairprice) goto L_CANCEL_1;

+			delitem 999,1;

+			set Zeny,Zeny-@repairprice;

+			repair(9);

+			goto L_CLOSE;

+	REPAIR10:

+		mes "[" + @name$ + "]";

+		mes "You're gonna repair " + getitemname(@broken1) + ".";

+		mes "To repair this, I need ^ff9999One Steel^000000, and " + @repairprice + " Zeny.";

+		mes "Continue?";

+		next;

+		menu "Yes",-,"No",L_CANCEL_2;

+		if (countitem(999) < 1 || Zeny < @repairprice) goto L_CANCEL_1;

+			delitem 999,1;

+			set Zeny,Zeny-@repairprice;

+			repair(10);

+			goto L_CLOSE;

+

+L_CANCEL_1:

+	mes "[" + @name$ + "]";

+	mes "Is it all you got?";

+	mes "Unfortunately, I have kids to feed...";

+	goto L_CLOSE;

+L_CANCEL_2:

+	mes "[" + @name$ + "]";

+	mes "Ok, but don't expect to be using that...";

+	goto L_CLOSE;

+L_CANCEL_3:

+	mes "[" + @name$ + "]";

+	mes "Looks like you don't need anything repaired today...";

+	goto L_CLOSE;

+L_CLOSE:

+	close;

+}