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

000-1,83,98,0	script	Fexil	108,{
    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";
            goto L_Buy;
            close2;
            end;
        case 2:
            goto L_Sell;
            end;
        default:
            goto L_No;
    }

L_No:
    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;

L_Buy:
    closedialog;
    shop "Bag#000-1";

    close;

L_Sell:
    closedialog;
    shop "Bag#000-1";

    close;

OnInit:
    setnpcsex G_MALE;
    setnpcdistance 2;
    end;
}