Add a new miner called Pylon, He transfrom gem into gem's powder

1 files changed, 169 insertions, 0 deletions

diff --git a/npc/007-1/pylon.txt b/npc/007-1/pylon.txt
new file mode 100644
index 000000000..9dd2bf19f
--- /dev/null
+++ b/npc/007-1/pylon.txt
@@ -0,0 +1,169 @@
+// TMW2 scripts.
+// TMW2 Authors:
+//      Saulc
+//      Jesusalva
+// Description:
+//      Miner Pylon transforme gems into gem powder, he ask for 100gp + 1 gem and give 100 EXp (each time) + 1 to 3 gem powder's.
+// Variable:
+//      dont need variable
+// Reference:
+//     https://fr.wikipedia.org/wiki/Pilon#Objets not Epiphysis !
+
+007-1,67,65,0	script	Pylon	NPC_PLAYER,{
+
+    mesn;
+    mesq lg("Hello I'm Pylon!");
+    next;
+    mesq lg("I work in this mine since 3 years, I'm an expert of gem's Ruby, Topaz, Sapphire, You know ! ");
+    next;
+    mesq lg("If you have some gem's i can transform them into gem's powder.");
+    next;
+    mesq lg("I only take a tax of 100 gp per gem.");
+    next;
+    mesq lg("Then would you like me to transform one of your gem?");
+    next;
+    goto L_Menu;
+
+L_Menu:
+    mesn strcharinfo(0); // Useless ?
+    menu
+        l("Hum, How much gem's powders can i get from one gem?."),             L_Question;
+        rif(countitem(Ruby) >= 1, l("Yeah sure, take my Ruby!"),             L_Ruby;
+        rif(countitem(Topaz) >= 1, l("Yeah sure, take my Topaz!"),             L_Topaz;
+        rif(countitem(Emerald) >= 1, l("Yeah sure, take my Emerald!"),             L_Emerald;
+        rif(countitem(Diamond) >= 1, l("Yeah sure, take my Diamond!"),             L_Diamond;
+        rif(countitem(Amethyst) >= 1, l("Yeah sure, take my Amethyst!"),             L_Amethyst;
+        rif(countitem(Sapphire) >= 1, l("Yeah sure, take my Sapphire!"),             L_Sapphire;
+        l("No, thanks, I will keep my gem's."),             L_Close;
+
+L_Question
+    mesn;
+    mesq lg("That depend of your luck!");
+    next;
+    mesq lg("With one gem you can espect get 1 to 3 powders! ");
+    next;
+    mesq lg("We must blame Saulc!"); // maybe anrrator could say that
+    next;
+    mesq lg("By the way would you like to transform your gem?");
+    next;
+    goto L_Menu;
+
+L_EndMenu:     
+    menu
+        l("Yeah i need more powder!"),             L_PowderMenu,
+        l("Nah i'm done with it, Thanks dude."),                   L_Close,
+
+L_PowderMenu:
+        l("I Change my mind, i will keep it?."),             L_Close;
+        rif(countitem(Ruby) >= 1, l("Take my Ruby!"),             L_Ruby;
+        rif(countitem(Topaz) >= 1, l("Take my Topaz!"),             L_Topaz;
+        rif(countitem(Emerald) >= 1, l("Take my Emerald!"),             L_Emerald;
+        rif(countitem(Diamond) >= 1, l("Take my Diamond!"),             L_Diamond;
+        rif(countitem(Amethyst) >= 1, l("Take my Amethyst!"),             L_Amethyst;
+        rif(countitem(Sapphire) >= 1, l("Take my Sapphire!"),             L_Sapphire;
+
+L_Ruby: 
+    delitem Ruby, 1;
+    Zeny = Zeny - 100;
+    getexp 100, 0;
+    inventoryplace RubyPowder, 1; // @jesusalva how to set a random 1 to 3
+    getitem RubyPowder, 1;
+    mes "";
+    mesn;
+    mesq l("Here is your powder! I hope it will be useful");
+    next;
+    mesq l("Would you like to transform one more?");
+    next;
+    goto L_EndMenu;
+    close;
+
+L_Topaz: 
+    delitem Topaz, 1;
+    Zeny = Zeny - 100;
+    getexp 100, 0;
+    inventoryplace TopazPowder, 1; // @jesusalva how to set a random 1 to 3
+    getitem TopazPowder, 1;
+    mes "";
+    mesn;
+    mesq l("Here is your powder! I hope it will be useful");
+    next;
+    mesq l("Would you like to transform one more?");
+    next;
+    goto L_EndMenu;
+    close;
+
+L_Emerald: 
+    delitem Emerald, 1;
+    getexp 100, 0;
+    Zeny = Zeny - 100;
+    inventoryplace EmeraldPowder, 1; // @jesusalva how to set a random 1 to 3
+    getitem EmeraldPowder, 1;
+    mes "";
+    mesn;
+    mesq l("Here is your powder! I hope it will be useful");
+    next;
+    mesq l("Would you like to transform one more?");
+    next;
+    goto L_EndMenu;
+    close; 
+
+L_Diamond: 
+    delitem Diamond, 1;
+    getexp 100, 0;
+    Zeny = Zeny - 100;
+    inventoryplace DiamondPowder, 1; // @jesusalva how to set a random 1 to 3
+    getitem DiamondPowder, 1;
+    mes "";
+    mesn;
+    mesq l("Here is your powder! I hope it will be useful");
+    next;
+    mesq l("Would you like to transform one more?");
+    next;
+    goto L_EndMenu;
+    close;  
+
+L_Amethyst: 
+    delitem Amethyst, 1;
+    getexp 100, 0;
+    Zeny = Zeny - 100;
+    inventoryplace AmethystPowder, 1; // @jesusalva how to set a random 1 to 3
+    getitem AmethystPowder, 1;
+    mes "";
+    mesn;
+    mesq l("Here is your powder! I hope it will be useful");
+    next;
+    mesq l("Would you like to transform one more?");
+    next;
+    goto L_EndMenu;
+    close;  
+
+L_Sapphire: 
+    delitem Sapphire, 1;
+    getexp 100, 0;
+    Zeny = Zeny - 100;
+    inventoryplace SapphirePowder, 1; // @jesusalva how to set a random 1 to 3
+    getitem SapphirePowder, 1;
+    mes "";
+    mesn;
+    mesq l("Here is your powder! I hope it will be useful");
+    next;
+    mesq l("Would you like to transform one more?");
+    next;
+    goto L_EndMenu;
+    close;  
+ 
+L_Close:
+    close;
+
+OnInit:
+    .@npcId = getnpcid(0, .name$);
+    setunitdata(.@npcId, UDT_HEADTOP, MinerHat);
+    setunitdata(.@npcId, UDT_HEADMIDDLE, ArtisTankTop);
+    setunitdata(.@npcId, UDT_HEADBOTTOM, BromenalPants);
+    setunitdata(.@npcId, UDT_WEAPON, DeepBlackBoots);
+    setunitdata(.@npcId, UDT_HAIRSTYLE, 15);
+    setunitdata(.@npcId, UDT_HAIRCOLOR, 4);
+    .sex = G_MALE;
+    .distance = 4;
+    end;
+}
\ No newline at end of file