From 28a9fec0916db3d92629ae6e6cd62b5777b09e73 Mon Sep 17 00:00:00 2001 From: j-tkay Date: Thu, 4 Jul 2013 05:15:48 +0800 Subject: Merged/Updated/Added scripts from rAthena. - Fixed Bug #7400 Signed-off-by: j-tkay --- npc/re/instances/MalangdoCulvert.txt | 1084 ++++++++++++++++++++++++++++++++++ npc/re/instances/OctopusCave.txt | 721 ++++++++++++++++++++++ 2 files changed, 1805 insertions(+) create mode 100644 npc/re/instances/MalangdoCulvert.txt create mode 100644 npc/re/instances/OctopusCave.txt (limited to 'npc/re/instances') diff --git a/npc/re/instances/MalangdoCulvert.txt b/npc/re/instances/MalangdoCulvert.txt new file mode 100644 index 000000000..2d0369699 --- /dev/null +++ b/npc/re/instances/MalangdoCulvert.txt @@ -0,0 +1,1084 @@ +//===== rAthena Script ======================================= +//= Malangdo Culvert +//===== By: ================================================== +//= Euphy +//===== Current Version: ===================================== +//= 1.0a +//===== Compatible With: ===================================== +//= rAthena SVN +//===== Description: ========================================= +//= [Official Conversion] +//= Clean the culverts and defeat the Coelacanth. +//= Daily and weekly quests are available. +//= Contains a normal mode and hard mode. +//===== Additional Comments: ================================= +//= 1.0 First version. [Euphy] +//= Letters "n" and "h" in NPC names indicate difficulty. +//= 1.0a There is no minimum party size on official servers. +//============================================================ + +// Quest NPCs +//============================================================ +mal_in01,172,28,2 script Albo#mal 561,{ + if (checkweight(1201,1) == 0) { + mes "You have too many kinds of objects. Try to continue after reducing those objects."; + close; + } + if (MaxWeight - Weight < 1000) { + mes "You have too many heavy objects. Try to continue after reducing your weight."; + close; + } + if (BaseLevel < 90) { + mes "[Albo]"; + mes "Who are you?"; + mes "We don't need a weaking!!"; + close; + } + setarray .@quests[0],12271,12272,12273,12274; + setarray .@names$[0], + "General Culvert Daily Service","^990000Hard Culvert Daily Service^000000", + "General Culvert Weekly Service","^990000Hard Culvert Weekly Service^000000"; + set .@menu$,"Why are doing this job?:"; + for(set .@i,0; .@i<4; set .@i,.@i+1) { + if (checkquest(.@quests[.@i],PLAYTIME) > -1) { + set .@status[.@i],2; + set .@menu$, .@menu$+"^aaaaaa- There is no new task -^000000:"; + } else if (.@i%2 && BaseLevel < 140) { + set .@status[.@i],0; + set .@menu$, .@menu$+"^aaaaaaCan't take this job because level is too low^000000:"; + } else { + set .@status[.@i],1; + set .@menu$, .@menu$+.@names$[.@i]+":"; + } + } + mes "[Albo]"; + mes "We crossed the sea!"; + mes "We are great heroes of Culvert! We do not forgive the seafood that aims at Culvert!"; + next; + set .@i, select(.@menu$)-1; + if (.@i == 0) { + mes "[Albo]"; + mes "We used to be the henchmen of Mr. Missing! We almost became guards of such a historic site."; + next; + mes "[Albo]"; + mes "However, when sea water flooded all precious the resources, my dream... all my dreams melted away..."; + next; + mes "[Albo]"; + mes "We do not forgive the seafood that invaded our territory. I'll eat them with spicy paste!!!"; + next; + mes "^0000ffAlbo's voice shakes with anger. He smacked his lips when he mentioned spicy paste.^000000"; + close; + } + switch(.@status[.@i-1]) { + case 0: + mes "[Albo]"; + mes "That task is really hard for you, so I can't tell you about it. Why don't you find another one?"; + close; + case 1: + break; + case 2: + mes "[Albo]"; + mes "I'm sorry. There is no new task yet! If I find any work, I'll tell you so!"; + close; + } + switch(.@i) { + case 1: // General Culvert Daily Service + switch(rand(1,6)) { + case 1: callsub L_GiveQuest,.@i,12255,12271,"Deep Sea Crab"; + case 2: callsub L_GiveQuest,.@i,12256,12271,"Deep Sea Marse"; + case 3: callsub L_GiveQuest,.@i,12257,12271,"Deep Sea Vadon"; + case 4: callsub L_GiveQuest,.@i,12258,12271,"Deep Sea Shellfish"; + case 5: callsub L_GiveQuest,.@i,12259,12271,"Deep Sea Kukre"; + case 6: callsub L_GiveQuest,.@i,12260,12271,"Deep Sea Cornutus"; + } + case 2: // Hard Culvert Daily Service + switch(rand(1,6)) { + case 1: callsub L_GiveQuest,.@i,12261,12272,"Deep Sea Marc"; + case 2: callsub L_GiveQuest,.@i,12262,12272,"Deep Sea Sword Fish"; + case 3: callsub L_GiveQuest,.@i,12263,12272,"Deep Sea Strouf"; + case 4: callsub L_GiveQuest,.@i,12264,12272,"Deep Sea Anolian"; + case 5: callsub L_GiveQuest,.@i,12265,12272,"Deep Sea Obeanue"; + case 6: callsub L_GiveQuest,.@i,12266,12272,"Deep Sea Kapha"; + } + case 3: // General Culvert Weekly Service + switch(rand(1,2)) { + case 1: callsub L_GiveQuest,.@i,12267,12273,"Weird Coelacanth"; + case 2: callsub L_GiveQuest,.@i,12268,12273,"Gloomy Coelacanth"; + } + case 4: // Hard Culvert Weekly Service + switch(rand(1,2)) { + case 1: callsub L_GiveQuest,.@i,12269,12274,"Violent Coelacanth"; + case 2: callsub L_GiveQuest,.@i,12270,12274,"Mutant Coelacanth"; + } + default: + mes "[Albo]"; + mes "Uh!? Where is the task? Let me find that quickly. You must speak with Madeca!"; + close; + } + end; + +// callsub L_GiveQuest,.@i,,,; +L_GiveQuest: + setquest getarg(1); + setquest getarg(2); + mes "[Albo]"; + mes "Today, the heroes of Culvert!"; + mes "We raise our voices and set a date for the extermination of ^0000ff"+getarg(3)+"^000000!"; + next; + mes "[Albo]"; + switch(getarg(0)) { + case 1: + case 2: + mes "Come on, heroes! Don't be afraid of them! Just go on, since it's a one-day mission!"; + break; + case 3: + mes "I'll give you one week to finish this job! Terminate all of them in Culvert Dungeon, Normal Mode!"; + break; + case 4: + mes "I'll give you one week to finish this job! Terminate all of them in Culvert Dungeon, Hard Mode!"; + break; + } + next; + mes "You received a request for the Extermination of ^005500"+getarg(3)+"^000000. If you need more details, please check the quest window."; + close; +} + +mal_in01,172,26,2 script Madeca#mal 544,{ + if (checkweight(1201,1) == 0) { + mes "You have too many kinds of objects. Try to continue after reducing those objects."; + close; + } + if (MaxWeight - Weight < 1000) { + mes "You have too many heavy objects. Try to continue after reducing your weight."; + close; + } + if (BaseLevel < 90) { + mes "[Madeca]"; + mes "Karrrrrrr!!"; + mes "Let's have some bad seafood that can be boiled or grilled!"; + next; + mes "[Madeca]"; + mes "Who are you? You are such a totterer. Even seaweed could kill you!"; + close; + } + mes "[Madeca]"; + mes "Oh?"; + mes "You're the one who took care of my big brother Albo's request. It was a hard job!"; + next; + set .@i, select("What are you doing here?:General Culvert Daily Service Compensation:Hard Culvert Daily Service Compensation:General Culvert Weekly Service Compensation:Hard Culvert Weekly Service Compensation")-1; + if (.@i == 0) { + mes "[Madeca]"; + mes "I'm here to help my big brother Albo!"; + next; + mes "[Madeca]"; + mes "We provide precious materials to humans who make sludge out of the bad seafood in the Culverts!"; + next; + mes "[Madeca]"; + mes "We provide A~B Grade Coins as compensation for daily service, and the precious Sea God's Wrath as compensation for weekly service."; + next; + mes "[Madeca]"; + mes "If you take care of big brother Albo's request, I will see you very often. So, let's stay close!"; + close; + } + mes "[Madeca]"; + mes "I can't give you compensation for an expired request, so let me check if any of yours have expired."; + next; + specialeffect2 EF_SPHERE; + progressbar "0xFFFF00",3; + specialeffect2 EF_STEAL; + switch(.@i) { + case 1: // General Culvert Daily Service + if (checkquest(12271,PLAYTIME) == 2) + callsub L_EraseQuest,12255,12256,12257,12258,12259,12260,12271; + else { + // Reward: 2x B Grade Coin + callsub L_CheckQuest,12255,"Deep Sea Crab",6419,2; + callsub L_CheckQuest,12256,"Deep Sea Marse",6419,2; + callsub L_CheckQuest,12257,"Deep Sea Vadon",6419,2; + callsub L_CheckQuest,12258,"Deep Sea Shellfish",6419,2; + callsub L_CheckQuest,12259,"Deep Sea Kukre",6419,2; + callsub L_CheckQuest,12260,"Deep Sea Cornutus",6419,2; + } + break; + case 2: // Hard Culvert Daily Service + if (checkquest(12272,PLAYTIME) == 2) + callsub L_EraseQuest,12261,12262,12263,12264,12265,12266,12272; + else { + // Reward: 1x A Grade Coin + callsub L_CheckQuest,12261,"Deep Sea Marc",6418,1; + callsub L_CheckQuest,12262,"Deep Sea Sword Fish",6418,1; + callsub L_CheckQuest,12263,"Deep Sea Strouf",6418,1; + callsub L_CheckQuest,12264,"Deep Sea Anolian",6418,1; + callsub L_CheckQuest,12265,"Deep Sea Obeaune",6418,1; + callsub L_CheckQuest,12266,"Deep Sea Kapha",6418,1; + } + break; + case 3: // General Culvert Weekly Service + if (checkquest(12273,PLAYTIME) == 2) + callsub L_EraseQuest,12267,12268,12273; + else { + // Reward: 1x Sea God's Wrath + callsub L_CheckQuest,12267,"Weird Coelacanth",6423,1; + callsub L_CheckQuest,12268,"Gloomy Coelacanth",6423,1; + } + break; + case 4: // Hard Culvert Weekly Service + if (checkquest(12274,PLAYTIME) == 2) + callsub L_EraseQuest,12269,12270,12274; + else { + // Reward: 5x Sea God's Wrath + callsub L_CheckQuest,12269,"Violent Coelacanth",6423,5; + callsub L_CheckQuest,12270,"Mutant Coelacanth",6423,5; + } + break; + default: + mes "[Madeca]"; + mes "Something is wrong. Please check this again!"; + close; + } + mes "[Madeca]"; + mes "I don't see any completed mission!"; + close; + +L_EraseQuest: + for(set .@j,0; .@j -1) + erasequest getarg(.@j); + } + mes "[Madeca]"; + mes "Um, I'm sorry. You exceeded the time limit, so I can't give you any payment."; + close; + +// callsub L_CheckQuest,,,,; +L_CheckQuest: + if (checkquest(getarg(0),HUNTING) == 2) { + mes "[Madeca]"; + mes "You've punished ^0000ff"+getarg(1)+"^000000!"; + mes "Here's your pay!"; + erasequest getarg(0); + specialeffect2 EF_STEAL; + getitem getarg(2),getarg(3); + close; + } + return; +} + +// Instance Creation +//============================================================ +mal_in01,160,34,4 script Missing, the Cleaner 545,{ + if (BaseLevel < 90) { + mes "[Missing, the Cleaner]"; + mes "Are you talking to me?!"; + next; + mes "[Missing, the Cleaner]"; + mes "I'm not sure what made you come here but you can't enter!"; + mes "Tomas' orders..."; + next; + mes "^770099You must be Base level 90 to enter.^000000"; + close; + } + if (in_canal_n == 0) { + mes "[Missing, the Cleaner]"; + mes "(trembling)"; + next; + mes "^660066This cat looks like it's in bad shape. It is slightly trembling.^000000"; + next; + if(select("Pet the cat:Are you ok?") == 1) { + mes "[Missing, the Cleaner]"; + mes "Are you talking to me?!"; + next; + mes "^660066A trembling cat is looking up at you.^000000"; + close; + } + mes "[Missing, the Cleaner]"; + mes "Achoo!"; + next; + mes "[Missing, the Cleaner]"; + mes "We have had many issues during the"; + mes "cleaning of the culverts. But a"; + mes "cat's gotta do it..."; + next; + select("What culvert are you cleaning?"); + mes "[Missing, the Cleaner]"; + mes "It might look unfamiliar for an"; + mes "outsider, but actually this place"; + mes "is made to keep souvenirs and"; + mes "luxurious things."; + next; + mes "[Missing, the Cleaner]"; + mes "After there was a big trembling on"; + mes "this island, things started leaking"; + mes "around here. So that's why I became"; + mes "a cleaner here, though I used"; + mes "to be a manager."; + next; + mes "^660066The cat looks like it's been crying...^000000"; + next; + mes "[Missing, the Cleaner]"; + mes "There is a culvert along this way"; + mes "to the basement. There are many bad"; + mes "guys who hurt me. I am tired of"; + mes "fighting with them so many times a"; + mes "day!"; + next; + mes "[Missing, the Cleaner]"; + mes "Ohh! You touched my fur!"; + mes "My fur is falling out... it's all"; + mes "those guys' fault~"; + next; + mes "^660066You just now notice that the cat's fur is missing in some places.^000000"; + next; + select("Why don't you just quit!"); + mes "[Missing, the Cleaner]"; + mes "I still have to make a living, don't I?"; + next; + mes "[Missing, the Cleaner]"; + mes "Sometimes I can get a lucky box,"; + mes "or even better, I can get cans..."; + next; + if(select("Okay, cheers!:I will help if possible...") == 1) { + mes "[Missing, the Cleaner]"; + mes "Thank you. I am going back to pour the water!"; + close; + } + mes "[Missing, the Cleaner]"; + mes "(turns down his voice)"; + mes "If you really want to help, come closer!"; + next; + select("(get in closer)"); + mes "[Missing, the Cleaner]"; + mes "Not everyone can be an assistant"; + mes "here. But I can't help choosing"; + mes "anyone at the moment..."; + next; + mes "[Missing, the Cleaner]"; + mes "If you want to go down here, let me get this code."; + next; + mes "^660066The cat scribbles a memo for code to you.^000000"; + next; + select("Open the memo."); + mes "^660000Aragam insulted me.^000000"; + next; + mes "[Missing, the Cleaner]"; + mes "You must be here with friends"; + mes "because you can't go in alone! And"; + mes "the password code will be from the"; + mes "party leader!"; + next; + mes "[Missing, the Cleaner]"; + mes "What is also important is you must"; + mes "have a Seagod Protection with you."; + next; + mes "[Missing, the Cleaner]"; + mes "Don't forget! I will not open the"; + mes "door if you do not have Seagod Protection!"; + set in_canal_n,1; + close; + } + if (countitem(6436) == 0) { + mes "[Missing, the Cleaner]"; + mes "You don't look like you have Seagod Protection. I can't open door at the moment!"; + close; + } + set .@party_id,getcharid(1); + set .@md_name$,"Culvert"; + if (!.@party_id) { + mes "^0000ffYou have to organize a party of"; + mes "more than 1 member or be a member"; + mes "of the party and come back.^000000"; + close; + } + set .@playtime, checkquest(12254,PLAYTIME); + if (.@playtime == -1) { + if (getcharid(0) == getpartyleader(.@party_id,2)) { + mes "[Missing, the Cleaner]"; + mes "Ummm? What's up? Tell me the password if you're the leader!"; + next; + switch(select("No... nothing.:Aragam insulted me.:Enter the Culvert.")) { + case 1: + mes "[Missing, the Cleaner]"; + mes "What a rookie."; + close; + case 2: + set .@instance, instance_create(.@md_name$,.@party_id); + if (.@instance < 0) { + mes "Party name: "+getpartyname(.@party_id); + mes "Party leader: "+strcharinfo(0); + mes "^0000ff"+.@md_name$+"^000000 - Reservation Failed!"; + close; + } + if (instance_attachmap("1@pump",.@instance) == "" || instance_attachmap("2@pump",.@instance) == "") { + mes "^0000ff"+.@md_name$+"^000000 - Reservation Failed!"; + instance_destroy(.@instance); + close; + } + instance_attach(.@instance); + instance_set_timeout 3600,300,.@instance; + instance_init(.@instance); + + // Common Scripts + donpcevent instance_npcname("Missing, the Cleaner#0", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("Culvert Entrance#i", instance_id())+"::OnInstanceInit"; + + // Normal Mode + donpcevent instance_npcname("Missing, the Cleaner#nf", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("Missing, the Cleaner#n", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("Monster Hole#n", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("#Culvert_n1", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("#Culvert_n2", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("#Culvert_n3", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("#Culvert_n4", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("#Culvert_n5", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("#Culvert_n6", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("Boss Creation#n", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("Missing, the Cleaner#no", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("Culvert Entrance#n", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("Hydra#n", instance_id())+"::OnInstanceInit"; + + // Hard Mode + donpcevent instance_npcname("Missing, the Cleaner#hf", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("Missing, the Cleaner#h", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("Monster Hole#h", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("#Culvert_h1", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("#Culvert_h2", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("#Culvert_h3", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("#Culvert_h4", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("#Culvert_h5", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("#Culvert_h6", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("#Culvert_h7", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("#Culvert_h8", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("#Culvert_h9", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("#Culvert_h10", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("Boss Creation#h", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("Missing, the Cleaner#ho", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("Culvert Entrance#h", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("Hydra#h", instance_id())+"::OnInstanceInit"; + + mes "^3333FF"+.@md_name$+"^000000 - Reserving"; + mes "After making the reservation, you"; + mes "have to select Enter the Culvert."; + close; + case 3: + goto L_Enter; + } + } else { + if(select("Enter Culvert:Cancel") == 2) + close; + goto L_Enter; + } + } else if (.@playtime == 0 || .@playtime == 1) { + mes "You can enter the Culvert if the gate is open."; + next; + if(select("Enter Culvert:Cancel") == 2) + close; + goto L_Enter; + } else if (.@playtime == 2) { + mes "^0000ffThe gate to the Culvert is open again.^000000"; + erasequest 12254; + close; + } + end; +L_Enter: + // TODO: Add official MD_Enter cases. + if (has_instance("1@pump") == "") { + if (checkquest(12254,PLAYTIME) == 0 || checkquest(12254,PLAYTIME) == 1) { + mes "The gate to the Culvert is still closed."; + mes "You must wait until you are able to enter or find a party leader who can create the instance."; + close; + } + mes "The memorial dungeon Culvert does not exist."; + mes "The party leader has not reserved entrance to the dungeon yet."; + close; + } + mapannounce "mal_in01", strcharinfo(0)+" of the party "+getpartyname(.@party_id)+" is entering the Culvert.",bc_map,"0x00ff99"; + if (checkquest(12254) == -1) setquest 12254; + warp "1@pump",63,98; + close; +} + +// Instance: Common Scripts +//============================================================ +1@pump,63,100,4 script Missing, the Cleaner#0 545,{ + if (getcharid(0) != getpartyleader(getcharid(1),2)) { + mes "[Missing, the Cleaner]"; + mes "I am trying to have a conversation with your leader now. Please don't disturb and wait!"; + close; + } + mes "[Missing, the Cleaner]"; + mes "This is the underground culvert where you will clean with your friends!"; + next; + mes "[Missing, the Cleaner]"; + mes "I'll open the door first. By the way, do you know how to fight?"; + next; + switch(select("I'm pretty good at delivering bread.:I know how to fight.:^ffffffGive me the diamond.^000000")) { + case 1: + mes "[Missing, the Cleaner]"; + mes "Ok then, I'll let you clean the culverts here as usual! I will prepare at the right-hand corner, please follow me!"; + next; + if(select("Wait! I changed my mind!:As you wish~") == 1) { + mes "[Missing, the Cleaner]"; + mes "Huh? Not ready yet? Talk to me again when you're ready."; + close; + } + set 'party_id,getcharid(1); + instance_announce 0,"Missing: Move toward the 3 o'clock direction and wait for my next order!",bc_map,"0xff88ff",FW_NORMAL,15; + disablenpc instance_npcname("Missing, the Cleaner#0", instance_id()); + enablenpc instance_npcname("Missing, the Cleaner#n", instance_id()); + close; + case 2: + if (BaseLevel < 140) { + mes "[Missing, the Cleaner]"; + mes "Hmmm... Missing thinks you're weak! Tell me the truth!!"; + close; + } + mes "[Missing, the Cleaner]"; + mes "Huh? You have some fighting skills? Well, then, there is one place I wasn't able to clean... why don't you go there?!"; + next; + mes "[Missing, the Cleaner]"; + mes "I must tell you that it's been such a long~~ time since we've cleaned that place, so anyone under level 140 cannot even enter! Are you sure you still want to go?"; + next; + if(select("Wait! I changed my mind!:Sure, I'm prepared already~") == 1) { + mes "[Missing, the Cleaner]"; + mes "Hmm? Talk to me again when you're ready."; + close; + } + set 'party_id,getcharid(1); + instance_announce 0,"Missing: I'll go in first, so follow me! I'll open up a gate at the 3 o'clock direction!",bc_map,"0xff88ff",FW_NORMAL,15; + disablenpc instance_npcname("Missing, the Cleaner#0", instance_id()); + enablenpc instance_npcname("Culvert Entrance#i", instance_id()); + close; + case 3: + mes "[Missing, the Cleaner]"; + mes "I told you not to play with me~!"; + close; + } + end; +OnInstanceInit: + enablenpc instance_npcname("Missing, the Cleaner#0", instance_id()); + end; +} + +1@pump,84,105,0 script Culvert Entrance#i 45,3,3,{ + end; +OnInstanceInit: + disablenpc instance_npcname("Culvert Entrance#i", instance_id()); + end; +OnTouch: + if (BaseLevel >= 140) + warp "2@pump",38,88; + else + warp "1@pump",74,105; + end; +} + +function script F_mal_missing { + mes "[Missing, the Cleaner]"; + mes "I will tell you how to clean shortly. Can you see the culverts around you?"; + next; + if(select("What culverts??:Yes, I see them.") == 1) { + mes "[Missing, the Cleaner]"; + mes "Huh? Is this your first time seeing culverts? You'll see many buried machines in the ground. You may look around and come back!"; + close; + } + mes "[Missing, the Cleaner]"; + mes "That's right! Those culverts are very important! We must clean the culverts to prevent seaweed from blocking them. This is what we, cleaners, do!"; + next; + mes "[Missing, the Cleaner]"; + mes "Watch out! Some monsters will be after you while you're cleaning the culverts! But do not yield to them!"; + next; + mes "[Missing, the Cleaner]"; + mes "And... NEVER let 6 seaweeds stack! Up to 5 is acceptable! If there are 6, I'll drag you out of here!!"; + next; + mes "[Missing, the Cleaner]"; + mes "I don't care if you get help from your friends or not. I want you to clean up all culverts! Don't forget! I will watch you and give you instructions. Just do what I said!!"; + next; + if (getcharid(0) != getpartyleader(getcharid(1),2)) { + mes "[Missing, the Cleaner]"; + mes "Once your leader finishes preparing, it will begin, so get your hearts ready for it!!"; + close; + } + mes "[Missing, the Cleaner]"; + mes "So, are you ready to clean now?"; + next; + switch(select("Wait! Not yet!:Let's start!")) { + case 1: + mes "[Missing, the Cleaner]"; + mes "Huh? Not ready yet? Then talk to me when you're ready."; + close; + case 2: + mes "[Missing, the Cleaner]"; + mes "OK! Now it begins!"; + return; + } +} + +// Instance: Normal Mode +//============================================================ +1@pump,84,105,4 script Missing, the Cleaner#nf 545,{ + mes "[Missing, the Cleaner]"; + mes "I have the cleaning job for 40 years and I've never seen such a terrible team!!"; + next; + mes "[Missing, the Cleaner]"; + mes "I see seaweed everywhere because you're wiggling! All the culverts will be blocked with seaweed!"; + next; + if (getcharid(0) != getpartyleader(getcharid(1),2)) { + mes "[Missing, the Cleaner]"; + mes "Once your leader finishes preparing, settlement will be decided so get your hearts ready for it!!"; + close; + } + mes "[Missing, the Cleaner]"; + mes "If you got some guts to challenge again, I'll give you another chance! What's your choice going to be!?"; + next; + switch(select("Wait! Not yet!:Okay, let's start again!")) { + case 1: + mes "[Missing, the Cleaner]"; + mes "You're still slow! Talk to me again whenever your're ready."; + close; + case 2: + mes "[Missing, the Cleaner]"; + mes "Ok! Let's start now!"; + set .@i$, charat(strnpcinfo(2),0); + enablenpc instance_npcname("Missing, the Cleaner#"+.@i$, instance_id()); + donpcevent instance_npcname("Missing, the Cleaner#"+.@i$, instance_id())+"::OnStart"; + disablenpc instance_npcname("Culvert Entrance#"+.@i$, instance_id()); + disablenpc instance_npcname("Missing, the Cleaner#"+.@i$+"o", instance_id()); + donpcevent instance_npcname("Monster Hole#"+.@i$, instance_id())+"::OnClear"; + disablenpc instance_npcname(strnpcinfo(0), instance_id()); + close; + } + close; +OnInstanceInit: + disablenpc instance_npcname(strnpcinfo(0), instance_id()); + end; +} + +1@pump,84,105,4 script Missing, the Cleaner#n 545,{ + callfunc "F_mal_missing"; + donpcevent instance_npcname("Missing, the Cleaner#n", instance_id())+"::OnStart"; + close; +OnInstanceInit: + disablenpc instance_npcname("Missing, the Cleaner#n", instance_id()); + end; +OnStart: + killmonster "1@pump",instance_npcname("Missing, the Cleaner#n", instance_id())+"::OnMyMobDead"; + disablenpc instance_npcname("Missing, the Cleaner#n", instance_id()); + initnpctimer; + end; +OnAddSeaweed: + areamonster "1@pump",55,99,61,105,"Contaminated Seaweed",2191,1,instance_npcname("Missing, the Cleaner#n", instance_id())+"::OnMyMobDead"; + set .@mob_dead_num, mobcount("1@pump",instance_npcname("Missing, the Cleaner#n", instance_id())+"::OnMyMobDead"); + if (.@mob_dead_num >= 6) + donpcevent instance_npcname("Missing, the Cleaner#n", instance_id())+"::OnFail"; + else + instance_announce 0,"Contaminated Seaweed: "+.@mob_dead_num+" stem",bc_map,"0xff3333",FW_NORMAL,20; + end; +OnMyMobDead: + end; +OnFail: + stopnpctimer; + donpcevent instance_npcname("Monster Hole#n", instance_id())+"::OnClear"; + killmonster "1@pump",instance_npcname("Missing, the Cleaner#n", instance_id())+"::OnMyMobDead"; + enablenpc instance_npcname("Missing, the Cleaner#nf", instance_id()); + instance_announce 0,"What is this!! Seaweed is all over the culverts! You're done with cleaning! Get out!!",bc_map,"0xff88ff",FW_NORMAL,15; + disablenpc instance_npcname("Missing, the Cleaner#n", instance_id()); + end; +OnTimer100: + instance_announce 0,"First culvert will be opened in 5 sec. Cleaner can find the opened drain and click to start cleaning.",bc_map,"0x00ffcc",FW_NORMAL,15; + end; +OnTimer5500: + instance_announce 0,"The one who's in charge of cleaning the culvert cannot move or be attacked until the casting is over.",bc_map,"0x00ffcc",FW_NORMAL,15; + donpcevent instance_npcname("Monster Hole#n", instance_id())+"::OnSpawn"; + end; +OnTimer45000: +OnTimer95000: +OnTimer145000: +OnTimer195000: +OnTimer245000: +OnTimer295000: +OnTimer345000: +OnTimer395000: +OnTimer445000: + instance_announce 0,"Next culvert will be opened in 5 sec. Please hurry up and find the position of the next culvert.",bc_map,"0x00ffcc",FW_NORMAL,15; + end; +OnTimer50000: +OnTimer100000: +OnTimer150000: + donpcevent instance_npcname("Monster Hole#n", instance_id())+"::OnSpawn"; + end; +OnTimer200000: +OnTimer250000: +OnTimer300000: +OnTimer350000: +OnTimer400000: +OnTimer450000: + set .@mob_dead_num, mobcount("1@pump",instance_npcname("Missing, the Cleaner#n", instance_id())+"::OnMyMobDead"); + if (.@mob_dead_num >= 6) + donpcevent instance_npcname("Missing, the Cleaner#n", instance_id())+"::OnFail"; + else + donpcevent instance_npcname("Monster Hole#n", instance_id())+"::OnSpawn"; + end; +OnTimer515000: + set .@mob_dead_num, mobcount("1@pump",instance_npcname("Missing, the Cleaner#n", instance_id())+"::OnMyMobDead"); + instance_announce 0,"Contaminated Seaweed: "+.@mob_dead_num+" stem. Missing will come and inspect the results of the cleaning soon.",bc_map,"0xff3333",FW_NORMAL,20; + end; +OnTimer520000: + stopnpctimer; + set .@mob_dead_num, mobcount("1@pump",instance_npcname("Missing, the Cleaner#n", instance_id())+"::OnMyMobDead"); + if (.@mob_dead_num >= 6) + donpcevent instance_npcname("Missing, the Cleaner#n", instance_id())+"::OnFail"; + else + donpcevent instance_npcname("Boss Creation#n", instance_id())+"::OnEnable"; + end; +} + +1@pump,1,1,4 script Monster Hole#n -1,{ + end; +OnInstanceInit: + enablenpc instance_npcname(strnpcinfo(0), instance_id()); + end; +OnSpawn: + set .@i$, charat(strnpcinfo(2),0); + if (.@i$ == "n") + set .@n,6; + else if (.@i$ == "h") + set .@n,10; + donpcevent instance_npcname("#Culvert_"+.@i$+rand(1,.@n), instance_id())+"::OnEnable"; + end; +OnClear: + set .@i$, charat(strnpcinfo(2),0); + if (.@i$ == "n") + set .@n,6; + else if (.@i$ == "h") + set .@n,10; + for(set .@i,1; .@i<=.@n; set .@i,.@i+1) + donpcevent instance_npcname("#Culvert_"+.@i$+.@n, instance_id())+"::OnClear"; + end; +} + +1@pump,36,111,4 script #Culvert_n1 844,{ + progressbar "0xFFFF00",10; + stopnpctimer; + disablenpc instance_npcname(strnpcinfo(0), instance_id()); + end; +OnInstanceInit: + disablenpc instance_npcname(strnpcinfo(0), instance_id()); + end; +OnEnable: + enablenpc instance_npcname(strnpcinfo(0), instance_id()); + set .@label$, instance_npcname(strnpcinfo(0), instance_id())+"::OnMyMobDead"; + set .@index, atoi(charat(strnpcinfo(2),9)); + switch(.@index) { + case 1: setarray .@c[0],32,107,40,115; break; + case 2: setarray .@c[0],64,120,72,128; break; + case 3: setarray .@c[0],76,110,84,118; break; + case 4: setarray .@c[0],36,76,44,84; break; + case 5: setarray .@c[0],71,76,79,84; break; + case 6: setarray .@c[0],54,97,62,105; break; + } + areamonster "1@pump",.@c[0],.@c[1],.@c[2],.@c[3],"Abysmal Crab",2176,rand(1,3),.@label$; + areamonster "1@pump",.@c[0],.@c[1],.@c[2],.@c[3],"Abysmal Marse",2175,rand(1,3),.@label$; + areamonster "1@pump",.@c[0],.@c[1],.@c[2],.@c[3],"Ancient Vadon",2174,rand(1,3),.@label$; + areamonster "1@pump",.@c[0],.@c[1],.@c[2],.@c[3],"Abysmal Shellfish",2178,rand(1,3),.@label$; + areamonster "1@pump",.@c[0],.@c[1],.@c[2],.@c[3],"Ancient Kukre",2179,rand(1,3),.@label$; + areamonster "1@pump",.@c[0],.@c[1],.@c[2],.@c[3],"Abysmal Cornutus",2177,rand(1,3),.@label$; + specialeffect EF_MAPPILLAR2,ALL_SAMEMAP; //currently broken + getmapxy(.@map$,.@x,.@y,1); + getpartymember 'party_id,2; + copyarray .@partymemberaid[0],$@partymemberaid[0],$@partymembercount; + for(set .@i,0; .@i<$@partymembercount; set .@i,.@i+1) { + if (attachrid(.@partymemberaid[.@i])) { + if (strcharinfo(3) == .@map$) + viewpoint 0,.@x,.@y,.@index,0xFFFF00; + detachrid; + } + } + initnpctimer; + end; +OnMyMobDead: + end; +OnClear: + stopnpctimer; + killmonster "1@pump",instance_npcname(strnpcinfo(0), instance_id())+"::OnMyMobDead"; + end; +OnTimer49500: //OnTimer50000 clashes with the timer in "Missing, the Cleaner#h". + donpcevent instance_npcname("Missing, the Cleaner#n", instance_id())+"::OnAddSeaweed"; + donpcevent instance_npcname(strnpcinfo(0), instance_id())+"::OnClear"; + disablenpc instance_npcname(strnpcinfo(0), instance_id()); + end; +} +1@pump,68,124,4 duplicate(#Culvert_n1) #Culvert_n2 844 +1@pump,80,114,4 duplicate(#Culvert_n1) #Culvert_n3 844 +1@pump,40,80,4 duplicate(#Culvert_n1) #Culvert_n4 844 +1@pump,75,80,4 duplicate(#Culvert_n1) #Culvert_n5 844 +1@pump,58,101,4 duplicate(#Culvert_n1) #Culvert_n6 844 + +1@pump,1,1,4 script Boss Creation#n -1,{ + end; +OnInstanceInit: + disablenpc instance_npcname(strnpcinfo(0), instance_id()); + end; +OnEnable: + enablenpc instance_npcname(strnpcinfo(0), instance_id()); + initnpctimer; + end; +OnTimer100: + set .@i$, charat(strnpcinfo(2),0); + if (.@i$ == "n") + instance_announce 0,"Hmm! That wasn't so bad!",bc_map,"0xff88ff",FW_NORMAL,15; + else if (.@i$ == "h") + instance_announce 0,"Hmm! You guys are pretty good!!",bc_map,"0xff88ff",FW_NORMAL,15; + end; +OnTimer5000: + instance_announce 0,"Let's pack up and go... WHAT!!?",bc_map,"0xff88ff",FW_NORMAL,15; + end; +OnTimer10000: + instance_announce 0,"I sense something strange!! Don't loosen up-- prepare for a fight!!",bc_map,"0xff88ff",FW_NORMAL,15; + end; +OnTimer20000: + stopnpctimer; + set .@i$, charat(strnpcinfo(2),0); + set .@label$, instance_npcname(strnpcinfo(0), instance_id())+"::OnMyMobDead"; + if (rand(1,100) > 50) { + if (.@i$ == "n") + monster "1@pump",0,0,"Weird Coelacanth",2188,1,.@label$; + else if (.@i$ == "h") + monster "2@pump",0,0,"Mutant Coelacanth",2189,1,.@label$; + instance_announce 0,"Something big inside the abyss appears with a huge noise.",bc_map,"0x00ffcc",FW_NORMAL,15; + } else { + if (.@i$ == "n") + monster "1@pump",0,0,"Gloomy Coelacanth",2187,1,.@label$; + else if (.@i$ == "h") + monster "2@pump",0,0,"Violent Coelacanth",2190,1,.@label$; + instance_announce 0,"Something savage inside the abyss appears with a huge noise.",bc_map,"0x00ffcc",FW_NORMAL,15; + } + end; +OnMyMobDead: + if (mobcount(strnpcinfo(4),instance_npcname(strnpcinfo(0), instance_id())+"::OnMyMobDead") < 1) { + instance_announce 0,"You've destroyed all monsters in the culverts. There are trophies lying on the ground, please look for them.",bc_map,"0xffff00",FW_NORMAL,15; + set .@i$, charat(strnpcinfo(2),0); + set .@map$, strnpcinfo(4); + enablenpc instance_npcname("Culvert Entrance#"+.@i$, instance_id()); + enablenpc instance_npcname("Missing, the Cleaner#"+.@i$+"o", instance_id()); + if (.@i$ == "n") { + for(set .@i,0; .@i<10; set .@i,.@i+1) { + set .@j, rand(1,6401); + if (.@j < 5001) set .@item,12636; //Malang_Sp_Can + else if (.@j < 5501) set .@item,12615; //Low_Coin_Pocket + else if (.@j < 6001) set .@item,12621; //Egrade_Pocket + else if (.@j < 6201) set .@item,12620; //Dgrade_Pocket + else if (.@j < 6401) set .@item,12623; //High_Weapon_Box + else continue; + makeitem .@item,1,.@map$,rand(40,77),rand(87,120); + } + } else if (.@i$ == "h") { + for(set .@i,0; .@i<10; set .@i,.@i+1) { + set .@j, rand(1,5001); + if (.@j < 2001) set .@item,12615; //Low_Coin_Pocket + else if (.@j < 3001) set .@item,12621; //Egrade_Pocket + else if (.@j < 4001) set .@item,12620; //Dgrade_Pocket + else if (.@j < 4501) set .@item,12619; //Cgrade_Pocket + else if (.@j < 5001) set .@item,12623; //High_Weapon_Box + else continue; + makeitem .@item,1,.@map$,rand(40,77),rand(87,120); + } + } + } else + instance_announce 0,"There are still monsters alive.",bc_map,"0x00ff99",FW_NORMAL,20; + end; +} + +1@pump,84,105,4 script Missing, the Cleaner#no 545,{ + set .@i$, charat(strnpcinfo(2),0); + if (.@i$ == "n") { + mes "[Missing, the Cleaner]"; + mes "I was very surprised!!"; + next; + mes "[Missing, the Cleaner]"; + mes "That funny-looking fish seems to be one of Coelacanths living around here. This is my first time seeing one coming here alone!"; + next; + mes "[Missing, the Cleaner]"; + mes "I'll clean up the remains. Go pack and leave! Enterance is located on the other side, look for it!"; + next; + } else if (.@i$ == "h") { + mes "[Missing, the Cleaner]"; + mes "You've destroyed an immense monster!"; + next; + mes "[Missing, the Cleaner]"; + mes "The one you destroyed was among the variety of Coelacanths. Others have tried to destroy them but failed."; + next; + mes "[Missing, the Cleaner]"; + mes "I'll clean up the remains. You go ahead to get trophies and leave!"; + next; + } + mes "[Missing, the Cleaner]"; + mes "One more thing! DO NOT TALK to ANYONE about what you've seen here today!!"; + next; + mes "[Missing, the Cleaner]"; + mes "If Tomas closes this down, we will lose our jobs!"; + close; +OnInstanceInit: + disablenpc instance_npcname(strnpcinfo(0), instance_id()); + end; +} + +1@pump,32,100,0 script Culvert Entrance#n 45,3,3,{ + end; +OnInstanceInit: + disablenpc instance_npcname(strnpcinfo(0), instance_id()); + end; +OnTouch: + warp "mal_in01",161,32; + end; +} + +//MD_Putmob "1@pump" 0 0 0 0 20 HYDRA 0 0 2 +1@pump,1,1,4 script Hydra#n -1,{ +OnInstanceInit: + monster strnpcinfo(4),0,0,"Hydra",1068,20; + end; +} + +// Instance: Hard Mode +//============================================================ +2@pump,39,88,4 duplicate(Missing, the Cleaner#nf) Missing, the Cleaner#hf 545 + +2@pump,39,88,4 script Missing, the Cleaner#h 545,{ + callfunc "F_mal_missing"; + donpcevent instance_npcname("Missing, the Cleaner#h", instance_id())+"::OnStart"; + close; +OnInstanceInit: + enablenpc instance_npcname("Missing, the Cleaner#h", instance_id()); + end; +OnStart: + killmonster "2@pump",instance_npcname("Missing, the Cleaner#h", instance_id())+"::OnMyMobDead"; + disablenpc instance_npcname("Missing, the Cleaner#h", instance_id()); + initnpctimer; + end; +OnAddSeaweed: + areamonster "2@pump",75,78,85,88,"Contaminated Seaweed",2191,1,instance_npcname("Missing, the Cleaner#h", instance_id())+"::OnMyMobDead"; + set .@mob_dead_num, mobcount("2@pump",instance_npcname("Missing, the Cleaner#h", instance_id())+"::OnMyMobDead"); + if (.@mob_dead_num >= 6) + donpcevent instance_npcname("Missing, the Cleaner#h", instance_id())+"::OnFail"; + else + instance_announce 0,"Proliferous Contaminated Seaweed: "+.@mob_dead_num+" stem",bc_map,"0xff3333",FW_NORMAL,20; + end; +OnMyMobDead: + end; +OnFail: + stopnpctimer; + donpcevent instance_npcname("Monster Hole#h", instance_id())+"::OnClear"; + killmonster "2@pump",instance_npcname("Missing, the Cleaner#h", instance_id())+"::OnMyMobDead"; + enablenpc instance_npcname("Missing, the Cleaner#hf", instance_id()); + instance_announce 0,"What is this!! Seaweed is all over the culverts! You're done with cleaning! Get out!!",bc_map,"0xff88ff",FW_NORMAL,15; + disablenpc instance_npcname("Missing, the Cleaner#h", instance_id()); + end; +OnTimer100: + instance_announce 0,"First culvert will be opened in 5 sec. Cleaner can find the opened drain and click to start cleaning.",bc_map,"0x00ffcc",FW_NORMAL,15; + end; +OnTimer5500: + instance_announce 0,"The one who's in charge of cleaning the culvert cannot move or be attacked until the casting is over.",bc_map,"0x00ffcc",FW_NORMAL,15; + donpcevent instance_npcname("Monster Hole#h", instance_id())+"::OnSpawn"; + end; +OnTimer35000: +OnTimer75000: +OnTimer115000: +OnTimer155000: +OnTimer195000: +OnTimer235000: +OnTimer275000: +OnTimer315000: +OnTimer355000: + instance_announce 0,"Next culvert will be opened in 5 sec. Please hurry up and find the position of the next culvert.",bc_map,"0x00ffcc",FW_NORMAL,15; + end; +OnTimer40000: +OnTimer80000: +OnTimer120000: + donpcevent instance_npcname("Monster Hole#h", instance_id())+"::OnSpawn"; + end; +OnTimer160000: +OnTimer200000: +OnTimer240000: +OnTimer280000: +OnTimer320000: +OnTimer360000: + set .@mob_dead_num, mobcount("2@pump",instance_npcname("Missing, the Cleaner#h", instance_id())+"::OnMyMobDead"); + if (.@mob_dead_num >= 6) + donpcevent instance_npcname("Missing, the Cleaner#h", instance_id())+"::OnFail"; + else + donpcevent instance_npcname("Monster Hole#h", instance_id())+"::OnSpawn"; + end; +OnTimer420000: + instance_announce 0,"It seems Missing will come and inspect the results of the cleaning soon. Shall we clean up the mess around here?",bc_map,"0xff3333",FW_NORMAL,20; + end; +OnTimer425000: + stopnpctimer; + set .@mob_dead_num, mobcount("2@pump",instance_npcname("Missing, the Cleaner#h", instance_id())+"::OnMyMobDead"); + if (.@mob_dead_num >= 6) + donpcevent instance_npcname("Missing, the Cleaner#h", instance_id())+"::OnFail"; + else + donpcevent instance_npcname("Boss Creation#h", instance_id())+"::OnEnable"; + end; +} + +2@pump,53,114,4 script #Culvert_h1 844,{ + progressbar "0xFFFF00",15; + stopnpctimer; + disablenpc instance_npcname(strnpcinfo(0), instance_id()); + end; +OnInstanceInit: + disablenpc instance_npcname(strnpcinfo(0), instance_id()); + end; +OnEnable: + enablenpc instance_npcname(strnpcinfo(0), instance_id()); + set .@label$, instance_npcname(strnpcinfo(0), instance_id())+"::OnMyMobDead"; + set .@index, atoi(substr(strnpcinfo(2),9,getstrlen(strnpcinfo(2))-1)); + switch(.@index) { + case 1: setarray .@c[0],49,110,57,118; break; + case 2: setarray .@c[0],75,105,83,113; break; + case 3: setarray .@c[0],110,110,118,118; break; + case 4: setarray .@c[0],94,94,102,102; break; + case 5: setarray .@c[0],58,92,66,100; break; + case 6: setarray .@c[0],53,66,61,74; break; + case 7: setarray .@c[0],43,45,51,53; break; + case 8: setarray .@c[0],77,59,85,67; break; + case 9: setarray .@c[0],96,70,104,78; break; + case 10: setarray .@c[0],111,46,119,54; break; + } + areamonster "2@pump",.@c[0],.@c[1],.@c[2],.@c[3],"Ancient Marc",2182,rand(2,3),.@label$; + areamonster "2@pump",.@c[0],.@c[1],.@c[2],.@c[3],"Ancient Sword Fish",2181,rand(2,3),.@label$; + areamonster "2@pump",.@c[0],.@c[1],.@c[2],.@c[3],"Ancient Strouf",2180,rand(2,3),.@label$; + areamonster "2@pump",.@c[0],.@c[1],.@c[2],.@c[3],"Mutant Anolian",2183,rand(2,3),.@label$; + areamonster "2@pump",.@c[0],.@c[1],.@c[2],.@c[3],"Abysmal Obeaune",2184,rand(2,3),.@label$; + areamonster "2@pump",.@c[0],.@c[1],.@c[2],.@c[3],"Metamorphous Kapha",2185,rand(2,3),.@label$; + specialeffect EF_MAPPILLAR2,ALL_SAMEMAP; //currently broken + initnpctimer; + end; +OnMyMobDead: + end; +OnClear: + stopnpctimer; + killmonster "2@pump",instance_npcname(strnpcinfo(0), instance_id())+"::OnMyMobDead"; + end; +OnTimer39500: //OnTimer40000 clashes with the timer in "Missing, the Cleaner#h". + donpcevent instance_npcname("Missing, the Cleaner#h", instance_id())+"::OnAddSeaweed"; + donpcevent instance_npcname(strnpcinfo(0), instance_id())+"::OnClear"; + disablenpc instance_npcname(strnpcinfo(0), instance_id()); + end; +} +2@pump,79,109,4 duplicate(#Culvert_h1) #Culvert_h2 844 +2@pump,114,114,4 duplicate(#Culvert_h1) #Culvert_h3 844 +2@pump,98,98,4 duplicate(#Culvert_h1) #Culvert_h4 844 +2@pump,62,96,4 duplicate(#Culvert_h1) #Culvert_h5 844 +2@pump,57,70,4 duplicate(#Culvert_h1) #Culvert_h6 844 +2@pump,47,49,4 duplicate(#Culvert_h1) #Culvert_h7 844 +2@pump,81,63,4 duplicate(#Culvert_h1) #Culvert_h8 844 +2@pump,100,74,4 duplicate(#Culvert_h1) #Culvert_h9 844 +2@pump,115,50,4 duplicate(#Culvert_h1) #Culvert_h10 844 + +2@pump,1,1,4 duplicate(Monster Hole#n) Monster Hole#h -1 +2@pump,1,1,4 duplicate(Boss Creation#n) Boss Creation#h -1 +2@pump,39,88,4 duplicate(Missing, the Cleaner#no) Missing, the Cleaner#ho 545 +2@pump,38,100,0 duplicate(Culvert Entrance#n) Culvert Entrance#h 45,3,3 + +//MD_Putmob "2@pump" 0 0 0 0 20 HYDRA 0 0 2 +2@pump,1,1,4 duplicate(Hydra#n) Hydra#h -1 diff --git a/npc/re/instances/OctopusCave.txt b/npc/re/instances/OctopusCave.txt new file mode 100644 index 000000000..7eaf25a9c --- /dev/null +++ b/npc/re/instances/OctopusCave.txt @@ -0,0 +1,721 @@ +//===== rAthena Script ======================================= +//= Octopus Cave +//===== By: ================================================== +//= Muad_Dib +//===== Current Version: ===================================== +//= 1.0 +//===== Compatible With: ===================================== +//= rAthena SVN +//===== Description: ========================================= +//= [Official Conversion] +//= Defeat the Disgusting Octopus. +//===== Additional Comments: ================================= +//= 1.0 First version. [Euphy] +//============================================================ + +// Instance Creation +//============================================================ +mal_dun01,151,235,5 script Starfish 551,{ + + set .@party_id,getcharid(1); + set .@md_name$,"Octopus Cave"; + + if (!.@party_id) { + mes "[Starfish]"; + mes "You alone is powerless, hehe!"; + mes "Better get someone to help you out."; + mes "Make a party, and come back later."; + close; + } + if (getcharid(0) != getpartyleader(.@party_id,2)) { + mes "[Starfish]"; + mes "Where is your leader, hehe."; + mes "I don't talk to some random people."; + mes "Bring your boss to me."; + close; + } + mes "[Starfish]"; + mes "I am guarding here, hehe!"; + mes "It is just roughly blocked for now."; + mes "But someday this cave must be sealed forever, hehe!"; + next; + while (1) { + switch(select("Ask what's going on.:Ask to open the gate.:Go to other location.")) { + case 1: + mes "[Starfish]"; + mes "Lately, our Starfish lady is"; + mes "suffering with some issues, ooh ooh."; + mes "Something bad happen in this"; + mes "peaceful place, hehe!"; + next; + mes "[Starfish]"; + mes "Weird looking limbs came out"; + mes "from the hole there,"; + mes "tried to kidnap our lady Starfish."; + mes "Ooh Ooh."; + next; + mes "[Starfish]"; + mes "It seems those limbs belong to"; + mes "that ugly octopus."; + mes "That monster should be taken care of,"; + mes "but it's hard for ourselves only to make it happen, hehe."; + next; + mes "[Starfish]"; + mes "I want to find someone special,"; + mes "and ask to punish this ugly octopus."; + mes "I hope this octopus won't ever"; + mes "harass our lady, hehe."; + next; + mes "[Starfish]"; + mes "Go catch that octopus and stick it to this pick."; + mes "If you bring back the pick, I will"; + mes "open this gate for a while."; + mes "You should challenge if you are interested, hehe."; + next; + break; + case 2: + set .@playtime, checkquest(4197,PLAYTIME); + if (.@playtime == 0 || .@playtime == 1) { + mes "[Starfish]"; + mes "Octopus is not around now, hehe."; + mes "Please come back later."; + close; + } + if (.@playtime == 2) erasequest 4197; + if (countitem(6442)) { + set .@instance, instance_create(.@md_name$,.@party_id); + if (.@instance < 0) { + mes "[Starfish]"; + mes "Party name is... "+getpartyname(.@party_id)+"."; + mes "Party leader is... "+strcharinfo(0)+"."; + mes "^0000ff"+.@md_name$+"^000000, I cannot open now, hehe."; + mes "Now is not the time, please wait."; + close; + } + if (instance_attachmap("1@cash",.@instance) == "") { + mes "^0000ff"+.@md_name$+"^000000 - Reservation Failed!"; + instance_destroy(.@instance); + close; + } + instance_attach(.@instance); + instance_set_timeout 3600,300,.@instance; + instance_init(.@instance); + + donpcevent instance_npcname("oct_enter", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("oct_enter_broad", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("oct_foot_4", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("oct_foot1", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("oct_foot_exit1", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("oct_foot2", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("oct_foot_exit2", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("oct_foot3", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("oct_foot_exit3", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("oct_foot4", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("oct_foot_exit4", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("oct_mob_con", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("oct_backattack1", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("oct_backattack2", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("oct_backattack3", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("oct_backattack4", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("oct_boss_con", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("oct_boss_foot", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("oct_boss_warp", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("oct_exit_1", instance_id())+"::OnInstanceInit"; + donpcevent instance_npcname("oct_exit_2", instance_id())+"::OnInstanceInit"; + + mes "[Starfish]"; + mes "I will open the gate for a while to ^0000ff"+.@md_name$+"^000000."; + mes "Please catch that pervert octopus,"; + mes "and come back with it sticked to the pick, hehe."; + close; + } + mes "[Starfish]"; + mes "Prepare a pick first,"; + mes "so you can thread that octopus"; + mes "with that pick."; + mes "Then, I will let you in for a while, hehe."; + close; + case 3: + mes "[Starfish]"; + mes "This is not a good location, check someplace else."; + close; + } + } +} + +mal_dun01,153,237,5 script Weird Entrance 844,{ + mes "There is a strange entrance"; + mes "blocked roughly with some boards."; + next; + switch(select("Go in.:Stop.")) { + case 1: + if (countitem(6442)) { + // TODO: Add official MD_Enter cases. + if (has_instance("1@cash") == "") { + if (checkquest(4197,PLAYTIME) == 0 || checkquest(4197,PLAYTIME) == 1) { + mes "[Starfish]"; + mes "Ah, now is not the time..."; + mes "Would you come back later? Hehe."; + close; + } + mes "[Starfish]"; + mes "Shhh... Weird aura is"; + mes "coming from that entrance."; + mes "Big trouble is waiting, if you go in now."; + close; + } + mapannounce "mal_dun01", getpartyname(getcharid(1))+" party's "+strcharinfo(0)+" member started to hunt the Octopus!",bc_map,"0x00ff99"; + if (checkquest(4197) == -1) setquest 4197; + warp "1@cash",199,99; + close; + } + mes "[Starfish]"; + mes "You should definitely prepare"; + mes "hunting stick if you want to"; + mes "punish the Octopus."; + mes "Or I will not let you in! Hehe."; + close; + case 2: + mes "[Starfish]"; + mes "Yes Yes, you better quit."; + close; + } +} + +// Instance Scripts +//============================================================ +1@cash,199,99,0 script oct_enter 139,4,4,{ + end; +OnInstanceInit: + enablenpc instance_npcname("oct_enter", instance_id()); + end; +OnTouch: + donpcevent instance_npcname("oct_enter_broad", instance_id())+"::OnEnable"; + specialeffect EF_BASH; + disablenpc instance_npcname("oct_enter", instance_id()); + end; +} + +1@cash,1,1,0 script oct_enter_broad -1,{ + end; +OnInstanceInit: + donpcevent instance_npcname("oct_enter_broad", instance_id())+"::OnDisable"; + end; +OnEnable: + enablenpc instance_npcname("oct_enter_broad", instance_id()); + donpcevent instance_npcname("oct_foot_4", instance_id())+"::OnEnable"; + donpcevent instance_npcname("oct_mob_con", instance_id())+"::OnEnable"; + initnpctimer; + end; +OnDisable: + disablenpc instance_npcname("oct_enter_broad", instance_id()); + end; +OnTimer1000: + instance_announce 0,"Pervert Octopus : How dare you to come inside of my place!",bc_map,"0xFFFF00"; + end; +OnTimer4000: + instance_announce 0,"Pervert Octopus : But I blocked all the cave gates!! There is nothing you can do!",bc_map,"0xFFFF00"; + end; +OnTimer7000: + instance_announce 0,"Pervert Octopus : My juniors~ There is your toy! Play with it~ kakaka",bc_map,"0xFFFF00"; + stopnpctimer; + donpcevent instance_npcname("oct_enter_broad", instance_id())+"::OnDisable"; + end; +} + +1@cash,3,3,0 script oct_foot_4 -1,{ + end; +OnInstanceInit: + donpcevent instance_npcname("oct_foot_4", instance_id())+"::OnDisable"; + end; +OnEnable: + enablenpc instance_npcname("oct_foot_4", instance_id()); + donpcevent instance_npcname("oct_foot1", instance_id())+"::OnEnable"; + donpcevent instance_npcname("oct_foot2", instance_id())+"::OnEnable"; + donpcevent instance_npcname("oct_foot3", instance_id())+"::OnEnable"; + donpcevent instance_npcname("oct_foot4", instance_id())+"::OnEnable"; + monster "1@cash",20,114,"Octopus Leg#1",2193,1,instance_npcname("oct_foot_4", instance_id())+"::OnMyMobDead"; + monster "1@cash",88,190,"Octopus Leg#2",2193,1,instance_npcname("oct_foot_4", instance_id())+"::OnMyMobDead"; + monster "1@cash",307,215,"Octopus Leg#3",2193,1,instance_npcname("oct_foot_4", instance_id())+"::OnMyMobDead"; + monster "1@cash",372,131,"Octopus Leg#4",2193,1,instance_npcname("oct_foot_4", instance_id())+"::OnMyMobDead"; + end; +OnDisable: + disablenpc instance_npcname("oct_foot_4", instance_id()); + end; +OnMyMobDead: + if (mobcount("1@cash",instance_npcname("oct_foot_4", instance_id())+"::OnMyMobDead") < 1) { + donpcevent instance_npcname("oct_boss_con", instance_id())+"::OnEnable"; + instance_announce 0,"Hey you!! I'll personally take care of you all! Let's bring it on!",bc_map,"0x00ff99"; + enablenpc instance_npcname("oct_boss_warp", instance_id()); + instance_warpall "1@cash",199,99; + end; + } + instance_announce 0,"Arrgg!! That hurts!!! I need another strategy...",bc_map,"0x00ff99"; + end; +} + +1@cash,20,114,0 script oct_foot1 139,6,6,{ + end; +OnInstanceInit: + donpcevent instance_npcname(strnpcinfo(0), instance_id())+"::OnDisable"; + end; +OnEnable: + enablenpc instance_npcname(strnpcinfo(0), instance_id()); + set .@label$, instance_npcname(strnpcinfo(0), instance_id())+"::OnMyMobDead"; + set .@i, atoi(charat(strnpcinfo(0),8)); + switch(.@i) { + case 1: + areamonster "1@cash",34,96,38,100,"Octopus's Henchman",2192,3,.@label$; + areamonster "1@cash",39,90,41,92,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",38,76,40,78,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",39,58,41,60,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",50,38,56,44,"Octopus's Henchman",2192,5,.@label$; + areamonster "1@cash",68,32,72,36,"Octopus's Henchman",2192,5,.@label$; + areamonster "1@cash",83,26,85,28,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",107,28,109,30,"Octopus's Henchman",2192,1,.@label$; + areamonster "1@cash",123,28,125,30,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",134,31,138,35,"Octopus's Henchman",2192,5,.@label$; + areamonster "1@cash",142,39,146,43,"Octopus's Henchman",2192,2,.@label$; + break; + case 2: + areamonster "1@cash",139,113,143,117,"Octopus's Henchman",2192,5,.@label$; + areamonster "1@cash",135,104,137,106,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",123,93,127,97,"Octopus's Henchman",2192,3,.@label$; + areamonster "1@cash",113,90,115,92,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",103,89,105,91,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",89,90,91,92,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",74,104,76,106,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",74,120,76,122,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",83,131,87,135,"Octopus's Henchman",2192,3,.@label$; + areamonster "1@cash",92,142,94,144,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",98,159,100,161,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",94,180,98,184,"Octopus's Henchman",2192,5,.@label$; + break; + case 3: + areamonster "1@cash",299,209,303,213,"Octopus's Henchman",2192,3,.@label$; + areamonster "1@cash",292,203,296,207,"Octopus's Henchman",2192,3,.@label$; + areamonster "1@cash",291,186,293,188,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",292,166,294,168,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",293,151,295,153,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",299,137,303,141,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",300,123,304,127,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",300,104,304,108,"Octopus's Henchman",2192,3,.@label$; + areamonster "1@cash",279,101,281,103,"Octopus's Henchman",2192,2,.@label$; + monster "1@cash",260,103,"Octopus's Henchman",2192,1,.@label$; + break; + case 4: + areamonster "1@cash",363,123,367,127,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",364,108,368,112,"Octopus's Henchman",2192,5,.@label$; + areamonster "1@cash",363,93,367,97,"Octopus's Henchman",2192,3,.@label$; + areamonster "1@cash",364,72,366,74,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",364,58,366,60,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",355,44,359,48,"Octopus's Henchman",2192,3,.@label$; + areamonster "1@cash",346,36,350,40,"Octopus's Henchman",2192,3,.@label$; + areamonster "1@cash",319,28,325,34,"Octopus's Henchman",2192,5,.@label$; + areamonster "1@cash",305,27,307,29,"Octopus's Henchman",2192,2,.@label$; + areamonster "1@cash",276,29,280,33,"Octopus's Henchman",2192,5,.@label$; + areamonster "1@cash",258,37,262,41,"Octopus's Henchman",2192,2,.@label$; + break; + } + end; +OnDisable: + killmonster "1@cash",instance_npcname(strnpcinfo(0), instance_id())+"::OnMyMobDead"; // Not in official script. + disablenpc instance_npcname(strnpcinfo(0), instance_id()); + end; +OnTouch: + if (getd("."+strnpcinfo(0)+instance_id())) end; + setd "."+strnpcinfo(0)+instance_id(),1; + hideonnpc instance_npcname(strnpcinfo(0), instance_id()); + instance_announce 0,"Come out all my babies and help me out!",bc_map,"0xFFFF00"; + initnpctimer; + end; +OnTimer5000: + instance_announce 0,"Let's give them a lesson!",bc_map,"0xFFFF00"; + set .@label$, instance_npcname(strnpcinfo(0), instance_id())+"::OnMyMobDead"; + set .@i, atoi(charat(strnpcinfo(0),8)); + switch(.@i) { + case 1: + areamonster "1@cash",18,112,22,116,"Octopus's Henchman",2192,3,.@label$; + areamonster "1@cash",18,112,22,116,"Octopus's Henchman",2192,3,.@label$; + break; + case 2: + areamonster "1@cash",86,188,90,192,"Octopus's Henchman",2192,3,.@label$; + areamonster "1@cash",96,98,100,102,"Octopus's Henchman",2192,3,.@label$; + break; + case 3: + areamonster "1@cash",305,213,309,217,"Octopus's Henchman",2192,3,.@label$; + areamonster "1@cash",305,213,309,217,"Octopus's Henchman",2192,3,.@label$; + break; + case 4: + areamonster "1@cash",370,129,374,133,"Octopus's Henchman",2192,3,.@label$; + areamonster "1@cash",370,129,374,133,"Octopus's Henchman",2192,3,.@label$; + break; + } + end; +OnTimer30000: + setd "."+strnpcinfo(0)+instance_id(),0; + stopnpctimer; + set .@i, atoi(charat(strnpcinfo(0),8)); + donpcevent instance_npcname("oct_foot_exit"+.@i, instance_id())+"::OnEnable"; + donpcevent instance_npcname(strnpcinfo(0), instance_id())+"::OnDisable"; + end; +OnMyMobDead: + if (mobcount("1@cash",instance_npcname(strnpcinfo(0), instance_id())+"::OnMyMobDead") < 1) { + instance_announce 0,"You hurt my babies!!? You'll have to pay for this!!!",bc_map,"0x00ff99"; + setd "."+strnpcinfo(0)+instance_id(),0; + stopnpctimer; + set .@i, atoi(charat(strnpcinfo(0),8)); + donpcevent instance_npcname("oct_foot_exit"+.@i, instance_id())+"::OnEnable"; + donpcevent instance_npcname(strnpcinfo(0), instance_id())+"::OnDisable"; + end; + } + end; +} +1@cash,88,190,0 duplicate(oct_foot1) oct_foot2 139,6,6 +1@cash,307,215,0 duplicate(oct_foot1) oct_foot3 139,6,6 +1@cash,372,131,0 duplicate(oct_foot1) oct_foot4 139,6,6 + +1@cash,16,117,0 script oct_foot_exit1 45,2,2,{ + end; +OnInstanceInit: + disablenpc instance_npcname(strnpcinfo(0), instance_id()); + end; +OnEnable: + enablenpc instance_npcname(strnpcinfo(0), instance_id()); + end; +OnTouch: + warp "1@cash",198,99; + end; +} +1@cash,77,193,0 duplicate(oct_foot_exit1) oct_foot_exit2 45,2,2 +1@cash,312,214,0 duplicate(oct_foot_exit1) oct_foot_exit3 45,2,2 +1@cash,370,139,0 duplicate(oct_foot_exit1) oct_foot_exit4 45,2,2 + +1@cash,15,15,0 script oct_mob_con -1,{ + end; +OnInstanceInit: + donpcevent instance_npcname("oct_mob_con", instance_id())+"::OnDisable"; + end; +OnEnable: + enablenpc instance_npcname("oct_mob_con", instance_id()); + monster "1@cash",32,94,"Hydra",1068,1; + monster "1@cash",41,101,"Hydra",1068,1; + monster "1@cash",35,78,"Hydra",1068,1; + monster "1@cash",35,62,"Hydra",1068,1; + monster "1@cash",49,54,"Hydra",1068,1; + monster "1@cash",70,28,"Hydra",1068,1; + monster "1@cash",83,22,"Hydra",1068,1; + monster "1@cash",99,23,"Hydra",1068,1; + monster "1@cash",115,23,"Hydra",1068,1; + monster "1@cash",132,25,"Hydra",1068,1; + monster "1@cash",100,185,"Hydra",1068,1; + monster "1@cash",92,178,"Hydra",1068,1; + monster "1@cash",92,162,"Hydra",1068,1; + monster "1@cash",70,121,"Hydra",1068,1; + monster "1@cash",70,105,"Hydra",1068,1; + monster "1@cash",105,85,"Hydra",1068,1; + monster "1@cash",121,84,"Hydra",1068,1; + monster "1@cash",292,209,"Hydra",1068,1; + monster "1@cash",303,206,"Hydra",1068,1; + monster "1@cash",290,163,"Hydra",1068,1; + monster "1@cash",299,150,"Hydra",1068,1; + monster "1@cash",308,141,"Hydra",1068,1; + monster "1@cash",308,125,"Hydra",1068,1; + monster "1@cash",295,97,"Hydra",1068,1; + monster "1@cash",279,97,"Hydra",1068,1; + monster "1@cash",370,111,"Hydra",1068,1; + monster "1@cash",370,110,"Hydra",1068,1; + monster "1@cash",371,96,"Hydra",1068,1; + monster "1@cash",371,80,"Hydra",1068,1; + monster "1@cash",367,55,"Hydra",1068,1; + monster "1@cash",343,29,"Hydra",1068,1; + monster "1@cash",327,24,"Hydra",1068,1; + monster "1@cash",311,22,"Hydra",1068,1; + monster "1@cash",295,22,"Hydra",1068,1; + monster "1@cash",279,22,"Hydra",1068,1; + areamonster "1@cash",30,67,50,87,"Stapo",1784,1; + areamonster "1@cash",102,19,122,39,"Stapo",1784,1; + areamonster "1@cash",89,138,109,158,"Stapo",1784,1; + areamonster "1@cash",112,83,132,103,"Stapo",1784,1; + areamonster "1@cash",283,168,303,188,"Stapo",1784,1; + areamonster "1@cash",292,97,312,117,"Stapo",1784,1; + areamonster "1@cash",355,64,375,84,"Stapo",1784,1; + areamonster "1@cash",317,17,337,37,"Stapo",1784,1; + donpcevent instance_npcname("oct_backattack1", instance_id())+"::OnEnable"; + donpcevent instance_npcname("oct_backattack2", instance_id())+"::OnEnable"; + donpcevent instance_npcname("oct_backattack3", instance_id())+"::OnEnable"; + donpcevent instance_npcname("oct_backattack4", instance_id())+"::OnEnable"; + donpcevent instance_npcname("oct_mob_con", instance_id())+"::OnDisable"; + end; +OnDisable: + disablenpc instance_npcname("oct_mob_con", instance_id()); + end; +} + +1@cash,45,53,0 script oct_backattack1 139,3,3,{ + end; +OnInstanceInit: + disablenpc instance_npcname("oct_backattack1", instance_id()); + end; +OnTouch: + monster "1@cash",39,59,"Hydra",1068,1; + monster "1@cash",40,59,"Hydra",1068,1; + monster "1@cash",41,59,"Hydra",1068,1; + monster "1@cash",47,50,"Hydra",1068,1; + monster "1@cash",48,50,"Hydra",1068,1; + monster "1@cash",49,50,"Hydra",1068,1; + monster "1@cash",41,53,"Octopus's Henchman",2192,1; + instance_announce 0,"Don't let them break through, stop them!!!",bc_map,"0x00ff99"; + specialeffect EF_BASH; + disablenpc instance_npcname("oct_backattack1", instance_id()); + end; +OnEnable: + enablenpc instance_npcname("oct_backattack1", instance_id()); + end; +} + +1@cash,78,99,0 script oct_backattack2 139,3,3,{ + end; +OnInstanceInit: + disablenpc instance_npcname("oct_backattack2", instance_id()); + end; +OnTouch: + if (getd("."+instance_id())) end; + setd "."+instance_id(),1; + initnpctimer; + monster "1@cash",71,105,"Octopus's Henchman ",2192,1; + instance_announce 0,"Headquarters are empty, GO!!!",bc_map,"0x00ff99"; + hideonnpc instance_npcname("oct_backattack2", instance_id()); + end; +OnTimer2000: + monster "1@cash",71,105,"Octopus's Henchman ",2192,1; + instance_announce 0,"Run, RUN! Go, GO!!!",bc_map,"0x00ff99"; + end; +OnTimer4000: + monster "1@cash",71,105,"Octopus's Henchman ",2192,1; + instance_announce 0,"No time, come out fast!",bc_map,"0x00ff99"; + end; +OnTimer6000: + monster "1@cash",71,105,"Octopus's Henchman ",2192,3; + instance_announce 0,"Let's take over the headquarters!!!",bc_map,"0x00ff99"; + end; +OnTimer8000: + monster "1@cash",71,105,"Octopus's Henchman ",2192,1; + instance_announce 0,"There is no time to lose, hurry up!!!",bc_map,"0x00ff99"; + stopnpctimer; + end; +OnEnable: + enablenpc instance_npcname("oct_backattack2", instance_id()); + end; +} + +1@cash,299,144,0 script oct_backattack3 139,3,3,{ + end; +OnInstanceInit: + disablenpc instance_npcname("oct_backattack2", instance_id()); + end; +OnTouch: + if (getd("."+instance_id())) end; + setd "."+instance_id(),1; + monster "1@cash",293,153,"Octopus's Henchman ",2192,1; + monster "1@cash",294,152,"Octopus's Henchman ",2192,1; + monster "1@cash",292,153,"Octopus's Henchman ",2192,1; + monster "1@cash",293,151,"Octopus's Henchman ",2192,1; + monster "1@cash",293,152,"Octopus's Henchman ?",2175,1; + instance_announce 0,"Kakaka! Suprised??!!",bc_map,"0x00ff99"; + initnpctimer; + hideonnpc instance_npcname("oct_backattack3", instance_id()); + end; +OnTimer5000: + instance_announce 0,"... Looks like we have a spy among us.",bc_map,"0x00ff99"; + stopnpctimer; + end; +OnEnable: + enablenpc instance_npcname("oct_backattack3", instance_id()); + end; +} + +1@cash,336,36,0 script oct_backattack4 139,3,3,{ + end; +OnInstanceInit: + disablenpc instance_npcname("oct_backattack2", instance_id()); + end; +OnTouch: + if (getd("."+instance_id())) end; + setd "."+instance_id(),1; + monster "1@cash",332,37,"Octopus's Henchman ",2192,1; + monster "1@cash",332,36,"Octopus's Henchman ",2192,1; + monster "1@cash",332,35,"Octopus's Henchman ",2192,1; + monster "1@cash",332,34,"Octopus's Henchman ",2192,1; + monster "1@cash",341,37,"Octopus's Henchman ",2192,1; + monster "1@cash",341,36,"Octopus's Henchman ",2192,1; + monster "1@cash",341,35,"Octopus's Henchman ",2192,1; + monster "1@cash",341,34,"Octopus's Henchman ",2192,1; + monster "1@cash",260,40,"Mercenary Squid",2175,1; + monster "1@cash",260,41,"Mercenary Squid",2175,1; + monster "1@cash",260,39,"Mercenary Squid",2175,1; + monster "1@cash",259,40,"Mercenary Squid",2175,1; + monster "1@cash",261,40,"Mercenary Squid",2175,1; + instance_announce 0,"What a successful pincer tactic! The enemy is strong! Let's not lose yourselves! Anyway, where are all the mercenaries??",bc_map,"0x00ff99"; + initnpctimer; + hideonnpc instance_npcname("oct_backattack4", instance_id()); + end; +OnTimer5000: + instance_announce 0,"Mercenary Squid : eh...eh... wrong direction. No enemies are shown in this direction.",bc_map,"0x00ff99"; + end; +OnTimer7000: + instance_announce 0,"Pervert Octopus : Fools! Can't you read the map??!! Useless!!",bc_map,"0x00ff99"; + stopnpctimer; + end; +OnEnable: + enablenpc instance_npcname("oct_backattack4", instance_id()); + end; +} + +1@cash,2,2,0 script oct_boss_con -1,{ + end; +OnInstanceInit: + donpcevent instance_npcname("oct_boss_con", instance_id())+"::OnDisable"; + end; +OnDisable: + disablenpc instance_npcname("oct_boss_con", instance_id()); + end; +OnEnable: + enablenpc instance_npcname("oct_boss_con", instance_id()); + donpcevent instance_npcname("oct_boss_foot", instance_id())+"::OnEnable"; + monster "1@cash",199,188,"Disgusting Octopus",2194,1,instance_npcname("oct_boss_con", instance_id())+"::OnMyMobDead"; + initnpctimer; + end; +OnTimer7000: + callsub OnAnnounce, + "You won't attack the one man.", + "I got fired from ink manufacturer last week.", + "Disgusting Octopus : Arghhhhh, come on!"; + end; +OnTimer14000: + callsub OnAnnounce, + "Why... why can't you know my heart!", + "Do you know how hard it is to live these days because there are not many new adventurers?", + "You.. I'll destroy you all...!"; + end; +OnTimer21000: + callsub OnAnnounce, + "What? I'm a disgusting octopus? You're sadists.", + "Let's not do this and how about we look for the best solution, huh??", + "Even if I fail here, I will keep coming back, forever!!!"; + end; +OnTimer28000: + callsub OnAnnounce, + "Instinct of mating is for males, what did I do wrong?", + "Do you really want to solve the problem between humans by violence?? Ah, I'm an octopus...", + "That's enough! Back off!"; + end; +OnTimer35000: + callsub OnAnnounce, + "Do I have to spend Christmas alone again...", + "Youth unemployment became a big issue these days... You won't get a job if you keep playing with me here.", + "This is as far as I can go!"; + end; +OnTimer42000: + callsub OnAnnounce, + "Hand on your heart and think if you come onto anyone...", + "Let's not do this here and follow the law!", + "You'll keep on doing this til the end, is that it?"; + end; +OnTimer49000: + callsub OnAnnounce, + "errrrrrrrrrrrrrrrrrrrrrrrr... Cough! Cough!", + "Disgusting Octopus : Violence cannot be justified in any case.", + "This is my place!!!"; + stopnpctimer; + initnpctimer; + end; +OnAnnounce: + instance_announce 0,"Disgusting Octopus : "+getarg(rand(3)),bc_map,"0xFFFF00"; + return; +OnMyMobDead: + if (mobcount("1@cash",instance_npcname("oct_boss_con", instance_id())+"::OnMyMobDead") < 1) { + instance_announce 0,"Disgusting Octopus : That's it for the today! Next time, I will play with you badly!",bc_map,"0xFFFF00"; + enablenpc instance_npcname("oct_exit_1", instance_id()); + enablenpc instance_npcname("oct_exit_2", instance_id()); + donpcevent instance_npcname("oct_boss_foot", instance_id())+"::OnDisable"; + stopnpctimer; + donpcevent instance_npcname("oct_boss_con", instance_id())+"::OnDisable"; + end; + } + end; +} + +1@cash,4,4,0 script oct_boss_foot -1,{ + end; +OnInstanceInit: + donpcevent instance_npcname("oct_boss_foot", instance_id())+"::OnDisable"; + end; +OnEnable: + enablenpc instance_npcname("oct_boss_foot", instance_id()); + initnpctimer; + end; +OnCall: + if (mobcount("1@cash",instance_npcname("oct_boss_foot", instance_id())+"::OnMyMobDead") < 100) { + switch(rand(2)) { + case 0: + instance_announce 0,"Disgusting Octopus : Do you know how many legs octopus have? It doesn't matter, I have unlimited legs!!",bc_map,"0xFFFF00"; + areamonster "1@cash",192,181,206,195,"Octopus Leg",2193,1,instance_npcname("oct_boss_foot", instance_id())+"::OnMyMobDead"; + break; + case 1: + instance_announce 0,"Disgusting Octopus : I...cannot..hold anymore, my babies~ please come out and fight!",bc_map,"0xFFFF00"; + areamonster "1@cash",192,181,206,195,"Octopus's Henchman ",2192,5,instance_npcname("oct_boss_foot", instance_id())+"::OnMyMobDead"; + break; + } + } + initnpctimer; + end; +OnTimer10000: + stopnpctimer; + donpcevent instance_npcname("oct_boss_foot", instance_id())+"::OnCall"; + end; +OnDisable: + stopnpctimer; + killmonster "1@cash",instance_npcname("oct_boss_foot", instance_id())+"::OnMyMobDead"; // Not in official script. + disablenpc instance_npcname("oct_boss_foot", instance_id()); + end; +OnMyMobDead: + end; +} + +1@cash,198,116,0 script oct_boss_warp 45,2,2,{ + end; +OnInstanceInit: + disablenpc instance_npcname("oct_boss_warp", instance_id()); + end; +OnTouch: + warp "1@cash",210,172; + end; +} + +1@cash,190,208,0 script oct_exit_1 45,2,2,{ + end; +OnInstanceInit: + disablenpc instance_npcname(strnpcinfo(0), instance_id()); + end; +OnTouch: + mes "Do you want to go out from the octopus dungeon?"; + next; + if(select("No!:Yes!") == 2) + warp "mal_dun01",153,233; + close; +} +1@cash,198,82,0 duplicate(oct_exit_1) oct_exit_2 45,2,2 +// This is never enabled in the official script. +//1@cash,200,161,0 duplicate(oct_exit_1) oct_exit_3 45,2,2 + +// Warp Portals +//============================================================ +1@cash,193,82,0 warp oct_door1 2,2,1@cash,151,48 +1@cash,154,53,0 warp oct_door2 2,2,1@cash,197,87 +1@cash,187,99,0 warp oct_door3 2,2,1@cash,148,128 +1@cash,153,133,0 warp oct_door4 2,2,1@cash,197,99 +1@cash,209,100,0 warp oct_door5 2,2,1@cash,250,111 +1@cash,244,118,0 warp oct_door6 2,2,1@cash,199,100 +1@cash,209,83,0 warp oct_door7 2,2,1@cash,252,46 +1@cash,246,53,0 warp oct_door8 2,2,1@cash,203,83 -- cgit v1.2.3-60-g2f50