//===== Script ===============================================
//= Rent NPC
//===== By: ================================================== 
//= Kadze
//===== Current Version: =====================================
//= 1.0 Release
//= 1.1 Added display of missing items
//============================================================
prontera,188,208,5  script  Прокат    918,{
mes "[Прокат]";
mes "Я могу дать тебе вещицу в аренду на сутки";
next;
mes "[Прокат]";
mes "Выбирай";
for ( set .@i, 0; .@i < getarraysize($rentitemid); set .@i, .@i +1 ) 
    set .@menu$, .@menu$ + getitemname($rentitemid[.@i]) + ":";
set .@menu, select(.@menu$) -1;
next;
mes "[Прокат]";
mes "Аренда на сутки:";
mes "Предмет: ^FF0000"+getitemname($rentitemid[.@menu])+"^000000";
mes "Стоимость: ^FF0000"+$rentitemcost[.@menu]+"^000000 "+getitemname(.itemcost);
next;
mes "[Прокат]";
mes "Берете?";
if(select("Несомненно:Нет")==2) close;
if(countitem(.itemcost)<$rentitemcost[.@menu])
{
        next;
        mes "[Прокат]";
        mes "У вас не хватает "+($rentitemcost[.@menu]-countitem(.itemcost))+" "+getitemname(.itemcost);
        close;
}
rentitem $rentitemid[.@menu],86400;
close;
 
OnInit:
        setarray $rentitemid[0], 4403, 4441, 1238, 4047; //Предмет
        setarray $rentitemcost[0], 50,   20,   30,   30; //Цена
        set .itemcost,7227; //За какой предмет арендуем
        end;
}