Jump to content
Nerfwood

Utility: Unofficial Fallen Angel Wing (FAW) Enchantment

By Nerfwood, in Utility Script Releases

Recommended Posts

Nerfwood Poring

Nerfwood

Posted
Posted

File Name: Unofficial Fallen Angel Wing (FAW) Enchantment

File Submitter: Nerfwood

File Submitted: 03 Dec 2014

File Category: Utilities

Content Author: Nerfwood


Unofficial Fallen Angel Wing (FAW) Enchants


This script should do exactly what is written on iRO wiki's FAW Enchants page, but you can easily change some settings as specified below.
Also, kindly press that rep_up.png reputation button if you find this helpful. This is my first script release, so why not encourage me to release more by pressing that button? ;)


Custom Settings:

.chancetype
If set to 1, lower-level enchants are more likely to be enchanted. If set to 0, all levels have an equal chance to be enchanted (true random).

// 1 = 60% low, 30% mid, 10% high for 1st & 2nd enchant slot && 40% low, 30% mid, 20% high, 10% special for 3rd enchant slot// 0 = Equal Chance.chancetype = 1;


.cost
Cost for enchanting.

    //Cost for Enchanting. It's free in iRO    //.cost=0;


.cost2
Cost for resetting enchants.

    //Cost to reset | Costs 1Mz in iRO    .cost2 = 1000000;


.autoequip
If set to 1, it lets the player to equip the garment while the script is running. Set to 0 to disable.

    //Turn on Equip Selection if garment is unequipped? 1 = Yes    .autoequip =1;


Additional Notes:

You may want to change the effects of the Fatal Enchants as rAthena's effects are different from iRO's.

//iRO Fatal effect4863,Fatal1Lv,Fatal1Lv,6,10,,,,,,,,,,,,,,,{ bonus bCritAtkRate,4; bonus bCritical,1; },{},{}4864,Fatal2Lv,Fatal2Lv,6,10,,,,,,,,,,,,,,,{ bonus bCritAtkRate,6; bonus bCritical,2; },{},{}4865,Fatal3Lv,Fatal3Lv,6,10,,,,,,,,,,,,,,,{ bonus bCritAtkRate,8; bonus bCritical,3; },{},{}4866,Fatal4Lv,Fatal4Lv,6,10,,,,,,,,,,,,,,,{ bonus bCritAtkRate,10; bonus bCritical,4; },{},{}



Click here to download this file

  • Upvote 2
Link to comment
Share on other sites
Tales Poring

Tales

Posted
Posted (edited)

Hey Nerf, can you teach me how to does a Auto Select Enchant like a rand?

 

File Name: Unofficial Fallen Angel Wing (FAW) Enchantment

File Submitter: Nerfwood

File Submitted: 03 Dec 2014

File Category: Utilities

Content Author: Nerfwood

 


Unofficial Fallen Angel Wing (FAW) Enchants


This script should do exactly what is written on iRO wiki's FAW Enchants page, but you can easily change some settings as specified below.
Also, kindly press that rep_up.png reputation button if you find this helpful. This is my first script release, so why not encourage me to release more by pressing that button? ;)


Custom Settings:

.chancetype
If set to 1, lower-level enchants are more likely to be enchanted. If set to 0, all levels have an equal chance to be enchanted (true random).

// 1 = 60% low, 30% mid, 10% high for 1st & 2nd enchant slot && 40% low, 30% mid, 20% high, 10% special for 3rd enchant slot
// 0 = Equal Chance
.chancetype = 1;
.cost
Cost for enchanting.
    //Cost for Enchanting. It's free in iRO
    //.cost=0;
.cost2
Cost for resetting enchants.
    //Cost to reset | Costs 1Mz in iRO
    .cost2 = 1000000;
.autoequip
If set to 1, it lets the player to equip the garment while the script is running. Set to 0 to disable.
    //Turn on Equip Selection if garment is unequipped? 1 = Yes
    .autoequip =1;
Additional Notes:

You may want to change the effects of the Fatal Enchants as rAthena's effects are different from iRO's.
//iRO Fatal effect
4863,Fatal1Lv,Fatal1Lv,6,10,,,,,,,,,,,,,,,{ bonus bCritAtkRate,4; bonus bCritical,1; },{},{}
4864,Fatal2Lv,Fatal2Lv,6,10,,,,,,,,,,,,,,,{ bonus bCritAtkRate,6; bonus bCritical,2; },{},{}
4865,Fatal3Lv,Fatal3Lv,6,10,,,,,,,,,,,,,,,{ bonus bCritAtkRate,8; bonus bCritical,3; },{},{}
4866,Fatal4Lv,Fatal4Lv,6,10,,,,,,,,,,,,,,,{ bonus bCritAtkRate,10; bonus bCritical,4; },{},{}

Click here to download this file

Edited by Tales
Link to comment
Share on other sites
Tales Poring

Tales

Posted
Posted

Sure... Rather than choose, you get a surprise enchant.

 

 

 

 

Hey Nerf, can you teach me how to does a Auto Select Enchant like a rand?

Can you further explain?

 

Link to comment
Share on other sites
Nerfwood Poring

Nerfwood

Posted
  • Author
Posted

Sure... Rather than choose, you get a surprise enchant.

 

Try replacing:

setd "[email protected]$", select("Fighting Enchant:Magic Enchant:Archer Enchant:Critical/Fatal Enchant:Max HP Enchant:Max SP Enchant:ASPD Enchant:STR Enchant:AGI Enchant:DEX Enchant:VIT Enchant:INT Enchant:LUK Enchant");

With:

setd "[email protected]$", rand(1,13);
  • Upvote 1
Link to comment
Share on other sites
dikapramantya Poring

dikapramantya

Posted
Posted

Hello i've error in this script with newer rAthena.

can you give me how to fix it??

I try to reset enchantment but server is say error like this..

 

FAW_enchant_1.jpg.ce908c9535a806d04808949c123224b6.jpg

 

 

This is the script if you forget XD 

//===== rAthena Script =======================================
//= Unofficial Fallen Angel Wing (FAW) Enchants
//===== By: ==================================================
//= Nerfwood
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= rAthena Project
//===== Description: =========================================
//= Enchants FAW as per iROWiki's information
//= Dialogue are unofficial
//===== Additional Comments: =================================
//= 1.0 First Version
//============================================================

//Decreasing Chance of Enchantment
// 60% low, 30% mid, 10% high for 1st & 2nd enchant slot
//40% low, 30% mid, 20% high, 10% special for 3rd enchant slot
function	script	EnchantStat_1	{

	.chance = rand(1,10);
	
	if(@card2 && @card3) { //For 4th Slot aka 3rd Enchant Slot
		
		if(.chance<5) .x=0; 
		else if(.chance<7) .x=1; 
		else if(.chance<9) .x=2; 
		else .x=3;
		
	}
	else {	//For 2nd and 3rd card slot aka 1st and 2nd Enchant Slot

		if(.chance<7) .x=0; 
		else if(.chance<10) .x=1; 
		else .x=2; 
	}
	return getelementofarray(getvariableofnpc( getd(".enc" + getarg(0) )  , "Dark Luhir"), .x );
	
}



	
//Equal Chance of Enchanting	
function	script	EnchantStat_0	{
	if(@card2 && @card3)
		return  getelementofarray(getvariableofnpc( getd(".enc" + getarg(0) )  , "Dark Luhir"), rand(0,3) );
	else
		return  getelementofarray(getvariableofnpc( getd(".enc" + getarg(0) )  , "Dark Luhir"), rand(0,2) );
		
}


//=======MAIN NPC

prontera,148,169,3	script	Dark Luhir	403,{
	mes .npc$;
	mes "I am here to enchant the",
		"magnificent ^000099Fallen Angel Wing^000000.",
		"Would you like to enchant yours?";
	if(countitem(2589)) {
		set [email protected]$, "Enchant Fallen Angel Wing";
	}
	else [email protected]$="";
	next;
	switch(select("Information:" + [email protected]$ + ":Reset Enchantment"))
	{
		case 1: goto OnInformation;
		case 2: goto OnEnchantNow;
		case 3: goto OnResetEnchant;
		default: close;
	}

OnInformation:
	mes .npc$,
		"I can enchant your",
		"^000099Fallen Angel Wing^000000 for",
		(.cost?callfunc("F_InsertComma",.cost)+"z":"free")+" to give it various.", 
		"effects. In fact, I can do it",
		"twice if its refinement level is",
		"+7 ~ +8, and thrice if its",
		"+9 and above.";
	next;
	mes .npc$,
		"The 3rd enchantment has a",
		"chance to be more powerful",
		"than the first two.";
	next;
	mes .npc$,
		"There is no chance to",
		"fail, so enchant away",
		"as much as you like.";
	next;	
	mes .npc$,
		"But if you're not happy",
		"with the results, you can",
		"reset the enchantments",
		"for ^009900"+ callfunc("F_InsertComma",.cost2) + "z^000000.";
	next;
	mes .npc$,
		"That's about everything.";
		close;
		
OnEnchantNow:	
	mes .npc$;
	if( (getequipid(EQI_GARMENT)!=2589) ) {
		mes "Please equip your",
			"^000099Fallen Angel Wing^000000 if",
			"you want to have it enchanted.";
		if(!.autoequip) close;	
		next;
		if(select("Equip:Don't Equip")==2) close;
		equip 2589;
		mes .npc$;
	}
	[email protected] = getequiprefinerycnt(EQI_GARMENT);
	if([email protected]<7) [email protected] = 1;
	else if([email protected]>8) [email protected] = 3;
	else [email protected] = 2;
	
	mes "You have a ^000099+" [email protected] + " Fallen Angel Wing^000000.",
		"It can have a total of " + [email protected] + " enchantment"  +( [email protected]>1?"s.":".")+" Please";
	mes "select your preferred","enchantment.";
	next;
	setd "[email protected]$", select("Fighting Enchant:Magic Enchant:Archer Enchant:Critical/Fatal Enchant:Max HP Enchant:Max SP Enchant:ASPD Enchant:STR Enchant:AGI Enchant:DEX Enchant:VIT Enchant:INT Enchant:LUK Enchant");
	if(.cost) callsub OnCostlyEnchant;
	
	[email protected] = getequipcardid(4,0);
	[email protected] = getequipcardid(4,1);
	[email protected] = getequipcardid(4,2);
	[email protected] = getequipcardid(4,3);
	
	if( @card2 && @card3 && @card4) {
		mes .npc$,
		"Hmm.. it seems that all", 
		"slots have already been enchanted.";
		close;
	}
	
	[email protected] =   callfunc( (.chancetype?"EnchantStat_1":"EnchantStat_0"), [email protected]$) ;
	
	if([email protected]) callsub OnFawEnchant , [email protected] , @card3 , @card4 , [email protected];	
	else if([email protected] && [email protected]>6) callsub OnFawEnchant , @card2 , [email protected] , @card4 , [email protected];
	else if([email protected] && [email protected]>8) callsub OnFawEnchant , @card2 , @card3 , [email protected] , [email protected];
	else {
		mes .npc$,
		"Sorry, but your",
		"^000099Fallen Angel Wing^000000's",
		"refinement level is too", 
		"low to continue";
		close;
	}
	
	mes .npc$,
		"Your ^000099Fallen Angel Wing^000000 has",
		"been enchanted with ^000099"+getitemname([email protected])+"^000000.";
	close;

OnFawEnChant:
		if ( !countitem( 2589 ) ) {
			mes "You dont have the items.";
			close;
		}
		delitem2 2589, 1, 1, getarg(3), 0, @card1, @card2, @card3, @card4;
		getitem2 2589, 1, 1, getarg(3) , 0, @card1, getarg(0), getarg(1), getarg(2);
		equip 2589;
		specialeffect2 1019;
		specialeffect2 98;
		return;

	
OnResetEnchant:
	mes .npc$,
		"This will cost 1x Silvervine Fruit.",
		"Are you sure?";
	next;
	if(select("Yes:No")==2) close;
	mes .npc$;
	if(countitem(6417)<1) {
		mes "You don't bring enough silvervine Fruit.";
		close;
	}
	delitem 6417,1;
	mes "Your ^000099Fallen Angel Wing^000000's",
		"enchantments have been reset.";
	[email protected] = getequiprefinerycnt(EQI_GARMENT);
	[email protected] = getequipcardid(4,0);
	[email protected] = getequipcardid(4,1);
	[email protected] = getequipcardid(4,2);
	[email protected] = getequipcardid(4,3);
	delitem2 2589, 1, 1, [email protected], 0, @card1, @card2, @card3, @card4;
	getitem2 2589, 1, 1, [email protected], 0, @card1, 0, 0, 0;
	equip 2589;
	specialeffect2 261;
	specialeffect2 119;
	close;
	
//Only called when .cost is defined	
OnCostlyEnchant:	
	if(Zeny<.cost) {
		
		mes .npc$,
			"You don't have enough zeny.";
		close;
	}
	Zeny -= .cost;
	return;
	
	
	
	
OnInit:
	.npc$ = "[^AA0000Valkyrie^000000]";
	setarray .enc1[0], 4809,4808,4820, 4821;	//Fighting 3~5
	setarray .enc2[0], 4812,4826,4827, 4828;	//Magic 4~6
	setarray .enc3[0], 4832,4833,4834, 4835;	//Expert Arc 1~3
	setarray .enc4[0], 4863,4864,4865, 4866;	//Fatal 1~3
	setarray .enc5[0], 4861,4862,4867, 4868;	//MHPP 1~3%
	setarray .enc6[0], 4870,4800,4871, 4801;	//MaxSP 25,50,75
	setarray .enc7[0], 4869,4872,4873, 4807;	//ASPD 1~3
//	setarray .enc7[0], 4869,4872,4873, 4881;	//ASPD 1~3
	setarray .enc8[0], 4702,4703,4704, 4853;	//STR 3~5 | Special Str
	setarray .enc9[0], 4731,4732,4733, 4854;	//AGI 2~4
	setarray .enc10[0], 4722,4723,4724, 4857;	//DEX 3~5
	setarray .enc11[0], 4742,4743,4744, 4855;	//VIT 3~5
	setarray .enc12[0], 4712,4713,4714, 4856;	//INT 3~5
	setarray .enc13[0], 4752,4753,4754, 4858;	//LUK 3~5
	// 1 = 60% low, 30% mid, 10% high for 1st & 2nd enchant slot && 40% low, 30% mid, 20% high, 10% special for 3rd enchant slot
	// 0 = Equal Chance
	.chancetype = 1;
	//Turn on Equip Selection if garment is unequipped? 1 = Yes
	.autoequip = 0;
	//Cost for Enchanting. It's free in iRO
	.cost=6000000;
	//Cost to reset | Costs 1Mz in iRO
	.cost2 = 6000000;
}

 

The requirement item is reduce / deleted but doesn't give any effect for FAW Reset.

screenLoki016.thumb.jpg.78b19964f080a5d0cbdcfd278ec6f931.jpg

 

screenLoki017.thumb.jpg.f82afe7a8b3fcd5c74c131295d063d48.jpg

 

screenLoki018.thumb.jpg.52720fdc18672e150d16981cd3f6e5a2.jpg

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
Go to topic listing
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use and Privacy Policy.

  I accept