Optmized Oriman (Refiner Script) - Batch Refining

[Kalandar]

Hello, guys.

In advance, thank you!!! 

for some time you helped me a lot on this forums, and you didn't know until now. xD

so,  I want to  feedback your help with one script ( in real life I am a .net  programmer :D) tha annoyed me for years when I played Ro some years ago.

every time you need to refine rough minerals, you have to do it 1 by one, on the npc menu.

I changed this: now, the npc will get all THE NECESSARY ores on your inventory to do his job, and will return the rough ores he didn't use    

Thanks again, and enjoy the script ^_^

 

function	script	orimain	{
	if (checkweight(1201,1) == 0) {
		mes "- Wait a minute !! -";
		mes "- Currently you're carrying -";
		mes "- too many items with you. -";
		mes "- Please try again -";
		mes "- after you lose some weight. -";
		close;
	}
	
	//put here the number of [ores] for the exchange.
   	
	.@ores = 5;
	
	set .@oresForMes, .@ores - 1;
	.@npc_name$ = getarg(0);
	.@ori = countitem(756);
	.@elu = countitem(757);
	set .@refinedOri, .@ori / .@ores; 
	set .@refinedElu, .@elu / .@ores;
	set .@keepOri, .@ori % .@ores; 
	set .@keepElu, .@elu % .@ores;
	.@noWay$ = "I just told you that I need " + .@ores;
	
	
	
	mes "["+ .@npc_name$ +"]";
	mes "I can purify your";
	mes "Rough Oridecons or";
	mes "Rough Eluniums. I'll need";
	mes .@ores + " Rough Stones to make";
	mes "1 pure one for you.";
	next;
	switch(select("Make Oridecon:Make Elunium:Ask about Enchanted Stones")) {
	case 1:
		if (.@ori > .@oresForMes) {
			delitem 756,.@ori - .@keepOri;  //Oridecon_Stone
			getitem 984,.@refinedOri; // Oridecon
			mes "["+ .@npc_name$ +"]";
			mes "Here's your Oridecon.";
			mes "You're welcome to come";
			mes "back whenever you want.";
			close;
		}
		else {
			mes "["+ .@npc_name$ +"]";
			mes "You're kidding me, right?";
			mes .@noWay$ + " Rough Oridecons to make a pure Oridecon.";
			close;
		}
	case 2:
		if (.@elu > .@oresForMes) {
			delitem 757,.@elu - .@keepElu;  //Elunium_Stone
			getitem 985,.@refinedElu; // Elunium
			mes "["+ .@npc_name$ +"]";
			mes "Here's your Elunium.";
			mes "You're welcome to come";
			mes "back whenever you want.";
			close;
		}
		else {
			mes "["+ .@npc_name$ +"]";
			mes "You're kidding me, right?";
			mes .@noWay$ + " Rough Eluniums to make a pure Elunium.";
			close;
	case 3:
		mes "["+ .@npc_name$ +"]";
		mes "Enchanted Stones...?";
		mes "I've been a stonesmith for 20 years, so I've heard a lot about them. Supposedly, there are";
		mes "four different kinds.";
		next;
		mes "["+ .@npc_name$ +"]";
		mes "Each Enchanted Stone possesses one of the following elemental properties: Earth, Wind, Water and Fire.";
		next;
		mes "["+ .@npc_name$ +"]";
		mes "If someone combines a Enchanted Stone with a weapon while smithing, that weapon will possess the same property as the Stone.";
		next;
		mes "["+ .@npc_name$ +"]";
		mes "Needless to say, you need to have some smithing skill to produce this kind of elemental weapon.";
		close;
	}

 

[yebaaa]

Good quality of life change. Thank you for this.