- Massive EOL normalization & 'svn:eol-style native' flag setting for all txt/conf/h/c files.

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

1 files changed, 165 insertions, 165 deletions

diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_uncard.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_uncard.txt
index d39d5d1bc..4ff5b7c8b 100644
--- a/npc/custom/eAAC_Scripts/kafraExpress/ke_uncard.txt
+++ b/npc/custom/eAAC_Scripts/kafraExpress/ke_uncard.txt
@@ -1,165 +1,165 @@
-//===== eAthena Script ======================================= 

-//= Kafra Express - Uncarder Module

-//===== By: ================================================== 

-//= Skotlex 

-//===== Current Version: ===================================== 

-//= 1.5

-//===== Compatible With: ===================================== 

-//= eAthena SVN R3424+

-//===== Description: ========================================= 

-//= Part of the Kafra Express Script Package.

-//= Offers uncarding services.

-//===== Additional Comments: ================================= 

-//= See config.txt for configuration.

-//============================================================ 

-

--	script	keInit_uncard	-1,{

-OnInit:	//Load Config

-	donpcevent "keConfig::OnLoadUncard";

-	end;

-}

-

-function	script	F_keUncard	{

-

-function SF_uncard;

-

-	do {

-		set @kmenu, select(

-			"- Return",

-			"- See Price Specifics",

-			"- "+getequipname(1),

-			"- "+getequipname(2),

-			"- "+getequipname(3),

-			"- "+getequipname(4),

-			"- "+getequipname(5),

-			"- "+getequipname(6),

-			"- "+getequipname(7),

-			"- "+getequipname(8),

-			"- "+getequipname(9),

-			"- "+getequipname(10)

-		);

-		if (@kmenu == 1)

-			return;

-		if (@kmenu == 2) {	//Details

-			mes "Okay, listen up...";

-			next;

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

-			if ($@keuc_BaseCost)

-				mes "The base cost is of "+$@keuc_BaseCost+"z.";

-			mes "Each card to be removed incurs a cost of +"+$@keuc_CardCost+"z.";

-			mes "The refine level of the compounded equipment can incur an additional cost:";

-			mes "Armors: "+$@keuc_UpgradeCostA+"z per level.";

-			mes "Lv1 Weapons: "+$@keuc_UpgradeCostW1+"z per level.";

-			mes "Lv2 Weapons: "+$@keuc_UpgradeCostW2+"z per level.";

-			mes "Lv3 Weapons: "+$@keuc_UpgradeCostW3+"z per level.";

-			mes "Lv4 Weapons: "+$@keuc_UpgradeCostW4+"z per level.";

-

-			if ($@keuc_Mat1 && $@keuc_Qty1) {

-				mes "The materials needed are:";

-				mes "- "+$@keuc_Qty1+" "+getitemname($@keuc_Mat1)+".";

-			}

-			if ($@keuc_Mat2 && $@keuc_Qty2)

-				mes "- "+$@keuc_Qty2+" "+getitemname($@keuc_Mat2)+".";

-			

-			if ($@keuc_Fail1Chance || $@keuc_Fail2Chance)

-				mes "There is a chance the process might fail and you'll lose your items.";

-

-			next;

-			callfunc "F_keIntro", -1, "";

-		} else {

-			if (SF_uncard(@kmenu-2))

-				return;

-		}

-	} while (@kmenu >1);

-	return;

-

-//Subfunction SF_uncard (equipment-position)

-//Attempts to uncard the equipment.

-function SF_uncard {

-	set @part, getarg(0);

-	if(getequipcardcnt(@part) == 0) {

-		callfunc "F_keIntro", e_ag, "There are no cards to remove there!";

-		return 0;

-	} 

-	set @cost, $@keuc_BaseCost;

-	set @cost, @cost + $@keuc_CardCost*getequipcardcnt(@part);

-

-	switch (getequipweaponlv(@part)) {

-	case 0: //Armor

-		set @upgradeCost, $@keuc_UpgradeCostA;

-		break;

-	case 1: //Lv1 Weapons

-		set @upgradeCost, $@keuc_UpgradeCostW1;

-		break;

-	case 2: //Lv2 Weapons

-		set @upgradeCost, $@keuc_UpgradeCostW2;

-		break;

-	case 3: //Lv3 Weapons

-		set @upgradeCost, $@keuc_UpgradeCostW3;

-		break;

-	default: //Lv4 Weapons

-		set @upgradeCost, $@keuc_UpgradeCostW4;

-	}

-	

-	set @cost, @cost + @upgradeCost*getequiprefinerycnt(@part);

-

-	set @price, callfunc("F_keCost",@cost,$@keuc_discount);

-	

-	if ($@keuc_Fail1Chance) {

-		set @failsave, select(

-			"- Cancel",

-			"- Remove cards ("+@price+"z, item gets priority)",

-			"- Remove cards ("+@price+"z, cards get priority)"

-		);

-	} else {

-		set @failsave, select(

-			"- Cancel",

-			"- Remove cards ("+@price+"z)"

-		);

-	}

-	if (@failsave == 1)

-		return 0;

-	set @failsave, @failsave-1;	//1: Save item, 2: Save Card

-

-	if (($@keuc_Mat1 && countitem($@keuc_Mat1) < $@keuc_Qty1)

-		|| ($@keuc_Mat2 && countitem($@keuc_Mat2) < $@keuc_Qty2)) {

-		callfunc "F_keIntro", e_pif, "You do not have all the materials I need...";

-		return 0;

-	}

-	

-	if (!(callfunc("F_keCharge",@cost,$@keuc_discount,1))) {

-		callfunc "F_keIntro", e_ag, "Sorry, you don't have enough zeny.";

-		return 0;

-	}

-	

-	if ($@keuc_Mat1 && $@keuc_Qty1)

-		delitem $@keuc_Mat1, $@keuc_Qty1;

-	if ($@keuc_Mat2 && $@keuc_Qty2)

-		delitem $@keuc_Mat2, $@keuc_Qty2;

-	

-	set @failtype,-1;

-	//Recycling cost...

-	set @cost, rand(1000);

-	if (@cost < $@keuc_Fail2Chance)	//Total Failure

-		set @failtype, 0;

-	else if (@cost < $@keuc_Fail1Chance)	//Partial Failure

-		set @failtype, @failsave;

-	else if (@cost < $@keuc_Fail0Chance)	//Harmless Failure

-		set @failtype, 3;

-	else {	//Success

-		successremovecards @part;

-		emotion e_ho;

-		return 1;

-	}

-	failedremovecards @part,@failtype;

-	if (@failtype == 1)

-		mes "The cards were lost...";

-	if (@failtype == 2)

-		mes "The item was lost...";

-	if (@failtype == 0)

-		mes "Lost the cards and item...";

-	callfunc "F_keIntro", e_swt, "...oops.";

-	return 1;

-}

-

-}

+//===== eAthena Script ======================================= 
+//= Kafra Express - Uncarder Module
+//===== By: ================================================== 
+//= Skotlex 
+//===== Current Version: ===================================== 
+//= 1.5
+//===== Compatible With: ===================================== 
+//= eAthena SVN R3424+
+//===== Description: ========================================= 
+//= Part of the Kafra Express Script Package.
+//= Offers uncarding services.
+//===== Additional Comments: ================================= 
+//= See config.txt for configuration.
+//============================================================ 
+
+-	script	keInit_uncard	-1,{
+OnInit:	//Load Config
+	donpcevent "keConfig::OnLoadUncard";
+	end;
+}
+
+function	script	F_keUncard	{
+
+function SF_uncard;
+
+	do {
+		set @kmenu, select(
+			"- Return",
+			"- See Price Specifics",
+			"- "+getequipname(1),
+			"- "+getequipname(2),
+			"- "+getequipname(3),
+			"- "+getequipname(4),
+			"- "+getequipname(5),
+			"- "+getequipname(6),
+			"- "+getequipname(7),
+			"- "+getequipname(8),
+			"- "+getequipname(9),
+			"- "+getequipname(10)
+		);
+		if (@kmenu == 1)
+			return;
+		if (@kmenu == 2) {	//Details
+			mes "Okay, listen up...";
+			next;
+			mes "["+@name$+"]";
+			if ($@keuc_BaseCost)
+				mes "The base cost is of "+$@keuc_BaseCost+"z.";
+			mes "Each card to be removed incurs a cost of +"+$@keuc_CardCost+"z.";
+			mes "The refine level of the compounded equipment can incur an additional cost:";
+			mes "Armors: "+$@keuc_UpgradeCostA+"z per level.";
+			mes "Lv1 Weapons: "+$@keuc_UpgradeCostW1+"z per level.";
+			mes "Lv2 Weapons: "+$@keuc_UpgradeCostW2+"z per level.";
+			mes "Lv3 Weapons: "+$@keuc_UpgradeCostW3+"z per level.";
+			mes "Lv4 Weapons: "+$@keuc_UpgradeCostW4+"z per level.";
+
+			if ($@keuc_Mat1 && $@keuc_Qty1) {
+				mes "The materials needed are:";
+				mes "- "+$@keuc_Qty1+" "+getitemname($@keuc_Mat1)+".";
+			}
+			if ($@keuc_Mat2 && $@keuc_Qty2)
+				mes "- "+$@keuc_Qty2+" "+getitemname($@keuc_Mat2)+".";
+			
+			if ($@keuc_Fail1Chance || $@keuc_Fail2Chance)
+				mes "There is a chance the process might fail and you'll lose your items.";
+
+			next;
+			callfunc "F_keIntro", -1, "";
+		} else {
+			if (SF_uncard(@kmenu-2))
+				return;
+		}
+	} while (@kmenu >1);
+	return;
+
+//Subfunction SF_uncard (equipment-position)
+//Attempts to uncard the equipment.
+function SF_uncard {
+	set @part, getarg(0);
+	if(getequipcardcnt(@part) == 0) {
+		callfunc "F_keIntro", e_ag, "There are no cards to remove there!";
+		return 0;
+	} 
+	set @cost, $@keuc_BaseCost;
+	set @cost, @cost + $@keuc_CardCost*getequipcardcnt(@part);
+
+	switch (getequipweaponlv(@part)) {
+	case 0: //Armor
+		set @upgradeCost, $@keuc_UpgradeCostA;
+		break;
+	case 1: //Lv1 Weapons
+		set @upgradeCost, $@keuc_UpgradeCostW1;
+		break;
+	case 2: //Lv2 Weapons
+		set @upgradeCost, $@keuc_UpgradeCostW2;
+		break;
+	case 3: //Lv3 Weapons
+		set @upgradeCost, $@keuc_UpgradeCostW3;
+		break;
+	default: //Lv4 Weapons
+		set @upgradeCost, $@keuc_UpgradeCostW4;
+	}
+	
+	set @cost, @cost + @upgradeCost*getequiprefinerycnt(@part);
+
+	set @price, callfunc("F_keCost",@cost,$@keuc_discount);
+	
+	if ($@keuc_Fail1Chance) {
+		set @failsave, select(
+			"- Cancel",
+			"- Remove cards ("+@price+"z, item gets priority)",
+			"- Remove cards ("+@price+"z, cards get priority)"
+		);
+	} else {
+		set @failsave, select(
+			"- Cancel",
+			"- Remove cards ("+@price+"z)"
+		);
+	}
+	if (@failsave == 1)
+		return 0;
+	set @failsave, @failsave-1;	//1: Save item, 2: Save Card
+
+	if (($@keuc_Mat1 && countitem($@keuc_Mat1) < $@keuc_Qty1)
+		|| ($@keuc_Mat2 && countitem($@keuc_Mat2) < $@keuc_Qty2)) {
+		callfunc "F_keIntro", e_pif, "You do not have all the materials I need...";
+		return 0;
+	}
+	
+	if (!(callfunc("F_keCharge",@cost,$@keuc_discount,1))) {
+		callfunc "F_keIntro", e_ag, "Sorry, you don't have enough zeny.";
+		return 0;
+	}
+	
+	if ($@keuc_Mat1 && $@keuc_Qty1)
+		delitem $@keuc_Mat1, $@keuc_Qty1;
+	if ($@keuc_Mat2 && $@keuc_Qty2)
+		delitem $@keuc_Mat2, $@keuc_Qty2;
+	
+	set @failtype,-1;
+	//Recycling cost...
+	set @cost, rand(1000);
+	if (@cost < $@keuc_Fail2Chance)	//Total Failure
+		set @failtype, 0;
+	else if (@cost < $@keuc_Fail1Chance)	//Partial Failure
+		set @failtype, @failsave;
+	else if (@cost < $@keuc_Fail0Chance)	//Harmless Failure
+		set @failtype, 3;
+	else {	//Success
+		successremovecards @part;
+		emotion e_ho;
+		return 1;
+	}
+	failedremovecards @part,@failtype;
+	if (@failtype == 1)
+		mes "The cards were lost...";
+	if (@failtype == 2)
+		mes "The item was lost...";
+	if (@failtype == 0)
+		mes "Lost the cards and item...";
+	callfunc "F_keIntro", e_swt, "...oops.";
+	return 1;
+}
+
+}