100refiner

prontera,186,192,4  script  Refiner 810,{
function RefElu;
function RefOri;
function Refine;

set @relu, 757;
set @elu, 985;
set @eluprice, 5000;
set @relunum, 5;
set @rori, 756;
set @ori, 984;
set @oriprice, 5000;
set @rorinum, 5;
set @refprice, 50000000;
set @maxrefine, 64;
set @repprice, 500;

mes "[Refiner]";
mes "Привет, что вы хотите сделать сегодня?";
menu "Заточить вещи",REFIN,"Зделать Elunium",ELU,"Зделать Oridecon",ORI,"Починить вещи",REP,"Ничего мне не нужно",QUIT;

REFIN:
mes "Вам нужно "+@refprice+"z на 1-ну заточку.";
mes "Кроме того вам нужно ещё ^FF0000 1 Elunium ^000000 для заточки одежды";
mes "и ^FF0000 1 Oridecon ^000000 для заточки оружия.";
mes "заточить можно до ^FF0000 +64 ^000000.";

set @headtop$, getequipname(1);
set @armor$, getequipname(2);
set @handl$, getequipname(3);
set @handr$, getequipname(4);
set @garment$, getequipname(5);
set @shoes$, getequipname(6);
set @accl$, getequipname(7);
set @accr$, getequipname(8);
set @headmid$, getequipname(9);
set @headlow$, getequipname(10);

menu
"[Head - Top] "+@headtop$,HEADTOP,
"[Head - Mid] "+@headmid$,HEADMID,
"[Head - Low] "+@headlow$,HEADLOW,
"[Armor] "+@armor$,ARMOR,
"[Garment] "+@garment$,GARMENT,
"[Left Hand] "+@handl$,HANDL,
"[Right Hand] "+@handr$,HANDR,
"[Left Acc] "+@accl$,ACCL,
"[Right Acc] "+@accr$,ACCR,
"[Shoes] "+@shoes$,SHOES;

HEADTOP:
set @slot, 1;
callfunc Refine;

HEADMID:
set @slot, 9;
callfunc Refine;

HEADLOW:
set @slot, 10;
callfunc Refine;

ARMOR:
set @slot, 2;
callfunc Refine;

GARMENT:
set @slot, 5;
callfunc Refine;

HANDL:
set @slot, 3;
callfunc Refine;

HANDR:
set @slot, 4;
callfunc Refine;

ACCL:
set @slot, 7;
callfunc Refine;

ACCR:
set @slot, 8;
callfunc Refine;

SHOES:
set @slot, 6;
callfunc Refine;

ELU:
mes "Вам нужно  ^FF0000 "+@relunum+" Rough Elunium ^000000";
mes "А так же ещё понадобится "+@eluprice+"z для 1-ного Elunium'a";
mes "Вам нужно это?";
callfunc RefElu;

ORI:
mes "Вам нужно ^FF0000 "+@rorinum+" Rough Oridecon ^000000";
mes "А так же ещё понадобится "+@oriprice+"z для 1-ного Oridecon'a";
mes "Вам нужно это?";
callfunc RefOri;

REP:
if (getbrokenid(1) == 0) goto NOREP;
mes "Чтобы починить одежду, вам понадобится "+@repprice+"z.";
mes "Выберите что вы хотите починить.";
set @choice, select(getitemname(getbrokenid(1)), getitemname(getbrokenid(2)), getitemname(getbrokenid(3)), getitemname(getbrokenid(4)), getitemname(getbrokenid(5)), getitemname(getbrokenid(6)), getitemname(getbrokenid(7)), getitemname(getbrokenid(8)), getitemname(getbrokenid(9)), getitemname(getbrokenid(10)));

set zeny, zeny - @repprice;
repair(@choice);
goto LATER;

NOREP:
mes "Извените, но у вас нету поломоной вещички.";
close;

QUIT:
mes "Ухх, ну ладно, пока.";
close;

LATER:
mes "Спасибо, удачного вам дня.";
close;

NO:
mes "Эх..., ну ладно, пока.";
close;

NOELU:
mes "Извените, но у вас нету Elunium.";
close;

NOORI:
mes "Извените, но у вас нету Oridicon.";
close;

CANCEL:
mes "Ладно, приходите попозже.";
close;

MAX:
mes "Извените, но вы заточили на максимум эту вещь.";
close;

NOWAY:
mes "Ммм.... Я немогу заточить эту вещь!!!";
close;

NOREQ:
mes "Извените, но у вас нехватает денег или лута для пользования моей услуги";
close;

// ---------------Refine Elunium
function    RefElu  {
if (countitem(@relu) < @relunum) goto NOELU;
menu "Yes",-,"No",NO;
set zeny, zeny - @eluprice;
delitem @relu, @relunum;
getitem @elu, 1;

callfunc RefElu;
}

// ---------------Refine Oridecon
function    RefOri  {
if (countitem(@rori) < @rorinum) goto NOORI;
menu "Yes",-,"No",NO;
set zeny, zeny - @oriprice;
delitem @rori, @rorinum;
getitem @ori, 1;

callfunc RefOri;
}

// ---------------Refine Equipment
function    Refine  {
if (getequiprefinerycnt(@slot) >= @maxrefine) goto MAX;
if (getequipisenableref(@slot) == 0) goto NOWAY;
menu "Do it!",-,"Cancel",CANCEL;

if (zeny < @refprice) goto NOREQ;
set zeny, zeny - @refprice;
if (@slot != 3 && @slot != 4) { goto USEELU; }
else { goto CHECKWEAP; }

USEELU:
if (countitem(@elu) < 1) goto NOREQ;
delitem @elu, 1;
successrefitem(@slot);
goto LOOP;

USEORI:
if (countitem(@ori) < 1) goto NOREQ;
delitem @ori, 1;
successrefitem(@slot);
goto LOOP;

CHECKWEAP:
if (getequipweaponlv(@slot) == 0) goto USEELU;
goto USEORI;

LOOP:
callfunc Refine;
}
}