npc/functions/inn.txt


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

function	script	Inn	{
    if (@Cost < 1) @Cost = getarg(0, 1000);
    if (@npcname$ == "") set @npcname$, strnpcinfo(1);
    mes "[" + @npcname$ + "]";
    mes "\"Would you like to rest? It's only " + @Cost + " gp.\"";
    next;
    menu
        "Yes", L_Next,
        "No", L_close;

L_Next:
    if (Zeny < @Cost)
        goto L_NoMoney;
    Zeny = Zeny - @Cost;
    heal 10000, 10000;

    mes "[" + @npcname$ + "]";
    mes "\"Sleep well!\"";
    next;
    goto L_close;

L_close:
    mes "[" + @npcname$ + "]";
    mes "\"See you.\"";
    @npcname$ = "";
    close2;
    return;

L_NoMoney:
    mes "[" + @npcname$ + "]";
    mes "\"You don't have enough money to stay here.\"";
    next;
    goto L_close;
}