//================= Hercules Script ======================================= //= _ _ _ //= | | | | | | //= | |_| | ___ _ __ ___ _ _| | ___ ___ //= | _ |/ _ \ '__/ __| | | | |/ _ \/ __| //= | | | | __/ | | (__| |_| | | __/\__ \ //= \_| |_/\___|_| \___|\__,_|_|\___||___/ //================= License =============================================== //= This file is part of Hercules. //= http://herc.ws - http://github.com/HerculesWS/Hercules //= //= Copyright (C) 2012-2015 Hercules Dev Team //= Copyright (C) Euphy //= Copyright (C) L0ne_W0lf //= Copyright (C) MasterOfMuppets //= Copyright (C) SinSloth //= //= Hercules is free software: you can redistribute it and/or modify //= it under the terms of the GNU General Public License as published by //= the Free Software Foundation, either version 3 of the License, or //= (at your option) any later version. //= //= This program is distributed in the hope that it will be useful, //= but WITHOUT ANY WARRANTY; without even the implied warranty of //= MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the //= GNU General Public License for more details. //= //= You should have received a copy of the GNU General Public License //= along with this program. If not, see . //========================================================================= //= God Item Quest - Item Creation //================= Description =========================================== //= Craft god items after the four seals are broken. //================= Current Version ======================================= //= 1.3 //========================================================================= gld_dun01,28,85,0 script Grunburti#1::GodDwarf 4_M_DWARF,{ mes "[Dwarf Grunburti]"; mes "A human?!"; mes "This land is full"; mes "of your kind. What"; mes "brings you here?"; next; mes "[Dwarf Grunburti]"; mes "Living in Midgard and away from"; mes "my home town is painful enough, let alone facing a whiny human. Leave me alone!"; next; switch(select("Ask him about Dwarves.", "Ask him what he is doing.", "Request weapon creation.", "Cancel.")) { case 1: mes "[Dwarf Grunburti]"; mes "What's to know about Dwarves?"; mes "We're the toughest race. After all, we can live anywhere, no matter"; mes "how harsh the environment may be."; next; mes "[Dwarf Grunburti]"; mes "I doubt your feeble mind can comprehend the how unendurable"; mes "it must be for you to live in my homeland, but you can try."; mes "Try to imagine."; next; mes "[Dwarf Grunburti]"; mes "Most of the knowledge and skills that you humans are so proud of were probably handed down from Dwarves."; next; mes "[Dwarf Grunburti]"; mes "This is especially true in the"; mes "case of smithing. Even the tools and weapons of the gods were made by my ancestors. You know that?"; next; mes "[Dwarf Grunburti]"; mes "We have the greatest knowlege and skills, but have accepted our fate to live in the cold, barren lands of the Giants."; close; case 2: mes "[Dwarf Grunburti]"; mes "Did you just ask what I am doing here? Mwahahaha! Waiting for any humans stupid enough to come"; mes "here so I can kick their ass!"; next; mes "[Dwarf Grunburti]"; mes "Oh don't worry. I'd only humiliate myself by fighting with a weakling like you. Humans are so fragile, but they stubbornly cling to their arrogance and fight amongst"; mes "each other."; next; mes "[Dwarf Grunburti]"; mes "As a race, your people are just hopeless. I wouldn't even share the same continent with a human! But alas, I have no choice."; next; mes "[Dwarf Grunburti]"; mes "The path to my hometown"; mes "disappeared after the war 1,000 years ago. Somehow, I can no longer find the way through the Yggdrasil Tree that will take me back..."; next; mes "[Dwarf Grunburti]"; mes "I'm stuck here in Rune-Midgard."; mes "At least I was fortunate enough to find this cave. We Dwarves are most cozy living underground, after all."; close; case 3: .@GID = getcharid(CHAR_ID_GUILD); if (($God1 < $@god_check2) || ($God2 < $@god_check2) || ($God3 < $@god_check2) || ($God4 < $@god_check2)){ if (($God1 >= $@god_check1) && ($God2 >= $@god_check1) && ($God3 >= $@god_check1) && ($God4 >= $@god_check1) && (strcharinfo(PC_NAME) == getguildinfo(GUILDINFO_MASTER_NAME, .@GID))) { mes "[Dwarf Grunburti]"; mes "Hmm..."; mes "I'll need some things to make a weapon for you. What exactly were you interested in having?"; next; switch(select("Brisingamen", "Megingjard", "Sleipnir", "Mjolnir")) { case 1: mes "[Dwarf Grunburti]"; mes "I will need..."; mes "^0000FF4 Freya's Jewel"; mes "4 Silver Ornament"; mes "3 Snow Crystal"; mes "3 Ripple"; mes "3 Drifting Air"; mes "2 Sapphire"; mes "3 Pearl"; mes "10 Opal"; mes "5 Cursed Ruby"; mes "20 Gold^000000"; mes "1 Necklace^000000..."; next; mes "[Dwarf Grunburti]"; mes "However, the time for me to create this Brisingamen has not yet come. You'll have to wait until the seals are released. Mwahahaha!"; close; case 2: mes "[Dwarf Grunburti]"; mes "I will need..."; mes "^0000FF1 Gleipnir"; mes "20 Gold"; mes "10 Sapphire"; mes "10 Oridecon"; mes "1 Belt^000000"; next; mes "[Dwarf Grunburti]"; mes "However, the seals on Megingjard have not yet been released. Until then, you'll have to wait! Bwahahaha!"; close; case 3: mes "[Dwarf Grunburti]"; mes "I will need..."; mes "^0000FF3 Wheel of the Unknown"; mes "5 Feather of Angel Wing"; mes "3 Sprit of Fish"; mes "4 Amblem of the Sun God"; mes "3 Breath of Spirit"; mes "20 Gold"; mes "10 Elunium"; mes "1 Slotted Boots^000000"; next; mes "[Dwarf Grunburti]"; mes "But even so, I can't create Sleipnir until the seals have been broken. Otherwise, you're out of luck, human. Hahaha~!"; close; case 4: mes "[Dwarf Grunburti]"; mes "I will need..."; mes "^0000FF2 Thor's Gauntlets"; mes "4 Iron Maiden"; mes "5 Wrath of Valkyrie"; mes "5 Omen of Tempest"; mes "5 Billow"; mes "20 Oridecon"; mes "5 Elunium"; mes "40 Gold"; mes "1 Stunner^000000"; next; mes "[Dwarf Grunburti]"; mes "But I can't even create a replica of Mjolnir if the seals are still in place. Until they're released, you'll just have to wait. Bwahaha!"; close; } } mes "[Dwarf Grunburti]"; mes "We Dwarves have too much pride to demonstrate our skills in front of a lowly human!"; next; mes "[Dwarf Grunburti]"; mes "Stop bothering me and get out of here! Go play with some monsters, you simple minded fool!"; close; } if (strcharinfo(PC_NAME) != getguildinfo(GUILDINFO_MASTER_NAME, .@GID)) { mes "[Dwarf Grunburti]"; mes "I'll only present"; mes "my magnificent skills"; mes "to a human of incredibly"; mes "high standing!"; next; mes "[Dwarf Grunburti]"; mes "Although I hate"; mes "most humans, I have"; mes "no choice but to respect the ones chosen by destiny. Go and bring your ^0000FFguildmaster^000000!"; close; } mes "[Dwarf Grunburti]"; mes "Although it is very humiliating to present my valuable skills to a human being..."; next; mes "[Dwarf Grunburti]"; mes "All the seals have been released, and he who holds the Emperium is chosen by destiny. I have no choice but to respect you."; next; mes "[Dwarf Grunburti]"; mes "First of all, I shall confirm whether or not you have brought all the necessary materials to forge a godly item! I hate it when humans come here without any purpose!"; next; if ((countitem(Jewel_Of_Prayer) > 3) && (countitem(Silver_Fancy) > 3) && (countitem(Crystal_Of_Snow) > 2) && (countitem(Slilince_Wave) > 2) && (countitem(Air_Stream) > 2) && (countitem(Blue_Jewel) > 1) && (countitem(Scarlet_Jewel) > 2) && (countitem(White_Jewel) > 9) && (countitem(Cardinal_Jewel_) > 4) && (countitem(Gold) > 19) && (countitem(Necklace) > 0)) { mes "[Dwarf Grunburti]"; mes "Hmm..."; mes "I guess you"; mes "want to have"; mes "^0000FFBrisingamen^000000!"; next; } else if ((countitem(Gullraifnir) > 0) && (countitem(Gold) > 19) && (countitem(Blue_Jewel) > 9) && (countitem(Oridecon) > 9) && (countitem(Belt) > 0)){ //Gullraifnir Gold Blue_Jewel Oridecon Belt mes "[Dwarf Grunburti]"; mes "Hmm..."; mes "I guess you"; mes "want to have"; mes "^0000FFMegingjard^000000!"; next; } else if ((countitem(Mystery_Wheel) > 2) && (countitem(Feather_Of_Angel) > 4) && (countitem(Soul_Of_Fish) > 2) && (countitem(Symbol_Of_Sun) > 3) && (countitem(Breath_Of_Soul) > 2) && (countitem(Gold) > 19) && (countitem(Elunium) > 9) && (countitem(Boots_) > 0)) { mes "[Dwarf Grunburti]"; mes "Hmm..."; mes "I guess you"; mes "want to have"; mes "^0000FFSleipnir^000000!"; next; } else if ((countitem(Iron_Glove) > 1) && (countitem(Iron_Maiden) > 3) && (countitem(Anger_Of_Valkurye) > 4) && (countitem(Indication_Of_Tempest) > 4) && (countitem(Rough_Billows) > 4) && (countitem(Oridecon) > 19) && (countitem(Elunium) > 4) && (countitem(Gold) > 39) && (countitem(Stunner) > 0)) { mes "[Dwarf Grunburti]"; mes "Hmm..."; mes "I guess you"; mes "want to have"; mes "^0000FFMjolnir^000000!"; next; } else { mes "[Dwarf Grunburti]"; mes "..."; mes "......"; next; mes "[Dwarf Grunburti]"; mes "..."; mes "......"; mes "........."; next; mes "[Dwarf Grunburti]"; mes "..."; mes "......"; mes "........."; mes "............."; next; mes "[Dwarf Grunburti]"; mes "How dare you come here unprepared?! Did you forget what you needed to bring? Listen carefully this time!"; next; switch(select("Brisingamen", "Megingjard", "Sleipnir", "Mjolnir")) { case 1: mes "[Dwarf Grunburti]"; mes "I will need..."; mes "^0000FF4 Freya's Jewel"; mes "4 Silver Ornament"; mes "3 Snow Crystal"; mes "3 Ripple"; mes "3 Drifting Air"; mes "2 Sapphire"; mes "3 Pearl"; mes "10 Opal"; mes "5 Cursed Ruby"; mes "20 Gold^000000"; mes "1 Necklace^000000..."; next; mes "[Dwarf Grunburti]"; mes "Hmmm, but now"; mes "that the seals have"; mes "been released, you must hurry before another human can claim"; mes "one of the godly items..."; next; mes "[Dwarf Grunburti]"; mes "Hurry...!"; mes "Once I forge"; mes "Brisingamen,"; mes "the seals will"; mes "activate again!"; close; case 2: mes "[Dwarf Grunburti]"; mes "I will need..."; mes "^0000FF1 Gleipnir"; mes "20 Gold"; mes "10 Sapphire"; mes "10 Oridecon"; mes "1 Belt^000000"; next; mes "[Dwarf Grunburti]"; mes "Hmmm, but now"; mes "that the seals have"; mes "been released, you must hurry before another human can claim"; mes "one of the godly items..."; next; mes "[Dwarf Grunburti]"; mes "Hurry...!"; mes "Once I forge"; mes "Megingjard,"; mes "the seals will"; mes "activate again!"; close; case 3: mes "[Dwarf Grunburti]"; mes "I will need..."; mes "^0000FF3 Wheel of the Unknown"; mes "5 Feather of Angel Wing"; mes "3 Sprit of Fish"; mes "4 Amblem of the Sun God"; mes "3 Breath of Spirit"; mes "20 Gold"; mes "10 Elunium"; mes "1 Slotted Boots^000000"; next; mes "[Dwarf Grunburti]"; mes "Hmmm, but now"; mes "that the seals have"; mes "been released, you must hurry before another human can claim"; mes "one of the godly items..."; next; mes "[Dwarf Grunburti]"; mes "Hurry...!"; mes "Once I forge"; mes "Sleipnir,"; mes "the seals will"; mes "activate again!"; close; case 4: mes "[Dwarf Grunburti]"; mes "I will need..."; mes "^0000FF2 Thor's Gauntlets"; mes "4 Iron Maiden"; mes "5 Wrath of Valkyrie"; mes "5 Omen of Tempest"; mes "5 Billow"; mes "20 Oridecon"; mes "5 Elunium"; mes "40 Gold"; next; mes "[Dwarf Grunburti]"; mes "Hmmm, but now"; mes "that the seals have"; mes "been released, you must hurry before another human can claim"; mes "one of the godly items..."; next; mes "[Dwarf Grunburti]"; mes "Hurry...!"; mes "Once I forge"; mes "the Mjolnir,"; mes "the seals will"; mes "activate again!"; close; } } mes "[Dwarf Grunburti]"; mes "Hmpf."; mes "I can't get any work done in here. Come with me to the ^0000FFunderground laboratory^000000 as my guest, human."; next; mes "[Dwarf Grunburti]"; mes "Now hurry up! ^0000FFOnly one of each godly item^000000 will be given to the humans ^FF0000right after all the seals are released^000000!"; close2; warp "que_god01",214,63; end; case 4: mes "[Dwarf Grunburti]"; mes "Muhahahahahaha!"; mes "Out of my sight,"; mes "you dirty, filthy"; mes "human...!"; close; } } gld_dun02,85,84,0 duplicate(GodDwarf) Grunburti#2 4_M_DWARF gld_dun03,92,105,0 duplicate(GodDwarf) Grunburti#3 4_M_DWARF gld_dun04,268,230,0 duplicate(GodDwarf) Grunburti#4 4_M_DWARF que_god01,215,127,0 script #god_hopewarp1 HIDDEN_NPC,{ end; OnInit: waitingroom "Laboratory Entrance",2,"#god_hopewarp1::OnStartArena",1; enablewaitingroomevent; end; OnStartArena: warpwaitingpc "que_god01",155,63; donpcevent "Grunburti#god::OnEnable"; disablewaitingroomevent; end; OnReset: enablewaitingroomevent; end; } que_god01,214,128,0 script #que_godnpc1::GodEntrance HIDDEN_NPC,{ mes "[Entrance Notice]"; mes "Only the most"; mes "worthy of humans"; mes "will possess the"; mes "power of the gods."; close; } que_god01,215,128,0 duplicate(GodEntrance) #que_godnpc2 HIDDEN_NPC que_god01,213,128,0 duplicate(GodEntrance) #que_godnpc3 HIDDEN_NPC que_god01,154,112,4 script Grunburti#god 4_M_DWARF,{ if (($God1 < $@god_check2) || ($God2 < $@god_check2) || ($God3 < $@god_check2) || ($God4 < $@god_check2)){ mes "[Dwarf Grunburti]"; mes "One of the godly"; mes "items has been created,"; mes "and the seals have been"; mes "restored. You'll have to"; mes "wait until they're all"; mes "released again...!"; next; mes "[Dwarf Grunburti]"; mes "Bwahahahahahahaa!"; mes "Even though you're"; mes "just a human, I feel"; mes "pity for you~"; close; } .@GID = getcharid(CHAR_ID_GUILD); if (strcharinfo(PC_NAME) != getguildinfo(GUILDINFO_MASTER_NAME, .@GID)) { mes "[Dwarf Grunburti]"; mes "How in the..."; mes "Get out of here!"; next; mes "[Dwarf Grunburti]"; mes "How did one of you"; mes "stupid humans get in"; mes "here?! Only those who"; mes "hold the Emperium can"; mes "even think of entering"; mes "this place...!"; close; } mes "[Dwarf Grunburti]"; mes "It's incredibly"; mes "humiliating to do work for a human. But since destiny has chosen you as the bearer of an Emperium, I have no choice but to oblige your requests."; next; mes "[Dwarf Grunburti]"; mes "We only have"; mes "^FF000010 minutes^000000 to recreate one godly treasure. After that, the seals will restore themselves and I won't be able to create anything until they're released again..."; next; mes "[Dwarf Grunburti]"; mes "^FF0000Don't be too slow^000000,"; mes "otherwise ^FF0000I will give"; mes "the chance to another"; mes "human^000000 right away!"; next; mes "[Dwarf Grunburti]"; mes "Now...!"; mes "Choose the item"; mes "you wish for me"; mes "to create!"; next; switch(select("Brisingamen", "Megingjard", "Sleipnir", "Mjolnir")) { case 1: mes "[Dwarf Grunburti]"; mes "B-Brisingamen?!"; mes "I've never expected"; mes "such insolence...!"; mes "This necklace will never have any meaning in my eyes unless it's worn by the goddess Freya."; next; mes "[Dwarf Grunburti]"; mes "But who am I to judge your worthiness? These treasures"; mes "select their owners with their own will. Let's see if Brisingamen will find you worthy!"; next; mes "[Dwarf Grunburti]"; mes "Once again, I need following materials in order to reproduce"; mes "this godly treasure..."; next; mes "[Dwarf Grunburti]"; mes "^0000FF4 Freya's Jewel"; mes "4 Silver Ornament"; mes "3 Snow Crystal"; mes "3 Ripple"; mes "3 Drifting Air"; mes "2 Sapphire"; mes "3 Pearl"; mes "10 Opal"; mes "5 Cursed Ruby"; mes "20 Gold"; mes "1 Necklace^000000"; next; switch(select("Make Brisingamen.", "Cancel.")) { case 1: if ((countitem(Jewel_Of_Prayer) > 3) && (countitem(Silver_Fancy) > 3) && (countitem(Crystal_Of_Snow) > 2) && (countitem(Slilince_Wave) > 2) && (countitem(Air_Stream) > 2) && (countitem(Blue_Jewel) > 1) && (countitem(Scarlet_Jewel) > 2) && (countitem(White_Jewel) > 9) && (countitem(Cardinal_Jewel_) > 4) && (countitem(Gold) > 19) && (countitem(Necklace) > 0)){ //Jewel_Of_Prayer Silver_Fancy Crystal_Of_Snow Slilince_Wave Air_Stream Blue_Jewel Scarlet_Jewel White_Jewel Cardinal_Jewel_ Gold Necklace mes "[Dwarf Grunburti]"; mes "Never in my wildest"; mes "imaginings have I thought that I'd be crafting this masterpiece for a mere human. Give me a moment."; next; if (($God1 < $@god_check2) || ($God2 < $@god_check2) || ($God3 < $@god_check2) || ($God4 < $@god_check2)){ mes "[Dwarf Grunburti]"; mes "But..."; mes "The seals"; mes "have just been"; mes "restored. You'll have to"; mes "wait until they're all"; mes "released again...!"; next; mes "[Dwarf Grunburti]"; mes "Bwahahahahahahaa!"; mes "Even though you're"; mes "just a human, I feel"; mes "pity for you~"; close; } delitem Jewel_Of_Prayer,4; delitem Silver_Fancy,4; delitem Crystal_Of_Snow,3; delitem Slilince_Wave,3; delitem Air_Stream,3; delitem Blue_Jewel,2; delitem Scarlet_Jewel,3; delitem White_Jewel,10; delitem Cardinal_Jewel_,5; delitem Gold,20; delitem Necklace,1; getitem Brysinggamen,1; // Brysinggamen $God1 = 0; $God2 = 0; $God3 = 0; $God4 = 0; announce "[Brisingamen] has come into the hands of [" + strcharinfo(PC_NAME) + "], master of the [" + getguildinfo(GUILDINFO_NAME, .@GID) + "] guild.",bc_all; mes "[Dwarf Grunburti]"; mes "Ah, just look at this dazzling beauty. No other piece of jewelry complemented Freya as well as Brisingamen."; close; } else { mes "[Dwarf Grunburti]"; mes "Idiot human!"; mes "You didn't bring"; mes "everything I need to"; mes "recreate Brisingamen!"; mes "Hurry...!"; close; } case 2: mes "[Dwarf Grunburti]"; mes "Muhahahaha~"; mes "Somehow, I figured"; mes "you'd back out, human!"; close; } case 2: mes "[Dwarf Grunburti]"; mes "M- Megingjard?!"; mes "The girdle of might?!"; next; mes "[Dwarf Grunburti]"; mes "This belt was worn long ago by Thor, the mightest warrior ever. But since these treasures select their owners, we'll see whether or not it recognizes you as worthy!"; next; mes "[Dwarf Grunburti]"; mes "Once again, I need following materials in order to reproduce"; mes "this godly treasure..."; next; mes "[Dwarf Grunburti]"; mes "^0000FF1 Gleipnir"; mes "20 Gold"; mes "10 Sapphire"; mes "10 Oridecon"; mes "1 Belt^000000..."; next; switch(select("Make Megingjard.", "Cancel.")) { case 1: if ((countitem(Gullraifnir) > 0) && (countitem(Gold) > 19) && (countitem(Blue_Jewel) > 9) && (countitem(Oridecon) > 9) && (countitem(Belt) > 0)) { mes "[Dwarf Grunburti]"; mes "Twenty years ago,"; mes "I'd never believe that"; mes "something so powerful and dangerous as Megingjard would end up in the hands of a human..."; next; if (($God1 < $@god_check2) || ($God2 < $@god_check2) || ($God3 < $@god_check2) || ($God4 < $@god_check2)){ mes "[Dwarf Grunburti]"; mes "But..."; mes "The seals"; mes "have just been"; mes "restored. You'll have to"; mes "wait until they're all"; mes "released again...!"; next; mes "[Dwarf Grunburti]"; mes "Bwahahahahahahaa!"; mes "Even though you're"; mes "just a human, I feel"; mes "pity for you~"; close; } delitem Gullraifnir,1; delitem Gold,20; delitem Blue_Jewel,10; delitem Oridecon,10; delitem Belt,1; getitem Magingiorde,1; // Magingiorde $God1 = 0; $God2 = 0; $God3 = 0; $God4 = 0; announce "[Megingjard] the godly item has been given to [" + strcharinfo(PC_NAME) + "], the master of the guild [" + getguildinfo(GUILDINFO_NAME, .@GID) + "].",bc_all; mes "[Dwarf Grunburti]"; mes "Here..."; mes "Be careful with how"; mes "you use the strength"; mes "of a god. Just a fair"; mes "warning, human..."; close; } else { mes "[Dwarf Grunburti]"; mes "Idiot human!"; mes "You didn't bring"; mes "everything I need to"; mes "recreate Megingjard!"; mes "Hurry...!"; close; } case 2: mes "[Dwarf Grunburti]"; mes "Muhahahaha~"; mes "Somehow, I figured"; mes "you'd back out, human!"; close; } case 3: mes "[Dwarf Grunburti]"; mes "Sleipnir..."; mes "Now, understand"; mes "that I can't create"; mes "the eight-legged stallion"; mes "of legend. However..."; next; mes "[Dwarf Grunburti]"; mes "I can create a pair"; mes "of shoes that will possess the power of Sleipnir. It's a strange, but feasible process..."; next; mes "[Dwarf Grunburti]"; mes "Once again, I need following materials in order to reproduce"; mes "this godly treasure..."; next; mes "[Dwarf Grunburti]"; mes "^0000FF3 Wheel of the Unknown"; mes "5 Feather of Angel Wing"; mes "3 Sprit of Fish"; mes "4 Amblem of the Sun God"; mes "3 Breath of Spirit"; mes "20 Gold"; mes "10 Elunium"; mes "1 Slotted Boots^000000..."; next; switch(select("Make Sleipnir.", "Cancel.")) { case 1: if ((countitem(Mystery_Wheel) > 2) && (countitem(Feather_Of_Angel) > 4) && (countitem(Soul_Of_Fish) > 2) && (countitem(Symbol_Of_Sun) > 3) && (countitem(Breath_Of_Soul) > 2) && (countitem(Gold) > 19) && (countitem(Elunium) > 9) && (countitem(Boots_) > 0)) { mes "[Dwarf Grunburti]"; mes "I never believed"; mes "that the speed of"; mes "Sleipnir would be"; mes "used by a human."; mes "Give me a moment..."; next; if (($God1 < $@god_check2) || ($God2 < $@god_check2) || ($God3 < $@god_check2) || ($God4 < $@god_check2)){ mes "[Dwarf Grunburti]"; mes "But..."; mes "The seals"; mes "have just been"; mes "restored. You'll have to"; mes "wait until they're all"; mes "released again...!"; next; mes "[Dwarf Grunburti]"; mes "Bwahahahahahahaa!"; mes "Even though you're"; mes "just a human, I feel"; mes "pity for you~"; close; } delitem Mystery_Wheel,3; delitem Feather_Of_Angel,5; delitem Soul_Of_Fish,3; delitem Symbol_Of_Sun,4; delitem Breath_Of_Soul,3; delitem Gold,20; delitem Elunium,10; delitem Boots_,1; getitem Sleipnir,1; // Sleipnir $God1 = 0; $God2 = 0; $God3 = 0; $God4 = 0; announce "[Sleipnir] the godly item has been given to [" + strcharinfo(PC_NAME) + "], the master of the guild [" + getguildinfo(GUILDINFO_NAME, .@GID) + "].",bc_all; mes "[Dwarf Grunburti]"; mes "There..."; mes "Wear these, and"; mes "move with the speed of"; mes "the legendary Sleipnir..."; close; } else { mes "[Dwarf Grunburti]"; mes "Idiot human!"; mes "You didn't bring"; mes "everything I need to"; mes "recreate Sleipnir!"; mes "Hurry...!"; close; } case 2: mes "[Dwarf Grunburti]"; mes "Muhahahaha~"; mes "Somehow, I figured"; mes "you'd back out, human!"; close; } case 4: mes "[Dwarf Grunburti]"; mes "M-M-Mjolnir!?"; mes "Even though the"; mes "moment is at hand,"; mes "I can scarcely believe..."; next; mes "[Dwarf Grunburti]"; mes "^333333*Sigh...*^000000"; mes "This is almost a disgrace to gods and the Dwarf race. But perhaps, wielding Mjolnir may be your destiny..."; next; mes "[Dwarf Grunburti]"; mes "Once again, I need following materials in order to reproduce"; mes "this godly treasure..."; next; mes "[Dwarf Grunburti]"; mes "^0000FF2 Thor's Gauntlets"; mes "4 Iron Maiden"; mes "5 Wrath of Valkyrie"; mes "5 Omen of Tempest"; mes "5 Billow"; mes "20 Oridecon"; mes "5 Elunium"; mes "40 Gold"; mes "1 Stunner^000000..."; next; switch(select("Make Mjolnir.", "Cancel.")) { case 1: if ((countitem(Iron_Glove) > 1) && (countitem(Iron_Maiden) > 3) && (countitem(Anger_Of_Valkurye) > 4) && (countitem(Indication_Of_Tempest) > 4) && (countitem(Rough_Billows) > 4) && (countitem(Oridecon) > 19) && (countitem(Elunium) > 4) && (countitem(Gold) > 39) && (countitem(Stunner) > 0)) { mes "[Dwarf Grunburti]"; mes "Do not disgrace"; mes "Thor, lord of Thunder,"; mes "or you will regret it."; mes "Mark my words..."; next; if (($God1 < $@god_check2) || ($God2 < $@god_check2) || ($God3 < $@god_check2) || ($God4 < $@god_check2)){ mes "[Dwarf Grunburti]"; mes "But..."; mes "The seals"; mes "have just been"; mes "restored. You'll have to"; mes "wait until they're all"; mes "released again...!"; next; mes "[Dwarf Grunburti]"; mes "Bwahahahahahahaa!"; mes "Even though you're"; mes "just a human, I feel"; mes "pity for you~"; close; } delitem Iron_Glove,2; delitem Iron_Maiden,4; delitem Anger_Of_Valkurye,5; delitem Indication_Of_Tempest,5; delitem Rough_Billows,5; delitem Oridecon,20; delitem Elunium,5; delitem Gold,40; delitem Stunner,1; getitem Mjolnir,1; // Mjolnir $God1 = 0; $God2 = 0; $God3 = 0; $God4 = 0; announce "[Mjolnir] has been bestowed to [" + strcharinfo(PC_NAME) + "], the master of the [" + getguildinfo(GUILDINFO_NAME, .@GID) + "] guild.",bc_all; mes "[Dwarf Grunburti]"; mes "It's done."; mes "Take it. How does"; mes "it feel to hold the world's most powerful weapon in your grasp?"; close; } else { mes "[Dwarf Grunburti]"; mes "Idiot human!"; mes "You didn't bring"; mes "everything I need"; mes "to recreate Mjolnir!"; mes "Hurry...!"; close; } case 2: mes "[Dwarf Grunburti]"; mes "Muhahahaha~"; mes "Somehow, I figured"; mes "you'd back out, human!"; close; } } end; OnEnable: initnpctimer; end; OnTimer10000: mapannounce "que_god01","Remember that you only have 10 minutes for this! Hurry up!",bc_map; end; OnTimer610000: mapannounce "que_god01","You're too slow! I'm going to give another human a chance! Next!",bc_map; end; OnTimer612000: donpcevent "god_wep_warpmaster::OnEnable"; end; OnTimer615000: donpcevent "god_wep_warpmaster::OnDisable"; donpcevent "#god_hopewarp1::OnReset"; stopnpctimer; end; } que_god01,169,82,0 script god_wep_warpmaster FAKE_NPC,{ OnEnable: for(.@i = 1; .@i<=6; ++.@i) enablenpc "god_failwarp#"+.@i; end; OnDisable: for(.@i = 1; .@i<=6; ++.@i) disablenpc "god_failwarp#"+.@i; end; } que_god01,154,67,0 script god_failwarp#1 FAKE_NPC,4,7,{ OnInit: disablenpc strnpcinfo(NPC_NAME); end; OnTouch: warp "prontera",156,324; end; } que_god01,154,82,0 duplicate(god_failwarp#1) god_failwarp#2 FAKE_NPC,4,7 que_god01,145,99,0 duplicate(god_failwarp#1) god_failwarp#3 FAKE_NPC,9,9 que_god01,164,99,0 duplicate(god_failwarp#1) god_failwarp#4 FAKE_NPC,9,9 que_god01,145,118,0 duplicate(god_failwarp#1) god_failwarp#5 FAKE_NPC,9,9 que_god01,164,118,0 duplicate(god_failwarp#1) god_failwarp#6 FAKE_NPC,9,9 // Original name: "Godly Item Quests Related#god" que_god01,293,3,0 script Godly Item Quests#god 4_F_01,{ callfunc "F_GM_NPC"; mes "[Use in case of emergency]"; mes "Please enter password."; mes "If you wish to cancel, please enter 0."; next; .@i = callfunc("F_GM_NPC",1854,0,0,4000); if (.@i == -2) { mes "[Use in case of emergency]"; mes "Password is incorrect."; close; } else if (.@i == -1) { mes "[Use in case of emergency]"; mes "You have canceled your request."; close; } else if (.@i == 0) { close; } else { mes "[Use in case of emergency]"; mes "What services would you like to use?"; next; switch(select("Turn off Warps.", "Reset Timer.", "Reset chat room.")) { case 1: mes "[Use in case of emergency]"; mes "Press the 'Next' button to turn off warps."; next; donpcevent "god_wep_warpmaster::OnDisable"; mes "[Use in case of emergency]"; mes "You have successfully turned off warps."; close; case 2: mes "[Use in case of emergency]"; mes "Press the 'Next' button to reset timer."; next; donpcevent "Grunburti#god::OnEnable"; mes "[Use in case of emergency]"; mes "You have successfully reset timer."; close; case 3: mes "[Use in case of emergency]"; mes "Please press the 'Next' button to reset the arena chat room in que_god01."; next; donpcevent "#god_hopewarp1::OnReset"; mes "[Use in case of emergency]"; mes "You have successfully reset the arena chat room (Laboratory Entrance 1/2)."; close; } } }