R> Refine Scroll item.

[vijay]

Hello Hercules.
I'm requesting for a item script.
It should be a usable item, when we consume, it much show the refineable items such as:

Only these items.Head gear.Top gear.Left/Right hand.Boots.Armors.Mufflers. The usable scroll item must refine +1 until the item is +10.

 If anyone knows a way, please do comment.
Thanks!

 

[vijay]

I found a way myself!

function	script	RefineScroll	{			set .@menu$,"";			for( set .@i,1; .@i <= 10; set .@i,.@i+1 )			{				if( getequipisequiped(.@i) )					set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";				 set .@menu$, .@menu$ + ":";			}	set .@part,select(.@menu$);		// =========================			if(!getequipisequiped(.@part)) {		getitem 542,1;		dispbottom "You're not wearing anything there that refines!";		close;	}	//Check if the item is refinable...	if(!getequipisenableref(.@part)) {		getitem 542,1;		dispbottom "There is no way that this item could be refined!";		close;	}	//Check if the item is identified... (Don't know why this is in here... but kept it anyway)	if(!getequipisidentify(.@part)) {		getitem 542,1;		dispbottom "You can't refine this if you haven't appraised it first. Make sure your stuff is identified before refining it.";		close;	}	//Check to see if the items is already +10	if(getequiprefinerycnt(.@part) >= 10) {		getitem 542,1;		dispbottom "I can't refine this any more. This is as refined as it gets!";		close;	}				successrefitem .@part;		dispbottom "There you go, Refine Scroll works like a charm :D";		close;	}}