// 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;
    openshop;
    close;

OnInit:
    .ThisRebootRand=rand(0,100);
    .ThisRebootAmou=rand(30,70);

    .sex = G_FEMALE;
    .distance = 5;


    tradertype(NST_MARKET);
    sellitem LeatherShirt, 125000, 1;
    sellitem JeanShorts, 125000, 1;
    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;
    if (.ThisRebootRand > 70)
        sellitem Coal, -1, 1;
    else if (.ThisRebootRand < 30)
        sellitem IronOre, -1, 1;

    end;

OnClock1759:
    restoreshopitem LeatherShirt, 125000, 1;
    restoreshopitem JeanShorts, 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;
    if (.ThisRebootRand > 70)
        restoreshopitem Coal, -1, 1;
    else if (.ThisRebootRand < 30)
        restoreshopitem IronOre, -1, 1;
    end;
}