diff options
Diffstat (limited to 'npc/009-2/peter.txt')
-rw-r--r-- | npc/009-2/peter.txt | 153 |
1 files changed, 153 insertions, 0 deletions
diff --git a/npc/009-2/peter.txt b/npc/009-2/peter.txt new file mode 100644 index 00000000..b48ebe4a --- /dev/null +++ b/npc/009-2/peter.txt @@ -0,0 +1,153 @@ +009-2,183,57,0 script #PeterShop NPC32767,{ + shop .name$; + goodbye; + close; + +OnInit: + tradertype(NST_ZENY); + sellitem Knife; + sellitem SharpKnife; + sellitem Dagger; + .distance = 5; + end; +} + +009-2,183,57,0 script Peter NPC157,{ + @peter_chain_mail_coal = 10; + @peter_chain_mail_ingot = 5; + @peter_chain_mail_money = 20000; + + @peter_light_plate_coal = 20; + @peter_light_plate_ingot = 10; + @peter_light_plate_money = 50000; + + @peter_warlord_plate_coal = 30; + @peter_warlord_plate_ingot = 15; + @peter_warlord_plate_money = 100000; + + @peter_warlord_boots_coal = 16; + @peter_warlord_boots_ingot = 8; + @peter_warlord_boots_money = 35000; + + mes "[Peter]"; + mes "\"Hello, I am Peter, apprentice to Nicholas.\""; + next; + mes "\"I can make you some sturdy armor: you must give me Iron Ingots to craft with and some gold pieces for my efforts.\""; + next; + mes "[Peter]"; + mes "\"What would you like me to make?\""; + menu + "Chain Mail ("+@peter_chain_mail_coal+" coal, "+@peter_chain_mail_ingot+" ingots and "+@peter_chain_mail_money+" GP).", L_Peter_Chain_Mail, + "Light Plate ("+@peter_light_plate_coal+" coal, "+@peter_light_plate_ingot+" ingots and "+@peter_light_plate_money+" GP).", L_Peter_Light_Plate, + "Warlord Plate ("+@peter_warlord_plate_coal+" coal, "+@peter_warlord_plate_ingot+" ingots and "+@peter_warlord_plate_money+" GP).", L_Peter_Warlord_Plate, + "Do you know anything else than armor crafting?", L_Peter_New_Skills, + "Do you have anything else for sale?", L_Shop, + "Nevermind.", L_close; + +L_Peter_Chain_Mail: + @peter_crafting_coal = @peter_chain_mail_coal; + @peter_crafting_iron_ingot = @peter_chain_mail_ingot; + @peter_crafting_money = @peter_chain_mail_money; + @peter_crafting_item$ = "ChainmailShirt"; + callsub S_Smithery_Item; + goto L_close; + +L_Peter_Light_Plate: + @peter_crafting_coal = @peter_light_plate_coal; + @peter_crafting_iron_ingot = @peter_light_plate_ingot; + @peter_crafting_money = @peter_light_plate_money; + @peter_crafting_item$ = "LightPlatemail"; + callsub S_Smithery_Item; + goto L_close; + +L_Peter_Warlord_Plate: + @peter_crafting_coal = @peter_warlord_plate_coal; + @peter_crafting_iron_ingot = @peter_warlord_plate_ingot; + @peter_crafting_money = @peter_warlord_plate_money; + @peter_crafting_item$ = "WarlordPlate"; + callsub S_Smithery_Item; + goto L_close; + +L_Peter_New_Skills: + mes "[Peter]"; + mes "\"Actually, Nicholas, my master, taught me new smithery techniques."; + mes "My very first creation are new kind of steel boots. Interested ? That would be "+@peter_warlord_boots_coal+" Coals, "+@peter_warlord_boots_ingot+" Iron Ingots and "+@peter_warlord_boots_money+" GP.\""; + menu + "Sure!", L_Peter_Warlord_Boots, + "No thanks, that sounds too heavy for me.", L_close; + +L_Shop: + close2; + shop "#PeterShop"; + +L_Peter_Warlord_Boots: + @peter_crafting_coal = @peter_warlord_boots_coal; + @peter_crafting_iron_ingot = @peter_warlord_boots_ingot; + @peter_crafting_money = @peter_warlord_boots_money; + @peter_crafting_item$ = "WarlordBoots"; + callsub S_Smithery_Item; + goto L_close; + +S_Smithery_Item: + if (Zeny < @peter_crafting_money) + goto L_Peter_NotEnough_Zeny; + if (countitem("IronIngot") < @peter_crafting_iron_ingot) + goto L_Peter_NotEnough_Ingot; + if (countitem("Coal") < @peter_crafting_coal) + goto L_Peter_NotEnough_Coal; + getinventorylist; + if (@inventorylist_count == 100) + goto L_Peter_TooMany; + Zeny = Zeny - @peter_crafting_money; + delitem "IronIngot", @peter_crafting_iron_ingot; + delitem "Coal", @peter_crafting_coal; + getitem @peter_crafting_item$, 1; + mes "[Peter]"; + mes "\"Here you go!\""; + return; + +L_Peter_NotEnough_Zeny: + mes "[Peter]"; + mes "\"You don't have enough gold.\""; + goto L_close; + +L_Peter_NotEnough_Ingot: + mes "[Peter]"; + mes "\"You don't have enough ingots.\""; + goto L_close; + +L_Peter_NotEnough_Coal: + mes "[Peter]"; + mes "\"You don't have enough Coal.\""; + goto L_close; + +L_Peter_TooMany: + mes "[Peter]"; + mes "\"You have too much stuff. Please get rid of something if you want some armor.\""; + goto L_close; + +L_close: + // Clear all local variables + @peter_chain_mail_coal = 0; + @peter_chain_mail_ingot = 0; + @peter_chain_mail_money = 0; + + @peter_light_plate_coal = 0; + @peter_light_plate_ingot = 0; + @peter_light_plate_money = 0; + + @peter_warlord_plate_coal = 0; + @peter_warlord_plate_ingot = 0; + @peter_warlord_plate_money = 0; + + @peter_warlord_boots_coal = 0; + @peter_warlord_boots_ingot = 0; + @peter_warlord_boots_money = 0; + + @peter_crafting_coal = 0; + @peter_crafting_iron_ingot = 0; + @peter_crafting_money = 0; + @peter_crafting_item$ = ""; + close; + +} |