// Evol scripts.
// Author:
//    Reid
// Description:
//    Newbie merchant.

000-1,83,98,0	script	Fexil	NPC_ELVEN_MAN_TRADER,{
    mesn;
    mesq lg("Greetings traveler.");
    next;
    mesq l("I have some clothes and other things for you at a fine price!");
    next;
    mesq l("What I sell comes from every corner of this archipelago.");
    next;
    mesq lg("Interested?");
    next;

    switch (select("Yes, why not.:I would rather sell some stuff.:No, Sorry."))
    {
        case 1:
            shop "Bying Bag";
            closedialog;
            shop "Bag#000-1";
            close;

        case 2:
            closedialog;
            shop "Bag#000-1";
            close;

        default:
            mes "";
            mesn;
            mesq l("Oh... Well, I just started to trade... Thus my technique may not be the best.");
            next;
            mesq lg("Anyway, if you ever feel interested, just check my bag!");
            close;
    }

OnInit:
    setnpcsex G_MALE;
    setnpcdistance 2;
    end;
}