1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
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;
}
|
