prt_in.gat,63,69,4 script Didanat 50,{
mes "[Didinat]";
mes "Hello there. I deal in upgrade materials. I can sell you Phracon or Emverertarcon. In addition, if you have elunium ore or oridecon ore, I can refine it for you.";
next;
menu "Phracon - 250z each",PHRACONNUM,
     "Emveretarcon - 1000z each",EMVERNUM,
     "Refine Elunium",ELUNIUMNUM,
     "Refine Oridecon",ORIDNUM,
     "No thanks, i'm fine.",CLOSEOUT;

PHRACONNUM:
input @count;
if (@count < 1) goto CLOSEOUTNOORE;
if(zeny < @count * 250) goto DENYZENY;
getitem 1010,@count;
set zeny,zeny - @count * 250;
mes "[Didinat]";
mes "Very good. Here's your metal.";
close;

EMVERNUM:
input @count;
if (@count < 1) goto CLOSEOUTNOORE;
if(zeny < @count * 1000) goto DENYZENY;
getitem 1011,@count;
set zeny,zeny - @count * 1000;
mes "[Didinat]";
mes "Very good. Here's your metal.";
close;

ELUNIUMNUM:
set @product,985
set @material,757
set @count,0
mes "[Didanat]";
mes "I'll refine all your rough elunium into pure stones. Is that okay?";
next;
menu "Yes",LOOPTOP,
     "No",CLOSEOUT;

ORIDNUM:
set @product,984
set @material,756
set @count,0
mes "[Didanat]";
mes "I'll refine all your rough oridecon into pure stones. Is that okay?";
next;
menu "Yes",LOOPTOP,
     "No",CLOSEOUT;

LOOPTOP:
if (countitem(@material) < 5) goto DENYORE;
LOOP:
delitem @material,5;
set @count,@count+1;
if (countitem(@material) < 5) goto RECEIVE;
goto LOOP;

RECEIVE:
getitem @product,@count;
mes "[Didanat]";
mes "Here's your metal.";
close;

DENYORE:
mes "[Didanat]";
mes "You don't even have enough ore to make one stone!";
close;

DENYZENY:
mes "[Didanat]";
mes "You don't have enough money, you bum!";
close; 

CLOSEOUT:
mes "[Didanat]";
mes "Very well.";
close;

CLOSEOUTNOORE:
mes "[Didanat]";
mes "Changed your mind, eh?";
close;

}