izlude,147,127,6 script Refiner 63,{
if( BaseLevel < 35 ) {
mes "["+.npcname$+"]";
if ( !Sex ) {
mes "Aio oae ?iay e?anaaeoa!";
mes "Eiaaa noaiaou ^3355FF35 aaciaiai o?iaiy^000000";
mes "i?eoiae e y aoao iiiiaaou oaaa.";
} else {
mes "I?eyoaeu,";
mes "iaaa?enu nia?aea iiuoa,";
mes "noaiu ^3355FF35 aaciaiai o?iaiy^000000";
mes "e iinea ia?auaeny ca iiiiuu?.";
}
mes "^888888~Caoi?ea - yoi iie eii?e!^000000";
close;
end;
}
mes "["+.npcname$+"]";
mes "Io caa?iaa, a?o?ie.";
mes "?ai iiii?u?";
next;
L_Menu:
switch(select("^888888 ByeBye^000000:License:Work")) {
case 1:
goto L_ByeBye;
case 2:
goto L_License;
default:
goto L_Work;
}
// ia anyeee neo?ae
close;
end;
L_Menu2:
mes "["+.npcname$+"]";
mes "Io oae ?aai aaeaai?";
next;
goto L_Menu;
L_Work:
setarray .@pos$[1],"Upper Headgear","Armor","Left hand","Right hand","Garment","Footgear","Left Accessory","Right Accessory","Mid Headgear","Lower Headgear";
set .@menu$,"";
for (set .@i,1; .@i<=10; set .@i,.@i+1) {
if (getequipisequiped(.@i))
set .@menu$, .@menu$+.@pos$[.@i]+" - ^0055FF"+getequipname(.@i)+"^000000";
set .@menu$, .@menu$+":";
}
set .@part, select(.@menu$);
set .@id, getequipid(.@part);
// I?iaa?yai aiionoeiinou i?aaiaoa
if( .allowed[0] ) { // anee 0, oi ana i?aaiaou aiionoeiu
for(set .@n,0; .@n<getarraysize(.allowed); set .@n,.@n+1)
if( .allowed[.@n] == .@id ) {
goto L_Allowed;
}
} else {
goto L_Allowed;
}
// I?aaiao ia iaeaai a nienea
mes "["+.npcname$+"]";
mes "I?inoe, ii n ^0055FF"+getequipname(.@part)+"^000000";
mes "y ia ?aaioa?.";
next;
goto L_Menu2;
L_Allowed:
setarray .@poshex[1],0x0100,0x0010,0x0020,0x0002,0x0004,0x0040,0x0008,0x0080,0x0200,0x0001;
// Aa??i aaiiua io?iiai i?aaiaoa ec eiaaioa?y
set .@found, 0;
getinventorylist;
for(set .@i,0; .@i<@inventorylist_count; set .@i,.@i+1)
if (@inventorylist_id[.@i] == .@id && @inventorylist_equip[.@i]&.@poshex[.@part] ) {
set .@found, 1;
break;
}
if( !.@found ) {
// Ioeaea eee ian iuoa?ony iaiaioou
goto L_ByeBye;
}
// Nia?aea noieiinou
mes "["+.npcname$+"]";
mes "Aey ^0055FF"+getequipname(.@part)+"^000000";
mes "n oaay aoaao: ^FF5500"+.price[getequipweaponlv(.@part)]+"^000000z";
mes "I?enooiei e ?aaioa?";
next;
if( select("^888888 Iaai iiaoiaou^000000:I?enooiaai") == 1 ) {
goto L_Menu2;
}
// I?iaa?yai anou ee i?aaiao a neioa
if( !getequipisequiped(.@part) ) {
emotion e_what;
mes "["+.npcname$+"]";
mes "...";
close;
}
if( Zeny < .price[getequipweaponlv(.@part)] ) {
mes "["+.npcname$+"]";
if ( !Sex ) {
mes "E?anaaeoa,";
} else {
mes "Ecaeie i?eyoaeu,";
}
mes "ii oaaa iaoaaoaao ^FF5500"+(.price[getequipweaponlv(.@part)]-Zeny)+"^000000z.";
emotion e_sry;
close;
}
// Nienuaaai caie
set Zeny, Zeny-.price[getequipweaponlv(.@part)];
// Caiiieiaai ana aaiiua i aaue
set .@refine, @inventorylist_refine[.@i]; // aey iaeaiueeo iiaeieia
set .@identify, @inventorylist_identify[.@i];
set .@attribute, @inventorylist_attribute[.@i];
set .@card1, @inventorylist_card1[.@i];
set .@card2, @inventorylist_card2[.@i];
set .@card3, @inventorylist_card3[.@i];
set .@card4, @inventorylist_card4[.@i];
deletearray @inventorylist_id[0],getarraysize(@inventorylist_id);
deletearray @inventorylist_amount[0],getarraysize(@inventorylist_amount);
deletearray @inventorylist_equip[0],getarraysize(@inventorylist_equip);
deletearray @inventorylist_refine[0],getarraysize(@inventorylist_refine);
deletearray @inventorylist_identify[0],getarraysize(@inventorylist_identify);
deletearray @inventorylist_attribute[0],getarraysize(@inventorylist_attribute);
deletearray @inventorylist_card1[0],getarraysize(@inventorylist_card1);
deletearray @inventorylist_card2[0],getarraysize(@inventorylist_card2);
deletearray @inventorylist_card3[0],getarraysize(@inventorylist_card3);
deletearray @inventorylist_card4[0],getarraysize(@inventorylist_card4);
deletearray @inventorylist_expire[0],getarraysize(@inventorylist_expire);
// Aey ia?aea i?iaa?ei oain ia iieiieo
if( rand(1, 100) <= .breakrate ) {
// oldversion compatibility
// breakequip(.@part); // Comment this line if usind old athena or eA-Mod
// and uncomment this part
/*
unequip(.@part);
delitem2 .@id, 1, .@identify, .@refine, .@attribute, .@card1, .@card2, .@card3, .@card4;
getitem2 .@id, 1, .@identify, .@refine, 1, .@card1, .@card2, .@card3, .@card4;
*/
goto L_Oops;
}
// Iieiiee ia auei, a e?aii neo?aa Oniao!
specialeffect 154; // Forge Success
set .@newrefine, rand(11);
// oldversion compatibility
delequip(.@part); // Comment this line if usind old athena or eA-Mod
// and uncomment this part
/*
unequip(.@part);
delitem2 .@id, 1, .@identify, .@refine, .@attribute, .@card1, .@card2, .@card3, .@card4;
*/
getitem2 .@id, 1, .@identify, .@newrefine, .@attribute, .@card1, .@card2, .@card3, .@card4;
// ?aaioaao iaei??aeoii
// equip .@id;
// Aaoia?aea eee ie?aai ia eciaieeinu, aanaei ?a ;)
if( .@newrefine <= .@refine ) {
mes "["+.npcname$+"]";
mes "?eciu ea?a.";
next;
emotion e_heh;
mes "["+.npcname$+"]";
mes "Aoia? oaay an? ono?aeaaao.";
close;
}
mes "["+.npcname$+"]";
mes "Iieiue oniao!";
next;
emotion e_proud;
mes "["+.npcname$+"]";
mes "Iiniio?e eae y oi?io!";
close;
end;
L_Oops:
specialeffect 155;
mes "["+.npcname$+"]";
mes "Oin,";
mes "io i?inoe, auaaao e oaeia";
next;
emotion e_sry;
mes "["+.npcname$+"]";
mes "A e?aii neo?aa ou caoiae au?!";
close;
end;
L_License:
mes "["+.npcname$+"]";
mes "Aa an? i?inoi:";
mes "aa??i oai? aauu, oi?ei...";
mes "a ?acoeuoao eae iieo?eony.";
next;
mes "["+.npcname$+"]";
mes "Ii?ii e neiiaou, a ii?ii";
mes "e iieo?eou caoi?eo oo?a,";
mes "eee iao aca?oa a e?iae?";
next;
goto L_Menu2;
L_ByeBye:
mes "["+.npcname$+"]";
if ( !Sex ) {
mes "Caoiae au?, e?anaaeoa!";
} else {
mes "Io eaau, auaae io?ee!";
}
close;
end;
OnInit:
set .npcname$, "Nieo"; // Eiy NPC a aeaeiaao
set .breakrate, 30; // Oain iieiiaou aauu (iaeneiaeuii 100)
// Oaiu ia o?iaie (0 o?iaaiu aey a?iiuee)
setarray .price[0],5000,5000,10000,15000,25000,50000;
// Aiionoeiua i?aaiaou (anee ia?aui ea?o 0, oi aac ia?aie?aiee)
setarray .allowed[0],0;
end;
}