Enchanter

[Holiness 0]

I would like to ask for an enchanter that enchants ONLY Armors, garments, shields and boots with:


+1 Str, Agi, Int, Vit, Dex, Luk / + 1% ATK, MATK, ASPD, HP stones (30% chance of enchanting, 70% chance of failing)

 

+2 Str, Agi, Int, Vit, Dex, Luk / + 2% ATK, MATK, ASPD, HP stones (20% chance of enchanting, 80% chance of failing)

 

+3 Str, Agi, Int, Vit, Dex, Luk / + 3% ATK, MATK, ASPD, HP stones (10% chance of enchanting, 90% chance of failing)


Other details:


In order to enchant an item, it requires 250.000 Zeny and 3 Poring Coins.


Once the item is enchanted, it cannot be enchanted again.


The stone occupies the last slot of the item. ( [] [] [] -> [] <- even if it's not being used)


PS: I might post my current enchanter if it would make this work easier!


Thanks in advance!

[AnnieRuru 956]

problem ... there is "Atk_Speed1" and "Atk_Speed2", but there is no "Atk_Speed3"

prontera,156,179,5	script	Enchanter	100,{//	rentitem Cotton_Shirt_, 10;	mes "select which equipment to enchant";	next;	.@s = select (		"Armor - "+( ( getequipisequiped( EQI_ARMOR ) )? "^0000FF["+ getequipname( EQI_ARMOR ) +"]" : "^FF0000 (none)" )+"^000000",		"Garment - "+( ( getequipisequiped( EQI_GARMENT ) )? "^0000FF["+ getequipname( EQI_GARMENT ) +"]" : "^FF0000 (none)" )+"^000000",		"Shield - "+( ( getequipisequiped( EQI_HAND_L ) && getiteminfo( getequipid( EQI_HAND_L ), 2 ) == IT_ARMOR )? "^0000FF["+ getequipname( EQI_HAND_L ) +"]" : "^FF0000 (none)" )+"^000000",		"Shoes - "+( ( getequipisequiped( EQI_SHOES ) )? "^0000FF["+ getequipname( EQI_SHOES ) +"]" : "^FF0000 (none)" )+"^000000" );	.@pos = .pos[.@s];	if ( getequipcardid( .@pos, 3 ) ) {		mes "this item has been enchanted";		close;	}	.@eq = getequipid( .@pos );	mes "select the type of enchant";	next;	.@type = select( .enc_menu$ ) -1;	mes "select the level of enchantment";	mes "level 1 has 30% chance of success";	mes "level 2 has 20% chance of success";	mes "level 3 has 10% chance of success";	next;	.@level = select( "1", "2", "3" );	mes "Are you sure you want to insert level "+ .@level +" "+ .enc$[.@type] +" into your "+ getitemname( .@eq ) +" ?";	mes "The fee is 250,000z and 3 Poring Coin";	next;	if ( select( "Yes", "No" ) == 2 ) close;//	counter check ... in case player change the equipment	if ( getequipid( .@pos ) != .@eq ) {		mes "what the hell ... you changed the item !";		close;	}	if ( getequipcardid( .@pos, 3 ) ) {		mes "what the hell ... this item has been enchanted !";		close;	}	if ( Zeny < 250000 ) {		mes "You don't have enough Zeny";		close;	}	if ( countitem( Poring_Coin ) < 3 ) {		mes "You don't have enough Poring Coin";		close;	}	Zeny -= 250000;	delitem Poring_Coin, 3;	.@refine = getequiprefinerycnt( .@pos );	.@card0 = getequipcardid( .@pos, 0 );	.@card1 = getequipcardid( .@pos, 1 );	.@card2 = getequipcardid( .@pos, 2 );	if ( rand(100) < .rate[ .@level ] ) {		delitem2 .@eq, 1, 1, .@refine, 0, .@card0, .@card1, .@card2, 0;		getitem2 .@eq, 1, 1, .@refine, 0, .@card0, .@card1, .@card2, getd( ".enc"+ .@level +"["+ .@type +"]" );		mes "It's a success !";	}	else		mes "It's a failure ...";	close;OnInit:	.material = Poring_Coin;	setarray .pos[1], EQI_ARMOR, EQI_GARMENT, EQI_HAND_L, EQI_SHOES;	setarray .enc$, "Str", "Int", "Dex", "Agi", "Vit", "Luk", "Atk", "Matk", "HP";	setarray .enc1, Strength1, Inteligence1, Dexterity1, Agility1, Vitality1, Luck1, Atk1, Matk1, HP100;	setarray .enc2, Strength2, Inteligence2, Dexterity2, Agility2, Vitality2, Luck2, Atk2, Matk2, HP200; 	setarray .enc3, Strength3, Inteligence3, Dexterity3, Agility3, Vitality3, Luck3, Atk3, Matk3, HP300;	setarray .rate[1], 30, 20, 10;	.enc_menu$ = implode( .enc$, ":" );	end;}

I think this script quite dangerous ... there is not script command for checking the equipment is bounded or rented

without the checks, player can use this script to change bounded or rented equipment into permanent trade-able equipment

[Holiness 0]

Sorry for the late reply, I was thinking about something different >.< as soon as I get home I'll post 2 enchanters so that you can see what I was thinking of (:

[Jezu 25]

You should put a check before they use the NPC if its rented item, I experience this long ago with may past servers and they will surely abuse that bug.

[AnnieRuru 956]

of course I knew, but there is none atm unless using getinventorylist

and ... I was thinking of writing getequipexpirationtick

http://herc.ws/board/topic/4518-suggestion-brianl-rentitem2/?p=29376