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.txt238
1 files changed, 0 insertions, 238 deletions
diff --git a/world/map/npc/006-1/pachua.txt b/world/map/npc/006-1/pachua.txt
deleted file mode 100644
index 16c12c5e..00000000
--- a/world/map/npc/006-1/pachua.txt
+++ /dev/null
@@ -1,238 +0,0 @@
-006-1,24,113,0|script|Pachua|143
-{
- callfunc "PCtoNPCRange";
- if(@npc_check) end;
-
- set @halloween_npc_id, $@halloween_npc_pachua;
- callfunc "TrickOrTreat";
-
- set @LEATHER_PATCH_PRICE, 300;
- set @wants_leather_patch, QUEST_Forestbow_state & NIBBLE_4_MASK;
-
- if (QUEST_MIRIAM_run == -1) goto L_warp_cheat;
- if (QUEST_MIRIAM_run) goto L_smoke;
- goto L_Begin;
-
-L_Begin:
- 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;
-
- mes "[Chief Pachua]";
- mes "";
- mes "\"For generations my tribe has been crafting special clothes out of different items.\"";
- next;
- goto L_Check_Shops;
-
-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.", L_Close;
- goto L_Close;
-
-S_CheckStuff:
- mes "[Chief Pachua]";
- mes "";
- mes "\"Let me see what you have there.\"";
- next;
- return;
-
-L_Super_store:
- 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;
- menu
- "Cowboy hat, please.", L_BuyCowboy,
- "Snake Skin Chaps sound good.", L_BuyChaps,
- "Not now, maybe later.", L_NoDeal;
-
-L_Cowboy_store:
- 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;
- menu
- "Yes, that's fine.", L_BuyCowboy,
- "On second thought, maybe later.", L_NoDeal;
-
-L_Chaps_store:
- 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;
- 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_NoSkins;
- 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_NoSkins;
- 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;
-
-L_Cowboy_black:
- 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.", L_Next,
- "OK, I'll be back later.", L_Close,
- "That's too expensive!.", L_NoDeal;
-
-L_Next:
- 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.\"";
- goto L_Close;
-
-L_NoDeal:
- 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.\"";
- goto L_Close;
-
-L_NoJeans:
- 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.\"";
- goto L_Close;
-
-L_NoSkins:
- 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;
-
-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_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.\"";
- goto L_Close;
-
-L_smoke:
- message strcharinfo(0), "Pachua quickly inhales from his pipe and releases a ring of smoke towards the sky!";
- callfunc "MiriamGoal";
- end;
-
-L_warp_cheat:
- 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...";
- end;
-}
generated by cgit v1.2.3-60-g2f50 (git 2.42.0) at 2024-06-17 11:39:48 +0000