viewing paste Rent | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
//===== 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;
}
Viewed 824 times, submitted by kadze.