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;
}
