refiner Quest

[toohot22]

Hi All

 

Would someone be so kind to script a npc for me please heres the details

 

Map: prontera

where: anywhere i can change

look: any same as above

Name: Refiner Quest

 

Quest:

The players are to find the following items to make the following things

50 Rough Eluniums (757) or 10 Eluniums (985) and they will get  1 Enriched Elunium. (7619)

50 Rough Oridecon (756) or 10 Oridecon (984) and they will get 1 Enriched Oridecon (7620)

 

thanks inadvance

[Shakto]

// Rough / Ori/Elu to Enriched Refiners

//============================================================

- script Refiner_Quest#ref -1,{

mes "[Refiner Quest]";

mes "If you bring me 50";

mes "Rough Oridecon or 50 Rough Elunium";

mes "or 10 Elunium or 10 Oridecon";

mes "I can exchange them for";

mes "Enriched Elunium or Enriched Oridecon.";

next;

switch(select("Rough Oridecon to Enriched Oridecon.:Oridecon to Enriched Oridecon.:Rough Elunium to Enriched Elunium.:Elunium to Enriched Elunium.:No thanks.")) {

case 1:

setarray .@i[0],756,50,7620; //Rough Oridecon -> Enriched Oridecon

break;

case 2:

setarray .@i[0],984,10,7620; //Oridecon -> Enriched Oridecon

break;

case 3:

setarray .@i[0],757,50,7619; //Rough Elunium -> Enriched Elunium

break;

case 4:

setarray .@i[0],985,10,7619; //Elunium -> Enriched Elunium

break;

case 5:

mes "[Refiner Quest]";

mes "Hmm...";

close;

}

if (countitem(.@i[0]) >= .@i[1]) {

delitem .@i[0],.@i[1];

getitem .@i[2],1;

mes "[Refiner Quest]";

mes "Ok! Here is your "+getitemname(.@i[2])+".";

mes "Take it and use it well.";

close;

}

mes "[Refiner Quest]";

mes "You better not be trying";

mes "to cheat me because you";

mes "don't have";

mes ""+getitemname(.@i[0])+".";

close;

}

prt_in,85,71,5    duplicate(Refiner_Quest#ref)    Refiner Quest#prt    826

Edited March 17, 2013 by Shakto

[toohot22]

Thank you for this works well