summaryrefslogtreecommitdiff
path: root/world/map/npc/006-1/pachua.txt
diff options
context:
space:
mode:
Diffstat (limited to 'world/map/npc/006-1/pachua.txt')
-rw-r--r--world/map/npc/006-1/pachua.txt500
1 files changed, 252 insertions, 248 deletions
diff --git a/world/map/npc/006-1/pachua.txt b/world/map/npc/006-1/pachua.txt
index c1bfb83f..824bc9b5 100644
--- a/world/map/npc/006-1/pachua.txt
+++ b/world/map/npc/006-1/pachua.txt
@@ -1,311 +1,315 @@
-006-1.gat,23,100,0 script Pachua 143,{
+006-1.gat,23,100,0|script|Pachua|143,{
- set @LEATHER_PATCH_PRICE, 300;
- set @wants_leather_patch, QUEST_Forestbow_state & NIBBLE_4_MASK;
+ set @LEATHER_PATCH_PRICE, 300;
+ set @wants_leather_patch, QUEST_Forestbow_state & NIBBLE_4_MASK;
// lines belong to easter 2011:
-// set @month, 4;
-// set @start_day, 15;
-// set @end_day, 30;
+// set @month, 4;
+// set @start_day, 15;
+// set @end_day, 30;
- if (QUEST_MIRIAM_cheat != 0) goto L_warp_cheat;
- if (QUEST_MIRIAM_start != 0) goto L_smoke;
+ if (QUEST_MIRIAM_cheat != 0) goto L_warp_cheat;
+ if (QUEST_MIRIAM_start != 0) goto L_smoke;
// lines belong to easter 2011:
-// if (gettime(6) == @month && gettime(5) >= @start_day && gettime(5) <= @end_day && QUEST_Easter11 == 1) goto L_Basket;
-// if (gettime(6) == @month && gettime(5) >= @start_day && gettime(5) <= @end_day && QUEST_Easter11 == 2) goto L_MakeBasket;
-// if (gettime(6) == @month && gettime(5) >= @start_day && gettime(5) <= @end_day && QUEST_Easter11 == 3) goto L_SeeBunny;
+// if (gettime(6) == @month && gettime(5) >= @start_day && gettime(5) <= @end_day && QUEST_Easter11 == 1) goto L_Basket;
+// if (gettime(6) == @month && gettime(5) >= @start_day && gettime(5) <= @end_day && QUEST_Easter11 == 2) goto L_MakeBasket;
+// if (gettime(6) == @month && gettime(5) >= @start_day && gettime(5) <= @end_day && QUEST_Easter11 == 3) goto L_SeeBunny;
L_Begin:
- mes "[Chief Pachua]";
- mes "";
- mes "\"How!\"";
- next;
+ mes "[Chief Pachua]";
+ mes "";
+ mes "\"How!\"";
+ next;
- if (getequipid(equip_head) == 643 || getequipid(equip_head) == 644) goto L_WearingCowboy;
- if (getequipid(equip_legs) == 642) goto L_WearingChaps;
+ if (getequipid(equip_head) == 643 || getequipid(equip_head) == 644) goto L_WearingCowboy;
+ if (getequipid(equip_legs) == 642) goto L_WearingChaps;
- mes "[Chief Pachua]";
- mes "";
- mes "\"For generations my tribe has been crafting special clothes out of different items.\"";
- next;
+ mes "[Chief Pachua]";
+ mes "";
+ mes "\"For generations my tribe has been crafting special clothes out of different items.\"";
+ next;
L_Check_Shops:
- if((countitem("JeansShorts") > 0 && countitem("SnakeSkin") > 9) && (countitem("FancyHat") > 0 && countitem("SnakeSkin") > 1)) goto L_Super_store;
- if(countitem("JeansShorts") > 0 && countitem("SnakeSkin") > 9) goto L_Chaps_store;
- if(countitem("FancyHat") > 0 && countitem("SnakeSkin") > 1) goto L_Cowboy_store;
-
- mes "[Chief Pachua]";
- mes "";
- mes "\"Maybe if you bring me the right materials I can make something for you.\"";
- next;
-
- if (@wants_leather_patch)
- menu "Wait, can you make a leather patch for me?", L_leather_patch,
- "OK, bye.", -;
-
- close;
-
-L_CheckStuff:
- mes "[Chief Pachua]";
- mes "";
- mes "\"Let me see what you have there.\"";
- next;
- return;
+ if((countitem("JeansShorts") > 0 && countitem("SnakeSkin") > 9) && (countitem("FancyHat") > 0 && countitem("SnakeSkin") > 1)) goto L_Super_store;
+ if(countitem("JeansShorts") > 0 && countitem("SnakeSkin") > 9) goto L_Chaps_store;
+ if(countitem("FancyHat") > 0 && countitem("SnakeSkin") > 1) goto L_Cowboy_store;
+
+ mes "[Chief Pachua]";
+ mes "";
+ mes "\"Maybe if you bring me the right materials I can make something for you.\"";
+ next;
+ if (@wants_leather_patch)
+ menu
+ "Wait, can you make a leather patch for me?", L_leather_patch,
+ "OK, bye.", -;
+ goto L_Close;
+
+S_CheckStuff:
+ mes "[Chief Pachua]";
+ mes "";
+ mes "\"Let me see what you have there.\"";
+ next;
+ return;
L_Super_store:
- callsub L_CheckStuff;
- mes "[Chief Pachua]";
- mes "";
- 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;
- if (@wants_leather_patch)
- menu
- "Cowboy hat, please.", L_BuyCowboy,
- "Snake Skin Chaps sound good.", L_BuyChaps,
- "Can you make a leather patch?", L_leather_patch,
- "Not now, maybe later.", L_NoDeal;
- if (!@wants_leather_patch)
- menu
- "Cowboy hat, please.", L_BuyCowboy,
- "Snake Skin Chaps sound good.", L_BuyChaps,
- "Not now, maybe later.", L_NoDeal;
+ callsub S_CheckStuff;
+ mes "[Chief Pachua]";
+ mes "";
+ 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;
+ if (@wants_leather_patch)
+ menu
+ "Cowboy hat, please.", L_BuyCowboy,
+ "Snake Skin Chaps sound good.", L_BuyChaps,
+ "Can you make a leather patch?", L_leather_patch,
+ "Not now, maybe later.", L_NoDeal;
+ if (!@wants_leather_patch)
+ menu
+ "Cowboy hat, please.", L_BuyCowboy,
+ "Snake Skin Chaps sound good.", L_BuyChaps,
+ "Not now, maybe later.", L_NoDeal;
L_Cowboy_store:
- callsub L_CheckStuff;
- mes "[Chief Pachua]";
- mes "";
- 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;
- if (@wants_leather_patch)
- menu
- "Yes, that's fine.", L_BuyCowboy,
- "Can you make a leather patch?", L_leather_patch,
- "On second thought, maybe later.", L_NoDeal;
- if (!@wants_leather_patch)
- menu
- "Yes, that's fine.", L_BuyCowboy,
- "On second thought, maybe later.", L_NoDeal;
+ callsub S_CheckStuff;
+ mes "[Chief Pachua]";
+ mes "";
+ 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;
+ if (@wants_leather_patch)
+ menu
+ "Yes, that's fine.", L_BuyCowboy,
+ "Can you make a leather patch?", L_leather_patch,
+ "On second thought, maybe later.", L_NoDeal;
+ if (!@wants_leather_patch)
+ menu
+ "Yes, that's fine.", L_BuyCowboy,
+ "On second thought, maybe later.", L_NoDeal;
L_Chaps_store:
- callsub L_CheckStuff;
- mes "[Chief Pachua]";
- mes "";
- 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;
- if (!@wants_leather_patch)
- menu
- "Yes, that's fine.", L_BuyChaps,
- "On second thought, maybe later.", L_NoDeal;
- if (@wants_leather_patch)
- menu
- "Yes, that's fine.", L_BuyChaps,
- "Can you make a leather patch?", L_leather_patch,
- "On second thought, maybe later.", L_NoDeal;
+ callsub S_CheckStuff;
+ mes "[Chief Pachua]";
+ mes "";
+ 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;
+ if (!@wants_leather_patch)
+ menu
+ "Yes, that's fine.", L_BuyChaps,
+ "On second thought, maybe later.", L_NoDeal;
+ if (@wants_leather_patch)
+ menu
+ "Yes, that's fine.", L_BuyChaps,
+ "Can you make a leather patch?", L_leather_patch,
+ "On second thought, maybe later.", L_NoDeal;
L_BuyChaps:
- if (zeny < 10000) goto L_NoMoney;
- if (countitem("JeansShorts") < 1) goto L_NoJeans;
- if (countitem("SnakeSkin") < 10) goto L_NoSkin;
- set zeny, zeny - 10000;
- delitem "SnakeSkin", 10;
- delitem "JeansShorts", 1;
- getitem "JeansChaps", 1;
- goto L_DealDone;
+ if (zeny < 10000) goto L_NoMoney;
+ if (countitem("JeansShorts") < 1) goto L_NoJeans;
+ if (countitem("SnakeSkin") < 10) goto L_NoSkin;
+ set zeny, zeny - 10000;
+ delitem "SnakeSkin", 10;
+ delitem "JeansShorts", 1;
+ getitem "JeansChaps", 1;
+ goto L_DealDone;
L_BuyCowboy:
- if (zeny < 5000) goto L_NoMoney;
- if (countitem("FancyHat") < 1) goto L_NoFancy;
- if (countitem("SnakeSkin") < 2) goto L_NoSkin;
- set zeny, zeny - 5000;
- delitem "SnakeSkin", 2;
- delitem "FancyHat", 1;
- set @temp,rand(2);
- if(@temp == 0) goto L_Cowboy_white;
- goto L_Cowboy_black;
+ if (zeny < 5000) goto L_NoMoney;
+ if (countitem("FancyHat") < 1) goto L_NoFancy;
+ if (countitem("SnakeSkin") < 2) goto L_NoSkin;
+ set zeny, zeny - 5000;
+ delitem "SnakeSkin", 2;
+ delitem "FancyHat", 1;
+ set @temp,rand(2);
+ if(@temp == 0) goto L_Cowboy_white;
+ goto L_Cowboy_black;
L_Cowboy_white:
- getitem "WhiteCowboyHat", 1;
- goto L_DealDone;
+ getitem "WhiteCowboyHat", 1;
+ goto L_DealDone;
L_Cowboy_black:
- getitem "BlackCowboyHat", 1;
- goto L_DealDone;
+ getitem "BlackCowboyHat", 1;
+ goto L_DealDone;
L_leather_patch:
- mes "[Chief Pachua]";
- mes "";
- mes "\"If you just want a piece of leather, then yes, I can make that. Bring me a snake skin and " + @LEATHER_PATCH_PRICE + " GP.\"";
- next;
-
- menu "Here you are.", -,
- "OK, I'll be back later.", L_End,
- "That's too expensive!.", L_NoDeal;
-
- if (countitem("SnakeSkin") < 1) goto L_NoSkins;
- if (zeny < @LEATHER_PATCH_PRICE) goto L_NoMoney;
- getinventorylist;
- if (@inventorylist_count == 100 && countitem("SnakeSkin") > 1) goto L_TooMany;
-
- set zeny, zeny - @LEATHER_PATCH_PRICE;
- delitem "SnakeSkin", 1;
- getitem "LeatherPatch", 1;
- goto L_DealDone;
+ mes "[Chief Pachua]";
+ mes "";
+ mes "\"If you just want a piece of leather, then yes, I can make that. Bring me a snake skin and " + @LEATHER_PATCH_PRICE + " GP.\"";
+ next;
+ menu
+ "Here you are.", -,
+ "OK, I'll be back later.", L_Close,
+ "That's too expensive!.", L_NoDeal;
+
+ if (countitem("SnakeSkin") < 1) goto L_NoSkins;
+ if (zeny < @LEATHER_PATCH_PRICE) goto L_NoMoney;
+ getinventorylist;
+ if (@inventorylist_count == 100 && countitem("SnakeSkin") > 1) goto L_TooMany;
+
+ set zeny, zeny - @LEATHER_PATCH_PRICE;
+ delitem "SnakeSkin", 1;
+ getitem "LeatherPatch", 1;
+ goto L_DealDone;
L_DealDone:
- mes "[Chief Pachua]";
- mes "";
- mes "\"Here you are!\"";
- mes "";
- mes "\"Come back any time.\"";
- close;
+ mes "[Chief Pachua]";
+ mes "";
+ mes "\"Here you are!\"";
+ mes "";
+ mes "\"Come back any time.\"";
+ goto L_Close;
L_NoDeal:
- mes "[Chief Pachua]";
- mes "";
- mes "\"Alright, but you won't get a better deal anywhere else!\"";
- close;
+ mes "[Chief Pachua]";
+ mes "";
+ mes "\"Alright, but you won't get a better deal anywhere else!\"";
+ goto L_Close;
L_NoMoney:
- mes "[Chief Pachua]";
- mes "";
- mes "\"Oh dear, it seems you don't have enough money.\"";
- close;
+ mes "[Chief Pachua]";
+ mes "";
+ mes "\"Oh dear, it seems you don't have enough money.\"";
+ goto L_Close;
L_NoJeans:
- mes "[Chief Pachua]";
- mes "";
- mes "\"Oh dear, it seems you don't have enough jeans shorts.\"";
- close;
+ mes "[Chief Pachua]";
+ mes "";
+ mes "\"Oh dear, it seems you don't have enough jeans shorts.\"";
+ goto L_Close;
L_NoFancy:
- mes "[Chief Pachua]";
- mes "";
- mes "\"Oh dear, it seems you don't have enough fancy hats.\"";
- close;
+ mes "[Chief Pachua]";
+ mes "";
+ mes "\"Oh dear, it seems you don't have enough fancy hats.\"";
+ goto L_Close;
L_NoSkins:
- mes "[Chief Pachua]";
- mes "";
- mes "\"Oh dear, it seems you don't have enough snake skins.\"";
- close;
+ mes "[Chief Pachua]";
+ mes "";
+ mes "\"Oh dear, it seems you don't have enough snake skins.\"";
+ goto L_Close;
L_WearingCowboy:
- mes "[Chief Pachua]";
- mes "";
- mes "\"Ah, I see that you are wearing a hat made with the ancient methods of my tribe.\"";
- next;
- goto L_Check_Shops;
+ mes "[Chief Pachua]";
+ mes "";
+ mes "\"Ah, I see that you are wearing a hat made with the ancient methods of my tribe.\"";
+ next;
+ goto L_Check_Shops;
L_WearingChaps:
- mes "[Chief Pachua]";
- mes "";
- mes "\"Ah, I see that you are wearing pants made by my tribe.\"";
- next;
- goto L_Check_Shops;
-
-L_End:
- close;
+ mes "[Chief Pachua]";
+ mes "";
+ mes "\"Ah, I see that you are wearing pants made by my tribe.\"";
+ next;
+ goto L_Check_Shops;
+
+L_Close:
+ set @LEATHER_PATCH_PRICE, 0;
+ set @wants_leather_patch, 0;
+ set @month, 0;
+ set @start_day, 0;
+ set @end_day, 0;
+ set @temp, 0;
+ close;
L_TooMany:
- mes "[Chief Pachua]";
- mes "";
- mes "\"You don't have room for a leather patch. Come back later.\"";
- close;
+ mes "[Chief Pachua]";
+ mes "";
+ mes "\"You don't have room for a leather patch. Come back later.\"";
+ goto L_Close;
L_smoke:
- message strcharinfo(0), "Pachua quickly inhales from his pipe and releases a ring of smoke towards the sky!";
- set QUEST_MIRIAM_run, gettimetick(2) - QUEST_MIRIAM_start;
- set QUEST_MIRIAM_start, 0;
- end;
+ message strcharinfo(0), "Pachua quickly inhales from his pipe and releases a ring of smoke towards the sky!";
+ set QUEST_MIRIAM_run, gettimetick(2) - QUEST_MIRIAM_start;
+ set QUEST_MIRIAM_start, 0;
+ end;
L_warp_cheat:
- if (@warp_cheat == 1) goto L_Begin;
- message strcharinfo(0), "Pachua releases a ring of smoke towards the sky! But, by the look on his face, you can tell he is suspicious about your methods...";
- set @warp_cheat, 1;
- end;
+ if (@warp_cheat == 1) goto L_Begin;
+ message strcharinfo(0), "Pachua releases a ring of smoke towards the sky! But, by the look on his face, you can tell he is suspicious about your methods...";
+ set @warp_cheat, 1;
+ end;
L_Basket:
- mes "[Chief Pachua]";
- mes "";
- mes "\"For generations my tribe has been crafting special clothes out of different items.\"";
- mes "\"Maybe if you bring me the right materials I can make something for you.\"";
- next;
- menu
- "Do you work only with clothes? Because I was looking for a basket.", -;
- mes "\"A basket? In our tribe, we craft baskets of all kinds using only reeds. This basket, you need it to carry your items?\"";
- menu
- "No. It is for the Easter Bunny. I offered to get him one.", -;
- mes "\"I appreciate your attitude. Maybe I can help you with that.\"";
- menu
- "I would be really grateful if you could do that!", -,
- "Nah, I decided not to do that stupid quest.", L_End,
- "I would prefer to talk to you about other stuff.", L_Begin; //should go to pachuas's regular chat
- set QUEST_Easter11, 2;
+ mes "[Chief Pachua]";
+ mes "";
+ mes "\"For generations my tribe has been crafting special clothes out of different items.\"";
+ mes "\"Maybe if you bring me the right materials I can make something for you.\"";
+ next;
+ menu
+ "Do you work only with clothes? Because I was looking for a basket.", -;
+ mes "\"A basket? In our tribe, we craft baskets of all kinds using only reeds. This basket, you need it to carry your items?\"";
+ menu
+ "No. It is for the Easter Bunny. I offered to get him one.", -;
+ mes "\"I appreciate your attitude. Maybe I can help you with that.\"";
+ menu
+ "I would be really grateful if you could do that!", -,
+ "Nah, I decided not to do that stupid quest.", L_Close,
+ "I would prefer to talk to you about other stuff.", L_Begin; //should go to pachuas's regular chat
+ set QUEST_Easter11, 2;
L_MakeBasket:
- mes "[Chief Pachua]";
- mes "";
- mes "\"I will need you to gather reeds for me.\"";
- mes "\"5 bundles should do it.\"";
- mes "\"You should be able to get those from mouboos as they graze.\"";
- menu
- "I have the Reeds!", -,
- "Ok, I will be back soon", L_End,
- "I changed my mind, forget about it", L_End,
- "Can I talk to you about another stuff?", L_Begin; //should go to pachuas's regular chat
-
- if(countitem("ReedBundle") < 5) goto L_EasterNotEnough;
- if(countitem("ReedBundle") >= 5) goto L_EasterEnough;
- close;
+ mes "[Chief Pachua]";
+ mes "";
+ mes "\"I will need you to gather reeds for me.\"";
+ mes "\"5 bundles should do it.\"";
+ mes "\"You should be able to get those from mouboos as they graze.\"";
+ menu
+ "I have the Reeds!", -,
+ "Ok, I will be back soon", L_Close,
+ "I changed my mind, forget about it", L_Close,
+ "Can I talk to you about another stuff?", L_Begin; //should go to pachuas's regular chat
+
+ if(countitem("ReedBundle") < 5) goto L_EasterNotEnough;
+ if(countitem("ReedBundle") >= 5) goto L_EasterEnough;
+ goto L_Close;
L_EasterNotEnough:
- mes "[Chief Pachua]";
- mes "";
- mes "\"You do not have enough Reed Bundles for me to work with.\"";
- mes "\"Go gather more.\"";
- close;
+ mes "[Chief Pachua]";
+ mes "";
+ mes "\"You do not have enough Reed Bundles for me to work with.\"";
+ mes "\"Go gather more.\"";
+ goto L_Close;
L_EasterEnough:
- getinventorylist;
- if (@inventorylist_count == 100 && countitem("ReedBundle") > 5) goto L_EasterTooMany;
- if(countitem("ReedBundle") < 5) goto L_EasterNotEnough;
- delitem "ReedBundle", 5;
- getitem "EasterBasket", 1;
- set QUEST_Easter11, 3;
- mes "[Chief Pachua]";
- mes "";
- mes "\"You have gathered enough reeds for me to make the basket.\"";
- mes "He skillfully soaks the reeds you brought him,";
- mes "then swiftly weaves them into a basket shape.";
- mes "Next, he places the damp basket in the sun to dry for a minute before handing it over to you.";
- mes "\"Here is your Easter Basket.\"";
- close;
+ getinventorylist;
+ if (@inventorylist_count == 100 && countitem("ReedBundle") > 5) goto L_EasterTooMany;
+ if(countitem("ReedBundle") < 5) goto L_EasterNotEnough;
+ delitem "ReedBundle", 5;
+ getitem "EasterBasket", 1;
+ set QUEST_Easter11, 3;
+ mes "[Chief Pachua]";
+ mes "";
+ mes "\"You have gathered enough reeds for me to make the basket.\"";
+ mes "He skillfully soaks the reeds you brought him,";
+ mes "then swiftly weaves them into a basket shape.";
+ mes "Next, he places the damp basket in the sun to dry for a minute before handing it over to you.";
+ mes "\"Here is your Easter Basket.\"";
+ goto L_Close;
L_EasterTooMany:
- mes "[Chief Pachua]";
- mes "";
- mes "\"You don't have room for the Easter Basket. Come back later.\"";
- close;
+ mes "[Chief Pachua]";
+ mes "";
+ mes "\"You don't have room for the Easter Basket. Come back later.\"";
+ goto L_Close;
L_SeeBunny:
- mes "[Chief Pachua]";
- mes "";
- mes "\"You need to return to the Easter Bunny now.\"";
- next;
- goto L_Begin;
-
+ mes "[Chief Pachua]";
+ mes "";
+ mes "\"You need to return to the Easter Bunny now.\"";
+ next;
+ goto L_Begin;
}
generated by cgit v1.2.3-60-g2f50 (git 2.42.0) at 2024-06-26 16:23:06 +0000