//===== eAthena Script =============================================================================
//= Именные вещи
//===== By: ========================================================================================
//= Мяфк
//===== Current Version: ===========================================================================
//= 1.0
//===== Compatible With: ===========================================================================
//= Ea 14000+
//===== Description: ===============================================================================
//= Позволяет именновать вещи в своё имя и в имя Ги.
//===== Additional Comments: =======================================================================
//= 10.12.09 - Первая версия скрипта.
//==================================================================================================
prontera,140,175,5    script    Именные вещи    878,{
mes "Здраствуйте!";
mes "Я могу дать вещи ваше имя";
mes "Или имя Гильдии!";
mes "Это стоит 1,000,000 zeny";
switch(select("Дать моё имя вещи!","Дать имя моей Гильдии!","Уйти")){

case 1:
if (Zeny < 1000000) goto noz;
mes "Хорошо, теперь оденьте вещь";
mes "И напишите его ID";
input @id;
if(getequipid(1)==@id) callfunc "getitem",@id;
if(getequipid(2)==@id) callfunc "getitem",@id;
if(getequipid(3)==@id) callfunc "getitem",@id;
if(getequipid(4)==@id) callfunc "getitem",@id;
if(getequipid(5)==@id) callfunc "getitem",@id;
if(getequipid(6)==@id) callfunc "getitem",@id;
if(getequipid(7)==@id) callfunc "getitem",@id;
if(getequipid(8)==@id) callfunc "getitem",@id;
if(getequipid(9)==@id) callfunc "getitem",@id;
if(getequipid(10)==@id) callfunc "getitem",@id;
mes "Не найдено одетой вещи!";
close;
break;

case 2:
mes "Хорошо, теперь оденьте вещь";
mes "И напишите его ID";
if (Zeny < 1000000) goto noz;
input @id;
if (strcharinfo(2)=="") goto nog;
if(getequipid(1)==@id) callfunc "getitem2",@id;
if(getequipid(2)==@id) callfunc "getitem2",@id;
if(getequipid(3)==@id) callfunc "getitem2",@id;
if(getequipid(4)==@id) callfunc "getitem2",@id;
if(getequipid(5)==@id) callfunc "getitem2",@id;
if(getequipid(6)==@id) callfunc "getitem2",@id;
if(getequipid(7)==@id) callfunc "getitem2",@id;
if(getequipid(8)==@id) callfunc "getitem2",@id;
if(getequipid(9)==@id) callfunc "getitem2",@id;
if(getequipid(10)==@id) callfunc "getitem2",@id;
mes "Не найдено одетой вещи!";
close;
break;

case 3:
close;
break;
}

noz:
mes "Не хватает зени.";
close;

nog:
mes "Вы не в Гильдии";
close;
}

function    script    getitem    {
set @id,    getarg(0);
getnameditem @id,strcharinfo(0);
delitem @id,1;
set Zeny, Zeny-1000000;
close;
end;

function    getitem2    {
set @id,    getarg(0);
getnameditem @id,strcharinfo(2);
delitem @id,1;
set Zeny, Zeny-1000000;
close;
end;
}
}