summaryrefslogtreecommitdiff
path: root/npc/012-1/shoppakep.txt
blob: 884c925ded4eebfc4b87cf8fc7e47bbad556ca12 (plain) (blame)
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
// TMW2 Script.
// Author:
//    Jesusalva
// Description:
//    Random Hurnscald Shopper with random overpriced stuff and gifts

012-1,58,64,0	script	Shoppa Kep	NPC_SHOPPAKEP,{
    mesn;
    mesq lg("Welcome! Only the finest wares!");
    next;
    closedialog;
    shop .name$;
    close;

    function ShoppaKepItem {
    .@i=rand(0,100);
    if (.@i > 75)
        return Aquada;
    else if (.@i < 35)
        return Manana;
    else
        return HalfEggshell;
    }

OnInit:
    .CurrentItem=ShoppaKepItem();
    .ThisRebootAmou=rand(30,70);

    .sex = G_FEMALE;
    .distance = 5;


    tradertype(NST_MARKET);
    sellitem CottonSkirt, 100000, 1;
    sellitem MiniSkirt, 100000, 1;
    sellitem ShortTankTop, 100000, 1;
    sellitem CottonTrousers, 100000, 1;

    sellitem Piberries, -1, 30;
    sellitem Plushroom, -1, 3;
    sellitem Chagashroom, -1, 3;

    sellitem PiouFeathers, -1, .ThisRebootAmou;
    sellitem .CurrentItem, -1, rand(1,4);

    end;

OnClock1759:
OnClock0546:
    restoreshopitem LeatherShirt, 125000, 1;
    restoreshopitem JeansShorts, 125000, 1;
    restoreshopitem CottonSkirt, 100000, 1;
    restoreshopitem MiniSkirt, 100000, 1;
    restoreshopitem ShortTankTop, 100000, 1;
    restoreshopitem CottonTrousers, 100000, 1;

    restoreshopitem Piberries, -1, 30;
    restoreshopitem Plushroom, -1, 3;
    restoreshopitem Chagashroom, -1, 3;

    restoreshopitem PiouFeathers, -1, .ThisRebootAmou;

    stopselling(.CurrentItem);
    .CurrentItem=ShoppaKepItem();
    sellitem .CurrentItem, -1, rand(1,4);
    end;
}