new_24-1.gat,39,27,0 script	Mika 114,{
    mes "[Mika]";
    mes "My father told me about a man living in this desert who makes clothes out of snake skin.";
    next;
    mes "[Mika]";
    mes "Maybe you can find him, but be careful you don't get lost in the tunnels!";
    close;
}

new_24-1.gat,23,100,0 script	Pachua 143,{
    mes "[Chief Pachua]";
    mes "How!";
    next;
    
    mes "[Chief Pachua]";
    mes "For generations my tribe has been crafting special clothes out of different items.";
    next;

    if((countitem(610)>0 && countitem(641)>9) && (countitem(524)>0 && countitem(641)>1)) goto L_Super_store;
    if(countitem(610)>0 && countitem(641)>9) goto L_Chaps_store;
    if(countitem(524)>0 && countitem(641)>1) goto L_Cowboy_store;
    goto L_Mysterious;

    L_Mysterious:
        mes "[Chief Pachua]";
        mes "Maybe if you bring me the right materials I can make something for you?";
        close;

    L_CheckStuff:
        mes "[Chief Pachua]";
        mes "Let me see what you have there.";
        next;
        return;
	
    L_Super_store:
        callsub L_CheckStuff;
        mes "[Chief Pachua]";
        mes "Ahh you have lots of good items to work with.";
        mes "";
        mes "With them I can make you either";
        mes "a Cowboy hat or Snake Skin Chaps";
        next;
        menu "Cowboy hat, please.",L_Cowboy_store2,"Snake Skin Chaps sound good.",L_Chaps_store2,"Not now, maybe later.",L_NoDeal;

    L_Cowboy_store:
        callsub L_CheckStuff;
        goto L_Cowboy_store2;

    L_Chaps_store:
        callsub L_CheckStuff;
        goto  L_Chaps_store2;
	
    L_Cowboy_store2:
        mes "[Chief Pachua]";
        mes "To make you a Cowboy hat I will need:";
        mes "1 Fancy hat";
        mes "2 Snake skins";
        mes "5.000 GP";
        mes "";
        mes "Do we have a deal?";
        next;
        menu "Yes, that's fine.",L_BuyCowboy,"On second thoughts, maybe later.",L_NoDeal;

    L_Chaps_store2:
        mes "[Chief Pachua]";
        mes "To make you a pair of Snake Skin Chaps I will need:";
        mes "1 Jeans Shorts";
        mes "10 Snake skins";
        mes "10.000 GP";
        mes "";
        mes "Do we have a deal?";
        next;
        menu "Yes, that's fine.",L_BuyChaps,"On second thoughts, maybe later.",L_NoDeal;

    L_BuyChaps:
        if (zeny<10000) goto L_NoMoney;
        if (countitem(610)<1) goto L_NoJeans;
        if (countitem(641)<10) goto L_NoSkin;
        set zeny, zeny-10000;
        delitem 641,10;
        delitem 610,1;
        getitem 642,1;
        goto L_DealDone;
	
    L_BuyCowboy:
        if (zeny<5000) goto L_NoMoney;
        if (countitem(524)<1) goto L_NoFancy;
        if (countitem(641)<2) goto L_NoSkin;
        set zeny, zeny-5000;
        delitem 641,2;
        delitem 524,1;
        set @temp,rand(2);
        if(@temp == 0) goto L_Cowboy_white;
        goto L_Cowboy_black;
	
    L_Cowboy_white:
        getitem 643,1;
        goto L_DealDone;
	
    L_Cowboy_black:
        getitem 644,1;
        goto L_DealDone;

    L_DealDone:
        mes "[Chief Pachua]";
        mes "Here you are!";
        mes "";
        mes "Come back any time.";
        close;

    L_NoDeal:
        mes "[Chief Pachua]";
        mes "Alright, but you wont get a better deal anywhere else!";
        close;

    L_NoMoney:
        mes "[Chief Pachua]";
        mes "Oh dear, it seems you don't have enough money.";
        close;

    L_NoJeans:
        mes "[Chief Pachua]";
        mes "Oh dear, it seems you don't have enough jeans shorts.";
        close;
	
    L_NoFancy:
        mes "[Chief Pachua]";
        mes "Oh dear, it seems you don't have enough fancy hats.";
        close;

    L_NoSkins:
        mes "[Chief Pachua]";
        mes "Oh dear, it seems you don't have enough snake skins.";
        close;

}