Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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;
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement