//===== rAthena Script ======================================= 
//= Mora Village Enchantment
//===== By: ================================================== 
//= SuperHulk
//===== Current Version: ===================================== 
//= 1.0
//===== Compatible With: ===================================== 
//= rAthena SVN
//===== Description: ========================================= 
//= Mora Enchants.
//===== Additional Comments: ================================= 
//= 1.0 First Version. [SuperHulk]
//============================================================ 
//=========== Enchantements ====================
mora,124,82,4	script	Artifact Collector#mora	522,{
	mes "[Artifact Collector]";
	mes "Bienvenue, je collecte les anciennes piËces de certains equipements de Mora et les Èchange contre des equipements bien plus puissant et plus neuf.";
	next;
	mes "[Artifact Collector]";
	mes "Je suis en ce moment ‡ la recherche des piËces suivantes :";
	mes "^0000FFGolden Rod Staff^000000";
	mes "^0000FFAqua Staff^000000";
	mes "^0000FFCrimson Staff^000000";
	mes "^0000FFForest Staff^000000";
	mes "^0000FFWand of Affection^000000";
	mes "^0000FFMace of Judgement^000000";
	next;
	mes "[Artifact Collector]";
	mes "Je les Èchange gratuitement contre leur Èquivalent plus rÈcent et respÈctif :";
	mes "^0000FFEmpowered Golden Rod Staff^000000";
	mes "^0000FFEmpowered Aqua Staff^000000";
	mes "^0000FFEmpowered Crimson Staff^000000";
	mes "^0000FFEmpowered Forest Staff^000000";
	mes "^0000FFEmpowered Wand of Affection^000000";
	mes "^0000FFEmpowered Mace of Judgement^000000";
	next;
	mes "[Artifact Collector]";
	mes "Si jamais vous avez des anciennes piËces du genre et que vous souhaitez en obtenir des plus neuves et plus puissantes, venez me les Èchanger!";
	next;
	switch(select("Echanger des equipements.:Annuler.")) {
	case 1:
	mes "[Artifact Collector]";
	mes "Vous avez des equipements correspondants ‡ ceux que j'ai citÈ? C'est super!";
	mes "Quel equipement souhaitez-vous m'Èchanger?";
	next;
	switch(select("Golden Rod Staff.:Aqua Staff.:Crimson Staff.:Forest Staff.:Wand of Affection.:Mace of Judgement.:Annuler.")) {
	case 1:
	set @item_got,2007;
	set @item_get,2011;
	goto L_exchange;
	case 2:
	set @item_got,2008;
	set @item_get,2012;
	goto L_exchange;
	case 3:
	set @item_got,2009;
	set @item_get,2013;
	goto L_exchange;
	case 4:
	set @item_got,2010;
	set @item_get,2014;
	goto L_exchange;
	case 5:
	set @item_got,1657;
	set @item_get,1660;
	goto L_exchange;
	case 6:
	set @item_got,16013;
	set @item_get,16018;
	goto L_exchange;
	case 7:
	goto L_quit;
	}
	case 2:
	goto L_quit;
	}
	
	L_exchange:
	mes "[Artifact Collector]";
	mes "Vous avez un ^FF0000"+getitemname(@item_got)+"^000000? C'est formidable!";
	mes "Voulez-vous vraiment Èchanger votre ^FF0000"+getitemname(@item_got)+"^000000 contre ^0000FF"+getitemname(@item_get)+"^000000?";
	next;
	if(select("Echanger l'equipement.","Annuler.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Collector]";
	mes "Vous souhaitez donc m'Èchanger votre ^FF0000"+getitemname(@item_got)+"^000000 c'est bien cela?";
	next;
	if(select("ProcÈder ‡ l'Èchange.","Annuler le deal.") == 2) {
	goto L_quit;
	}
	if(countitem(@item_got) < 1)
	{
	mes "[Artifact Collector]";
	mes "Malheureusement, vous ne semblez pas avoir cet item dans votre inventaire ou sur vous...";
	next;
	mes "[Artifact Collector]";	
	mes "Revenez me voir quand vous aurez avec vous votre ^FF0000"+getitemname(@item_got)+"^000000.";
	next;
	mes "[Artifact Collector]";
	mes "Passez une bonne journÈe!";
	close;
	}
	if(countitem(@item_got) > 1)
	{
	mes "[Artifact Collector]";
	mes "Malheureusement, vous avez deux objets identiques sur vous...";
	next;
	mes "[Artifact Collector]";	
	mes "J'ai du mal a savoir quel ^FF0000"+getitemname(@item_got)+"^000000 enchanter.";
	next;
	mes "[Artifact Collector]";
	mes "Prenez en un seul et revenez me voir, passez une bonne journÈe!";
	close;
	}
	getitem @item_get,1;
	delitem @item_got,1;
	mes "[Artifact Collector]";
	mes "Merci de m'avoir donnÈ votre ^FF0000"+getitemname(@item_got)+"^000000!";
	mes "En Èchange, je vous offre une version amÈliorÈ de cette antiquitÈ :";
	mes "^0000FF"+getitemname(@item_get)+"^000000.";
	next;
	mes "[Artifact Collector]";
	mes "Prenez soin de cet objet, s'il vous plaÓt! Passez une bonne journÈe et n'hÈsitez pas ‡ revenir me voir si vous souhaitez Èchanger d'autres items du genre!";
	close;
	

	L_quit:
	mes "[Artifact Collector]";
	mes "D'accord, revenez me voir si jamais vous changez d'avis et que vous souhaitez m'Èchanger un objet!";
	close;
}
//===========================
//====ARTIFACT RESEARCHER====
//===========================
mora,148,98,5	script	Artifact Researcher	521,{
mes "[Artifact Researcher]";
mes "Bienvenue, je peux enchanter les equipements de certaines classes.";
next;
mes "[Artifact Researcher]";
mes "Nous, les fÈes de Splendide avons des pouvoirs bien spÈcifiques ‡ l'enchantement. Je me suis installÈe ici ‡ Mora pour vendre mes services d'enchantement aux equipements des classes Rune Knight, Guillotine Cross et Ranger.";
next;
mes "[Artifact Researcher]";
mes "Voulez-vous enchanter un equipement? Si oui, ‡ quelle classe appartient l'Èquipement?";
next;
switch(select("Guillotine Cross.:Ranger.:Rune Knight.:Non Merci.")) {
case 1:
goto L_glt;
case 2:
goto L_ra;
case 3:
goto L_rk;
case 4:
goto L_quit;
}
//===========================RUNE KNIGHT ENCHANTMENTS===================================
//=================================BY SUPERHULK=========================================
L_rk:
mes "[Artifact Researcher]";
mes "Vous voulez enchanter un equipement qui appartiendrait ‡ la classe Rune Knight. Ces equipements sont particuliËrement puissant une fois enchantÈ.";
next;
mes "[Artifact Researcher]";
mes "Pouvez vous me dire de quel type d'equipement s'agit-il?";
next;
switch(select("Armure.:Footgear.:Garment.:Accessoire.:Annuler.")) {
case 1:
set .@enchant_type,2;
goto L_rk_armure;
case 2:
set .@enchant_type,6;
goto L_rk_footgear;
case 3:
set .@enchant_type,5;
goto L_rk_garment;
case 4:
goto L_rk_access;
case 5:
goto L_quit;
}

L_rk_armure:
mes "[Artifact Researcher]";
mes "Vous voulez enchanter une armure, je vois. Les armures que je peux enchanter sont ^0000FFUr's Plate^000000 et ^0000FFPeuz's Plate^000000.";
next;
mes "[Artifact Researcher]";
mes "Ces armures peuvent Ítre enchantÈes trois fois maximum. Le premier enchantement a un taux de rÈussite de 100% tandis que les deuxiËme et troisiËme sont plus difficile ‡ rÈaliser.";
next;
mes "[Artifact Researcher]";
mes "En effet, le deuxiËme enchantement a ^FF000060%^000000 de chance d'aboutir. Tandis que si vous souhaitez par la suite procÈder ‡ un troisiËme enchantement, il n'aura que ^FF000030%^000000 de chance d'aboutir.";
next;
mes "[Artifact Researcher]";
mes "Si jamais l'enchantement Èchoue, pas de panique votre equipement ne sera pas cassÈ mais vous perdrez tous les enchantements fait auparavant. Alors faites bien votre choix car je ne serais pas rÈsponsable de vos actes.";
next;
mes "[Artifact Researcher]";
mes "Si votre armure est raffinÈe ‡ +9, je vous proposerais deux options diffÈrentes avant de procÈder ‡ l'enchantement. Il est plus facile de modifier la faÁon d'enchanter un equipement quand il est plus solide.";
next;
mes "[Artifact Researcher]";
mes "Pour chaque enchantement, les frais de service sont ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000";
next;
mes "[Artifact Researcher]";
mes "Il faut aussi que l'equipement ‡ enchanter soit ÈquipÈ sur vous pour que cela fonctionne et que la puissance se mÍle ‡ votre esprit.";
next;
mes "[Artifact Researcher]";
mes "Maintenant, si vous voulez bien. Pouvez-vous me dire quel equipement vous souhaitez enchanter?";
next;
switch(select("Ur's Plate.:Peuz's Plate.:Annuler.")) {
case 1:
set .@enchant_item,15036;
goto L_normal_rk_armor;
case 2:
set .@enchant_item,15037;
goto L_normal_rk_armor;
case 3:
goto L_quit;
}

L_rk_footgear:
mes "[Artifact Researcher]";
mes "Vous voulez enchanter vos shoes, je vois. Les shoes que je peux enchanter sont ^0000FFUr's Greaves^000000 et ^0000FFPeuz's Greaves^000000.";
next;
mes "[Artifact Researcher]";
mes "Ces shoes peuvent Ítre enchantÈes trois fois maximum. Le premier enchantement a un taux de rÈussite de 100% tandis que les deuxiËme et troisiËme sont plus difficile ‡ rÈaliser.";
next;
mes "[Artifact Researcher]";
mes "En effet, le deuxiËme enchantement a ^FF000060%^000000 de chance d'aboutir. Tandis que si vous souhaitez par la suite procÈder ‡ un troisiËme enchantement, il n'aura que ^FF000030%^000000 de chance d'aboutir.";
next;
mes "[Artifact Researcher]";
mes "Si jamais l'enchantement Èchoue, pas de panique votre equipement ne sera pas cassÈ mais vous perdrez tous les enchantements fait auparavant. Alors faites bien votre choix car je ne serais pas rÈsponsable de vos actes.";
next;
mes "[Artifact Researcher]";
mes "Si vos shoes sont raffinÈes ‡ +9, je vous proposerais deux options diffÈrentes avant de procÈder ‡ l'enchantement. Il est plus facile de modifier la faÁon d'enchanter un equipement quand il est plus solide.";
next;
mes "[Artifact Researcher]";
mes "Pour chaque enchantement, les frais de service sont ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000";
next;
mes "[Artifact Researcher]";
mes "Il faut aussi que l'equipement ‡ enchanter soit ÈquipÈ sur vous pour que cela fonctionne et que la puissance se mÍle ‡ votre esprit.";
next;
mes "[Artifact Researcher]";
mes "Maintenant, si vous voulez bien. Pouvez-vous me dire quel equipement vous souhaitez enchanter?";
next;
switch(select("Ur's Greaves.:Peuz's Greaves.:Annuler.")) {
case 1:
set .@enchant_item,2475;
goto L_rk_foot;
case 2:
set .@enchant_item,2476;
goto L_rk_foot;
case 3:
goto L_quit;
}

L_rk_garment:
mes "[Artifact Researcher]";
mes "Vous voulez enchanter votre garment, je vois. Les garments que je peux enchanter sont ^0000FFUr's Manteau^000000 et ^0000FFPeuz's Manteau^000000.";
next;
mes "[Artifact Researcher]";
mes "Ces garments peuvent Ítre enchantÈs trois fois maximum. Le premier enchantement a un taux de rÈussite de 100% tandis que les deuxiËme et troisiËme sont plus difficile ‡ rÈaliser.";
next;
mes "[Artifact Researcher]";
mes "En effet, le deuxiËme enchantement a ^FF000060%^000000 de chance d'aboutir. Tandis que si vous souhaitez par la suite procÈder ‡ un troisiËme enchantement, il n'aura que ^FF000030%^000000 de chance d'aboutir.";
next;
mes "[Artifact Researcher]";
mes "Si jamais l'enchantement Èchoue, pas de panique votre equipement ne sera pas cassÈ mais vous perdrez tous les enchantements fait auparavant. Alors faites bien votre choix car je ne serais pas rÈsponsable de vos actes.";
next;
mes "[Artifact Researcher]";
mes "Si votre garment est raffinÈ ‡ +9, je vous proposerais deux options diffÈrentes avant de procÈder ‡ l'enchantement. Il est plus facile de modifier la faÁon d'enchanter un equipement quand il est plus solide.";
next;
mes "[Artifact Researcher]";
mes "Pour chaque enchantement, les frais de service sont ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000";
next;
mes "[Artifact Researcher]";
mes "Il faut aussi que l'equipement ‡ enchanter soit ÈquipÈ sur vous pour que cela fonctionne et que la puissance se mÍle ‡ votre esprit.";
next;
mes "[Artifact Researcher]";
mes "Maintenant, si vous voulez bien. Pouvez-vous me dire quel equipement vous souhaitez enchanter?";
next;
switch(select("Ur's Manteau.:Peuz's Manteau.:Annuler.")) {
case 1:
set .@enchant_item,2574;
goto L_rk_garm;
case 2:
set .@enchant_item,2575;
goto L_rk_garm;
case 3:
goto L_quit;
}

L_rk_access:
mes "[Artifact Researcher]";
mes "Vous voulez enchanter un accÈssoire, je vois. Les accÈssoires que je peux enchanter sont ^0000FFUr's Seal^000000 et ^0000FFPeuz's Seal^000000.";
next;
mes "[Artifact Researcher]";
mes "Ces accÈssoires peuvent Ítre enchantÈs deux fois maximum. Le premier enchantement a un taux de reussite de ^0000FF100%^000000 et le deuxiËme de ^0000FF60%^000000.";
next;
mes "[Artifact Researcher]";
mes "Pour chaque enchantement, les frais de service sont ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000";
next;
mes "[Artifact Researcher]";
mes "Il faut aussi que l'equipement ‡ enchanter soit ÈquipÈ sur vous pour que cela fonctionne et que la puissance se mÍle ‡ votre esprit.";
next;
mes "[Artifact Researcher]";
mes "Maintenant, si vous voulez bien. Pouvez-vous me dire quel equipement vous souhaitez enchanter?";
next;
switch(select("Ur's Seal.:Peuz's Seal.:Annuler.")) {
case 1:
set .@enchant_item,2883;
goto L_rk_seal;
case 2:
set .@enchant_item,2884;
goto L_rk_seal;
case 3:
goto L_quit;
}
	
	L_rk_seal:
	mes "[Artifact Researcher]";
	mes "Okay, nous allons pouvoir commencer la cÈrÈmonie d'enchantement...";
	mes "Vous voulez donc enchanter l'objet ^FF0000"+getitemname(.@enchant_item)+"^000000... C'est bien ce que vous m'avez dit?";
	next;
	mes "[Artifact Researcher]";
	mes "J'avais oubliÈ de vous le prÈciser, si vous avez des cartes, cela sera perdu.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors, je dois vous poser cette question avant de commencer.";
	mes "Souhaitez-vous poursuivre la procÈdure d'enchantement?";
	next;
	if(select("Commencer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "Ok. Je vous le signale encore une fois, chaque enchantement co˚te ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000.";
	mes "CommenÁons la procÈdure d'enchantement si vous voulez bien...";
	next;
	if(countitem(.@enchant_item) > 1)
	{
	mes "==Information==";
	mes "Vous devez avoir 1 seul objet sur vous pour que l'enchantement soit possible.";
	next;
	mes "==Information==";
	mes "Veuillez rÈessayer ultÈrieurement.";
	close;
	}
	if(isequipped(.@enchant_item)) {
	if(.@enchant_item == 2883) {
	if(getequipid(7) == 2883) set .@enchant_type,7;
	else set.@enchant_type,8;
	}
	if(.@enchant_item == 2884) {
	if(getequipid(7) == 2884) set .@enchant_type,7;
	else set.@enchant_type,8;
	}
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card3 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ cet objet deux fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet.";
	close;
	}
	else if(.@card4 >=1)
	{
	switch(rand(1,8)) {
	case 1:
	set .@enchant_card,4700;
	break;
	case 2:
	set .@enchant_card,4740;
	break;
	case 3:
	set .@enchant_card,4730;
	break;
	case 4:
	set .@enchant_card,4720;
	break;
	case 5:
	set .@enchant_card,4793;
	break;
	case 6:
	set .@enchant_card,4788;
	break;
	case 7:
	set .@enchant_card,4802;
	break;
	case 8:
	set .@enchant_card,4797;
	break;
	}
	goto L_rk_seal_2nd;
	}
	else
	{
	switch(rand(1,8)) {
	case 1:
	set .@enchant_card,4700;
	break;
	case 2:
	set .@enchant_card,4740;
	break;
	case 3:
	set .@enchant_card,4730;
	break;
	case 4:
	set .@enchant_card,4720;
	break;
	case 5:
	set .@enchant_card,4792;
	break;
	case 6:
	set .@enchant_card,4787;
	break;
	case 7:
	set .@enchant_card,4801;
	break;
	case 8:
	set .@enchant_card,4796;
	break;
	}
	goto L_rk_seal_1st;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Pouvez-vous equiper le ^FF0000"+getitemname(.@enchant_item)+"^000000 sur vous, sinon je ne peux pas procÈder ‡ l'enchantement. Merci.";
	close;
	}
	
	L_rk_seal_1st:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet accÈssoire est encore pure, nous allons alors procÈder ‡ la cÈrÈmonie d'enchantement comme il se doit.";
	next;
	mes "[Artifact Researcher]";
	mes "La cÈrÈmonie va pouvoir commencer, j'espËre que l'enchantement que en sortira vous conviendra!";
	next;
	specialeffect EF_SANCTUARY;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, .@enchant_card;
	mes "[Artifact Researcher]";
	mes "L'enchantement de cet accÈssoire est terminÈ! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_rk_seal_2nd:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet accÈssoire a dÈj‡ enchantÈ une fois alors vous connaissez les risques auxquel vous vous engagez?";
	next;
	mes "[Artifact Researcher]";
	mes "L'enchantement a environ ^FF000060%^000000 de chance d'aboutir! Si l'enchantement Èchoue, pas de panique votre accÈssoire ne sera pas cassÈ mais vous le retrouverez ‡ l'Ètat pure.";
	next;
	mes "[Artifact Researcher]";
	mes "C'est ‡ dire que les enchantements,cartes seront supprimÈs si jamais la cÈrÈmonie Èchoue.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors je dois vous poser cette question.  tes-vous s˚r de vouloir procÈder ‡ l'enchantement, je vous promet de faire le meilleur.";
	next;
	if(select("Continuer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "TrËs bien, continuons la cÈrÈmonie... Et commenÁons l'enchantement dËs maintenant!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	if(rand(100)>60)
	{	
	specialeffect 155;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, 0;
	mes "[Artifact Researcher]";
	mes "Je suis vraiment dÈsolÈe! L'enchantement ‡ ÈchouÈ...";
	next;
	mes "[Artifact Researcher]";
	mes "Je ne pensais pas que la ^FF0000"+getitemname(.@enchant_item)+"^000000 Ètait aussi fragile...";
	next;
	mes "[Artifact Researcher]";
	mes "Encore dÈsolÈe... N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez rÈessayer.";
	next;
	mes "[Artifact Researcher]";
	mes "Passez une bonne journÈe jeune aventurier~";
	close;
	}
	else
	{
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, .@enchant_card, .@card4;
	mes "[Artifact Researcher]";
	mes "L'enchantement a reussi! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_rk_garm:
	mes "[Artifact Researcher]";
	mes "Okay, nous allons pouvoir commencer la cÈrÈmonie d'enchantement...";
	mes "Vous voulez donc enchanter l'objet ^FF0000"+getitemname(.@enchant_item)+"^000000... C'est bien ce que vous m'avez dit?";
	next;
	mes "[Artifact Researcher]";
	mes "J'avais oubliÈ de vous le prÈciser, si vous avez des cartes, cela sera perdu.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors, je dois vous poser cette question avant de commencer.";
	mes "Souhaitez-vous poursuivre la procÈdure d'enchantement?";
	next;
	if(select("Commencer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "Ok. Je vous le signale encore une fois, chaque enchantement co˚te ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000.";
	mes "CommenÁons la procÈdure d'enchantement si vous voulez bien...";
	next;
	if(countitem(.@enchant_item) > 1)
	{
	mes "==Information==";
	mes "Vous devez avoir 1 seul objet sur vous pour que l'enchantement soit possible.";
	next;
	mes "==Information==";
	mes "Veuillez rÈessayer ultÈrieurement.";
	close;
	}
	if(isequipped(.@enchant_item)) {
	if(getequiprefinerycnt(.@enchant_type) >= 9) {
	mes "[Artifact Researcher]";
	mes "Votre equipement est raffinÈ ‡ au moins ^FF0000+9^000000.";
	mes "Vous pouvez alors choisir une option d'enchantement vu la soliditÈ de vos chaussures.";
	next;
	mes "[Artifact Researcher]";
	mes "Je peux vous proposer deux options pour cet enchantement. Faites votre choix.";
	next;
	switch(select("Esquive.:Puissance.:Annuler.")) {
	case 1:
	goto L_rk_garm_ability;
	case 2:
	goto L_rk_garm_puissance;
	case 3:
	goto L_quit;
	}
	}
	else
	{
	switch(rand(1,9)) {
	case 1:
	set .@enchant_card,4700;
	break;
	case 2:
	set .@enchant_card,4730;
	break;
	case 3:
	set .@enchant_card,4731;
	break;
	case 4:
	set .@enchant_card,4732;
	break;
	case 5:
	set .@enchant_card,4750;
	break;
	case 6:
	set .@enchant_card,4751;
	break;
	case 7:
	set .@enchant_card,4752;
	break;
	case 8:
	set .@enchant_card,4859;
	break;
	case 9:
	set .@enchant_card,4860;
	break;
	}
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet.";
	close;
	}
	else if(.@card3 >=1)
	goto L_rk_garm_3rd;
	else if(.@card4 >=1)
	goto L_rk_garm_2nd;
	else 
	goto L_rk_garm_1st;
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Pouvez-vous mettre le ^FF0000"+getitemname(.@enchant_item)+"^000000 sur vous, sinon je ne peux pas procÈder ‡ l'enchantement. Merci.";
	close;
	}
	
	L_rk_garm_ability:
	mes "[Artifact Researcher]";
	mes "Vous avez choisi l'option Esquive.  tes-vous s˚r de votre choix?";
	next;
	if(select("Bien s˚r.","Non, je vais rÈflÈchir.") == 2) {
	goto L_quit;
	}
	switch(rand(1,6)) {
	case 1:
	set .@enchant_card,4730;
	break;
	case 2:
	set .@enchant_card,4732;
	break;
	case 3:
	set .@enchant_card,4751;
	break;
	case 4:
	set .@enchant_card,4752;
	break;
	case 5:
	set .@enchant_card,4753;
	break;
	case 6:
	set .@enchant_card,4754;
	break;
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet il semble avoir atteint son enchantement maximal.";
	close;
	}
	else if(.@card3 >=1)
	goto L_rk_garm_3rd;
	else if(.@card4 >=1)
	goto L_rk_garm_2nd;
	else 
	goto L_rk_garm_1st;
	
	L_rk_garm_puissance:
	mes "[Artifact Researcher]";
	mes "Vous avez choisi l'option Puissance.  tes-vous s˚r de votre choix?";
	next;
	if(select("Bien s˚r.","Non, je vais rÈflÈchir.") == 2) {
	goto L_quit;
	}
	switch(rand(1,7)) {
	case 1:
	set .@enchant_card,4741;
	break;
	case 2:
	set .@enchant_card,4742;
	break;
	case 3:
	set .@enchant_card,4791;
	break;
	case 4:
	set .@enchant_card,4794;
	break;
	case 5:
	set .@enchant_card,4797;
	break;
	case 6:
	set .@enchant_card,4798;
	break;
	case 7:
	set .@enchant_card,4799;
	break;
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ ce Manteau trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet il semble avoir atteint son enchantement maximal.";
	close;
	}
	else if(.@card3 >=1)
	goto L_rk_garm_3rd;
	else if(.@card4 >=1)
	goto L_rk_garm_2nd;
	else 
	goto L_rk_garm_1st;
	
	L_rk_garm_1st:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Ce manteau est encore pure, nous allons alors procÈder ‡ la cÈrÈmonie d'enchantement comme il se doit.";
	next;
	mes "[Artifact Researcher]";
	mes "La cÈrÈmonie va pouvoir commencer, j'espËre que l'enchantement que en sortira vous conviendra!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, .@enchant_card;
	mes "[Artifact Researcher]";
	mes "L'enchantement du manteau est terminÈ! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_rk_garm_2nd:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Ce manteau a dÈj‡ enchantÈ une fois alors vous connaissez les risques auxquel vous vous engagez?";
	next;
	mes "[Artifact Researcher]";
	mes "L'enchantement a environ ^FF000060%^000000 de chance d'aboutir! Si l'enchantement Èchoue, pas de panique votre garment ne sera pas cassÈ mais vous le retrouverez ‡ l'Ètat pure.";
	next;
	mes "[Artifact Researcher]";
	mes "C'est ‡ dire que les enchantements,cartes seront supprimÈs si jamais la cÈrÈmonie Èchoue.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors je dois vous poser cette question.  tes-vous s˚r de vouloir procÈder ‡ l'enchantement, je vous promet de faire le meilleur.";
	next;
	if(select("Continuer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "TrËs bien, continuons la cÈrÈmonie... Et commenÁons l'enchantement dËs maintenant!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	if(rand(100)>60)
	{
	specialeffect 155;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, 0;
	mes "[Artifact Researcher]";
	mes "Je suis vraiment dÈsolÈe! L'enchantement ‡ ÈchouÈ...";
	next;
	mes "[Artifact Researcher]";
	mes "Je ne pensais pas que la ^FF0000"+getitemname(.@enchant_item)+"^000000 Ètait aussi fragile...";
	next;
	mes "[Artifact Researcher]";
	mes "Encore dÈsolÈe... N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez rÈessayer.";
	next;
	mes "[Artifact Researcher]";
	mes "Passez une bonne journÈe jeune aventurier~";
	close;
	}
	else
	{
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, .@enchant_card, .@card4;
	mes "[Artifact Researcher]";
	mes "L'enchantement a reussi! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_rk_garm_3rd:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Ce manteau a dÈj‡ enchantÈ deux fois alors vous connaissez les risques auxquel vous vous engagez?";
	next;
	mes "[Artifact Researcher]";
	mes "L'enchantement du manteau a environ ^FF000030%^000000 de chance d'aboutir! Si l'enchantement Èchoue, pas de panique votre armure ne sera pas cassÈe mais vous la retrouverez ‡ l'Ètat pure.";
	next;
	mes "[Artifact Researcher]";
	mes "C'est ‡ dire que les enchantements,cartes seront supprimÈs si jamais la cÈrÈmonie Èchoue.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors je dois vous poser cette question.  tes-vous s˚r de vouloir procÈder ‡ l'enchantement, je vous promet de faire le meilleur.";
	next;
	if(select("Continuer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "TrËs bien, continuons la cÈrÈmonie... Et commenÁons l'enchantement dËs maintenant!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	if(rand(100)>30)
	{
	specialeffect 155;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, 0;
	mes "[Artifact Researcher]";
	mes "Je suis vraiment dÈsolÈe! L'enchantement ‡ ÈchouÈ...";
	next;
	mes "[Artifact Researcher]";
	mes "Je ne pensais pas que la ^FF0000"+getitemname(.@enchant_item)+"^000000 Ètait aussi fragile...";
	next;
	mes "[Artifact Researcher]";
	mes "Encore dÈsolÈe... N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez rÈessayer.";
	next;
	mes "[Artifact Researcher]";
	mes "Passez une bonne journÈe jeune aventurier~";
	close;
	}
	else
	{
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, .@enchant_card, .@card3, .@card4;
	mes "[Artifact Researcher]";
	mes "L'enchantement est terminÈ! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "C'Ètait le dernier enchantement de votre objet, fÈlicitations!";
	next;
	mes "[Artifact Researcher]";
	mes "Encore une fois, merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_rk_foot:
	mes "[Artifact Researcher]";
	mes "Okay, nous allons pouvoir commencer la cÈrÈmonie d'enchantement...";
	mes "Vous voulez donc enchanter l'objet ^FF0000"+getitemname(.@enchant_item)+"^000000... C'est bien ce que vous m'avez dit?";
	next;
	mes "[Artifact Researcher]";
	mes "J'avais oubliÈ de vous le prÈciser, si vous avez des cartes, cela sera perdu.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors, je dois vous poser cette question avant de commencer.";
	mes "Souhaitez-vous poursuivre la procÈdure d'enchantement?";
	next;
	if(select("Commencer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "Ok. Je vous le signale encore une fois, chaque enchantement co˚te ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000.";
	mes "CommenÁons la procÈdure d'enchantement si vous voulez bien...";
	next;
	if(countitem(.@enchant_item) > 1)
	{
	mes "==Information==";
	mes "Vous devez avoir 1 seul objet sur vous pour que l'enchantement soit possible.";
	next;
	mes "==Information==";
	mes "Veuillez rÈessayer ultÈrieurement.";
	close;
	}
	if(isequipped(.@enchant_item)) {
	if(getequiprefinerycnt(.@enchant_type) >= 9) {
	mes "[Artifact Researcher]";
	mes "Votre equipement est raffinÈ ‡ au moins ^FF0000+9^000000.";
	mes "Vous pouvez alors choisir une option d'enchantement vu la soliditÈ de vos chaussures.";
	next;
	mes "[Artifact Researcher]";
	mes "Je peux vous proposer deux options pour cet enchantement. Faites votre choix.";
	next;
	switch(select("AbilitÈ.:Puissance.:Annuler.")) {
	case 1:
	goto L_rk_foot_ability;
	case 2:
	goto L_rk_foot_puissance;
	case 3:
	goto L_quit;
	}
	}
	else
	{
	switch(rand(1,12)) {
	case 1:
	set .@enchant_card,4700;
	break;
	case 2:
	set .@enchant_card,4730;
	break;
	case 3:
	set .@enchant_card,4720;
	break;
	case 4:
	set .@enchant_card,4740;
	break;
	case 5:
	set .@enchant_card,4801;
	break;
	case 6:
	set .@enchant_card,4802;
	break;
	case 7:
	set .@enchant_card,4796;
	break;
	case 8:
	set .@enchant_card,4797;
	break;
	case 9:
	set .@enchant_card,4787;
	break;
	case 10:
	set .@enchant_card,4788;
	break;
	case 11:
	set .@enchant_card,4792;
	break;
	case 12:
	set .@enchant_card,4793;
	break;
	}
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet.";
	close;
	}
	else if(.@card3 >=1)
	goto L_rk_foot_3rd;
	else if(.@card4 >=1)
	goto L_rk_foot_2nd;
	else 
	goto L_rk_foot_1st;
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Pouvez-vous mettre l'equipement sur vous, sinon je ne peux pas procÈder ‡ l'enchantement. Merci.";
	close;
	}
	
	L_rk_foot_ability:
	mes "[Artifact Researcher]";
	mes "Vous avez choisi l'option AbilitÈ.  tes-vous s˚r de votre choix?";
	next;
	if(select("Bien s˚r.","Non, je vais rÈflÈchir.") == 2) {
	goto L_quit;
	}
	switch(rand(1,8)) {
	case 1:
	set .@enchant_card,4801;
	break;
	case 2:
	set .@enchant_card,4802;
	break;
	case 3:
	set .@enchant_card,4720;
	break;
	case 4:
	set .@enchant_card,4796;
	break;
	case 5:
	set .@enchant_card,4700;
	break;
	case 6:
	set .@enchant_card,4792;
	break;
	case 7:
	set .@enchant_card,4793;
	break;
	case 8:
	set .@enchant_card,4787;
	break;
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet il semble avoir atteint son enchantement maximal.";
	close;
	}
	else if(.@card3 >=1)
	goto L_rk_foot_3rd;
	else if(.@card4 >=1)
	goto L_rk_foot_2nd;
	else 
	goto L_rk_foot_1st;
	
	L_rk_foot_puissance:
	mes "[Artifact Researcher]";
	mes "Vous avez choisi l'option Puissance.  tes-vous s˚r de votre choix?";
	next;
	if(select("Bien s˚r.","Non, je vais rÈflÈchir.") == 2) {
	goto L_quit;
	}
	switch(rand(1,7)) {
	case 1:
	set .@enchant_card,4797;
	break;
	case 2:
	set .@enchant_card,4798;
	break;
	case 3:
	set .@enchant_card,4799;
	break;
	case 4:
	set .@enchant_card,4792;
	break;
	case 5:
	set .@enchant_card,4740;
	break;
	case 6:
	set .@enchant_card,4741;
	break;
	case 7:
	set .@enchant_card,4742;
	break;
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet il semble avoir atteint son enchantement maximal.";
	close;
	}
	else if(.@card3 >=1)
	goto L_rk_foot_3rd;
	else if(.@card4 >=1)
	goto L_rk_foot_2nd;
	else 
	goto L_rk_foot_1st;
	
	L_rk_foot_1st:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet objet est encore pure, nous allons alors procÈder ‡ la cÈrÈmonie d'enchantement comme il se doit.";
	next;
	mes "[Artifact Researcher]";
	mes "La cÈrÈmonie va pouvoir commencer, j'espËre que l'enchantement que en sortira vous conviendra!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, .@enchant_card;
	mes "[Artifact Researcher]";
	mes "L'enchantement est terminÈ! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_rk_foot_2nd:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet objet a dÈj‡ enchantÈ une fois alors vous connaissez les risques auxquel vous vous engagez?";
	next;
	mes "[Artifact Researcher]";
	mes "L'enchantement a environ ^FF000060%^000000 de chance d'aboutir! Si l'enchantement Èchoue, pas de panique vos shoes ne seront pas cassÈes mais vous les retrouverez ‡ l'Ètat pure.";
	next;
	mes "[Artifact Researcher]";
	mes "C'est ‡ dire que les enchantements,cartes seront supprimÈs si jamais la cÈrÈmonie Èchoue.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors je dois vous poser cette question.  tes-vous s˚r de vouloir procÈder ‡ l'enchantement, je vous promet de faire le meilleur.";
	next;
	if(select("Continuer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "TrËs bien, continuons la cÈrÈmonie... Et commenÁons l'enchantement dËs maintenant!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	if(rand(100)>60)
	{
	specialeffect 155;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, 0;
	mes "[Artifact Researcher]";
	mes "Je suis vraiment dÈsolÈe! L'enchantement ‡ ÈchouÈ...";
	next;
	mes "[Artifact Researcher]";
	mes "Je ne pensais pas que la ^FF0000"+getitemname(.@enchant_item)+"^000000 Ètait aussi fragile...";
	next;
	mes "[Artifact Researcher]";
	mes "Encore dÈsolÈe... N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez rÈessayer.";
	next;
	mes "[Artifact Researcher]";
	mes "Passez une bonne journÈe jeune aventurier~";
	close;
	}
	else
	{
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, .@enchant_card, .@card4;
	mes "[Artifact Researcher]";
	mes "L'enchantement a reussi! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_rk_foot_3rd:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet objet a dÈj‡ enchantÈ deux fois alors vous connaissez les risques auxquel vous vous engagez?";
	next;
	mes "[Artifact Researcher]";
	mes "L'enchantement a environ ^FF000030%^000000 de chance d'aboutir! Si l'enchantement Èchoue, pas de panique vos shoes ne seront pas cassÈes mais vous les retrouverez ‡ l'Ètat pure.";
	next;
	mes "[Artifact Researcher]";
	mes "C'est ‡ dire que les enchantements,cartes seront supprimÈs si jamais la cÈrÈmonie Èchoue.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors je dois vous poser cette question.  tes-vous s˚r de vouloir procÈder ‡ l'enchantement, je vous promet de faire le meilleur.";
	next;
	if(select("Continuer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "TrËs bien, continuons la cÈrÈmonie... Et commenÁons l'enchantement dËs maintenant!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	if(rand(100)>30)
	{
	specialeffect 155;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, 0;
	mes "[Artifact Researcher]";
	mes "Je suis vraiment dÈsolÈe! L'enchantement ‡ ÈchouÈ...";
	next;
	mes "[Artifact Researcher]";
	mes "Je ne pensais pas que la ^FF0000"+getitemname(.@enchant_item)+"^000000 Ètait aussi fragile...";
	next;
	mes "[Artifact Researcher]";
	mes "Encore dÈsolÈe... N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez rÈessayer.";
	next;
	mes "[Artifact Researcher]";
	mes "Passez une bonne journÈe jeune aventurier~";
	close;
	}
	else
	{
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, .@enchant_card, .@card3, .@card4;
	mes "[Artifact Researcher]";
	mes "L'enchantement est terminÈ! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "C'Ètait le dernier enchantement de votre objet, fÈlicitations!";
	next;
	mes "[Artifact Researcher]";
	mes "Encore une fois, merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_normal_rk_armor:
	mes "[Artifact Researcher]";
	mes "Okay, nous allons pouvoir commencer la cÈrÈmonie d'enchantement...";
	mes "Vous voulez donc enchanter l'objet ^FF0000"+getitemname(.@enchant_item)+"^000000... C'est bien ce que vous m'avez dit?";
	next;
	mes "[Artifact Researcher]";
	mes "J'avais oubliÈ de vous le prÈciser, si vous avez des cartes, cela sera perdu.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors, je dois vous poser cette question avant de commencer.";
	mes "Souhaitez-vous poursuivre la procÈdure d'enchantement?";
	next;
	if(select("Commencer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "Ok. Je vous le signale encore une fois, chaque enchantement co˚te ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000.";
	mes "CommenÁons la procÈdure d'enchantement si vous voulez bien...";
	next;
	if(countitem(.@enchant_item) > 1)
	{
	mes "==Information==";
	mes "Vous devez avoir 1 seul objet sur vous pour que l'enchantement soit possible.";
	next;
	mes "==Information==";
	mes "Veuillez rÈessayer ultÈrieurement.";
	close;
	}
	if(isequipped(.@enchant_item)) {
	if(getequiprefinerycnt(.@enchant_type) >= 9) {
	mes "[Artifact Researcher]";
	mes "Votre equipement est raffinÈ ‡ au moins ^FF0000+9^000000.";
	mes "Vous pouvez alors choisir une option d'enchantement vu la soliditÈ de votre equipement.";
	next;
	mes "[Artifact Researcher]";
	mes "Je peux vous proposer deux options pour cet enchantement. Faites votre choix.";
	next;
	switch(select("ATK Type.:Puissance.:Annuler.")) {
	case 1:
	goto L_normal_rk_ability;
	case 2:
	goto L_normal_rk_puissance;
	case 3:
	goto L_quit;
	}
	}
	else
	{
	switch(rand(1,14)) {
	case 1:
	set .@enchant_card,4791;
	break;
	case 2:
	set .@enchant_card,4792;
	break;
	case 3:
	set .@enchant_card,4794;
	break;
	case 4:
	set .@enchant_card,4740;
	break;
	case 5:
	set .@enchant_card,4741;
	break;
	case 6:
	set .@enchant_card,4742;
	break;
	case 7:
	set .@enchant_card,4743;
	break;
	case 8:
	set .@enchant_card,4797;
	break;
	case 9:
	set .@enchant_card,4798;
	break;
	case 10:
	set .@enchant_card,4799;
	break;
	case 11:
	set .@enchant_card,4793;
	break;
	case 12:
	set .@enchant_card,4794;
	break;
	case 13:
	set .@enchant_card,4796;
	break;
	case 14:
	set .@enchant_card,4795;
	break;
	}
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet.";
	close;
	}
	else if(.@card3 >=1)
	goto L_normal_rk_armor_3rd;
	else if(.@card4 >=1)
	goto L_normal_rk_armor_2nd;
	else 
	goto L_normal_rk_armor_1st;
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Pouvez-vous mettre l'equipement sur vous, sinon je ne peux pas procÈder ‡ l'enchantement. Merci.";
	close;
	}
	
	L_normal_rk_ability:
	mes "[Artifact Researcher]";
	mes "Vous avez choisi l'option ATK Type.  tes-vous s˚r de votre choix?";
	next;
	if(select("Bien s˚r.","Non, je vais rÈflÈchir.") == 2) {
	goto L_quit;
	}
	switch(rand(1,19)) {
	case 1:
	set .@enchant_card,4811;
	break;
	case 2:
	set .@enchant_card,4810;
	break;
	case 3:
	set .@enchant_card,4809;
	break;
	case 4:
	set .@enchant_card,4808;
	break;
	case 5:
	set .@enchant_card,4820;
	break;
	case 6:
	set .@enchant_card,4702;
	break;
	case 7:
	set .@enchant_card,4819;
	break;
	case 8:
	set .@enchant_card,4766;
	break;
	case 9:
	set .@enchant_card,4767;
	break;
	case 10:
	set .@enchant_card,4808;
	break;
	case 11:
	set .@enchant_card,4809;
	break;
	case 12:
	set .@enchant_card,4810;
	break;
	case 13:
	set .@enchant_card,4811;
	break;
	case 14:
	set .@enchant_card,4820;
	break;
	case 15:
	set .@enchant_card,4821;
	break;
	case 16:
	set .@enchant_card,4822;
	break;
	case 17:
	set .@enchant_card,4823;
	break;
	case 18:
	set .@enchant_card,4824;
	break;
	case 19:
	set .@enchant_card,4825;
	break;
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet il semble avoir atteint son enchantement maximal.";
	close;
	}
	else if(.@card3 >=1)
	goto L_normal_rk_armor_3rd;
	else if(.@card4 >=1)
	goto L_normal_rk_armor_2nd;
	else 
	goto L_normal_rk_armor_1st;
	
	L_normal_rk_puissance:
	mes "[Artifact Researcher]";
	mes "Vous avez choisi l'option Puissance.  tes-vous s˚r de votre choix?";
	next;
	if(select("Bien s˚r.","Non, je vais rÈflÈchir.") == 2) {
	goto L_quit;
	}
	switch(rand(1,7)) {
	case 1:
	set .@enchant_card,4741;
	break;
	case 2:
	set .@enchant_card,4742;
	break;
	case 3:
	set .@enchant_card,4791;
	break;
	case 4:
	set .@enchant_card,4794;
	break;
	case 5:
	set .@enchant_card,4797;
	break;
	case 6:
	set .@enchant_card,4798;
	break;
	case 7:
	set .@enchant_card,4799;
	break;
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet il semble avoir atteint son enchantement maximal.";
	close;
	}
	else if(.@card3 >=1)
	goto L_normal_rk_armor_3rd;
	else if(.@card4 >=1)
	goto L_normal_rk_armor_2nd;
	else 
	goto L_normal_rk_armor_1st;
	
	L_normal_rk_armor_1st:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet objet est encore pure, nous allons alors procÈder ‡ la cÈrÈmonie d'enchantement comme il se doit.";
	next;
	mes "[Artifact Researcher]";
	mes "La cÈrÈmonie va pouvoir commencer, j'espËre que l'enchantement que en sortira vous conviendra!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, .@enchant_card;
	mes "[Artifact Researcher]";
	mes "L'enchantement est terminÈ! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_normal_rk_armor_2nd:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet objet a dÈj‡ enchantÈ une fois alors vous connaissez les risques auxquel vous vous engagez?";
	next;
	mes "[Artifact Researcher]";
	mes "L'enchantement a environ ^FF000060%^000000 de chance d'aboutir! Si l'enchantement Èchoue, pas de panique votre armure ne sera pas cassÈe mais vous la retrouverez ‡ l'Ètat pure.";
	next;
	mes "[Artifact Researcher]";
	mes "C'est ‡ dire que les enchantements,cartes seront supprimÈs si jamais la cÈrÈmonie Èchoue.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors je dois vous poser cette question.  tes-vous s˚r de vouloir procÈder ‡ l'enchantement, je vous promet de faire le meilleur.";
	next;
	if(select("Continuer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "TrËs bien, continuons la cÈrÈmonie... Et commenÁons l'enchantement dËs maintenant!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	if(rand(100)>60)
	{
	specialeffect 155;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, 0;
	mes "[Artifact Researcher]";
	mes "Je suis vraiment dÈsolÈe! L'enchantement ‡ ÈchouÈ...";
	next;
	mes "[Artifact Researcher]";
	mes "Je ne pensais pas que la ^FF0000"+getitemname(.@enchant_item)+"^000000 Ètait aussi fragile...";
	next;
	mes "[Artifact Researcher]";
	mes "Encore dÈsolÈe... N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez rÈessayer.";
	next;
	mes "[Artifact Researcher]";
	mes "Passez une bonne journÈe jeune aventurier~";
	close;
	}
	else
	{
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, .@enchant_card, .@card4;
	mes "[Artifact Researcher]";
	mes "L'enchantement a reussi! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_normal_rk_armor_3rd:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet objet a dÈj‡ enchantÈ deux fois alors vous connaissez les risques auxquel vous vous engagez?";
	next;
	mes "[Artifact Researcher]";
	mes "L'enchantement a environ ^FF000030%^000000 de chance d'aboutir! Si l'enchantement Èchoue, pas de panique votre armure ne sera pas cassÈe mais vous la retrouverez ‡ l'Ètat pure.";
	next;
	mes "[Artifact Researcher]";
	mes "C'est ‡ dire que les enchantements,cartes seront supprimÈs si jamais la cÈrÈmonie Èchoue.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors je dois vous poser cette question.  tes-vous s˚r de vouloir procÈder ‡ l'enchantement, je vous promet de faire le meilleur.";
	next;
	if(select("Continuer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "TrËs bien, continuons la cÈrÈmonie... Et commenÁons l'enchantement dËs maintenant!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	if(rand(100)>30)
	{
	specialeffect 155;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, 0;
	mes "[Artifact Researcher]";
	mes "Je suis vraiment dÈsolÈe! L'enchantement ‡ ÈchouÈ...";
	next;
	mes "[Artifact Researcher]";
	mes "Je ne pensais pas que la ^FF0000"+getitemname(.@enchant_item)+"^000000 Ètait aussi fragile...";
	next;
	mes "[Artifact Researcher]";
	mes "Encore dÈsolÈe... N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez rÈessayer.";
	next;
	mes "[Artifact Researcher]";
	mes "Passez une bonne journÈe jeune aventurier~";
	close;
	}
	else
	{
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, 0, 0, 0, .@enchant_card, .@card3, .@card4;
	mes "[Artifact Researcher]";
	mes "L'enchantement est terminÈ! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "C'Ètait le dernier enchantement de votre objet, fÈlicitations!";
	next;
	mes "[Artifact Researcher]";
	mes "Encore une fois, merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
//===========================END RUNE KNIGHT ENCHANTMENTS===============================
//=================================BY SUPERHULK=========================================
//======================================================================================
//
//======================================================================================
//===========================START RANGER ENCHANTMENTS==================================
//=================================BY SUPERHULK=========================================
L_ra:
mes "[Artifact Researcher]";
mes "Vous voulez enchanter un equipement qui appartiendrait ‡ la classe Ranger. Ces equipements sont particuliËrement puissant une fois enchantÈ.";
next;
mes "[Artifact Researcher]";
mes "Pouvez vous me dire de quel type d'equipement s'agit-il?";
next;
switch(select("Armure.:Footgear.:Garment.:Accessoire.:Annuler.")) {
case 1:
set .@enchant_type,2;
goto L_ra_armure;
case 2:
set .@enchant_type,6;
goto L_ra_footgear;
case 3:
set .@enchant_type,5;
goto L_ra_garment;
case 4:
goto L_ra_access;
case 5:
goto L_quit;
}

L_ra_armure:
mes "[Artifact Researcher]";
mes "Vous voulez enchanter une armure, je vois. Les armures que je peux enchanter sont ^0000FFWhite Wing Suit^000000 et ^0000FFBlack Wing Suit^000000.";
next;
mes "[Artifact Researcher]";
mes "Ces armures peuvent Ítre enchantÈes trois fois maximum. Le premier enchantement a un taux de rÈussite de 100% tandis que les deuxiËme et troisiËme sont plus difficile ‡ rÈaliser.";
next;
mes "[Artifact Researcher]";
mes "En effet, le deuxiËme enchantement a ^FF000060%^000000 de chance d'aboutir. Tandis que si vous souhaitez par la suite procÈder ‡ un troisiËme enchantement, il n'aura que ^FF000030%^000000 de chance d'aboutir.";
next;
mes "[Artifact Researcher]";
mes "Si jamais l'enchantement Èchoue, pas de panique votre equipement ne sera pas cassÈ mais vous perdrez tous les enchantements fait auparavant. Alors faites bien votre choix car je ne serais pas rÈsponsable de vos actes.";
next;
mes "[Artifact Researcher]";
mes "Si votre armure est raffinÈe ‡ +9, je vous proposerais deux options diffÈrentes avant de procÈder ‡ l'enchantement. Il est plus facile de modifier la faÁon d'enchanter un equipement quand il est plus solide.";
next;
mes "[Artifact Researcher]";
mes "Pour chaque enchantement, les frais de service sont ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000";
next;
mes "[Artifact Researcher]";
mes "Il faut aussi que l'equipement ‡ enchanter soit ÈquipÈ sur vous pour que cela fonctionne et que la puissance se mÍle ‡ votre esprit.";
next;
mes "[Artifact Researcher]";
mes "Maintenant, si vous voulez bien. Pouvez-vous me dire quel equipement vous souhaitez enchanter?";
next;
switch(select("White Wing Suit.:Black Wing Suit.:Annuler.")) {
case 1:
set .@enchant_item,15042;
goto L_normal_ra_armor;
case 2:
set .@enchant_item,15043;
goto L_normal_ra_armor;
case 3:
goto L_quit;
}

L_ra_footgear:
mes "[Artifact Researcher]";
mes "Vous voulez enchanter vos shoes, je vois. Les shoes que je peux enchanter sont ^0000FFWhite Wing Boots^000000 et ^0000FFBlack Wing Boots^000000.";
next;
mes "[Artifact Researcher]";
mes "Ces shoes peuvent Ítre enchantÈes trois fois maximum. Le premier enchantement a un taux de rÈussite de 100% tandis que les deuxiËme et troisiËme sont plus difficile ‡ rÈaliser.";
next;
mes "[Artifact Researcher]";
mes "En effet, le deuxiËme enchantement a ^FF000060%^000000 de chance d'aboutir. Tandis que si vous souhaitez par la suite procÈder ‡ un troisiËme enchantement, il n'aura que ^FF000030%^000000 de chance d'aboutir.";
next;
mes "[Artifact Researcher]";
mes "Si jamais l'enchantement Èchoue, pas de panique votre equipement ne sera pas cassÈ mais vous perdrez tous les enchantements fait auparavant. Alors faites bien votre choix car je ne serais pas rÈsponsable de vos actes.";
next;
mes "[Artifact Researcher]";
mes "Si vos shoes sont raffinÈes ‡ +9, je vous proposerais deux options diffÈrentes avant de procÈder ‡ l'enchantement. Il est plus facile de modifier la faÁon d'enchanter un equipement quand il est plus solide.";
next;
mes "[Artifact Researcher]";
mes "Pour chaque enchantement, les frais de service sont ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000";
next;
mes "[Artifact Researcher]";
mes "Il faut aussi que l'equipement ‡ enchanter soit ÈquipÈ sur vous pour que cela fonctionne et que la puissance se mÍle ‡ votre esprit.";
next;
mes "[Artifact Researcher]";
mes "Maintenant, si vous voulez bien. Pouvez-vous me dire quel equipement vous souhaitez enchanter?";
next;
switch(select("White Wing Boots.:Black Wing Boots.:Annuler.")) {
case 1:
set .@enchant_item,2479;
goto L_ra_foot;
case 2:
set .@enchant_item,2480;
goto L_ra_foot;
case 3:
goto L_quit;
}

L_ra_garment:
mes "[Artifact Researcher]";
mes "Vous voulez enchanter votre garment, je vois. Les garments que je peux enchanter sont ^0000FFWhite Wing Manteau^000000 et ^0000FFBlack Wing Manteau^000000.";
next;
mes "[Artifact Researcher]";
mes "Ces garments peuvent Ítre enchantÈs trois fois maximum. Le premier enchantement a un taux de rÈussite de 100% tandis que les deuxiËme et troisiËme sont plus difficile ‡ rÈaliser.";
next;
mes "[Artifact Researcher]";
mes "En effet, le deuxiËme enchantement a ^FF000060%^000000 de chance d'aboutir. Tandis que si vous souhaitez par la suite procÈder ‡ un troisiËme enchantement, il n'aura que ^FF000030%^000000 de chance d'aboutir.";
next;
mes "[Artifact Researcher]";
mes "Si jamais l'enchantement Èchoue, pas de panique votre equipement ne sera pas cassÈ mais vous perdrez tous les enchantements fait auparavant. Alors faites bien votre choix car je ne serais pas rÈsponsable de vos actes.";
next;
mes "[Artifact Researcher]";
mes "Si votre garment est raffinÈ ‡ +9, je vous proposerais deux options diffÈrentes avant de procÈder ‡ l'enchantement. Il est plus facile de modifier la faÁon d'enchanter un equipement quand il est plus solide.";
next;
mes "[Artifact Researcher]";
mes "Pour chaque enchantement, les frais de service sont ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000";
next;
mes "[Artifact Researcher]";
mes "Il faut aussi que l'equipement ‡ enchanter soit ÈquipÈ sur vous pour que cela fonctionne et que la puissance se mÍle ‡ votre esprit.";
next;
mes "[Artifact Researcher]";
mes "Maintenant, si vous voulez bien. Pouvez-vous me dire quel equipement vous souhaitez enchanter?";
next;
switch(select("White Wing Manteau.:Black Wing Manteau.:Annuler.")) {
case 1:
set .@enchant_item,2580;
goto L_ra_garm;
case 2:
set .@enchant_item,2581;
goto L_ra_garm;
case 3:
goto L_quit;
}

L_ra_access:
mes "[Artifact Researcher]";
mes "Vous voulez enchanter un accÈssoire, je vois. Les accÈssoires que je peux enchanter sont ^0000FFWhite Wing Brooch^000000 et ^0000FFBlack Wing Brooch^000000.";
next;
mes "[Artifact Researcher]";
mes "Ces accÈssoires peuvent Ítre enchantÈs deux fois maximum. Le premier enchantement a un taux de reussite de ^0000FF100%^000000 et le deuxiËme de ^0000FF60%^000000.";
next;
mes "[Artifact Researcher]";
mes "Pour chaque enchantement, les frais de service sont ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000";
next;
mes "[Artifact Researcher]";
mes "Il faut aussi que l'equipement ‡ enchanter soit ÈquipÈ sur vous pour que cela fonctionne et que la puissance se mÍle ‡ votre esprit.";
next;
mes "[Artifact Researcher]";
mes "Maintenant, si vous voulez bien. Pouvez-vous me dire quel equipement vous souhaitez enchanter?";
next;
switch(select("White Wing Brooch.:Black Wing Brooch.:Annuler.")) {
case 1:
set .@enchant_item,2890;
goto L_ra_seal;
case 2:
set .@enchant_item,2891;
goto L_ra_seal;
case 3:
goto L_quit;
}
	
	L_ra_seal:
	mes "[Artifact Researcher]";
	mes "Okay, nous allons pouvoir commencer la cÈrÈmonie d'enchantement...";
	mes "Vous voulez donc enchanter l'objet ^FF0000"+getitemname(.@enchant_item)+"^000000... C'est bien ce que vous m'avez dit?";
	next;
	mes "[Artifact Researcher]";
	mes "J'avais oubliÈ de vous le prÈciser, si vous avez des cartes, cela sera perdu.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors, je dois vous poser cette question avant de commencer.";
	mes "Souhaitez-vous poursuivre la procÈdure d'enchantement?";
	next;
	if(select("Commencer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "Ok. Je vous le signale encore une fois, chaque enchantement co˚te ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000.";
	mes "CommenÁons la procÈdure d'enchantement si vous voulez bien...";
	next;
	if(countitem(.@enchant_item) > 1)
	{
	mes "==Information==";
	mes "Vous devez avoir 1 seul objet sur vous pour que l'enchantement soit possible.";
	next;
	mes "==Information==";
	mes "Veuillez rÈessayer ultÈrieurement.";
	close;
	}
	if(isequipped(.@enchant_item)) {
	if(.@enchant_item == 2890) {
	if(getequipid(7) == 2890) set .@enchant_type,7;
	else set.@enchant_type,8;
	}
	if(.@enchant_item == 2891) {
	if(getequipid(7) == 2891) set .@enchant_type,7;
	else set.@enchant_type,8;
	}
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card3 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ cet objet deux fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet.";
	close;
	}
	else if(.@card4 >=1)
	{
	switch(rand(1,8)) {
	case 1:
	set .@enchant_card,4700;
	break;
	case 2:
	set .@enchant_card,4740;
	break;
	case 3:
	set .@enchant_card,4730;
	break;
	case 4:
	set .@enchant_card,4720;
	break;
	case 5:
	set .@enchant_card,4793;
	break;
	case 6:
	set .@enchant_card,4788;
	break;
	case 7:
	set .@enchant_card,4802;
	break;
	case 8:
	set .@enchant_card,4797;
	break;
	}
	goto L_ra_seal_2nd;
	}
	else
	{
	switch(rand(1,8)) {
	case 1:
	set .@enchant_card,4700;
	break;
	case 2:
	set .@enchant_card,4740;
	break;
	case 3:
	set .@enchant_card,4730;
	break;
	case 4:
	set .@enchant_card,4720;
	break;
	case 5:
	set .@enchant_card,4792;
	break;
	case 6:
	set .@enchant_card,4787;
	break;
	case 7:
	set .@enchant_card,4801;
	break;
	case 8:
	set .@enchant_card,4796;
	break;
	}
	goto L_ra_seal_1st;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Pouvez-vous equiper le ^FF0000"+getitemname(.@enchant_item)+"^000000 sur vous, sinon je ne peux pas procÈder ‡ l'enchantement. Merci.";
	close;
	}
	
	L_ra_seal_1st:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet accÈssoire est encore pure, nous allons alors procÈder ‡ la cÈrÈmonie d'enchantement comme il se doit.";
	next;
	mes "[Artifact Researcher]";
	mes "La cÈrÈmonie va pouvoir commencer, j'espËre que l'enchantement que en sortira vous conviendra!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, .@enchant_card;
	mes "[Artifact Researcher]";
	mes "L'enchantement de cet accÈssoire est terminÈ! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_ra_seal_2nd:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet accÈssoire a dÈj‡ enchantÈ une fois alors vous connaissez les risques auxquel vous vous engagez?";
	next;
	mes "[Artifact Researcher]";
	mes "L'enchantement a environ ^FF000060%^000000 de chance d'aboutir! Si l'enchantement Èchoue, pas de panique votre accÈssoire ne sera pas cassÈ mais vous le retrouverez ‡ l'Ètat pure.";
	next;
	mes "[Artifact Researcher]";
	mes "C'est ‡ dire que les enchantements,cartes seront supprimÈs si jamais la cÈrÈmonie Èchoue.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors je dois vous poser cette question.  tes-vous s˚r de vouloir procÈder ‡ l'enchantement, je vous promet de faire le meilleur.";
	next;
	if(select("Continuer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "TrËs bien, continuons la cÈrÈmonie... Et commenÁons l'enchantement dËs maintenant!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	if(rand(100)>60)
	{
	specialeffect 155;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, 0;
	mes "[Artifact Researcher]";
	mes "Je suis vraiment dÈsolÈe! L'enchantement ‡ ÈchouÈ...";
	next;
	mes "[Artifact Researcher]";
	mes "Je ne pensais pas que la ^FF0000"+getitemname(.@enchant_item)+"^000000 Ètait aussi fragile...";
	next;
	mes "[Artifact Researcher]";
	mes "Encore dÈsolÈe... N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez rÈessayer.";
	next;
	mes "[Artifact Researcher]";
	mes "Passez une bonne journÈe jeune aventurier~";
	close;
	}
	else
	{
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, .@enchant_card, .@card4;
	mes "[Artifact Researcher]";
	mes "L'enchantement a reussi! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_ra_garm:
	mes "[Artifact Researcher]";
	mes "Okay, nous allons pouvoir commencer la cÈrÈmonie d'enchantement...";
	mes "Vous voulez donc enchanter l'objet ^FF0000"+getitemname(.@enchant_item)+"^000000... C'est bien ce que vous m'avez dit?";
	next;
	mes "[Artifact Researcher]";
	mes "J'avais oubliÈ de vous le prÈciser, si vous avez des cartes, cela sera perdu.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors, je dois vous poser cette question avant de commencer.";
	mes "Souhaitez-vous poursuivre la procÈdure d'enchantement?";
	next;
	if(select("Commencer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "Ok. Je vous le signale encore une fois, chaque enchantement co˚te ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000.";
	mes "CommenÁons la procÈdure d'enchantement si vous voulez bien...";
	next;
	if(countitem(.@enchant_item) > 1)
	{
	mes "==Information==";
	mes "Vous devez avoir 1 seul objet sur vous pour que l'enchantement soit possible.";
	next;
	mes "==Information==";
	mes "Veuillez rÈessayer ultÈrieurement.";
	close;
	}
	if(isequipped(.@enchant_item)) {
	if(getequiprefinerycnt(.@enchant_type) >= 9) {
	mes "[Artifact Researcher]";
	mes "Votre equipement est raffinÈ ‡ au moins ^FF0000+9^000000.";
	mes "Vous pouvez alors choisir une option d'enchantement vu la soliditÈ de vos chaussures.";
	next;
	mes "[Artifact Researcher]";
	mes "Je peux vous proposer deux options pour cet enchantement. Faites votre choix.";
	next;
	switch(select("Esquive.:ATK Type.:Annuler.")) {
	case 1:
	goto L_ra_garm_ability;
	case 2:
	goto L_ra_garm_puissance;
	case 3:
	goto L_quit;
	}
	}
	else
	{
	switch(rand(1,12)) {
	case 1:
	set .@enchant_card,4750;
	break;
	case 2:
	set .@enchant_card,4751;
	break;
	case 3:
	set .@enchant_card,4752;
	break;
	case 4:
	set .@enchant_card,4753;
	break;
	case 5:
	set .@enchant_card,4730;
	break;
	case 6:
	set .@enchant_card,4731;
	break;
	case 7:
	set .@enchant_card,4732;
	break;
	case 8:
	set .@enchant_card,4733;
	break;
	case 9:
	set .@enchant_card,4762;
	break;
	case 10:
	set .@enchant_card,4859;
	break;
	case 11:
	set .@enchant_card,4860;
	break;
	case 12:
	set .@enchant_card,4860;
	break;
	}
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet.";
	close;
	}
	else if(.@card3 >=1)
	goto L_ra_garm_3rd;
	else if(.@card4 >=1)
	goto L_ra_garm_2nd;
	else 
	goto L_ra_garm_1st;
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Pouvez-vous mettre le ^FF0000"+getitemname(.@enchant_item)+"^000000 sur vous, sinon je ne peux pas procÈder ‡ l'enchantement. Merci.";
	close;
	}
	
	L_ra_garm_ability:
	mes "[Artifact Researcher]";
	mes "Vous avez choisi l'option Esquive.  tes-vous s˚r de votre choix?";
	next;
	if(select("Bien s˚r.","Non, je vais rÈflÈchir.") == 2) {
	goto L_quit;
	}
	switch(rand(1,7)) {
	case 1:
	set .@enchant_card,4750;
	break;
	case 2:
	set .@enchant_card,4751;
	break;
	case 3:
	set .@enchant_card,4752;
	break;
	case 4:
	set .@enchant_card,4730;
	break;
	case 5:
	set .@enchant_card,4731;
	break;
	case 6:
	set .@enchant_card,4859;
	break;
	case 7:
	set .@enchant_card,4860;
	break;
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet il semble avoir atteint son enchantement maximal.";
	close;
	}
	else if(.@card3 >=1)
	goto L_ra_garm_3rd;
	else if(.@card4 >=1)
	goto L_ra_garm_2nd;
	else 
	goto L_ra_garm_1st;
	
	L_ra_garm_puissance:
	mes "[Artifact Researcher]";
	mes "Vous avez choisi l'option ATK Type.  tes-vous s˚r de votre choix?";
	next;
	if(select("Bien s˚r.","Non, je vais rÈflÈchir.") == 2) {
	goto L_quit;
	}
	switch(rand(1,10)) {
	case 1:
	set .@enchant_card,4700;
	break;
	case 2:
	set .@enchant_card,4701;
	break;
	case 3:
	set .@enchant_card,4702;
	break;
	case 4:
	set .@enchant_card,4704;
	break;
	case 5:
	set .@enchant_card,4819;
	break;
	case 6:
	set .@enchant_card,4766;
	break;
	case 7:
	set .@enchant_card,4811;
	break;
	case 8:
	set .@enchant_card,4810;
	break;
	case 9:
	set .@enchant_card,4809;
	break;
	case 10:
	set .@enchant_card,4808;
	break;
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ ce Manteau trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet il semble avoir atteint son enchantement maximal.";
	close;
	}
	else if(.@card3 >=1)
	goto L_ra_garm_3rd;
	else if(.@card4 >=1)
	goto L_ra_garm_2nd;
	else 
	goto L_ra_garm_1st;
	
	L_ra_garm_1st:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Ce manteau est encore pure, nous allons alors procÈder ‡ la cÈrÈmonie d'enchantement comme il se doit.";
	next;
	mes "[Artifact Researcher]";
	mes "La cÈrÈmonie va pouvoir commencer, j'espËre que l'enchantement que en sortira vous conviendra!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, .@enchant_card;
	mes "[Artifact Researcher]";
	mes "L'enchantement du manteau est terminÈ! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_ra_garm_2nd:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Ce manteau a dÈj‡ enchantÈ une fois alors vous connaissez les risques auxquel vous vous engagez?";
	next;
	mes "[Artifact Researcher]";
	mes "L'enchantement a environ ^FF000060%^000000 de chance d'aboutir! Si l'enchantement Èchoue, pas de panique votre garment ne sera pas cassÈ mais vous le retrouverez ‡ l'Ètat pure.";
	next;
	mes "[Artifact Researcher]";
	mes "C'est ‡ dire que les enchantements,cartes seront supprimÈs si jamais la cÈrÈmonie Èchoue.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors je dois vous poser cette question.  tes-vous s˚r de vouloir procÈder ‡ l'enchantement, je vous promet de faire le meilleur.";
	next;
	if(select("Continuer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "TrËs bien, continuons la cÈrÈmonie... Et commenÁons l'enchantement dËs maintenant!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	if(rand(100)>60)
	{
	specialeffect 155;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, 0;
	mes "[Artifact Researcher]";
	mes "Je suis vraiment dÈsolÈe! L'enchantement ‡ ÈchouÈ...";
	next;
	mes "[Artifact Researcher]";
	mes "Je ne pensais pas que la ^FF0000"+getitemname(.@enchant_item)+"^000000 Ètait aussi fragile...";
	next;
	mes "[Artifact Researcher]";
	mes "Encore dÈsolÈe... N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez rÈessayer.";
	next;
	mes "[Artifact Researcher]";
	mes "Passez une bonne journÈe jeune aventurier~";
	close;
	}
	else
	{
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, .@enchant_card, .@card4;
	mes "[Artifact Researcher]";
	mes "L'enchantement a reussi! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_ra_garm_3rd:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Ce manteau a dÈj‡ enchantÈ deux fois alors vous connaissez les risques auxquel vous vous engagez?";
	next;
	mes "[Artifact Researcher]";
	mes "L'enchantement du manteau a environ ^FF000030%^000000 de chance d'aboutir! Si l'enchantement Èchoue, pas de panique votre armure ne sera pas cassÈe mais vous la retrouverez ‡ l'Ètat pure.";
	next;
	mes "[Artifact Researcher]";
	mes "C'est ‡ dire que les enchantements,cartes seront supprimÈs si jamais la cÈrÈmonie Èchoue.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors je dois vous poser cette question.  tes-vous s˚r de vouloir procÈder ‡ l'enchantement, je vous promet de faire le meilleur.";
	next;
	if(select("Continuer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "TrËs bien, continuons la cÈrÈmonie... Et commenÁons l'enchantement dËs maintenant!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	if(rand(100)>30)
	{
	specialeffect 155;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, 0;
	mes "[Artifact Researcher]";
	mes "Je suis vraiment dÈsolÈe! L'enchantement ‡ ÈchouÈ...";
	next;
	mes "[Artifact Researcher]";
	mes "Je ne pensais pas que la ^FF0000"+getitemname(.@enchant_item)+"^000000 Ètait aussi fragile...";
	next;
	mes "[Artifact Researcher]";
	mes "Encore dÈsolÈe... N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez rÈessayer.";
	next;
	mes "[Artifact Researcher]";
	mes "Passez une bonne journÈe jeune aventurier~";
	close;
	}
	else
	{
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, .@enchant_card, .@card3, .@card4;
	mes "[Artifact Researcher]";
	mes "L'enchantement est terminÈ! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "C'Ètait le dernier enchantement de votre objet, fÈlicitations!";
	next;
	mes "[Artifact Researcher]";
	mes "Encore une fois, merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_ra_foot:
	mes "[Artifact Researcher]";
	mes "Okay, nous allons pouvoir commencer la cÈrÈmonie d'enchantement...";
	mes "Vous voulez donc enchanter l'objet ^FF0000"+getitemname(.@enchant_item)+"^000000... C'est bien ce que vous m'avez dit?";
	next;
	mes "[Artifact Researcher]";
	mes "J'avais oubliÈ de vous le prÈciser, si vous avez des cartes, cela sera perdu.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors, je dois vous poser cette question avant de commencer.";
	mes "Souhaitez-vous poursuivre la procÈdure d'enchantement?";
	next;
	if(select("Commencer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "Ok. Je vous le signale encore une fois, chaque enchantement co˚te ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000.";
	mes "CommenÁons la procÈdure d'enchantement si vous voulez bien...";
	next;
	if(countitem(.@enchant_item) > 1)
	{
	mes "==Information==";
	mes "Vous devez avoir 1 seul objet sur vous pour que l'enchantement soit possible.";
	next;
	mes "==Information==";
	mes "Veuillez rÈessayer ultÈrieurement.";
	close;
	}
	if(isequipped(.@enchant_item)) {
	if(getequiprefinerycnt(.@enchant_type) >= 9) {
	mes "[Artifact Researcher]";
	mes "Votre equipement est raffinÈ ‡ au moins ^FF0000+9^000000.";
	mes "Vous pouvez alors choisir une option d'enchantement vu la soliditÈ de vos chaussures.";
	next;
	mes "[Artifact Researcher]";
	mes "Je peux vous proposer deux options pour cet enchantement. Faites votre choix.";
	next;
	switch(select("AbilitÈ.:Critical.:Annuler.")) {
	case 1:
	goto L_ra_foot_ability;
	case 2:
	goto L_ra_foot_puissance;
	case 3:
	goto L_quit;
	}
	}
	else
	{
	switch(rand(1,18)) {
	case 1:
	set .@enchant_card,4792;
	break;
	case 2:
	set .@enchant_card,4793;
	break;
	case 3:
	set .@enchant_card,4787;
	break;
	case 4:
	set .@enchant_card,4788;
	break;
	case 5:
	set .@enchant_card,4720;
	break;
	case 6:
	set .@enchant_card,4721;
	break;
	case 7:
	set .@enchant_card,4740;
	break;
	case 8:
	set .@enchant_card,4741;
	break;
	case 9:
	set .@enchant_card,4730;
	break;
	case 10:
	set .@enchant_card,4731;
	break;
	case 11:
	set .@enchant_card,4700;
	break;
	case 12:
	set .@enchant_card,4701;
	break;
	case 13:
	set .@enchant_card,4750;
	break;
	case 14:
	set .@enchant_card,4751;
	break;
	case 15:
	set .@enchant_card,4796;
	break;
	case 16:
	set .@enchant_card,4797;
	break;
	case 17:
	set .@enchant_card,4801;
	break;
	case 18:
	set .@enchant_card,4802;
	break;
	}
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet.";
	close;
	}
	else if(.@card3 >=1)
	goto L_ra_foot_3rd;
	else if(.@card4 >=1)
	goto L_ra_foot_2nd;
	else 
	goto L_ra_foot_1st;
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Pouvez-vous mettre l'equipement sur vous, sinon je ne peux pas procÈder ‡ l'enchantement. Merci.";
	close;
	}
	
	L_ra_foot_ability:
	mes "[Artifact Researcher]";
	mes "Vous avez choisi l'option AbilitÈ.  tes-vous s˚r de votre choix?";
	next;
	if(select("Bien s˚r.","Non, je vais rÈflÈchir.") == 2) {
	goto L_quit;
	}
	switch(rand(1,6)) {
	case 1:
	set .@enchant_card,4720;
	break;
	case 2:
	set .@enchant_card,4787;
	break;
	case 3:
	set .@enchant_card,4796;
	break;
	case 4:
	set .@enchant_card,4801;
	break;
	case 5:
	set .@enchant_card,4802;
	break;
	case 6:
	set .@enchant_card,4792;
	break;
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet il semble avoir atteint son enchantement maximal.";
	close;
	}
	else if(.@card3 >=1)
	goto L_ra_foot_3rd;
	else if(.@card4 >=1)
	goto L_ra_foot_2nd;
	else 
	goto L_ra_foot_1st;
	
	L_ra_foot_puissance:
	mes "[Artifact Researcher]";
	mes "Vous avez choisi l'option Critical.  tes-vous s˚r de votre choix?";
	next;
	if(select("Bien s˚r.","Non, je vais rÈflÈchir.") == 2) {
	goto L_quit;
	}
	switch(rand(1,5)) {
	case 1:
	set .@enchant_card,4702;
	break;
	case 2:
	set .@enchant_card,4752;
	break;
	case 3:
	set .@enchant_card,4754;
	break;
	case 4:
	set .@enchant_card,4764;
	break;
	case 5:
	set .@enchant_card,4818;
	break;
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet il semble avoir atteint son enchantement maximal.";
	close;
	}
	else if(.@card3 >=1)
	goto L_ra_foot_3rd;
	else if(.@card4 >=1)
	goto L_ra_foot_2nd;
	else 
	goto L_ra_foot_1st;
	
	L_ra_foot_1st:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet objet est encore pure, nous allons alors procÈder ‡ la cÈrÈmonie d'enchantement comme il se doit.";
	next;
	mes "[Artifact Researcher]";
	mes "La cÈrÈmonie va pouvoir commencer, j'espËre que l'enchantement que en sortira vous conviendra!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, .@enchant_card;
	mes "[Artifact Researcher]";
	mes "L'enchantement est terminÈ! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_ra_foot_2nd:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet objet a dÈj‡ enchantÈ une fois alors vous connaissez les risques auxquel vous vous engagez?";
	next;
	mes "[Artifact Researcher]";
	mes "L'enchantement a environ ^FF000060%^000000 de chance d'aboutir! Si l'enchantement Èchoue, pas de panique vos shoes ne seront pas cassÈes mais vous les retrouverez ‡ l'Ètat pure.";
	next;
	mes "[Artifact Researcher]";
	mes "C'est ‡ dire que les enchantements,cartes seront supprimÈs si jamais la cÈrÈmonie Èchoue.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors je dois vous poser cette question.  tes-vous s˚r de vouloir procÈder ‡ l'enchantement, je vous promet de faire le meilleur.";
	next;
	if(select("Continuer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "TrËs bien, continuons la cÈrÈmonie... Et commenÁons l'enchantement dËs maintenant!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	if(rand(100)>60)
	{
	specialeffect 155;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, 0;
	mes "[Artifact Researcher]";
	mes "Je suis vraiment dÈsolÈe! L'enchantement ‡ ÈchouÈ...";
	next;
	mes "[Artifact Researcher]";
	mes "Je ne pensais pas que la ^FF0000"+getitemname(.@enchant_item)+"^000000 Ètait aussi fragile...";
	next;
	mes "[Artifact Researcher]";
	mes "Encore dÈsolÈe... N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez rÈessayer.";
	next;
	mes "[Artifact Researcher]";
	mes "Passez une bonne journÈe jeune aventurier~";
	close;
	}
	else
	{
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, .@enchant_card, .@card4;
	mes "[Artifact Researcher]";
	mes "L'enchantement a reussi! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_ra_foot_3rd:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet objet a dÈj‡ enchantÈ deux fois alors vous connaissez les risques auxquel vous vous engagez?";
	next;
	mes "[Artifact Researcher]";
	mes "L'enchantement a environ ^FF000030%^000000 de chance d'aboutir! Si l'enchantement Èchoue, pas de panique vos shoes ne seront pas cassÈes mais vous les retrouverez ‡ l'Ètat pure.";
	next;
	mes "[Artifact Researcher]";
	mes "C'est ‡ dire que les enchantements,cartes seront supprimÈs si jamais la cÈrÈmonie Èchoue.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors je dois vous poser cette question.  tes-vous s˚r de vouloir procÈder ‡ l'enchantement, je vous promet de faire le meilleur.";
	next;
	if(select("Continuer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "TrËs bien, continuons la cÈrÈmonie... Et commenÁons l'enchantement dËs maintenant!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	if(rand(100)>30)
	{
	specialeffect 155;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, 0;
	mes "[Artifact Researcher]";
	mes "Je suis vraiment dÈsolÈe! L'enchantement ‡ ÈchouÈ...";
	next;
	mes "[Artifact Researcher]";
	mes "Je ne pensais pas que la ^FF0000"+getitemname(.@enchant_item)+"^000000 Ètait aussi fragile...";
	next;
	mes "[Artifact Researcher]";
	mes "Encore dÈsolÈe... N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez rÈessayer.";
	next;
	mes "[Artifact Researcher]";
	mes "Passez une bonne journÈe jeune aventurier~";
	close;
	}
	else
	{
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, .@enchant_card, .@card3, .@card4;
	mes "[Artifact Researcher]";
	mes "L'enchantement est terminÈ! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "C'Ètait le dernier enchantement de votre objet, fÈlicitations!";
	next;
	mes "[Artifact Researcher]";
	mes "Encore une fois, merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_normal_ra_armor:
	mes "[Artifact Researcher]";
	mes "Okay, nous allons pouvoir commencer la cÈrÈmonie d'enchantement...";
	mes "Vous voulez donc enchanter l'objet ^FF0000"+getitemname(.@enchant_item)+"^000000... C'est bien ce que vous m'avez dit?";
	next;
	mes "[Artifact Researcher]";
	mes "J'avais oubliÈ de vous le prÈciser, si vous avez des cartes, cela sera perdu.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors, je dois vous poser cette question avant de commencer.";
	mes "Souhaitez-vous poursuivre la procÈdure d'enchantement?";
	next;
	if(select("Commencer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "Ok. Je vous le signale encore une fois, chaque enchantement co˚te ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000.";
	mes "CommenÁons la procÈdure d'enchantement si vous voulez bien...";
	next;
	if(countitem(.@enchant_item) > 1)
	{
	mes "==Information==";
	mes "Vous devez avoir 1 seul objet sur vous pour que l'enchantement soit possible.";
	next;
	mes "==Information==";
	mes "Veuillez rÈessayer ultÈrieurement.";
	close;
	}
	if(isequipped(.@enchant_item)) {
	if(getequiprefinerycnt(.@enchant_type) >= 9) {
	mes "[Artifact Researcher]";
	mes "Votre equipement est raffinÈ ‡ au moins ^FF0000+9^000000.";
	mes "Vous pouvez alors choisir une option d'enchantement vu la soliditÈ de votre equipement.";
	next;
	mes "[Artifact Researcher]";
	mes "Je peux vous proposer deux options pour cet enchantement. Faites votre choix.";
	next;
	switch(select("Critical.:Range.:Annuler.")) {
	case 1:
	goto L_normal_ra_ability;
	case 2:
	goto L_normal_ra_puissance;
	case 3:
	goto L_quit;
	}
	}
	else
	{
	switch(rand(1,12)) {
	case 1:
	set .@enchant_card,4700;
	break;
	case 2:
	set .@enchant_card,4701;
	break;
	case 3:
	set .@enchant_card,4702;
	break;
	case 4:
	set .@enchant_card,4750;
	break;
	case 5:
	set .@enchant_card,4751;
	break;
	case 6:
	set .@enchant_card,4752;
	break;
	case 7:
	set .@enchant_card,4753;
	break;
	case 8:
	set .@enchant_card,4754;
	break;
	case 9:
	set .@enchant_card,4764;
	break;
	case 10:
	set .@enchant_card,4765;
	break;
	case 11:
	set .@enchant_card,4818;
	break;
	case 12:
	set .@enchant_card,4817;
	break;
	}
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet.";
	close;
	}
	else if(.@card3 >=1)
	goto L_normal_ra_armor_3rd;
	else if(.@card4 >=1)
	goto L_normal_ra_armor_2nd;
	else 
	goto L_normal_ra_armor_1st;
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Pouvez-vous mettre l'equipement sur vous, sinon je ne peux pas procÈder ‡ l'enchantement. Merci.";
	close;
	}
	
	L_normal_ra_ability:
	mes "[Artifact Researcher]";
	mes "Vous avez choisi l'option Critical.  tes-vous s˚r de votre choix?";
	next;
	if(select("Bien s˚r.","Non, je vais rÈflÈchir.") == 2) {
	goto L_quit;
	}
	switch(rand(1,5)) {
	case 1:
	set .@enchant_card,4701;
	break;
	case 2:
	set .@enchant_card,4752;
	break;
	case 3:
	set .@enchant_card,4753;
	break;
	case 4:
	set .@enchant_card,4754;
	break;
	case 5:
	set .@enchant_card,4764;
	break;
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet il semble avoir atteint son enchantement maximal.";
	close;
	}
	else if(.@card3 >=1)
	goto L_normal_ra_armor_3rd;
	else if(.@card4 >=1)
	goto L_normal_ra_armor_2nd;
	else 
	goto L_normal_ra_armor_1st;
	
	L_normal_ra_puissance:
	mes "[Artifact Researcher]";
	mes "Vous avez choisi l'option Range.  tes-vous s˚r de votre choix?";
	next;
	if(select("Bien s˚r.","Non, je vais rÈflÈchir.") == 2) {
	goto L_quit;
	}
	switch(rand(1,9)) {
	case 1:
	set .@enchant_card,4720;
	break;
	case 2:
	set .@enchant_card,4721;
	break;
	case 3:
	set .@enchant_card,4722;
	break;
	case 4:
	set .@enchant_card,4750;
	break;
	case 5:
	set .@enchant_card,4751;
	break;
	case 6:
	set .@enchant_card,4752;
	break;
	case 7:
	set .@enchant_card,4832;
	break;
	case 8:
	set .@enchant_card,4833;
	break;
	case 9:
	set .@enchant_card,4834;
	break;
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet il semble avoir atteint son enchantement maximal.";
	close;
	}
	else if(.@card3 >=1)
	goto L_normal_ra_armor_3rd;
	else if(.@card4 >=1)
	goto L_normal_ra_armor_2nd;
	else 
	goto L_normal_ra_armor_1st;
	
	L_normal_ra_armor_1st:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet objet est encore pure, nous allons alors procÈder ‡ la cÈrÈmonie d'enchantement comme il se doit.";
	next;
	mes "[Artifact Researcher]";
	mes "La cÈrÈmonie va pouvoir commencer, j'espËre que l'enchantement que en sortira vous conviendra!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, .@enchant_card;
	mes "[Artifact Researcher]";
	mes "L'enchantement est terminÈ! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_normal_ra_armor_2nd:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet objet a dÈj‡ enchantÈ une fois alors vous connaissez les risques auxquel vous vous engagez?";
	next;
	mes "[Artifact Researcher]";
	mes "L'enchantement a environ ^FF000060%^000000 de chance d'aboutir! Si l'enchantement Èchoue, pas de panique votre armure ne sera pas cassÈe mais vous la retrouverez ‡ l'Ètat pure.";
	next;
	mes "[Artifact Researcher]";
	mes "C'est ‡ dire que les enchantements,cartes seront supprimÈs si jamais la cÈrÈmonie Èchoue.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors je dois vous poser cette question.  tes-vous s˚r de vouloir procÈder ‡ l'enchantement, je vous promet de faire le meilleur.";
	next;
	if(select("Continuer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "TrËs bien, continuons la cÈrÈmonie... Et commenÁons l'enchantement dËs maintenant!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	if(rand(100)>60)
	{
	specialeffect 155;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, 0;
	mes "[Artifact Researcher]";
	mes "Je suis vraiment dÈsolÈe! L'enchantement ‡ ÈchouÈ...";
	next;
	mes "[Artifact Researcher]";
	mes "Je ne pensais pas que la ^FF0000"+getitemname(.@enchant_item)+"^000000 Ètait aussi fragile...";
	next;
	mes "[Artifact Researcher]";
	mes "Encore dÈsolÈe... N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez rÈessayer.";
	next;
	mes "[Artifact Researcher]";
	mes "Passez une bonne journÈe jeune aventurier~";
	close;
	}
	else
	{
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, .@enchant_card, .@card4;
	mes "[Artifact Researcher]";
	mes "L'enchantement a reussi! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_normal_ra_armor_3rd:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet objet a dÈj‡ enchantÈ deux fois alors vous connaissez les risques auxquel vous vous engagez?";
	next;
	mes "[Artifact Researcher]";
	mes "L'enchantement a environ ^FF000030%^000000 de chance d'aboutir! Si l'enchantement Èchoue, pas de panique votre armure ne sera pas cassÈe mais vous la retrouverez ‡ l'Ètat pure.";
	next;
	mes "[Artifact Researcher]";
	mes "C'est ‡ dire que les enchantements,cartes seront supprimÈs si jamais la cÈrÈmonie Èchoue.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors je dois vous poser cette question.  tes-vous s˚r de vouloir procÈder ‡ l'enchantement, je vous promet de faire le meilleur.";
	next;
	if(select("Continuer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "TrËs bien, continuons la cÈrÈmonie... Et commenÁons l'enchantement dËs maintenant!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	if(rand(100)>30)
	{
	specialeffect 155;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, 0;
	mes "[Artifact Researcher]";
	mes "Je suis vraiment dÈsolÈe! L'enchantement ‡ ÈchouÈ...";
	next;
	mes "[Artifact Researcher]";
	mes "Je ne pensais pas que la ^FF0000"+getitemname(.@enchant_item)+"^000000 Ètait aussi fragile...";
	next;
	mes "[Artifact Researcher]";
	mes "Encore dÈsolÈe... N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez rÈessayer.";
	next;
	mes "[Artifact Researcher]";
	mes "Passez une bonne journÈe jeune aventurier~";
	close;
	}
	else
	{
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, .@enchant_card, .@card3, .@card4;
	mes "[Artifact Researcher]";
	mes "L'enchantement est terminÈ! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "C'Ètait le dernier enchantement de votre objet, fÈlicitations!";
	next;
	mes "[Artifact Researcher]";
	mes "Encore une fois, merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
L_glt:
mes "[Artifact Researcher]";
mes "Vous voulez enchanter un equipement qui appartiendrait ‡ la classe Guillotine Cross. Ces equipements sont particuliËrement puissant une fois enchantÈ.";
next;
mes "[Artifact Researcher]";
mes "Pouvez vous me dire de quel type d'equipement s'agit-il?";
next;
switch(select("Armure.:Footgear.:Garment.:Accessoire.:Annuler.")) {
case 1:
set .@enchant_type,2;
goto L_glt_armure;
case 2:
set .@enchant_type,6;
goto L_glt_footgear;
case 3:
set .@enchant_type,5;
goto L_glt_garment;
case 4:
goto L_glt_access;
case 5:
goto L_quit;
}

L_glt_armure:
mes "[Artifact Researcher]";
mes "Vous voulez enchanter une armure, je vois. Les armures que je peux enchanter sont ^0000FFSapha's Cloth^000000 et ^0000FFNab's Cloth^000000.";
next;
mes "[Artifact Researcher]";
mes "Ces armures peuvent Ítre enchantÈes trois fois maximum. Le premier enchantement a un taux de rÈussite de 100% tandis que les deuxiËme et troisiËme sont plus difficile ‡ rÈaliser.";
next;
mes "[Artifact Researcher]";
mes "En effet, le deuxiËme enchantement a ^FF000060%^000000 de chance d'aboutir. Tandis que si vous souhaitez par la suite procÈder ‡ un troisiËme enchantement, il n'aura que ^FF000030%^000000 de chance d'aboutir.";
next;
mes "[Artifact Researcher]";
mes "Si jamais l'enchantement Èchoue, pas de panique votre equipement ne sera pas cassÈ mais vous perdrez tous les enchantements fait auparavant. Alors faites bien votre choix car je ne serais pas rÈsponsable de vos actes.";
next;
mes "[Artifact Researcher]";
mes "Si votre armure est raffinÈe ‡ +9, je vous proposerais deux options diffÈrentes avant de procÈder ‡ l'enchantement. Il est plus facile de modifier la faÁon d'enchanter un equipement quand il est plus solide.";
next;
mes "[Artifact Researcher]";
mes "Pour chaque enchantement, les frais de service sont ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000";
next;
mes "[Artifact Researcher]";
mes "Il faut aussi que l'equipement ‡ enchanter soit ÈquipÈ sur vous pour que cela fonctionne et que la puissance se mÍle ‡ votre esprit.";
next;
mes "[Artifact Researcher]";
mes "Maintenant, si vous voulez bien. Pouvez-vous me dire quel equipement vous souhaitez enchanter?";
next;
switch(select("Sapha's Cloth.:Nab's Cloth.:Annuler.")) {
case 1:
set .@enchant_item,15038;
goto L_normal_glt_armor;
case 2:
set .@enchant_item,15039;
goto L_normal_glt_armor;
case 3:
goto L_quit;
}

L_glt_footgear:
mes "[Artifact Researcher]";
mes "Vous voulez enchanter vos shoes, je vois. Les shoes que je peux enchanter sont ^0000FFSapha Shoes^000000 et ^0000FFNab Shoes^000000.";
next;
mes "[Artifact Researcher]";
mes "Ces shoes peuvent Ítre enchantÈes trois fois maximum. Le premier enchantement a un taux de rÈussite de 100% tandis que les deuxiËme et troisiËme sont plus difficile ‡ rÈaliser.";
next;
mes "[Artifact Researcher]";
mes "En effet, le deuxiËme enchantement a ^FF000060%^000000 de chance d'aboutir. Tandis que si vous souhaitez par la suite procÈder ‡ un troisiËme enchantement, il n'aura que ^FF000030%^000000 de chance d'aboutir.";
next;
mes "[Artifact Researcher]";
mes "Si jamais l'enchantement Èchoue, pas de panique votre equipement ne sera pas cassÈ mais vous perdrez tous les enchantements fait auparavant. Alors faites bien votre choix car je ne serais pas rÈsponsable de vos actes.";
next;
mes "[Artifact Researcher]";
mes "Si vos shoes sont raffinÈes ‡ +9, je vous proposerais deux options diffÈrentes avant de procÈder ‡ l'enchantement. Il est plus facile de modifier la faÁon d'enchanter un equipement quand il est plus solide.";
next;
mes "[Artifact Researcher]";
mes "Pour chaque enchantement, les frais de service sont ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000";
next;
mes "[Artifact Researcher]";
mes "Il faut aussi que l'equipement ‡ enchanter soit ÈquipÈ sur vous pour que cela fonctionne et que la puissance se mÍle ‡ votre esprit.";
next;
mes "[Artifact Researcher]";
mes "Maintenant, si vous voulez bien. Pouvez-vous me dire quel equipement vous souhaitez enchanter?";
next;
switch(select("Sapha Shoes.:Nab Shoes.:Annuler.")) {
case 1:
set .@enchant_item,2477;
goto L_glt_foot;
case 2:
set .@enchant_item,2478;
goto L_glt_foot;
case 3:
goto L_quit;
}

L_glt_garment:
mes "[Artifact Researcher]";
mes "Vous voulez enchanter votre garment, je vois. Les garments que je peux enchanter sont ^0000FFSapha Hood^000000 et ^0000FFNab Hood^000000.";
next;
mes "[Artifact Researcher]";
mes "Ces garments peuvent Ítre enchantÈs trois fois maximum. Le premier enchantement a un taux de rÈussite de 100% tandis que les deuxiËme et troisiËme sont plus difficile ‡ rÈaliser.";
next;
mes "[Artifact Researcher]";
mes "En effet, le deuxiËme enchantement a ^FF000060%^000000 de chance d'aboutir. Tandis que si vous souhaitez par la suite procÈder ‡ un troisiËme enchantement, il n'aura que ^FF000030%^000000 de chance d'aboutir.";
next;
mes "[Artifact Researcher]";
mes "Si jamais l'enchantement Èchoue, pas de panique votre equipement ne sera pas cassÈ mais vous perdrez tous les enchantements fait auparavant. Alors faites bien votre choix car je ne serais pas rÈsponsable de vos actes.";
next;
mes "[Artifact Researcher]";
mes "Si votre garment est raffinÈ ‡ +9, je vous proposerais deux options diffÈrentes avant de procÈder ‡ l'enchantement. Il est plus facile de modifier la faÁon d'enchanter un equipement quand il est plus solide.";
next;
mes "[Artifact Researcher]";
mes "Pour chaque enchantement, les frais de service sont ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000";
next;
mes "[Artifact Researcher]";
mes "Il faut aussi que l'equipement ‡ enchanter soit ÈquipÈ sur vous pour que cela fonctionne et que la puissance se mÍle ‡ votre esprit.";
next;
mes "[Artifact Researcher]";
mes "Maintenant, si vous voulez bien. Pouvez-vous me dire quel equipement vous souhaitez enchanter?";
next;
switch(select("Sapha Hood.:Nab Hood.:Annuler.")) {
case 1:
set .@enchant_item,2577;
goto L_glt_garm;
case 2:
set .@enchant_item,2578;
goto L_glt_garm;
case 3:
goto L_quit;
}

L_glt_access:
mes "[Artifact Researcher]";
mes "Vous voulez enchanter un accÈssoire, je vois. Les accÈssoires que je peux enchanter sont ^0000FFSapha Ring^000000 et ^0000FFNab Ring^000000.";
next;
mes "[Artifact Researcher]";
mes "Ces accÈssoires peuvent Ítre enchantÈs deux fois maximum. Le premier enchantement a un taux de reussite de ^0000FF100%^000000 et le deuxiËme de ^0000FF60%^000000.";
next;
mes "[Artifact Researcher]";
mes "Pour chaque enchantement, les frais de service sont ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000";
next;
mes "[Artifact Researcher]";
mes "Il faut aussi que l'equipement ‡ enchanter soit ÈquipÈ sur vous pour que cela fonctionne et que la puissance se mÍle ‡ votre esprit.";
next;
mes "[Artifact Researcher]";
mes "Maintenant, si vous voulez bien. Pouvez-vous me dire quel equipement vous souhaitez enchanter?";
next;
switch(select("Sapha Ring.:Nab Ring.:Annuler.")) {
case 1:
set .@enchant_item,2886;
goto L_glt_seal;
case 2:
set .@enchant_item,2887;
goto L_glt_seal;
case 3:
goto L_quit;
}
	
	L_glt_seal:
	mes "[Artifact Researcher]";
	mes "Okay, nous allons pouvoir commencer la cÈrÈmonie d'enchantement...";
	mes "Vous voulez donc enchanter l'objet ^FF0000"+getitemname(.@enchant_item)+"^000000... C'est bien ce que vous m'avez dit?";
	next;
	mes "[Artifact Researcher]";
	mes "J'avais oubliÈ de vous le prÈciser, si vous avez des cartes, cela sera perdu.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors, je dois vous poser cette question avant de commencer.";
	mes "Souhaitez-vous poursuivre la procÈdure d'enchantement?";
	next;
	if(select("Commencer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "Ok. Je vous le signale encore une fois, chaque enchantement co˚te ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000.";
	mes "CommenÁons la procÈdure d'enchantement si vous voulez bien...";
	next;
	if(countitem(.@enchant_item) > 1)
	{
	mes "==Information==";
	mes "Vous devez avoir 1 seul objet sur vous pour que l'enchantement soit possible.";
	next;
	mes "==Information==";
	mes "Veuillez rÈessayer ultÈrieurement.";
	close;
	}
	if(isequipped(.@enchant_item)) {
	if(.@enchant_item == 2886) {
	if(getequipid(7) == 2886) set .@enchant_type,7;
	else set.@enchant_type,8;
	}
	if(.@enchant_item == 2887) {
	if(getequipid(7) == 2887) set .@enchant_type,7;
	else set.@enchant_type,8;
	}
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card3 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ cet objet deux fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet.";
	close;
	}
	else if(.@card4 >=1)
	{
	switch(rand(1,8)) {
	case 1:
	set .@enchant_card,4700;
	break;
	case 2:
	set .@enchant_card,4740;
	break;
	case 3:
	set .@enchant_card,4730;
	break;
	case 4:
	set .@enchant_card,4720;
	break;
	case 5:
	set .@enchant_card,4793;
	break;
	case 6:
	set .@enchant_card,4788;
	break;
	case 7:
	set .@enchant_card,4802;
	break;
	case 8:
	set .@enchant_card,4797;
	break;
	}
	goto L_glt_seal_2nd;
	}
	else
	{
	switch(rand(1,8)) {
	case 1:
	set .@enchant_card,4700;
	break;
	case 2:
	set .@enchant_card,4740;
	break;
	case 3:
	set .@enchant_card,4730;
	break;
	case 4:
	set .@enchant_card,4720;
	break;
	case 5:
	set .@enchant_card,4792;
	break;
	case 6:
	set .@enchant_card,4787;
	break;
	case 7:
	set .@enchant_card,4801;
	break;
	case 8:
	set .@enchant_card,4796;
	break;
	}
	goto L_glt_seal_1st;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Pouvez-vous equiper le ^FF0000"+getitemname(.@enchant_item)+"^000000 sur vous, sinon je ne peux pas procÈder ‡ l'enchantement. Merci.";
	close;
	}
	
	L_glt_seal_1st:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet accÈssoire est encore pure, nous allons alors procÈder ‡ la cÈrÈmonie d'enchantement comme il se doit.";
	next;
	mes "[Artifact Researcher]";
	mes "La cÈrÈmonie va pouvoir commencer, j'espËre que l'enchantement que en sortira vous conviendra!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, .@enchant_card;
	mes "[Artifact Researcher]";
	mes "L'enchantement de cet accÈssoire est terminÈ! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_glt_seal_2nd:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet accÈssoire a dÈj‡ enchantÈ une fois alors vous connaissez les risques auxquel vous vous engagez?";
	next;
	mes "[Artifact Researcher]";
	mes "L'enchantement a environ ^FF000060%^000000 de chance d'aboutir! Si l'enchantement Èchoue, pas de panique votre accÈssoire ne sera pas cassÈ mais vous le retrouverez ‡ l'Ètat pure.";
	next;
	mes "[Artifact Researcher]";
	mes "C'est ‡ dire que les enchantements,cartes seront supprimÈs si jamais la cÈrÈmonie Èchoue.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors je dois vous poser cette question.  tes-vous s˚r de vouloir procÈder ‡ l'enchantement, je vous promet de faire le meilleur.";
	next;
	if(select("Continuer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "TrËs bien, continuons la cÈrÈmonie... Et commenÁons l'enchantement dËs maintenant!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	if(rand(100)>60)
	{
	specialeffect 155;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, 0;
	mes "[Artifact Researcher]";
	mes "Je suis vraiment dÈsolÈe! L'enchantement ‡ ÈchouÈ...";
	next;
	mes "[Artifact Researcher]";
	mes "Je ne pensais pas que la ^FF0000"+getitemname(.@enchant_item)+"^000000 Ètait aussi fragile...";
	next;
	mes "[Artifact Researcher]";
	mes "Encore dÈsolÈe... N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez rÈessayer.";
	next;
	mes "[Artifact Researcher]";
	mes "Passez une bonne journÈe jeune aventurier~";
	close;
	}
	else
	{
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, .@enchant_card, .@card4;
	mes "[Artifact Researcher]";
	mes "L'enchantement a reussi! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_glt_garm:
	mes "[Artifact Researcher]";
	mes "Okay, nous allons pouvoir commencer la cÈrÈmonie d'enchantement...";
	mes "Vous voulez donc enchanter l'objet ^FF0000"+getitemname(.@enchant_item)+"^000000... C'est bien ce que vous m'avez dit?";
	next;
	mes "[Artifact Researcher]";
	mes "J'avais oubliÈ de vous le prÈciser, si vous avez des cartes, cela sera perdu.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors, je dois vous poser cette question avant de commencer.";
	mes "Souhaitez-vous poursuivre la procÈdure d'enchantement?";
	next;
	if(select("Commencer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "Ok. Je vous le signale encore une fois, chaque enchantement co˚te ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000.";
	mes "CommenÁons la procÈdure d'enchantement si vous voulez bien...";
	next;
	if(countitem(.@enchant_item) > 1)
	{
	mes "==Information==";
	mes "Vous devez avoir 1 seul objet sur vous pour que l'enchantement soit possible.";
	next;
	mes "==Information==";
	mes "Veuillez rÈessayer ultÈrieurement.";
	close;
	}
	if(isequipped(.@enchant_item)) {
	if(getequiprefinerycnt(.@enchant_type) >= 9) {
	mes "[Artifact Researcher]";
	mes "Votre equipement est raffinÈ ‡ au moins ^FF0000+9^000000.";
	mes "Vous pouvez alors choisir une option d'enchantement vu la soliditÈ de vos chaussures.";
	next;
	mes "[Artifact Researcher]";
	mes "Je peux vous proposer deux options pour cet enchantement. Faites votre choix.";
	next;
	switch(select("Esquive.:Critical.:Annuler.")) {
	case 1:
	goto L_glt_garm_ability;
	case 2:
	goto L_glt_garm_puissance;
	case 3:
	goto L_quit;
	}
	}
	else
	{
	switch(rand(1,10)) {
	case 1:
	set .@enchant_card,4730;
	break;
	case 2:
	set .@enchant_card,4731;
	break;
	case 3:
	set .@enchant_card,4733;
	break;
	case 4:
	set .@enchant_card,4750;
	break;
	case 5:
	set .@enchant_card,4751;
	break;
	case 6:
	set .@enchant_card,4752;
	break;
	case 7:
	set .@enchant_card,4753;
	break;
	case 8:
	set .@enchant_card,4754;
	break;
	case 9:
	set .@enchant_card,4859;
	break;
	case 10:
	set .@enchant_card,4860;
	break;
	}
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet.";
	close;
	}
	else if(.@card3 >=1)
	goto L_glt_garm_3rd;
	else if(.@card4 >=1)
	goto L_glt_garm_2nd;
	else 
	goto L_glt_garm_1st;
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Pouvez-vous mettre le ^FF0000"+getitemname(.@enchant_item)+"^000000 sur vous, sinon je ne peux pas procÈder ‡ l'enchantement. Merci.";
	close;
	}
	
	L_glt_garm_ability:
	mes "[Artifact Researcher]";
	mes "Vous avez choisi l'option Esquive.  tes-vous s˚r de votre choix?";
	next;
	if(select("Bien s˚r.","Non, je vais rÈflÈchir.") == 2) {
	goto L_quit;
	}
	switch(rand(1,2)) {
	case 1:
	set .@enchant_card,4762;
	break;
	case 2:
	set .@enchant_card,4762;
	break;
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet il semble avoir atteint son enchantement maximal.";
	close;
	}
	else if(.@card3 >=1)
	goto L_glt_garm_3rd;
	else if(.@card4 >=1)
	goto L_glt_garm_2nd;
	else 
	goto L_glt_garm_1st;
	
	L_glt_garm_puissance:
	mes "[Artifact Researcher]";
	mes "Vous avez choisi l'option Critical.  tes-vous s˚r de votre choix?";
	next;
	if(select("Bien s˚r.","Non, je vais rÈflÈchir.") == 2) {
	goto L_quit;
	}
	switch(rand(1,6)) {
	case 1:
	set .@enchant_card,4700;
	break;
	case 2:
	set .@enchant_card,4701;
	break;
	case 3:
	set .@enchant_card,4702;
	break;
	case 4:
	set .@enchant_card,4764;
	break;
	case 5:
	set .@enchant_card,4765;
	break;
	case 6:
	set .@enchant_card,4818;
	break;
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ ce Hood trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet il semble avoir atteint son enchantement maximal.";
	close;
	}
	else if(.@card3 >=1)
	goto L_glt_garm_3rd;
	else if(.@card4 >=1)
	goto L_glt_garm_2nd;
	else 
	goto L_glt_garm_1st;
	
	L_glt_garm_1st:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Ce Hood est encore pure, nous allons alors procÈder ‡ la cÈrÈmonie d'enchantement comme il se doit.";
	next;
	mes "[Artifact Researcher]";
	mes "La cÈrÈmonie va pouvoir commencer, j'espËre que l'enchantement que en sortira vous conviendra!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, .@enchant_card;
	mes "[Artifact Researcher]";
	mes "L'enchantement du Hood est terminÈ! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_glt_garm_2nd:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Ce Hood a dÈj‡ enchantÈ une fois alors vous connaissez les risques auxquel vous vous engagez?";
	next;
	mes "[Artifact Researcher]";
	mes "L'enchantement a environ ^FF000060%^000000 de chance d'aboutir! Si l'enchantement Èchoue, pas de panique votre garment ne sera pas cassÈ mais vous le retrouverez ‡ l'Ètat pure.";
	next;
	mes "[Artifact Researcher]";
	mes "C'est ‡ dire que les enchantements,cartes seront supprimÈs si jamais la cÈrÈmonie Èchoue.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors je dois vous poser cette question.  tes-vous s˚r de vouloir procÈder ‡ l'enchantement, je vous promet de faire le meilleur.";
	next;
	if(select("Continuer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "TrËs bien, continuons la cÈrÈmonie... Et commenÁons l'enchantement dËs maintenant!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	if(rand(100)>60)
	{
	specialeffect 155;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, 0;
	mes "[Artifact Researcher]";
	mes "Je suis vraiment dÈsolÈe! L'enchantement ‡ ÈchouÈ...";
	next;
	mes "[Artifact Researcher]";
	mes "Je ne pensais pas que la ^FF0000"+getitemname(.@enchant_item)+"^000000 Ètait aussi fragile...";
	next;
	mes "[Artifact Researcher]";
	mes "Encore dÈsolÈe... N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez rÈessayer.";
	next;
	mes "[Artifact Researcher]";
	mes "Passez une bonne journÈe jeune aventurier~";
	close;
	}
	else
	{
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, .@enchant_card, .@card4;
	mes "[Artifact Researcher]";
	mes "L'enchantement a reussi! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_glt_garm_3rd:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Ce manteau a dÈj‡ enchantÈ deux fois alors vous connaissez les risques auxquel vous vous engagez?";
	next;
	mes "[Artifact Researcher]";
	mes "L'enchantement du Hood a environ ^FF000030%^000000 de chance d'aboutir! Si l'enchantement Èchoue, pas de panique votre armure ne sera pas cassÈe mais vous la retrouverez ‡ l'Ètat pure.";
	next;
	mes "[Artifact Researcher]";
	mes "C'est ‡ dire que les enchantements,cartes seront supprimÈs si jamais la cÈrÈmonie Èchoue.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors je dois vous poser cette question.  tes-vous s˚r de vouloir procÈder ‡ l'enchantement, je vous promet de faire le meilleur.";
	next;
	if(select("Continuer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "TrËs bien, continuons la cÈrÈmonie... Et commenÁons l'enchantement dËs maintenant!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	if(rand(100)>30)
	{
	specialeffect 155;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, 0;
	mes "[Artifact Researcher]";
	mes "Je suis vraiment dÈsolÈe! L'enchantement ‡ ÈchouÈ...";
	next;
	mes "[Artifact Researcher]";
	mes "Je ne pensais pas que la ^FF0000"+getitemname(.@enchant_item)+"^000000 Ètait aussi fragile...";
	next;
	mes "[Artifact Researcher]";
	mes "Encore dÈsolÈe... N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez rÈessayer.";
	next;
	mes "[Artifact Researcher]";
	mes "Passez une bonne journÈe jeune aventurier~";
	close;
	}
	else
	{
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, .@enchant_card, .@card3, .@card4;
	mes "[Artifact Researcher]";
	mes "L'enchantement est terminÈ! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "C'Ètait le dernier enchantement de votre objet, fÈlicitations!";
	next;
	mes "[Artifact Researcher]";
	mes "Encore une fois, merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_glt_foot:
	mes "[Artifact Researcher]";
	mes "Okay, nous allons pouvoir commencer la cÈrÈmonie d'enchantement...";
	mes "Vous voulez donc enchanter l'objet ^FF0000"+getitemname(.@enchant_item)+"^000000... C'est bien ce que vous m'avez dit?";
	next;
	mes "[Artifact Researcher]";
	mes "J'avais oubliÈ de vous le prÈciser, si vous avez des cartes, cela sera perdu.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors, je dois vous poser cette question avant de commencer.";
	mes "Souhaitez-vous poursuivre la procÈdure d'enchantement?";
	next;
	if(select("Commencer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "Ok. Je vous le signale encore une fois, chaque enchantement co˚te ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000.";
	mes "CommenÁons la procÈdure d'enchantement si vous voulez bien...";
	next;
	if(countitem(.@enchant_item) > 1)
	{
	mes "==Information==";
	mes "Vous devez avoir 1 seul objet sur vous pour que l'enchantement soit possible.";
	next;
	mes "==Information==";
	mes "Veuillez rÈessayer ultÈrieurement.";
	close;
	}
	if(isequipped(.@enchant_item)) {
	if(getequiprefinerycnt(.@enchant_type) >= 9) {
	mes "[Artifact Researcher]";
	mes "Votre equipement est raffinÈ ‡ au moins ^FF0000+9^000000.";
	mes "Vous pouvez alors choisir une option d'enchantement vu la soliditÈ de vos chaussures.";
	next;
	mes "[Artifact Researcher]";
	mes "Je peux vous proposer deux options pour cet enchantement. Faites votre choix.";
	next;
	switch(select("AbilitÈ.:ATK Type.:Annuler.")) {
	case 1:
	goto L_glt_foot_ability;
	case 2:
	goto L_glt_foot_puissance;
	case 3:
	goto L_quit;
	}
	}
	else
	{
	switch(rand(1,12)) {
	case 1:
	set .@enchant_card,4700;
	break;
	case 2:
	set .@enchant_card,4730;
	break;
	case 3:
	set .@enchant_card,4740;
	break;
	case 4:
	set .@enchant_card,4720;
	break;
	case 5:
	set .@enchant_card,4796;
	break;
	case 6:
	set .@enchant_card,4797;
	break;
	case 7:
	set .@enchant_card,4801;
	break;
	case 8:
	set .@enchant_card,4802;
	break;
	case 9:
	set .@enchant_card,4792;
	break;
	case 10:
	set .@enchant_card,4793;
	break;
	case 11:
	set .@enchant_card,4787;
	break;
	case 12:
	set .@enchant_card,4788;
	break;
	}
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet.";
	close;
	}
	else if(.@card3 >=1)
	goto L_glt_foot_3rd;
	else if(.@card4 >=1)
	goto L_glt_foot_2nd;
	else 
	goto L_glt_foot_1st;
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Pouvez-vous mettre l'equipement sur vous, sinon je ne peux pas procÈder ‡ l'enchantement. Merci.";
	close;
	}
	
	L_glt_foot_ability:
	mes "[Artifact Researcher]";
	mes "Vous avez choisi l'option AbilitÈ.  tes-vous s˚r de votre choix?";
	next;
	if(select("Bien s˚r.","Non, je vais rÈflÈchir.") == 2) {
	goto L_quit;
	}
	switch(rand(1,8)) {
	case 1:
	set .@enchant_card,4801;
	break;
	case 2:
	set .@enchant_card,4802;
	break;
	case 3:
	set .@enchant_card,4720;
	break;
	case 4:
	set .@enchant_card,4796;
	break;
	case 5:
	set .@enchant_card,4700;
	break;
	case 6:
	set .@enchant_card,4792;
	break;
	case 7:
	set .@enchant_card,4793;
	break;
	case 8:
	set .@enchant_card,4787;
	break;
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet il semble avoir atteint son enchantement maximal.";
	close;
	}
	else if(.@card3 >=1)
	goto L_glt_foot_3rd;
	else if(.@card4 >=1)
	goto L_glt_foot_2nd;
	else 
	goto L_glt_foot_1st;
	
	L_glt_foot_puissance:
	mes "[Artifact Researcher]";
	mes "Vous avez choisi l'option ATK Type.  tes-vous s˚r de votre choix?";
	next;
	if(select("Bien s˚r.","Non, je vais rÈflÈchir.") == 2) {
	goto L_quit;
	}
	switch(rand(1,8)) {
	case 1:
	set .@enchant_card,4702;
	break;
	case 2:
	set .@enchant_card,4703;
	break;
	case 3:
	set .@enchant_card,4819;
	break;
	case 4:
	set .@enchant_card,4766;
	break;
	case 5:
	set .@enchant_card,4767;
	break;
	case 6:
	set .@enchant_card,4811;
	break;
	case 7:
	set .@enchant_card,4810;
	break;
	case 8:
	set .@enchant_card,4809;
	break;
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet il semble avoir atteint son enchantement maximal.";
	close;
	}
	else if(.@card3 >=1)
	goto L_glt_foot_3rd;
	else if(.@card4 >=1)
	goto L_glt_foot_2nd;
	else 
	goto L_glt_foot_1st;
	
	L_glt_foot_1st:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet objet est encore pure, nous allons alors procÈder ‡ la cÈrÈmonie d'enchantement comme il se doit.";
	next;
	mes "[Artifact Researcher]";
	mes "La cÈrÈmonie va pouvoir commencer, j'espËre que l'enchantement que en sortira vous conviendra!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, .@enchant_card;
	mes "[Artifact Researcher]";
	mes "L'enchantement est terminÈ! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_glt_foot_2nd:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet objet a dÈj‡ enchantÈ une fois alors vous connaissez les risques auxquel vous vous engagez?";
	next;
	mes "[Artifact Researcher]";
	mes "L'enchantement a environ ^FF000060%^000000 de chance d'aboutir! Si l'enchantement Èchoue, pas de panique vos shoes ne seront pas cassÈes mais vous les retrouverez ‡ l'Ètat pure.";
	next;
	mes "[Artifact Researcher]";
	mes "C'est ‡ dire que les enchantements,cartes seront supprimÈs si jamais la cÈrÈmonie Èchoue.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors je dois vous poser cette question.  tes-vous s˚r de vouloir procÈder ‡ l'enchantement, je vous promet de faire le meilleur.";
	next;
	if(select("Continuer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "TrËs bien, continuons la cÈrÈmonie... Et commenÁons l'enchantement dËs maintenant!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	if(rand(100)>60)
	{
	specialeffect 155;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, 0;
	mes "[Artifact Researcher]";
	mes "Je suis vraiment dÈsolÈe! L'enchantement ‡ ÈchouÈ...";
	next;
	mes "[Artifact Researcher]";
	mes "Je ne pensais pas que la ^FF0000"+getitemname(.@enchant_item)+"^000000 Ètait aussi fragile...";
	next;
	mes "[Artifact Researcher]";
	mes "Encore dÈsolÈe... N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez rÈessayer.";
	next;
	mes "[Artifact Researcher]";
	mes "Passez une bonne journÈe jeune aventurier~";
	close;
	}
	else
	{
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, .@enchant_card, .@card4;
	mes "[Artifact Researcher]";
	mes "L'enchantement a reussi! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_glt_foot_3rd:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet objet a dÈj‡ enchantÈ deux fois alors vous connaissez les risques auxquel vous vous engagez?";
	next;
	mes "[Artifact Researcher]";
	mes "L'enchantement a environ ^FF000030%^000000 de chance d'aboutir! Si l'enchantement Èchoue, pas de panique vos shoes ne seront pas cassÈes mais vous les retrouverez ‡ l'Ètat pure.";
	next;
	mes "[Artifact Researcher]";
	mes "C'est ‡ dire que les enchantements,cartes seront supprimÈs si jamais la cÈrÈmonie Èchoue.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors je dois vous poser cette question.  tes-vous s˚r de vouloir procÈder ‡ l'enchantement, je vous promet de faire le meilleur.";
	next;
	if(select("Continuer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "TrËs bien, continuons la cÈrÈmonie... Et commenÁons l'enchantement dËs maintenant!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	if(rand(100)>30)
	{
	specialeffect 155;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, 0;
	mes "[Artifact Researcher]";
	mes "Je suis vraiment dÈsolÈe! L'enchantement ‡ ÈchouÈ...";
	next;
	mes "[Artifact Researcher]";
	mes "Je ne pensais pas que la ^FF0000"+getitemname(.@enchant_item)+"^000000 Ètait aussi fragile...";
	next;
	mes "[Artifact Researcher]";
	mes "Encore dÈsolÈe... N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez rÈessayer.";
	next;
	mes "[Artifact Researcher]";
	mes "Passez une bonne journÈe jeune aventurier~";
	close;
	}
	else
	{
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, .@enchant_card, .@card3, .@card4;
	mes "[Artifact Researcher]";
	mes "L'enchantement est terminÈ! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "C'Ètait le dernier enchantement de votre objet, fÈlicitations!";
	next;
	mes "[Artifact Researcher]";
	mes "Encore une fois, merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_normal_glt_armor:
	mes "[Artifact Researcher]";
	mes "Okay, nous allons pouvoir commencer la cÈrÈmonie d'enchantement...";
	mes "Vous voulez donc enchanter l'objet ^FF0000"+getitemname(.@enchant_item)+"^000000... C'est bien ce que vous m'avez dit?";
	next;
	mes "[Artifact Researcher]";
	mes "J'avais oubliÈ de vous le prÈciser, si vous avez des cartes, cela sera perdu.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors, je dois vous poser cette question avant de commencer.";
	mes "Souhaitez-vous poursuivre la procÈdure d'enchantement?";
	next;
	if(select("Commencer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "Ok. Je vous le signale encore une fois, chaque enchantement co˚te ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000.";
	mes "CommenÁons la procÈdure d'enchantement si vous voulez bien...";
	next;
	if(countitem(.@enchant_item) > 1)
	{
	mes "==Information==";
	mes "Vous devez avoir 1 seul objet sur vous pour que l'enchantement soit possible.";
	next;
	mes "==Information==";
	mes "Veuillez rÈessayer ultÈrieurement.";
	close;
	}
	if(isequipped(.@enchant_item)) {
	if(getequiprefinerycnt(.@enchant_type) >= 9) {
	mes "[Artifact Researcher]";
	mes "Votre equipement est raffinÈ ‡ au moins ^FF0000+9^000000.";
	mes "Vous pouvez alors choisir une option d'enchantement vu la soliditÈ de votre equipement.";
	next;
	mes "[Artifact Researcher]";
	mes "Je peux vous proposer deux options pour cet enchantement. Faites votre choix.";
	next;
	switch(select("ATK Type.:Critical.:Annuler.")) {
	case 1:
	goto L_normal_glt_ability;
	case 2:
	goto L_normal_glt_puissance;
	case 3:
	goto L_quit;
	}
	}
	else
	{
	switch(rand(1,15)) {
	case 1:
	set .@enchant_card,4700;
	break;
	case 2:
	set .@enchant_card,4701;
	break;
	case 3:
	set .@enchant_card,4702;
	break;
	case 4:
	set .@enchant_card,4703;
	break;
	case 5:
	set .@enchant_card,4750;
	break;
	case 6:
	set .@enchant_card,4751;
	break;
	case 7:
	set .@enchant_card,4752;
	break;
	case 8:
	set .@enchant_card,4753;
	break;
	case 9:
	set .@enchant_card,4766;
	break;
	case 10:
	set .@enchant_card,4767;
	break;
	case 11:
	set .@enchant_card,4819;
	break;
	case 12:
	set .@enchant_card,4811;
	break;
	case 13:
	set .@enchant_card,4808;
	break;
	case 14:
	set .@enchant_card,4809;
	break;
	case 15:
	set .@enchant_card,4810;
	break;
	}
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet.";
	close;
	}
	else if(.@card3 >=1)
	goto L_normal_glt_armor_3rd;
	else if(.@card4 >=1)
	goto L_normal_glt_armor_2nd;
	else 
	goto L_normal_glt_armor_1st;
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Pouvez-vous mettre l'equipement sur vous, sinon je ne peux pas procÈder ‡ l'enchantement. Merci.";
	close;
	}
	
	L_normal_glt_ability:
	mes "[Artifact Researcher]";
	mes "Vous avez choisi l'option ATK Type.  tes-vous s˚r de votre choix?";
	next;
	if(select("Bien s˚r.","Non, je vais rÈflÈchir.") == 2) {
	goto L_quit;
	}
	switch(rand(1,4)) {
	case 1:
	set .@enchant_card,4750;
	break;
	case 2:
	set .@enchant_card,4751;
	break;
	case 3:
	set .@enchant_card,4752;
	break;
	case 4:
	set .@enchant_card,4753;
	break;
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet il semble avoir atteint son enchantement maximal.";
	close;
	}
	else if(.@card3 >=1)
	goto L_normal_glt_armor_3rd;
	else if(.@card4 >=1)
	goto L_normal_glt_armor_2nd;
	else 
	goto L_normal_glt_armor_1st;
	
	L_normal_glt_puissance:
	mes "[Artifact Researcher]";
	mes "Vous avez choisi l'option Critical.  tes-vous s˚r de votre choix?";
	next;
	if(select("Bien s˚r.","Non, je vais rÈflÈchir.") == 2) {
	goto L_quit;
	}
	switch(rand(1,2)) {
	case 1:
	set .@enchant_card,4764;
	break;
	case 2:
	set .@enchant_card,4818;
	break;
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Researcher]";
	mes "Je peux enchantÈ un objet trois fois au maximum. Je suis vraiment dÈsolÈe, mais je ne peux plus travailler sur cet objet il semble avoir atteint son enchantement maximal.";
	close;
	}
	else if(.@card3 >=1)
	goto L_normal_glt_armor_3rd;
	else if(.@card4 >=1)
	goto L_normal_glt_armor_2nd;
	else 
	goto L_normal_glt_armor_1st;
	
	L_normal_glt_armor_1st:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet objet est encore pure, nous allons alors procÈder ‡ la cÈrÈmonie d'enchantement comme il se doit.";
	next;
	mes "[Artifact Researcher]";
	mes "La cÈrÈmonie va pouvoir commencer, j'espËre que l'enchantement que en sortira vous conviendra!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, .@enchant_card;
	mes "[Artifact Researcher]";
	mes "L'enchantement est terminÈ! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_normal_glt_armor_2nd:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet objet a dÈj‡ enchantÈ une fois alors vous connaissez les risques auxquel vous vous engagez?";
	next;
	mes "[Artifact Researcher]";
	mes "L'enchantement a environ ^FF000060%^000000 de chance d'aboutir! Si l'enchantement Èchoue, pas de panique votre armure ne sera pas cassÈe mais vous la retrouverez ‡ l'Ètat pure.";
	next;
	mes "[Artifact Researcher]";
	mes "C'est ‡ dire que les enchantements,cartes seront supprimÈs si jamais la cÈrÈmonie Èchoue.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors je dois vous poser cette question.  tes-vous s˚r de vouloir procÈder ‡ l'enchantement, je vous promet de faire le meilleur.";
	next;
	if(select("Continuer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "TrËs bien, continuons la cÈrÈmonie... Et commenÁons l'enchantement dËs maintenant!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	if(rand(100)>60)
	{
	specialeffect 155;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, 0;
	mes "[Artifact Researcher]";
	mes "Je suis vraiment dÈsolÈe! L'enchantement ‡ ÈchouÈ...";
	next;
	mes "[Artifact Researcher]";
	mes "Je ne pensais pas que la ^FF0000"+getitemname(.@enchant_item)+"^000000 Ètait aussi fragile...";
	next;
	mes "[Artifact Researcher]";
	mes "Encore dÈsolÈe... N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez rÈessayer.";
	next;
	mes "[Artifact Researcher]";
	mes "Passez une bonne journÈe jeune aventurier~";
	close;
	}
	else
	{
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, .@enchant_card, .@card4;
	mes "[Artifact Researcher]";
	mes "L'enchantement a reussi! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "Merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
	
	L_normal_glt_armor_3rd:
	if(countitem(6380) >= 1 && Zeny >= 100000) {
	mes "[Artifact Researcher]";
	mes "Je ressens la puissance de votre ^FF0000"+getitemname(.@enchant_item)+"^000000. Cet objet a dÈj‡ enchantÈ deux fois alors vous connaissez les risques auxquel vous vous engagez?";
	next;
	mes "[Artifact Researcher]";
	mes "L'enchantement a environ ^FF000030%^000000 de chance d'aboutir! Si l'enchantement Èchoue, pas de panique votre armure ne sera pas cassÈe mais vous la retrouverez ‡ l'Ètat pure.";
	next;
	mes "[Artifact Researcher]";
	mes "C'est ‡ dire que les enchantements,cartes seront supprimÈs si jamais la cÈrÈmonie Èchoue.";
	next;
	mes "[Artifact Researcher]";
	mes "Alors je dois vous poser cette question.  tes-vous s˚r de vouloir procÈder ‡ l'enchantement, je vous promet de faire le meilleur.";
	next;
	if(select("Continuer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Researcher]";
	mes "TrËs bien, continuons la cÈrÈmonie... Et commenÁons l'enchantement dËs maintenant!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	if(rand(100)>30)
	{
	specialeffect 155;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, 0;
	mes "[Artifact Researcher]";
	mes "Je suis vraiment dÈsolÈe! L'enchantement ‡ ÈchouÈ...";
	next;
	mes "[Artifact Researcher]";
	mes "Je ne pensais pas que la ^FF0000"+getitemname(.@enchant_item)+"^000000 Ètait aussi fragile...";
	next;
	mes "[Artifact Researcher]";
	mes "Encore dÈsolÈe... N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez rÈessayer.";
	next;
	mes "[Artifact Researcher]";
	mes "Passez une bonne journÈe jeune aventurier~";
	close;
	}
	else
	{
	specialeffect EF_SANCTUARY;
	delitem 6380,1;
	set Zeny,Zeny-100000;
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, .@enchant_card, .@card3, .@card4;
	mes "[Artifact Researcher]";
	mes "L'enchantement est terminÈ! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Artifact Researcher]";
	mes "C'Ètait le dernier enchantement de votre objet, fÈlicitations!";
	next;
	mes "[Artifact Researcher]";
	mes "Encore une fois, merci beaucoup d'avoir utilisÈ mes services.";
	next;
	mes "[Artifact Researcher]";
	mes "Si vous avez encore besoin de moi, n'hÈsitez pas ‡ revenir. Merci encore et passez une bonne journÈe~";
	close;
	}
	}
	else
	{
	mes "[Artifact Researcher]";
	mes "Je vois que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Artifact Researcher]";
	mes "Je suis dÈsolÈe vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 ou de ^0000FFZeny^000000 sur vous. Mes services co˚tent ^0000FF1 Mora Coin^000000 et ^0000FF100,000 Zeny^000000 par objet.";
	next;
	mes "[Artifact Researcher]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}
//===========================MESSAGE DE FIN QUAND QUITTE===================================
//=================================BY SUPERHULK=========================================
L_quit:
mes "[Artifact Researcher]";
mes "D'accord, revenez quand vous le souhaitez si jamais vous avez besoin de mes services.";
next;
mes "[Artifact Researcher]";
mes "Passez une excellente journÈe~";
close;
}
//===========================
//====ARTIFACT CRAFTER=======
//===========================
mora,99,93,5	script	Artifact Crafter	495,{
mes "[Artifact Crafter]";
mes "Salut, jeune aventurier. Vous avez dÈj‡ peut-Ítre entendu parler de moi? Je suis un des enchanteurs de Mora.";
next;
mes "[Artifact Crafter]";
mes "Si vous avez besoin d'enchanter une arme ou un equipement, vous Ítes le bienvenue!";
next;
mes "[Artifact Crafter]";
mes "Alors, est-ce le cas? L'objet que vous souhaitez enchanter fait partit de quel type d'equipement?";
next;
switch(select("Armes.:Armure.:Accessoire.:Footgear.:Annuler.")) {
case 1:
goto L_armes;
case 2:
set .@enchant_type,2;
goto L_armure;
case 3:
goto L_access;
case 4:
set .@enchant_type,6;
goto L_foot;
case 5:
goto L_quit;
}

	L_armes:
	mes "[Artifact Crafter]";
	mes "Si vous ne le saviez pas, je n'enchante plus les armes suivantes:";
	mes "^0000FFGolden Rod Staff^000000";
	mes "^0000FFAqua Staff^000000";
	mes "^0000FFCrimson Staff^000000";
	mes "^0000FFForest Staff^000000";
	next;
	mes "[Artifact Crafter]";
	mes "Artifact collector reprend ses anciennes reliques ‡ leur Ètat naturel alors il est inutile pour vous de les enchanter.";
	mes "Vous devriez aller le voir, il pourra vous Èchanger ces armes si vous en disposez contre des versions amÈliorÈs.";
	close;

	L_armure:
	mes "[Artifact Crafter]";
	mes "Vous souhaitez enchanter une armure, je vois.";
	next;
	mes "[Artifact Crafter]";
	mes "Avant de vous demander quel equipement vous souhaitez enchanter, je dois vous faire quelques prÈcision sur l'enchantement.";
	next;
	mes "[Artifact Crafter]";
	mes "Si votre armure contient des cartes, elles seront perdues ‡ l'enchantement. Alors ne faites pas de faux pas, vÈrifiez bien votre armure avant d'Ítre sur de vouloir l'enchantÈ!";
	next;
	mes "[Artifact Crafter]";
	mes "Une autre prÈcision, pour enchantÈ une armure, vous devez la porter sur vous sinon l'enchantement ne fonctionnera pas.";
	mes "Ah et ne vous en faite pas, l'enchantement ne peut pas ÈchouÈ. Par compte je ne contrÙle pas completement mes pouvoirs pour rÈussir ‡ choisir un enchantement prÈcis alors c'est alÈatoire.";
	next;
	mes "[Artifact Crafter]";
	mes "Ne vous inquietez pas, je vous re-prÈciserais tous ces points avant de commencer l'enchantement si vous n'avez pas bien compris.";
	next;
	mes "[Artifact Crafter]";
	mes "Voyons voir... Donc, pouvez-vous me dire quel equipement voulez-vous enchanter?";
	next;
	switch(select("Golden Rod Robe.:Aqua Robe.:Crimson Robe.:Forest Robe.:Annuler.")) {
	case 1:
	set .@enchant_item,15025;
	goto L_enchant;
	case 2:
	set .@enchant_item,15026;
	goto L_enchant;
	case 3:
	set .@enchant_item,15027;
	goto L_enchant;
	case 4:
	set .@enchant_item,15028;
	goto L_enchant;
	case 5:
	goto L_quit;
	}
	
	L_access:
	mes "[Artifact Crafter]";
	mes "Vous souhaitez enchanter un accÈssoire, je vois.";
	next;
	mes "[Artifact Crafter]";
	mes "Avant de vous demander quel equipement vous souhaitez enchanter, je dois vous faire quelques prÈcision sur l'enchantement.";
	next;
	mes "[Artifact Crafter]";
	mes "Si votre accÈssoire contient des cartes, elles seront perdues ‡ l'enchantement. Alors ne faites pas de faux pas, vÈrifiez bien votre accÈssoire avant d'Ítre sur de vouloir l'enchantÈ!";
	next;
	mes "[Artifact Crafter]";
	mes "Une autre prÈcision, pour enchantÈ un objet, vous devez le porter sur vous sinon l'enchantement ne fonctionnera pas.";
	mes "Ah et ne vous en faite pas, l'enchantement ne peut pas ÈchouÈ. Par compte je ne contrÙle pas completement mes pouvoirs pour rÈussir ‡ choisir un enchantement prÈcis alors c'est alÈatoire.";
	next;
	mes "[Artifact Crafter]";
	mes "Ne vous inquietez pas, je vous re-prÈciserais tous ces points avant de commencer l'enchantement si vous n'avez pas bien compris.";
	next;
	mes "[Artifact Crafter]";
	mes "Voyons voir... Donc, pouvez-vous me dire quel equipement voulez-vous enchanter?";
	next;
	switch(select("Golden Rod Orb.:Aqua Orb.:Crimson Orb.:Forest Orb.:Annuler.")) {
	case 1:
	set .@enchant_item,2859;
	goto L_enchant;
	case 2:
	set .@enchant_item,2860;
	goto L_enchant;
	case 3:
	set .@enchant_item,2861;
	goto L_enchant;
	case 4:
	set .@enchant_item,2862;
	goto L_enchant;
	case 5:
	goto L_quit;
	}

	L_foot:
	mes "[Artifact Crafter]";
	mes "Vous souhaitez enchanter un equipement, je vois.";
	next;
	mes "[Artifact Crafter]";
	mes "Avant de vous demander quel equipement vous souhaitez enchanter, je dois vous faire quelques prÈcision sur l'enchantement.";
	next;
	mes "[Artifact Crafter]";
	mes "Si vos shoes contiennent des cartes, elles seront perdues ‡ l'enchantement. Alors ne faites pas de faux pas, vÈrifiez bien vos shoes avant d'Ítre sur de vouloir les enchantÈ!";
	next;
	mes "[Artifact Crafter]";
	mes "Une autre prÈcision, pour enchantÈ les shoes, vous devez les porter sur vous sinon l'enchantement ne fonctionnera pas.";
	mes "Ah et ne vous en faite pas, l'enchantement ne peut pas ÈchouÈ. Par compte je ne contrÙle pas completement mes pouvoirs pour rÈussir ‡ choisir un enchantement prÈcis alors c'est alÈatoire.";
	next;
	mes "[Artifact Crafter]";
	mes "Ne vous inquietez pas, je vous re-prÈciserais tous ces points avant de commencer l'enchantement si vous n'avez pas bien compris.";
	next;
	mes "[Artifact Crafter]";
	mes "Voyons voir... Donc, pouvez-vous me dire quel equipement voulez-vous enchanter?";
	next;
	switch(select("Golden Rod Shoes.:Aqua Shoes.:Crimson Shoes.:Forest Shoes.:Annuler.")) {
	case 1:
	set .@enchant_item,2467;
	goto L_enchant;
	case 2:
	set .@enchant_item,2468;
	goto L_enchant;
	case 3:
	set .@enchant_item,2469;
	goto L_enchant;
	case 4:
	set .@enchant_item,2470;
	goto L_enchant;
	case 5:
	goto L_quit;
	}

	L_enchant:
	mes "[Artifact Crafter]";
	mes "TrËs bien, nous allons pouvoir commencer la procÈdure d'enchantement...";
	mes "Vous voulez donc enchanter l'objet ^FF0000"+getitemname(.@enchant_item)+"^000000... C'est un bon choix.";
	next;
	mes "[Artifact Crafter]";
	mes "Comme je vous l'ai dit auparavant, si vous avez des cartes, ces informations seront perdues. Je vous rappel aussi que l'enchantement est alÈatoire, vous ne pouvez pas choisir les statistiques qui affecteront votre equipement ‡ l'enchantement.";
	next;
	mes "[Artifact Crafter]";
	mes "Alors, je dois vous poser cette question avant de commencer.";
	mes "Souhaitez-vous poursuivre la procÈdure d'enchantement?";
	next;
	if(select("Enchanter l'equipement.","Ne pas enchanter l'equipement.") == 2) {
	goto L_quit;
	}
	mes "[Artifact Crafter]";
	mes "J'avais aussi oubliÈ de vous le prÈciser, chaque enchantement vous co˚tera la faible somme de ^0000FF5 Mora Coin^000000.";
	mes "CommenÁons la procÈdure d'enchantement si vous voulez bien...";
	next;
	if(countitem(.@enchant_item) > 1)
	{
	mes "==Information==";
	mes "Vous devez avoir 1 seul objet sur vous pour que l'enchantement soit possible.";
	next;
	mes "==Information==";
	mes "Veuillez rÈessayer ultÈrieurement.";
	close;
	}
	if(isequipped(.@enchant_item)) {
	if(.@enchant_item == 2859 || .@enchant_item == 2860 || .@enchant_item == 2861 || .@enchant_item == 2862)
	{
	if(.@enchant_item == 2859) {
	if(getequipid(7) == 2859) set .@enchant_type,7;
	else set.@enchant_type,8;
	}
	if(.@enchant_item == 2860) {
	if(getequipid(7) == 2860) set .@enchant_type,7;
	else set.@enchant_type,8;
	}
	if(.@enchant_item == 2861) {
	if(getequipid(7) == 2861) set .@enchant_type,7;
	else set.@enchant_type,8;
	}
	if(.@enchant_item == 2862) {
	if(getequipid(7) == 2862) set .@enchant_type,7;
	else set.@enchant_type,8;
	}
	}
	switch(rand(1,11)) {
	case 1:
	set .@enchant_card,4801;
	break;
	case 2:
	set .@enchant_card,4802;
	break;
	case 3:
	set .@enchant_card,4795;
	break;
	case 4:
	set .@enchant_card,4796;
	break;
	case 5:
	set .@enchant_card,4710;
	break;
	case 6:
	set .@enchant_card,4711;
	break;
	case 7:
	set .@enchant_card,4720;
	break;
	case 8:
	set .@enchant_card,4721;
	break;
	case 9:
	set .@enchant_card,4760;
	break;
	case 10:
	set .@enchant_card,4761;
	break;
	case 11:
	set .@enchant_card,4786;
	break;
	}
	set .@card2,getequipcardid(.@enchant_type,1);
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card2 >= 1) {
	mes "[Artifact Crafter]";
	mes "DÈsolÈ mais vous avez dÈj‡ enchantÈ cet objet trois fois, c'est le maximum que je puisse faire. Si vous avez besoin de mes services, revenez avec un objet possible ‡ enchanter.";
	close;
	}
	else if(.@card3 >=1)
	goto L_lastenchant;
	else if(.@card4 >=1)
	goto L_secondenchant;
	else 
	goto L_firstenchant;
	}
	else
	{
	mes "[Artifact Crafter]";
	mes "Vous devez d'abord equiper l'item pour pouvoir l'enchanter. Il est difficile pour moi de faire appel ‡ la nature lorsqu'un objet n'est pas directement ÈquipÈ sur la personne concernÈe.";
	close;
	}
	
	L_firstenchant:
	if(countitem(6380) >= 5) {
	mes "[Artifact Crafter]";
	mes "Je vois donc que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 est vierge, cet objet va donc connaÓtre son premier enchantement...";
	next;
	mes "[Artifact Crafter]";
	mes "J'appel les forces de la nature de Mora pour procÈder ‡ cet enchantement... Croisez les doigt pour obtenir l'enchantement de votre choix, vous aurez peut Ítre un peu de chance!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	specialeffect EF_SANCTUARY;
	delitem 6380,5;	
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, .@enchant_card;
	mes "[Artifact Crafter]";
	mes "L'enchantement a rÈussi. Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000. J'espËre que cela vous fait plaisir!";
	next;
	mes "[Artifact Crafter]";
	mes "N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez refaire un enchantement.";
	next;
	mes "[Artifact Crafter]";
	mes "Passez une bonne journÈe et merci d'avoir utilisÈ mes services~";
	close;
	}
	else
	{
	mes "[Artifact Crafter]";
	mes "Je vois donc que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 est vierge, cet objet va donc connaÓtre son premier enchantement...";
	next;
	mes "[Artifact Crafter]";
	mes "Mais il semblerait que vous n'ayez pas assez de ^0000FFMora Coin^000000 sur vous. Les frais d'enchantement sont de ^0000FF5 Mora Coin^000000 par objet.";
	next;
	mes "[Artifact Crafter]";
	mes "Revenez me voir quand vous aurez la monnaie necÈssaire~";
	close;
	}

	L_secondenchant:
	if(countitem(6380) >= 5) {
	mes "[Artifact Crafter]";
	mes "Je vois donc que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a dÈj‡ ÈtÈ enchantÈ. Cet objet va donc connaÓtre son deuxiËme enchantement...";
	next;
	mes "[Artifact Crafter]";
	mes "J'appel les forces de la nature de Mora pour procÈder ‡ cet enchantement... Croisez les doigt pour obtenir l'enchantement de votre choix, vous aurez peut Ítre un peu de chance!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	specialeffect EF_SANCTUARY;
	delitem 6380,5;	
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, .@enchant_card, .@card4;
	mes "[Artifact Crafter]";
	mes "L'enchantement a rÈussi. Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000. J'espËre que cela vous fait plaisir!";
	next;
	mes "[Artifact Crafter]";
	mes "N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez refaire un enchantement.";
	next;
	mes "[Artifact Crafter]";
	mes "Passez une bonne journÈe et merci d'avoir utilisÈ mes services~";
	close;
	}
	else
	{
	mes "[Artifact Crafter]";
	mes "Je vois donc que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a dÈj‡ ÈtÈ enchantÈ. Cet objet va donc connaÓtre son deuxiËme enchantement...";
	next;
	mes "[Artifact Crafter]";
	mes "Mais il semblerait que vous n'ayez pas assez de ^0000FFMora Coin^000000 sur vous. Les frais d'enchantement sont de ^0000FF5 Mora Coin^000000 par objet.";
	next;
	mes "[Artifact Crafter]";
	mes "Revenez me voir quand vous aurez la monnaie necÈssaire~";
	close;
	}

	L_lastenchant:
	if(countitem(6380) >= 5) {
	mes "[Artifact Crafter]";
	mes "Je vois donc que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a dÈj‡ ÈtÈ enchantÈ deux fois. Cet objet va donc connaÓtre son dernier enchantement...";
	next;
	mes "[Artifact Crafter]";
	mes "J'appel les forces de la nature de Mora pour procÈder ‡ cet enchantement... Croisez les doigt pour obtenir l'enchantement de votre choix, vous aurez peut Ítre un peu de chance!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	specialeffect EF_SANCTUARY;
	delitem 6380,5;	
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, .@enchant_card, .@card3, .@card4;
	mes "[Artifact Crafter]";
	mes "L'enchantement a rÈussi. Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000. J'espËre que cela vous fait plaisir!";
	next;
	mes "[Artifact Crafter]";
	mes "N'hÈsitez pas ‡ revenir me voir si jamais vous souhaitez refaire un enchantement.";
	next;
	mes "[Artifact Crafter]";
	mes "Passez une bonne journÈe et merci d'avoir utilisÈ mes services~";
	close;
	}
	else
	{
	mes "[Artifact Crafter]";
	mes "Je vois donc que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a dÈj‡ ÈtÈ enchantÈ deux fois. Cet objet va donc connaÓtre son dernier enchantement...";
	next;
	mes "[Artifact Crafter]";
	mes "Mais il semblerait que vous n'ayez pas assez de ^0000FFMora Coin^000000 sur vous. Les frais d'enchantement sont de ^0000FF5 Mora Coin^000000 par objet.";
	next;
	mes "[Artifact Crafter]";
	mes "Revenez me voir quand vous aurez la monnaie necÈssaire~";
	close;
	}
	
	L_quit:
	mes "[Artifact Crafter]";
	mes "D'accord, n'hÈsitez pas ‡ revenir me voir si jamais vous avez besoin de mes services.";
	next;
	mes "[Artifact Crafter]";
	mes "Passez une bonne journÈe~";
	close;
}
//=========================================================
//====================MASTER OF RELICS=====================
//=========================================================
mora,98,66,7	script	Master of Relics	518,{
mes "[Master of Relics]";
mes "Bonjour ‡ vous, si vous Ítes un homme d'Èglise vous Ítes au bon endroit.";
next;
mes "[Master of Relics]";
mes "Je suis capable d'enchanter un certain nombre d'item, cela vous intÈresse-t-il?";
next;
mes "[Master of Relics]";
mes "Quel type d'Èquipement souhaitez-vous enchanter?";
next;
switch(select("Arme.:Armure.:Footgear.:Garment.:Autre.:Annuler.")) {
case 1:
set .@enchant_type,4;
goto L_armes;
case 2:
set .@enchant_type,2;
goto L_armure;
case 3:
set .@enchant_type,6;
goto L_foot;
case 4:
set .@enchant_type,5;
goto L_garment;
case 5:
goto L_autres;
case 6:
goto L_quit;
}

	L_armes:
	mes "[Master of Relics]";
	mes "Vous souhaitez enchanter une arme, intÈressant.";
	next;
	mes "[Master of Relics]";
	mes "Avant de vous demander quel arme vous souhaitez enchanter, je dois vous faire quelques prÈcision sur l'enchantement.";
	next;
	mes "[Master of Relics]";
	mes "Si votre arme contient des cartes, elles seront perdues ‡ l'enchantement. Alors ne faites pas de faux pas, soyÍz sur avant de vouloir enchantÈ votre arme!";
	next;
	mes "[Master of Relics]";
	mes "Une autre prÈcision, pour enchantÈ votre arme, vous devez la porter sur vous sinon l'enchantement ne fonctionnera pas.";
	mes "Ah et ne vous en faite pas, l'enchantement ne peut pas ÈchouÈ et il est alÈatoire.";
	next;
	mes "[Master of Relics]";
	mes "Ne vous inquietez pas, je vous re-prÈciserais tous ces points avant de commencer l'enchantement si vous n'avez pas bien compris.";
	next;
	mes "[Master of Relics]";
	mes "Alors, quelle arme souhaitez-vous enchanter?";
	next;
	switch(select("Wand of Affection.:Mace of Judgement.:Annuler.")) {
	case 1:
	set .@enchant_item,1657;
	goto L_enchant;
	case 2:
	set .@enchant_item,16013;
	goto L_enchant;
	case 3:
	goto L_quit;
	}

	L_garment:
	mes "[Master of Relics]";
	mes "Vous voulez enchanter un garment, ok.";
	next;
	mes "[Master of Relics]";
	mes "Avant de vous demander quel equipement vous souhaitez enchanter, je dois vous faire quelques prÈcision sur l'enchantement.";
	next;
	mes "[Master of Relics]";
	mes "Si votre garment contient des cartes, elles seront perdues ‡ l'enchantement. Alors ne faites pas de faux pas, soyÍz sur avant de vouloir enchantÈ votre garment!";
	next;
	mes "[Master of Relics]";
	mes "Une autre prÈcision, pour enchantÈ une garment, vous devez la porter sur vous sinon l'enchantement ne fonctionnera pas.";
	mes "Ah et ne vous en faite pas, l'enchantement ne peut pas ÈchouÈ et il est alÈatoire.";
	next;
	mes "[Master of Relics]";
	mes "Ok, alors vous pouvez me dire quel equipement vous souhaitez enchanter?";
	next;
	switch(select("Shawl of Affection.:Shawl of Judgement.:Annuler.")) {
	case 1:
	set .@enchant_item,2569;
	goto L_enchant;
	case 2:
	set .@enchant_item,2570;
	goto L_enchant;
	case 3:
	goto L_quit;
	}

	L_armure:
	mes "[Master of Relics]";
	mes "Vous voulez enchanter une armure, ok.";
	next;
	mes "[Master of Relics]";
	mes "Avant de vous demander quel equipement vous souhaitez enchanter, je dois vous faire quelques prÈcision sur l'enchantement.";
	next;
	mes "[Master of Relics]";
	mes "Si votre armure contient des cartes, elles seront perdues ‡ l'enchantement. Alors ne faites pas de faux pas, soyÍz sur avant de vouloir enchantÈ votre armure!";
	next;
	mes "[Master of Relics]";
	mes "Une autre prÈcision, pour enchantÈ une armure, vous devez la porter sur vous sinon l'enchantement ne fonctionnera pas.";
	mes "Ah et ne vous en faite pas, l'enchantement ne peut pas ÈchouÈ et il est alÈatoire.";
	next;
	mes "[Master of Relics]";
	mes "Ok, alors vous pouvez me dire quel equipement vous souhaitez enchanter?";
	next;
	switch(select("Robe of Affection.:Robe of Judgement.:Annuler.")) {
	case 1:
	set .@enchant_item,15029;
	goto L_enchant;
	case 2:
	set .@enchant_item,15030;
	goto L_enchant;
	case 3:
	goto L_quit;
	}
	
	L_autres:
	mes "[Master of Relics]";
	mes "Ah vous avez un autre equipement a enchanter, ok.";
	next;
	mes "[Master of Relics]";
	mes "Avant de vous demander quel equipement vous souhaitez enchanter, je dois vous faire quelques prÈcision sur l'enchantement.";
	next;
	mes "[Master of Relics]";
	mes "Si votre objet contient des cartes, elles seront perdues ‡ l'enchantement. Alors ne faites pas de faux pas, soyÍz sur avant de vouloir enchantÈ votre objet!";
	next;
	mes "[Master of Relics]";
	mes "Une autre prÈcision, pour enchantÈ un objet, vous devez le porter sur vous sinon l'enchantement ne fonctionnera pas.";
	mes "Ah et ne vous en faite pas, l'enchantement ne peut pas ÈchouÈ et il est alÈatoire.";
	next;
	mes "[Master of Relics]";
	mes "Ne vous inquietez pas, je vous re-prÈciserais tous ces points avant de commencer l'enchantement si vous n'avez pas bien compris.";
	next;
	mes "[Master of Relics]";
	mes "Vous m'avez dit vouloir enchantÈ un autre equipement? Je peux vous proposer une liste des objets que je peux enchantÈ, faites votre choix.";
	next;
	switch(select("Bible of Promise.:Light of Cure.:Seal of Cathedral.:Ring of Archbishop.:Annuler.")) {
	case 1:
	set .@enchant_item,2156;
	goto L_enchant;
	case 2:
	set .@enchant_item,2864;
	goto L_enchant;
	case 3:
	set .@enchant_item,2865;
	goto L_enchant;
	case 4:
	set .@enchant_item,2866;
	goto L_enchant;
	case 5:
	goto L_quit;
	}

	L_foot:
	mes "[Master of Relics]";
	mes "Vous souhaitez enchanter vos shoes, c'et ok.";
	next;
	mes "[Master of Relics]";
	mes "Avant de vous demander quel shoes vous souhaitez enchanter, je dois vous faire quelques prÈcision sur l'enchantement.";
	next;
	mes "[Master of Relics]";
	mes "Si vos shoes contiennent des cartes, elles seront perdues ‡ l'enchantement. Alors ne faites pas de faux pas, soyÍz sur avant de vouloir enchantÈ votre objet!";
	next;
	mes "[Master of Relics]";
	mes "Une autre prÈcision, pour enchantÈ les shoes, vous devez les porter sur vous sinon l'enchantement ne fonctionnera pas.";
	mes "Ah et ne vous en faite pas, l'enchantement ne peut pas ÈchouÈ et il est alÈatoire.";
	next;
	mes "[Master of Relics]";
	mes "Ne vous inquietez pas, je vous re-prÈciserais tous ces points avant de commencer l'enchantement si vous n'avez pas bien compris.";
	next;
	mes "[Master of Relics]";
	mes "Alors, quelle paire de shoes voulez-vous enchanter?";
	next;
	switch(select("Shoes of Affection.:Shoes of Judgement.:Annuler.")) {
	case 1:
	set .@enchant_item,2471;
	goto L_enchant;
	case 2:
	set .@enchant_item,2472;
	goto L_enchant;
	case 3:
	goto L_quit;
	}

	L_enchant:
	mes "[Master of Relics]";
	mes "Okay, nous allons pouvoir commencer la cÈrÈmonie d'enchantement...";
	mes "Vous voulez donc enchanter l'objet ^FF0000"+getitemname(.@enchant_item)+"^000000... C'est bien ce que vous m'avez dit?";
	next;
	mes "[Master of Relics]";
	mes "Comme je vous l'ai dÈj‡ signalÈ, si vous avez des cartes, cela sera perdu.";
	next;
	mes "[Master of Relics]";
	mes "Alors, je dois vous poser cette question avant de commencer.";
	mes "Souhaitez-vous poursuivre la procÈdure d'enchantement?";
	next;
	if(select("Commencer l'enchantement.","Annuler l'enchantement.") == 2) {
	goto L_quit;
	}
	mes "[Master of Relics]";
	mes "J'avais aussi oubliÈ de vous le dire, chaque enchantement co˚te ^0000FF5 Mora Coin^000000.";
	mes "CommenÁons la procÈdure d'enchantement si vous voulez bien...";
	next;
	if(countitem(.@enchant_item) > 1)
	{
	mes "==Information==";
	mes "Vous devez avoir 1 seul objet sur vous pour que l'enchantement soit possible.";
	next;
	mes "==Information==";
	mes "Veuillez rÈessayer ultÈrieurement.";
	close;
	}
	if(isequipped(.@enchant_item)) {
	if(.@enchant_item == 2156 || .@enchant_item == 2864 || .@enchant_item == 2865 || .@enchant_item == 2866)
	{
	// Bible of Promise
	if(.@enchant_item == 2156) {
	set .@enchant_type,3;
	switch(rand(1,8)) {
	case 1:
	set .@enchant_card,4766;
	break;
	case 2:
	set .@enchant_card,4740;
	break;
	case 3:
	set .@enchant_card,4710;
	break;
	case 4:
	set .@enchant_card,4711;
	break;
	case 5:
	set .@enchant_card,4720;
	break;
	case 6:
	set .@enchant_card,4721;
	break;
	case 7:
	set .@enchant_card,4799;
	break;
	case 8:
	set .@enchant_card,4764;
	break;
	}
	}
	// Light of Cure
	if(.@enchant_item == 2864) {
	if(getequipid(7) == 2864) set .@enchant_type,7;
	else set.@enchant_type,8;
	switch(rand(1,9)) {
	case 1:
	set .@enchant_card,4710;
	break;
	case 2:
	set .@enchant_card,4711;
	break;
	case 3:
	set .@enchant_card,4788;
	break;
	case 4:
	set .@enchant_card,4720;
	break;
	case 5:
	set .@enchant_card,4721;
	break;
	case 6:
	set .@enchant_card,4740;
	break;
	case 7:
	set .@enchant_card,4741;
	break;
	case 8:
	set .@enchant_card,4766;
	break;
	case 9:
	set .@enchant_card,4803;
	break;
	}
	}
	// Seal of Cathedral
	if(.@enchant_item == 2865) {
	if(getequipid(7) == 2865) set .@enchant_type,7;
	else set.@enchant_type,8;
	switch(rand(1,7)) {
	case 1:
	set .@enchant_card,4720;
	break;
	case 2:
	set .@enchant_card,4721;
	break;
	case 3:
	set .@enchant_card,4740;
	break;
	case 4:
	set .@enchant_card,4741;
	break;
	case 5:
	set .@enchant_card,4799;
	break;
	case 6:
	set .@enchant_card,4766;
	break;
	case 7:
	set .@enchant_card,4804;
	break;
	}
	}
	// Ring of Archbishop
	if(.@enchant_item == 2866) {
	if(getequipid(7) == 2866) set .@enchant_type,7;
	else set.@enchant_type,8;
	switch(rand(1,3)) {
	case 1:
	set .@enchant_card,4799;
	break;
	case 2:
	set .@enchant_card,4766;
	break;
	case 3:
	set .@enchant_card,4805;
	break;
	}
	}
	}
	if(.@enchant_item == 1657) {
	// Wand of Affection
	switch(rand(1,8)) {
	case 1:
	set .@enchant_card,4801;
	break;
	case 2:
	set .@enchant_card,4740;
	break;
	case 3:
	set .@enchant_card,4741;
	break;
	case 4:
	set .@enchant_card,4710;
	break;
	case 5:
	set .@enchant_card,4711;
	break;
	case 6:
	set .@enchant_card,4720;
	break;
	case 7:
	set .@enchant_card,4721;
	break;
	case 8:
	set .@enchant_card,4760;
	break;
	}
	}
	if(.@enchant_item == 16013) {
	// Mace of Judgement
	switch(rand(1,9)) {
	case 1:
	set .@enchant_card,4720;
	break;
	case 2:
	set .@enchant_card,4721;
	break;
	case 3:
	set .@enchant_card,4767;
	break;
	case 4:
	set .@enchant_card,4700;
	break;
	case 5:
	set .@enchant_card,4701;
	break;
	case 6:
	set .@enchant_card,4702;
	break;
	case 7:
	set .@enchant_card,4703;
	break;
	case 8:
	set .@enchant_card,4704;
	break;
	case 9:
	set .@enchant_card,4741;
	break;
	}
	}
	if(.@enchant_item == 2471) {
	// Shoes of Affection
	switch(rand(1,6)) {
	case 1:
	set .@enchant_card,4720;
	break;
	case 2:
	set .@enchant_card,4721;
	break;
	case 3:
	set .@enchant_card,4710;
	break;
	case 4:
	set .@enchant_card,4711;
	break;
	case 5:
	set .@enchant_card,4766;
	break;
	case 6:
	set .@enchant_card,4799;
	break;
	}
	}
	if(.@enchant_item == 2472) {
	// Shoes of Judgement
	switch(rand(1,8)) {
	case 1:
	set .@enchant_card,4720;
	break;
	case 2:
	set .@enchant_card,4721;
	break;
	case 3:
	set .@enchant_card,4722;
	break;
	case 4:
	set .@enchant_card,4723;
	break;
	case 5:
	set .@enchant_card,4710;
	break;
	case 6:
	set .@enchant_card,4711;
	break;
	case 7:
	set .@enchant_card,4788;
	break;
	case 8:
	set .@enchant_card,4766;
	break;
	}
	}
	if(.@enchant_item == 15029) {
	// Robe of Affection
	switch(rand(1,10)) {
	case 1:
	set .@enchant_card,4720;
	break;
	case 2:
	set .@enchant_card,4721;
	break;
	case 3:
	set .@enchant_card,4722;
	break;
	case 4:
	set .@enchant_card,4710;
	break;
	case 5:
	set .@enchant_card,4711;
	break;
	case 6:
	set .@enchant_card,4766;
	break;
	case 7:
	set .@enchant_card,4703;
	break;
	case 8:
	set .@enchant_card,4764;
	break;
	case 9:
	set .@enchant_card,4799;
	break;
	case 10:
	set .@enchant_card,4788;
	break;
	}
	}
	if(.@enchant_item == 15030) {
	// Robe of Judgement
	switch(rand(1,7)) {
	case 1:
	set .@enchant_card,4720;
	break;
	case 2:
	set .@enchant_card,4721;
	break;
	case 3:
	set .@enchant_card,4710;
	break;
	case 4:
	set .@enchant_card,4711;
	break;
	case 5:
	set .@enchant_card,4766;
	break;
	case 6:
	set .@enchant_card,4764;
	break;
	case 7:
	set .@enchant_card,4799;
	break;
	}
	}
	if(.@enchant_item == 2569) {
	// Shawl of Affection
	switch(rand(1,7)) {
	case 1:
	set .@enchant_card,4720;
	break;
	case 2:
	set .@enchant_card,4721;
	break;
	case 3:
	set .@enchant_card,4710;
	break;
	case 4:
	set .@enchant_card,4711;
	break;
	case 5:
	set .@enchant_card,4788;
	break;
	case 6:
	set .@enchant_card,4764;
	break;
	case 7:
	set .@enchant_card,4799;
	break;
	}
	}
	if(.@enchant_item == 2570) {
	// Shawl of Judgement
	switch(rand(1,5)) {
	case 1:
	set .@enchant_card,4720;
	break;
	case 2:
	set .@enchant_card,4721;
	break;
	case 3:
	set .@enchant_card,4710;
	break;
	case 4:
	set .@enchant_card,4711;
	break;
	case 5:
	set .@enchant_card,4799;
	break;
	}
	}
	set .@card3,getequipcardid(.@enchant_type,2);
	set .@card4,getequipcardid(.@enchant_type,3);
	if(.@card3 >= 1) {
	mes "[Master of Relics]";
	mes "Je peux enchantÈ un objet deux fois au maximum, et il semblerait que cet objet soit arrivÈ ‡ son maximal. DÈsolÈ, mais dans ce cas, je ne peux rien faire pour vous.";
	close;
	}
	else if(.@card4 >=1)
	goto L_secondenchant;
	else 
	goto L_firstenchant;
	}
	else
	{
	mes "[Master of Relics]";
	mes "Vous pouvez Èquiper l'objet sur vous s'il vous plaÓt? Il est beaucoup plus simple de l'enchantÈ de cette maniËre.";
	close;
	}
	
	L_firstenchant:
	if(countitem(6380) >= 5) {
	mes "[Master of Relics]";
	mes "Je vois donc que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Master of Relics]";
	mes "Je vais donc procÈder ‡ la cÈrÈmonie d'enchantement. Je vais faire le meilleur possible pour vous!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	specialeffect EF_SANCTUARY;
	delitem 6380,5;	
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, 0, .@enchant_card;
	mes "[Master of Relics]";
	mes "C'est fait! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Master of Relics]";
	mes "Si jamais vous avez encore besoin de mes services, vous savez o˘ me trouver.";
	next;
	mes "[Master of Relics]";
	mes "Merci et passez une excellente journÈe~";
	close;
	}
	else
	{
	mes "[Master of Relics]";
	mes "Je vois donc que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 n'a jamais ÈtÈ enchantÈ auparavant.";
	next;
	mes "[Master of Relics]";
	mes "Aie, vous semblez ne pas avoir assez de ^0000FFMora Coin^000000 sur vous. Mes services co˚tent ^0000FF5 Mora Coin^000000 par objet.";
	next;
	mes "[Master of Relics]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}

	L_secondenchant:
	if(countitem(6380) >= 5) {
	mes "[Master of Relics]";
	mes "Je vois ue votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a dÈj‡ ÈtÈ enchantÈ. Cet objet va donc connaÓtre son deuxiËme et dernier enchantement...";
	next;
	mes "[Master of Relics]";
	mes "Je vais donc procÈder ‡ la cÈrÈmonie d'enchantement. Je vais faire le meilleur possible pour vous!";
	next;
	set .@enchant_refine,getequiprefinerycnt(.@enchant_type);
	specialeffect EF_SANCTUARY;
	delitem 6380,5;	
	delitem .@enchant_item,1;
	getitem2 .@enchant_item, 1, 1, .@enchant_refine, 0, 0, 0, .@enchant_card, .@card4;
	mes "[Master of Relics]";
	mes "C'est fait! Votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a ÈtÈ enchantÈ avec ^005500"+getitemname(.@enchant_card)+"^000000!";
	next;
	mes "[Master of Relics]";
	mes "Si jamais vous avez encore besoin de mes services pour un autre objet, vous savez o˘ me trouver.";
	next;
	mes "[Master of Relics]";
	mes "Merci et passez une excellente journÈe~";
	close;
	}
	else
	{
	mes "[Master of Relics]";
	mes "Je vois donc que votre ^FF0000"+getitemname(.@enchant_item)+"^000000 a dÈj‡ ÈtÈ enchantÈ. Cet objet va donc connaÓtre son deuxiËme enchantement...";
	next;
	mes "[Master of Relics]";
	mes "Vous semblez ne pas avoir assez de ^0000FFMora Coin^000000 sur vous. Mes services co˚tent ^0000FF5 Mora Coin^000000 par objet.";
	next;
	mes "[Master of Relics]";
	mes "Repassez quand vous aurez l'argent qu'il faut~";
	close;
	}

	L_quit:
	mes "[Master of Relics]";
	mes "Ok, si jamais vous avez besoin de mes services, vous savez o˘ me trouver.";
	next;
	mes "[Master of Relics]";
	mes "Bonne journÈe~";
	close;
}
//
//
//=====================VENdEURS seT============
//
//
//======GUARDIAN OF POWER!========[SuPeRHULk]======
mora,152,97,4	script	Guardian of Power#Maset	515,{
	mes "[Guardian of Power]";
	mes "Bienvenue, je suis la gardienne des pouvoirs de mora.";
	mes "Nous possÈdons ‡ mora des equipements que vous trouverez nul part ailleurs.";
	next;
	mes "[Guardian of Power]";
	mes "Nous vendons chaque equipement ^0000FF10 Mora Coin^000000";
	mes "Souhaitez-vous jeter un oeil ‡ notre collection?";
	next;
	if(select("Regarder les equipements.","Annuler.") == 2) {
	goto L_quit;
	}
	else
	{
	mes "[Guardian of Power]";
	mes "Alors, voici les sets d'equipements dont je dispose pour le moment, n'hÈsitez pas ‡ prendre votre temps pour bien les regarder.";
	next;
	switch(select("Ur's Set.:Peuz's Set.:White Wing Set.:Black Wing Set.:Sapha Set.:Nab Set.:Annuler.")) {
	case 1:
	goto L_ur;
	case 2:
	goto L_peuz;
	case 3:
	goto L_whitew;
	case 4:
	goto L_blackw;
	case 5:
	goto L_sapha;
	case 6:
	goto L_nab;
	case 7:
	goto L_quit;
	}
	}

	L_ur:
	mes "[Guardian of Power]";
	mes "Le Ur's Set, spÈcialisÈ pour les Rune Knight uniquement est un excellent choix.";
	mes "Pour obtenir les bonus complet, vous devez acheter l'Èquipement complet qui est en 4 partie :";
	mes "^0000FFUr's Greave^000000";
	mes "^0000FFUr's Manteau^000000";
	mes "^0000FFUr's Plate^000000";
	mes "^0000FFUr's Seal^000000";
	next;
	mes "[Guardian of Power]";
	mes "Alors souhaitez vous acheter l'un de ces equipement pour ^0000FF10 Mora Coins^000000?";
	next;
	if(select("Acheter un equipement.","Annuler.") == 2) {
	goto L_quit;
	}
	else
	{
	mes "[Guardian of Power]";
	mes "TrËs bien, quel partie du Ur's Set souhaitez-vous obtenir?";
	next;
	switch(select("Ur's Greave.:Ur's Manteau.:Ur's Plate.:Ur's Seal.:Annuler.")) {
	case 1:
	set @guardian_item,2475;
	goto L_sell;
	case 2:
	set @guardian_item,2574;
	goto L_sell;
	case 3:
	set @guardian_item,15036;
	goto L_sell;
	case 4:
	set @guardian_item,2883;
	goto L_sell;
	case 5:
	goto L_quit;
	}
	}

	L_peuz:
	mes "[Guardian of Power]";
	mes "Le Peuz's Set, spÈcialisÈ pour les Rune Knight uniquement est un excellent choix.";
	mes "Pour obtenir les bonus complet, vous devez acheter l'Èquipement complet qui est en 4 partie :";
	mes "^0000FFPeuz's Greave^000000";
	mes "^0000FFPeuz's Manteau^000000";
	mes "^0000FFPeuz's Plate^000000";
	mes "^0000FFPeuz's Seal^000000";
	next;
	mes "[Guardian of Power]";
	mes "Alors souhaitez vous acheter l'un de ces equipement pour ^0000FF10 Mora Coins^000000?";
	next;
	if(select("Acheter un equipement.","Annuler.") == 2) {
	goto L_quit;
	}
	else
	{
	mes "[Guardian of Power]";
	mes "TrËs bien, quel partie du Peuz's Set souhaitez-vous obtenir?";
	next;
	switch(select("Peuz's Greave:Peuz's Manteau:Peuz's Plate:Peuz's Seal:Annuler.")) {
	case 1:
	set @guardian_item,2476;
	goto L_sell;
	case 2:
	set @guardian_item,2575;
	goto L_sell;
	case 3:
	set @guardian_item,15037;
	goto L_sell;
	case 4:
	set @guardian_item,2884;
	goto L_sell;
	case 5:
	goto L_quit;
	}
	}

	L_whitew:
	mes "[Guardian of Power]";
	mes "Le White Wing Set, spÈcialisÈ pour les Ranger uniquement est un excellent choix.";
	mes "Pour obtenir les bonus complet, vous devez acheter l'Èquipement complet qui est en 4 partie :";
	mes "^0000FFWhite Wing Boots^000000";
	mes "^0000FFWhite Wing Manteau^000000";
	mes "^0000FFWhite Wing Suit^000000";
	mes "^0000FFWhite Wing Brooch^000000";
	next;
	mes "[Guardian of Power]";
	mes "Alors souhaitez vous acheter l'un de ces equipement pour ^0000FF10 Mora Coins^000000?";
	next;
	if(select("Acheter un equipement.","Annuler.") == 2) {
	goto L_quit;
	}
	else
	{
	mes "[Guardian of Power]";
	mes "TrËs bien, quel partie du White Wing Set souhaitez-vous obtenir?";
	next;
	switch(select("White Wing Boots.:White Wing Manteau.:White Wing Suit.:White Wing Brooch.:Annuler.")) {
	case 1:
	set @guardian_item,2479;
	goto L_sell;
	case 2:
	set @guardian_item,2580;
	goto L_sell;
	case 3:
	set @guardian_item,15042;
	goto L_sell;
	case 4:
	set @guardian_item,2890;
	goto L_sell;
	case 5:
	goto L_quit;
	}
	}

	L_blackw:
	mes "[Guardian of Power]";
	mes "Le Black Wing Set, spÈcialisÈ pour les Ranger uniquement est un excellent choix.";
	mes "Pour obtenir les bonus complet, vous devez acheter l'Èquipement complet qui est en 4 partie :";
	mes "^0000FFWhite Wing Boots^000000";
	mes "^0000FFWhite Wing Manteau^000000";
	mes "^0000FFWhite Wing Suit^000000";
	mes "^0000FFWhite Wing Brooch^000000";
	next;
	mes "[Guardian of Power]";
	mes "Alors souhaitez vous acheter l'un de ces equipement pour ^0000FF10 Mora Coins^000000?";
	next;
	if(select("Acheter un equipement.","Annuler.") == 2) {
	goto L_quit;
	}
	else
	{
	mes "[Guardian of Power]";
	mes "TrËs bien, quel partie du Black Wing Set souhaitez-vous obtenir?";
	next;
	switch(select("Black Wing Boots.:Black Wing Manteau.:Black Wing Suit.:Black Wing Brooch.:Annuler.")) {
	case 1:
	set @guardian_item,2480;
	goto L_sell;
	case 2:
	set @guardian_item,2581;
	goto L_sell;
	case 3:
	set @guardian_item,15043;
	goto L_sell;
	case 4:
	set @guardian_item,2891;
	goto L_sell;
	case 5:
	goto L_quit;
	}
	}

	L_sapha:
	mes "[Guardian of Power]";
	mes "Le Sapha Set, spÈcialisÈ pour les Guillotine Cross uniquement est un excellent choix.";
	mes "Pour obtenir les bonus complet, vous devez acheter l'Èquipement complet qui est en 4 partie :";
	mes "^0000FFSapha Shoes^000000";
	mes "^0000FFSapha Hood^000000";
	mes "^0000FFSapha Cloth^000000";
	mes "^0000FFSapha Ring^000000";
	next;
	mes "[Guardian of Power]";
	mes "Alors souhaitez vous acheter l'un de ces equipement pour ^0000FF10 Mora Coins^000000?";
	next;
	if(select("Acheter un equipement.","Annuler.") == 2) {
	goto L_quit;
	}
	else
	{
	mes "[Guardian of Power]";
	mes "TrËs bien, quel partie du Sapha Set souhaitez-vous obtenir?";
	next;
	switch(select("Sapha Shoes.:Sapha Hood.:Sapha Cloth.:Sapha Ring.:Annuler.")) {
	case 1:
	set @guardian_item,2477;
	goto L_sell;
	case 2:
	set @guardian_item,2577;
	goto L_sell;
	case 3:
	set @guardian_item,15038;
	goto L_sell;
	case 4:
	set @guardian_item,2886;
	goto L_sell;
	case 5:
	goto L_quit;
	}
	}

	L_nab:
	mes "[Guardian of Power]";
	mes "Le Nab Set, spÈcialisÈ pour les Guillotine Cross uniquement est un excellent choix.";
	mes "Pour obtenir les bonus complet, vous devez acheter l'Èquipement complet qui est en 4 partie :";
	mes "^0000FFNab Shoes^000000";
	mes "^0000FFNab Hood^000000";
	mes "^0000FFNab Cloth^000000";
	mes "^0000FFNab Ring^000000";
	next;
	mes "[Guardian of Power]";
	mes "Alors souhaitez vous acheter l'un de ces equipement pour ^0000FF10 Mora Coins^000000?";
	next;
	if(select("Acheter un equipement.","Annuler.") == 2) {
	goto L_quit;
	}
	else
	{
	mes "[Guardian of Power]";
	mes "TrËs bien, quel partie du Nab Set souhaitez-vous obtenir?";
	next;
	switch(select("Nab Shoes.:Nab Hood.:Nab Cloth.:Nab Ring.:Annuler.")) {
	case 1:
	set @guardian_item,2478;
	goto L_sell;
	case 2:
	set @guardian_item,2578;
	goto L_sell;
	case 3:
	set @guardian_item,15039;
	goto L_sell;
	case 4:
	set @guardian_item,2887;
	goto L_sell;
	case 5:
	goto L_quit;
	}
	}

	// Vente de l'equipement
	L_sell:
	mes "[Guardian of Power]";
	mes " tes vous s˚r de vouloir acheter l'equipement suivant :";
	mes "^FF0000"+getitemname(@guardian_item)+"^000000";
	mes "pour ^0000FF10 Mora Coins^000000?";
	next;
	if(select("Acheter l'equipement.","Annuler.") == 1) {
	if(countitem(6380) >=10) {
	delitem 6380,10;
	getitem @guardian_item,1;
	mes "[Guardian of Power]";
	mes "Voici votre ^FF0000"+getitemname(@guardian_item)+"^000000!";
	mes "J'espËre que vous en prendrez soin.";
	next;
	mes "[Guardian of Power]";
	mes "C'est un plaisir de faire des affaires avec vous, si jamais vous avez besoin d'un autre equipement n'hÈsitez pas ‡ revenir me voir!";
	next;
	mes "[Guardian of Power]";
	mes "Passez une bonne journÈe~";
	close;
	}
	else
	{
	mes "[Guardian of Power]";
	mes "Vous ne semblez pas avoir assez de ^0000FFMora Coin^000000 pour acheter cet equipement.";
	mes "S'il vous plaÓt, vÈrifiez vos poches avant de revenir m'acheter un equipement.";
	next;
	mes "[Guardian of Power]";
	mes "Revenez quand vous aurez assez de ^0000FFMora Coin^000000.";
	mes "Bonne journÈe~";
	close;
	}
	}
	else
	{
	goto L_quit;
	}

	// Fermeture si annule
	L_quit:
	mes "[Guardian of Power]";
	mes "TrËs bien, revenez quand vous le voulez si jamais vous avez besoin d'un equipement.";
	next;
	mes "[Guardian of Power]";
	mes "Bonne journÈe jeune aventurier~";
	close;	
}

// Guardian of Artifacts, Magician Gears!!
mora,105,75,4	script	Guardian of Artifacts	495,{
	mes "[Guardian of Artifacts]";
	mes "Bienvenue, si vous aimez utiliser la magie vous Ítes au bon endroit.";
	next;
	mes "[Guardian of Artifacts]";
	mes "Je vend des equipements magiques pour ^0000FF10 Mora Coins^000000 chacun.";
	next;
	switch(select("Quel sont vos objets?:Discuter.:Quitter la conversation.")) {
	case 1:
	goto L_items;
	case 2:
	goto L_discut;
	case 3:
	goto L_quit;
	}
	
	L_items:
	mes "[Guardian of Artifacts]";
	mes "Les objets dont je dispose sont divisÈ en quatres classes diffÈrentes appelÈ des Sets.";
	mes "Pour le moment nous disposons des sets suivant :";
	mes "^0000FFGolden Set^000000";
	mes "^0000FFAqua Set^000000";
	mes "^0000FFCrimson Set^000000";
	mes "^0000FFForest Set^000000";
	next;
	mes "[Guardian of Artifacts]";
	mes "N'hÈsitez pas ‡ jeter un coup d'oeil ‡ chaque set. Prenez votre temps!";
	next;
	switch(select("Golden Set.:Aqua Set.:Crimson Set.:Forest Set.:Annuler.")) {
	case 1:
	goto L_goldenset;
	case 2:
	goto L_aquaset;
	case 3:
	goto L_crimsonset;
	case 4:
	goto L_forestset;
	case 5:
	goto L_quit;
	}
	
	L_goldenset:
	mes "[Guardian of Artifacts]";
	mes "Comme chaque set que nous avons, le Golden Set est divisÈ en quatre Èquipements :";
	mes "^0000FFGolden Rod Staff^000000";
	mes "^0000FFGolden Rod Robe^000000";
	mes "^0000FFGolden Rod Orb^000000";
	mes "^0000FFGolden Rod Shoes^000000";
	next;
	mes "[Guardian of Artifacts]";
	mes "Souhaitez-vous acheter l'un de ces equipements pour ^0000FF10 Mora Coins^000000?";
	next;
	if(select("Acheter l'un des equipements.","Terminer la conversation.") == 2) {
	goto L_quit;
	}
	mes "[Guardian of Artifacts]";
	mes "Quel equipement souhaitez-vous acheter?";
	next;
	switch(select("Golden Rod Staff.:Golden Rod Robe.:Golden Rod Orb.:Golden Rod Shoes.:Annuler.")) {
	case 1:
	set @artifact_item,2007;
	goto L_vente;
	case 2:
	set @artifact_item,15025;
	goto L_vente;
	case 3:
	set @artifact_item,2859;
	goto L_vente;
	case 4:
	set @artifact_item,2467;
	goto L_vente;
	case 5:
	goto L_quit;
	}

	L_aquaset:
	mes "[Guardian of Artifacts]";
	mes "Comme chaque set que nous avons, le Aqua Set est divisÈ en quatre Èquipements :";
	mes "^0000FFAqua Staff^000000";
	mes "^0000FFAqua Robe^000000";
	mes "^0000FFAqua Orb^000000";
	mes "^0000FFAqua Shoes^000000";
	next;
	mes "[Guardian of Artifacts]";
	mes "Souhaitez-vous acheter l'un de ces equipements pour ^0000FF10 Mora Coins^000000?";
	next;
	if(select("Acheter l'un des equipements.","Terminer la conversation.") == 2) {
	goto L_quit;
	}
	mes "[Guardian of Artifacts]";
	mes "Quel equipement souhaitez-vous acheter?";
	next;
	switch(select("Aqua Staff.:Aqua Robe.:Aqua Orb.:Aqua Shoes.:Annuler.")) {
	case 1:
	set @artifact_item,2008;
	goto L_vente;
	case 2:
	set @artifact_item,15026;
	goto L_vente;
	case 3:
	set @artifact_item,2860;
	goto L_vente;
	case 4:
	set @artifact_item,2468;
	goto L_vente;
	case 5:
	goto L_quit;
	}

	L_crimsonset:
	mes "[Guardian of Artifacts]";
	mes "Comme chaque set que nous avons, le Crimson Set est divisÈ en quatre Èquipements :";
	mes "^0000FFCrimson Staff^000000";
	mes "^0000FFCrimson Robe^000000";
	mes "^0000FFCrimson Orb^000000";
	mes "^0000FFCrimson Shoes^000000";
	next;
	mes "[Guardian of Artifacts]";
	mes "Souhaitez-vous acheter l'un de ces equipements pour ^0000FF10 Mora Coins^000000?";
	next;
	if(select("Acheter l'un des equipements.","Terminer la conversation.") == 2) {
	goto L_quit;
	}
	mes "[Guardian of Artifacts]";
	mes "Quel equipement souhaitez-vous acheter?";
	next;
	switch(select("Crimson Staff.:Crimson Robe.:Crimson Orb.:Crimson Shoes.:Annuler.")) {
	case 1:
	set @artifact_item,2009;
	goto L_vente;
	case 2:
	set @artifact_item,15027;
	goto L_vente;
	case 3:
	set @artifact_item,2861;
	goto L_vente;
	case 4:
	set @artifact_item,2469;
	goto L_vente;
	case 5:
	goto L_quit;
	}

	L_forestset:
	mes "[Guardian of Artifacts]";
	mes "Comme chaque set que nous avons, le Forest Set est divisÈ en quatre Èquipements :";
	mes "^0000FFForest Staff^000000";
	mes "^0000FFForest Robe^000000";
	mes "^0000FFForest Orb^000000";
	mes "^0000FFForest Shoes^000000";
	next;
	mes "[Guardian of Artifacts]";
	mes "Souhaitez-vous acheter l'un de ces equipements pour ^0000FF10 Mora Coins^000000?";
	next;
	if(select("Acheter l'un des equipements.","Terminer la conversation.") == 2) {
	goto L_quit;
	}
	mes "[Guardian of Artifacts]";
	mes "Quel equipement souhaitez-vous acheter?";
	next;
	switch(select("Forest Staff.:Forest Robe.:Forest Orb.:Forest Shoes.:Annuler.")) {
	case 1:
	set @artifact_item,2010;
	goto L_vente;
	case 2:
	set @artifact_item,15028;
	goto L_vente;
	case 3:
	set @artifact_item,2862;
	goto L_vente;
	case 4:
	set @artifact_item,2470;
	goto L_vente;
	case 5:
	goto L_quit;
	}

	L_vente:
	mes "[Guardian of Artifacts]";
	mes "Vous souhaitez donc acheter 1 ^FF0000"+getitemname(@artifact_item)+"^000000 pour ^0000FF10 Mora Coins^000000 c'est bien cela?";
	next;
	mes "[Guardian of Artifacts]";
	mes "Souhaitez-vous procÈder ‡ l'achat de cet objet?";
	next;
	if(select("ProcÈder ‡ l'achat.","Annuler.") == 2) {
	goto L_quit;
	}
	if(countitem(6380) >=10) {
	delitem 6380,10;
	getitem @artifact_item,1;
	mes "[Guardian of Artifacts]";
	mes "Merci de votre achat, voici votre ^FF0000"+getitemname(@artifact_item)+"^000000.";
	mes "Prenez soin de cet objet et prenez garde, sa puissance est difficile ‡ maÓtriser!";
	next;
	mes "[Guardian of Artifacts]";
	mes "Passez une bonne journÈe, revenez me voir si vous souhaitez obtenir un autre equipement!";
	close;
	}
	else
	{
	mes "[Guardian of Artifacts]";
	mes "Ohhhh mais vous essayez de me voler?! Vous ne semblez pas avoir les ^0000FF10 Mora Coins^000000 requis pour obtenir cet objet.";
	mes "Revenez me voir quand vous aurez l'argent qu'il faut!";
	close;
	}
	
	
	L_discut:
	mes "[Guardian of Artifacts]";
	mes "Cela fait de nombreuses annÈes que je vends des Èquipements ici, ‡ Mora.";
	mes "Mes objets sont spÈcialisÈs pour la classe Warlock, ils ont des pouvoir magiques exceptionnels.";
	next;
	mes "[Guardian of Artifacts]";
	mes "Si vous Ítes un magicien, o˘ que vous connaissez un magicien n'hÈsitez pas ‡ venir regarder mes objets.";
	next;
	mes "[Guardian of Artifacts]";
	mes "Passez une bonne journÈe~";
	close;

	L_quit:
	mes "[Guardian of Artifacts]";
	mes "Si vous avez besoin de quoi que ce soit, vous savez o˘ me trouver.";
	mes "Passez une excellente journÈe~";
	close;
}

//===========Arch Bishop Equipements=====[SuperHulk]======
mora,87,88,6	script	Keeper of Secrets	495,{
	mes "[Keeper of Secrets]";
	mes "Bienvenue, si vous Ítes quelqu'un venant de l'Èglise de Prontera, vous allez Ítre ravi par les Èquipements que je vends.";
	mes "Chaque equipement en vente co˚te ^0000FF10 Mora Coins^000000. Voulez-vous jeter un oeil?";
	next;
	if(select("Regarder les equipements.","Quitter.") == 2) {
	goto L_annuler;
	}
	mes "[Keeper of Secrets]";
	mes "TrËs bien! Voici ce dont je dispose dans mon stock.";
	next;
	switch(select("Affection Set.:Judgement Set.:Autres.:Annuler.")) {
	case 1:
	goto L_affection;
	case 2:
	goto L_judgement;
	case 3:
	goto L_autres;
	case 4:
	goto L_annuler;
	}
	
	L_affection:
	mes "[Keeper of Secrets]";
	mes "L'Affection Set est composÈ de 4 equipements tous redoutables et d'une magie exceptionnelle:";
	mes "^0000FFWand of Affection^000000";
	mes "^0000FFShoes of Affection^000000";
	mes "^0000FFRobe of Affection^000000";
	mes "^0000FFShawn of Affection^000000";
	next;
	mes "[Keeper of Secrets]";
	mes "N'hÈsitez pas ‡ regarder ces equipements de plus prËs!";
	next;
	switch(select("Wand of Affection.:Shoes of Affection.:Robe of Affection.:Shawn of Affection.:Annuler.")) {
	case 1:
	set @keepersecret_item,1657;
	goto L_achat;
	case 2:
	set @keepersecret_item,2471;
	goto L_achat;
	case 3:
	set @keepersecret_item,15029;
	goto L_achat;
	case 4:
	set @keepersecret_item,2569;
	goto L_achat;
	case 5:
	goto L_annuler;
	}

	L_judgement:
	mes "[Keeper of Secrets]";
	mes "Le Judgement Set est composÈ de 4 equipements tous redoutables et d'une magie exceptionnelle:";
	mes "^0000FFMace of Judgement^000000";
	mes "^0000FFShoes of Judgement^000000";
	mes "^0000FFRobe of Judgement^000000";
	mes "^0000FFShawn of Judgement^000000";
	next;
	mes "[Keeper of Secrets]";
	mes "N'hÈsitez pas ‡ regarder ces equipements de plus prËs!";
	next;
	switch(select("Mace of Judgement.:Shoes of Judgement.:Robe of Judgement.:Shawn of Judgement.:Annuler.")) {
	case 1:
	set @keepersecret_item,16013;
	goto L_achat;
	case 2:
	set @keepersecret_item,2472;
	goto L_achat;
	case 3:
	set @keepersecret_item,15030;
	goto L_achat;
	case 4:
	set @keepersecret_item,2570;
	goto L_achat;
	case 5:
	goto L_annuler;
	}
	
	L_autres:
	mes "[Keeper of Secrets]";
	mes "Comme chaque equipement que j'ai, ces objets co˚tent  ^0000FF10 Mora Coins^000000 chacuns. Je vous laisse jeter un oeil ‡ mon stock!";
	next;
	switch(select("Bible of Promise.:Light of Cure.:Seal of Cathedral.:Ring of Arch Bishop.:Annuler.")) {
	case 1:
	set @keepersecret_item,2156;
	goto L_achat;
	case 2:
	set @keepersecret_item,2864;
	goto L_achat;
	case 3:
	set @keepersecret_item,2865;
	goto L_achat;
	case 4:
	set @keepersecret_item,2866;
	goto L_achat;
	case 5:
	goto L_annuler;
	}
	
	L_achat:
	mes "[Keeper of Secrets]";
	mes "Je vous que vous regardez l'objet ^FF0000"+getitemname(@keepersecret_item)+"^000000. Souhaitez-vous acheter cet item pour ^0000FF10 Mora Coins^000000?";
	next;
	if(select("Acheter cet objet.","Non merci.") == 2) {
	goto L_quit;
	}
	if(countitem(6380) >=10) {
	delitem 6380,10;
	getitem @keepersecret_item,1;
	mes "[Keeper of Secrets]";
	mes "Merci d'avoir achetÈ 1 ^FF0000"+getitemname(@keepersecret_item)+"^000000!";
	mes "Si vous avez besoin d'autres equipements n'hÈsitez pas ‡ revenir me voir.";
	next;
	mes "[Keeper of Secrets]";
	mes "Passez une bonne journÈe~";
	close;
	}
	else
	{
	mes "[Keeper of Secrets]";
	mes "Donc vous m'avez dit que souhaitiez acheter 1 ^FF0000"+getitemname(@keepersecret_item)+"^000000, c'est bien Áa?";
	next;
	mes "[Keeper of Secrets]";
	mes "Mais malheureusement vous ne semblez pas avoir assez de Mora Coin pour Áa. Revenez me voir quand vous aurez la monnaie necÈssaire!";
	close;
	}

	L_annuler:
	mes "[Keeper of Secrets]";
	mes "Okay, comme vous voulez! Revenez me voir si vous changez d'avis~";
	close;
}
//=================================Autres BONHOMMES===================================
mora,134,166,3	script	Bulberry Westhood	509,{
	mes "[Bulberry Westhood]";
	mes "Yo, Bienvenue au clan West de Mora! Le coin des artiste!";
	next;
	mes "[Bulberry Westhood]";
	mes "Ici, tu trouveras des choses bien sympatiques. Pour dÈcouvrir le village, parles un peu avec tous les habitants du village et t'apprendras des choses.";
	next;
	mes "[Bulberry Westhood]";
	mes "Moi par exemple, je peux enchanter les Loki Muffler. Si tu en as un, je peux te le faire pour 5 Mora Coin.";
	next;
	mes "[Bulberry Westhood]";
	mes "Alors, tu as un Loki Muffler sur toi?";
	next;
	switch(select("Enchanter mon Loki Muffler.:ArrÍter la conversation.")) {
	case 1:
	goto L_enchant;
	case 2:
	goto L_quit;
	}
	
	L_enchant:
	mes "[Bulberry Westhood]";
	mes "Tu veux enchanter ton Loki's Muffler! Super, mon frËre.";
	next;
	mes "[Bulberry Westhood]";
	mes "Les frais de service pour l'enchantement du Loki Muffler sont de ^0000FF5 Mora Coin^000000.";
	next;
	mes "[Bulberry Westhood]";
	mes "L'enchantement affecte automatiquement les 3 slots avec des stats alÈatoires.";
	mes "Si jamais l'enchantement ne te plaÓt pas, je peux enchanter ton muffler ‡ l'infinit.";
	next;
	mes "[Bulberry Westhood]";
	mes "Tu veux commencer l'enchantement du Loki Muffler?";
	next;
	switch(select("Commencer l'enchantement.:Annuler.")) {
	case 1:
	goto L_enchant2;
	case 2:
	goto L_quit;
	}
	
	L_enchant2:
	if(countitem(2568) > 1)
	{
	mes "==Information==";
	mes "Vous devez avoir 1 seul objet sur vous pour que l'enchantement soit possible.";
	next;
	mes "==Information==";
	mes "Veuillez rÈessayer ultÈrieurement.";
	close;
	}
	if(isequipped(2568))
	{
	if(countitem(6380) >=5)
	{
	switch(rand(1,8)) {
	case 1:
	set .@enchant_card1,4766;
	break;
	case 2:
	set .@enchant_card1,4767;
	break;
	case 3:
	set .@enchant_card1,4760;
	break;
	case 4:
	set .@enchant_card1,4761;
	break;
	case 5:
	set .@enchant_card1,4762;
	break;
	case 6:
	set .@enchant_card1,4763;
	break;
	case 7:
	set .@enchant_card1,4764;
	break;
	case 8:
	set .@enchant_card1,4765;
	break;
	}
switch(rand(1,6)) {
	case 1:
	set .@enchant_card2,4720;
	break;
	case 2:
	set .@enchant_card2,4721;
	break;
	case 3:
	set .@enchant_card2,4710;
	break;
	case 4:
	set .@enchant_card2,4711;
	break;
	case 5:
	set .@enchant_card2,4750;
	break;
	case 6:
	set .@enchant_card2,4751;
	break;
	}
switch(rand(1,6)) {
	case 1:
	set .@enchant_card3,4700;
	break;
	case 2:
	set .@enchant_card3,4701;
	break;
	case 3:
	set .@enchant_card3,4730;
	break;
	case 4:
	set .@enchant_card3,4731;
	break;
	case 5:
	set .@enchant_card3,4740;
	break;
	case 6:
	set .@enchant_card3,4741;
	break;
	}
	mes "[Bulberry Westhood]";
	mes "Okay, je suis prÍt nous allons commencer...";
	next;
	specialeffect EF_SANCTUARY;
	delitem 6380,5;
	delitem 2568,1;
	getitem2 2568, 1, 1, 0, 0, 0, .@enchant_card3, .@enchant_card2, .@enchant_card1;
	mes "[Bulberry Westhood]";
	mes "Voila ton nouveau Loki Muffler! J'espËre que tu vas kiffer!";
	next;
	mes "[Bulberry Westhood]";
	mes "Reviens me voir quand tu veux, je peux l'enchanter ‡ l'infinit!";
	next;
	mes "[Bulberry Westhood]";
	mes "En plus t'es grave cool man, je te kiff! Peace~";
	close;
	}
	else
	{
	mes "[Bulberry Westhood]";
	mes "Hey, il te faut 5 Mora Coin pour enchanter le Loki Muffler mon frËre.";
	close;
	}
	}
	mes "[Bulberry Westhood]";
	mes "Tu devrais porter le Loki Muffler sur toi pour que je l'enchante.";
	close;	
	
	L_quit:
	mes "[Bulberry Westhood]";
	mes "Yoooo Áa roule mon frËre! Reviens quand tu veux pour enchanter ton Loki Muffler!";
	close;
}
mora,105,176,6	script	Master Tailor	509,{
	mes "[Master Tailor]";
	mes "Hey, vous Ítes nouveau ‡ Mora n'est ce pas? Je ne souviens pas avoir vu votre tÍte trainer par ici. Enfin je dis Áa, je dis rien...";
	next;
	mes "[Master Tailor]";
	mes "Vous surement d˚ entendre parler de l'Army Padding?";
	next;
	mes "[Master Tailor]";
	mes "C'est un terrible equipement! Je le vends pour 1 Mora coin seulement et il y a mÍme une possibilitÈ de l'enchanter!";
	next;
	mes "[Master Tailor]";
	mes "Alors, faites votre choix.";
	next;
	switch(select("Acheter l'Army Padding.:Enchanter l'Army Padding.:Quitter.")) {
	case 1:
	goto L_buy;
	case 2:
	goto L_enchant;
	case 3:
	goto L_quit;
	}
	
	L_buy:
	mes "[Master Tailor]";
	mes "Yeah, je vous disais que son prix Ètait de 1 Mora Coin, alors qu'en dites-vous?";
	mes "Voulez-vous acheter 1 Army Padding?";
	next;
	switch(select("Acheter l'Army Padding.:Ne pas acheter.")) {
	case 1:
	if(countitem(6380) >=1)
	{
	delitem 6380,1;
	getitem 15024,1;
	mes "[Master Tailor]";
	mes "Yeah, merci de votre achat! Repassez me voir quand vous voulez pour enchanter cet objet!";
	close;
	}
	else
	{
	mes "[Master Tailor]";
	mes "Vous n'avez pas 1 Mora Coin...";
	close;
	}
	case 2:
	goto L_quit;
	}
	
	L_enchant:
	mes "[Master Tailor]";
	mes "Vous souhaitez enchanter votre Army Padding! C'est une excellente idÈe.";
	next;
	mes "[Master Tailor]";
	mes "Les frais de service pour l'enchantement de l'Army Padding sont de ^0000FF5 Mora Coin^000000.";
	next;
	mes "[Master Tailor]";
	mes "L'enchantement affectera 3 slots automatiquement avec des stats alÈatoires.";
	mes "Si jamais l'enchantement ne vous plaÓt pas, je peux vous l'enchanter ‡ l'infinit.";
	next;
	mes "[Master Tailor]";
	mes "Voulez-vous procÈder ‡ l'enchantement de l'Army Padding?";
	next;
	switch(select("Commencer l'enchantement.:Annuler.")) {
	case 1:
	goto L_enchant2;
	case 2:
	goto L_quit;
	}
	
	L_enchant2:
	if(countitem(15024) > 1)
	{
	mes "==Information==";
	mes "Vous devez avoir 1 seul objet sur vous pour que l'enchantement soit possible.";
	next;
	mes "==Information==";
	mes "Veuillez rÈessayer ultÈrieurement.";
	close;
	}
	if(isequipped(15024))
	{
	if(countitem(6380) >=5)
	{
	switch(rand(1,8)) {
	case 1:
	set .@enchant_card1,4766;
	break;
	case 2:
	set .@enchant_card1,4767;
	break;
	case 3:
	set .@enchant_card1,4760;
	break;
	case 4:
	set .@enchant_card1,4761;
	break;
	case 5:
	set .@enchant_card1,4762;
	break;
	case 6:
	set .@enchant_card1,4763;
	break;
	case 7:
	set .@enchant_card1,4764;
	break;
	case 8:
	set .@enchant_card1,4765;
	break;
	}
switch(rand(1,6)) {
	case 1:
	set .@enchant_card2,4720;
	break;
	case 2:
	set .@enchant_card2,4721;
	break;
	case 3:
	set .@enchant_card2,4710;
	break;
	case 4:
	set .@enchant_card2,4711;
	break;
	case 5:
	set .@enchant_card2,4750;
	break;
	case 6:
	set .@enchant_card2,4751;
	break;
	}
switch(rand(1,6)) {
	case 1:
	set .@enchant_card3,4700;
	break;
	case 2:
	set .@enchant_card3,4701;
	break;
	case 3:
	set .@enchant_card3,4730;
	break;
	case 4:
	set .@enchant_card3,4731;
	break;
	case 5:
	set .@enchant_card3,4740;
	break;
	case 6:
	set .@enchant_card3,4741;
	break;
	}
	mes "[Master Tailor]";
	mes "Okay, je suis prÍt nous allons commencer...";
	next;
	specialeffect EF_SANCTUARY;
	delitem 6380,5;
	delitem 15024,1;
	getitem2 15024, 1, 1, 0, 0, 0, .@enchant_card3, .@enchant_card2, .@enchant_card1;
	mes "[Master Tailor]";
	mes "Voici votre nouvelle armure! J'espËre qu'elle vous plaÓt!";
	next;
	mes "[Master Tailor]";
	mes "N'hÈsitez pas ‡ revenir me voir si vous souhaitez l'enchanter ‡ nouveau.";
	next;
	mes "[Master Tailor]";
	mes "Passez une bonne journÈe.";
	close;
	}
	else
	{
	mes "[Master Tailor]";
	mes "Vous n'avez pas les 5 Mora Coin requis pour payer les frais d'enchantement.";
	close;
	}
	}
	mes "[Master Tailor]";
	mes "Vous devez equiper l'armure sur vous pour que je procËde ‡ l'enchantement.";
	close;	
	
	L_quit:
	mes "[Master Tailor]";
	mes "Okay, revenez quand vous voulez!";
	close;
}
mora,123,177,4	script	Pendant Crafter	509,{
	mes "[Pendant Crafter]";
	mes "Salut et bienvenue jeune aventurier.";
	next;
	mes "[Pendant Crafter]";
	mes "Je peux enchanter les Pendant of Guardian. Ce sont des accÈssoires, si jamais vous en avez un sur vous cela pourrait vous intÈresser.";
	next;
	mes "[Pendant Crafter]";
	mes "Alors, voulez-vous enchanter votre Pendant of Guardian?";
	next;
	switch(select("Enchanter mon Pendant of Guardian.:ArrÍter la conversation.")) {
	case 1:
	goto L_enchant;
	case 2:
	goto L_quit;
	}
	
	L_enchant:
	mes "[Pendant Crafter]";
	mes "Vous voulez enchanter votre Pendant of Guardian, ok.";
	next;
	mes "[Pendant Crafter]";
	mes "Les frais de service pour l'enchantement du Pendant of Guardian sont de ^0000FF5 Mora Coin^000000.";
	next;
	mes "[Pendant Crafter]";
	mes "L'enchantement affecte automatiquement les 3 slots avec des stats alÈatoires.";
	mes "Si jamais l'enchantement ne vous plaÓt pas, je peux enchanter votre Pendentif ‡ l'infinit.";
	next;
	mes "[Pendant Crafter]";
	mes "Voulez-vous commencer l'enchantement?";
	next;
	switch(select("Commencer l'enchantement.:Annuler.")) {
	case 1:
	goto L_enchant2;
	case 2:
	goto L_quit;
	}
	
	L_enchant2:
	if(countitem(2858) > 1)
	{
	mes "==Information==";
	mes "Vous devez avoir 1 seul objet sur vous pour que l'enchantement soit possible.";
	next;
	mes "==Information==";
	mes "Veuillez rÈessayer ultÈrieurement.";
	close;
	}
	if(isequipped(2858))
	{
	if(countitem(6380) >=5)
	{
	switch(rand(1,8)) {
	case 1:
	set .@enchant_card1,4766;
	break;
	case 2:
	set .@enchant_card1,4767;
	break;
	case 3:
	set .@enchant_card1,4760;
	break;
	case 4:
	set .@enchant_card1,4761;
	break;
	case 5:
	set .@enchant_card1,4762;
	break;
	case 6:
	set .@enchant_card1,4763;
	break;
	case 7:
	set .@enchant_card1,4764;
	break;
	case 8:
	set .@enchant_card1,4765;
	break;
	}
switch(rand(1,6)) {
	case 1:
	set .@enchant_card2,4720;
	break;
	case 2:
	set .@enchant_card2,4721;
	break;
	case 3:
	set .@enchant_card2,4710;
	break;
	case 4:
	set .@enchant_card2,4711;
	break;
	case 5:
	set .@enchant_card2,4750;
	break;
	case 6:
	set .@enchant_card2,4751;
	break;
	}
switch(rand(1,6)) {
	case 1:
	set .@enchant_card3,4700;
	break;
	case 2:
	set .@enchant_card3,4701;
	break;
	case 3:
	set .@enchant_card3,4730;
	break;
	case 4:
	set .@enchant_card3,4731;
	break;
	case 5:
	set .@enchant_card3,4740;
	break;
	case 6:
	set .@enchant_card3,4741;
	break;
	}
	mes "[Pendant Crafter]";
	mes "Okay, je suis prÍt nous allons commencer...";
	next;
	specialeffect EF_SANCTUARY;
	delitem 6380,5;
	delitem 2858,1;
	getitem2 2858, 1, 1, 0, 0, 0, .@enchant_card3, .@enchant_card2, .@enchant_card1;
	mes "[Pendant Crafter]";
	mes "Voil‡ votre nouveau Pendant of Guardian! J'espËre que cela vous plaÓt!";
	next;
	mes "[Pendant Crafter]";
	mes "Revenez me voir quand vous voulez, si vous souhaitez l'enchanter ‡ nouveau!";
	next;
	mes "[Pendant Crafter]";
	mes "Passez une bonne journÈe~";
	close;
	}
	else
	{
	mes "[Pendant Crafter]";
	mes "Vous n'avez pas les 5 Mora Coin. Revenez me voir quand vous aurez l'argent necÈssaire.";
	close;
	}
	}
	mes "[Pendant Crafter]";
	mes "Pouvez-vous porter votre Pendentif sur vous? Il est plus facil pour moi de l'enchanter de cette maniËre.";
	close;	
	
	L_quit:
	mes "[Pendant Crafter]";
	mes "D'accord, revenez quand vous voulez! Bonne journÈe~";
	close;
}