diff options
Diffstat (limited to 'world/map/npc/006-1/pachua.txt')
-rw-r--r-- | world/map/npc/006-1/pachua.txt | 238 |
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; -} |