Merge pull request #1387 from Asheraf/octopus_cave

Cleanup Sara's memory instance
Closes #1387 as merged

3 files changed, 702 insertions, 730 deletions

diff --git a/npc/re/instances/OctopusCave.txt b/npc/re/instances/OctopusCave.txt
deleted file mode 100644
index 84b323361..000000000
--- a/npc/re/instances/OctopusCave.txt
+++ /dev/null
@@ -1,729 +0,0 @@
-//================= Hercules Script =======================================
-//=       _   _                     _
-//=      | | | |                   | |
-//=      | |_| | ___ _ __ ___ _   _| | ___  ___
-//=      |  _  |/ _ \ '__/ __| | | | |/ _ \/ __|
-//=      | | | |  __/ | | (__| |_| | |  __/\__ \
-//=      \_| |_/\___|_|  \___|\__,_|_|\___||___/
-//================= License ===============================================
-//= This file is part of Hercules.
-//= http://herc.ws - http://github.com/HerculesWS/Hercules
-//=
-//= Copyright (C) 2013-2015  Hercules Dev Team
-//= Copyright (C)  Euphy
-//= Copyright (C)  Muad_Dib
-//=
-//= 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 <http://www.gnu.org/licenses/>.
-//=========================================================================
-//= Octopus Cave
-//================= Description ===========================================
-//= Defeat the Disgusting Octopus.
-//================= Current Version =======================================
-//= 1.1
-//=========================================================================
-
-1@cash	mapflag	src4instance
-
-//== Instance Creation =====================================
-mal_dun01,151,235,5	script	Starfish	4_ASTER,{
-
-	.@party_id = getcharid(1);
-	.@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:
-			.@playtime = questprogress(4197,PLAYTIME);
-			if (.@playtime == 1) {
-				mes "[Starfish]";
-				mes "Octopus is not around now, hehe.";
-				mes "Please come back later.";
-				close;
-			}
-			if (.@playtime == 2) erasequest 4197;
-			if (countitem(Octopus_Hunt_Stick)) {
-				.@instance = instance_create(.@md_name$,.@party_id);
-				if (.@instance < 0) {
-					mes "[Starfish]";
-					mes "Party name is... "+getpartyname(.@party_id)+".";
-					mes "Party leader is... "+strcharinfo(PC_NAME)+".";
-					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_set_timeout 3600,300,.@instance;
-				instance_init(.@instance);
-
-				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	CLEAR_NPC,{
-	mes "There is a strange entrance";
-	mes "blocked roughly with some boards.";
-	next;
-	switch(select("Go in.", "Stop.")) {
-	case 1:
-		if (countitem(Octopus_Hunt_Stick)) {
-			if (has_instance("1@cash") == "") {
-				if (questprogress(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(PC_NAME)+" member started to hunt the Octopus!",bc_map,"0x00ff99";
-			if (!questprogress(4197)) setquest 4197;
-			warp "1@cash",199,99;
-			end;
-		}
-		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	HIDDEN_WARP_NPC,4,4,{
-	end;
-OnTouch:
-	donpcevent instance_npcname("oct_enter_broad")+"::OnEnable";
-	specialeffect EF_BASH;
-	disablenpc instance_npcname("oct_enter");
-	end;
-}
-
-1@cash,1,1,0	script	oct_enter_broad	FAKE_NPC,{
-	end;
-OnInstanceInit:
-	donpcevent instance_npcname("oct_enter_broad")+"::OnDisable";
-	end;
-OnEnable:
-	enablenpc instance_npcname("oct_enter_broad");
-	donpcevent instance_npcname("oct_foot_4")+"::OnEnable";
-	donpcevent instance_npcname("oct_mob_con")+"::OnEnable";
-	initnpctimer;
-	end;
-OnDisable:
-	disablenpc instance_npcname("oct_enter_broad");
-	end;
-OnTimer1000:
-	mapannounce instance_mapname("1@cash"),"Pervert Octopus : How dare you to come inside of my place!",bc_map,"0xFFFF00";
-	end;
-OnTimer4000:
-	mapannounce instance_mapname("1@cash"),"Pervert Octopus : But I blocked all the cave gates!! There is nothing you can do!",bc_map,"0xFFFF00";
-	end;
-OnTimer7000:
-	mapannounce instance_mapname("1@cash"),"Pervert Octopus : My juniors~ There is your toy! Play with it~ kakaka",bc_map,"0xFFFF00";
-	stopnpctimer;
-	donpcevent instance_npcname("oct_enter_broad")+"::OnDisable";
-	end;
-}
-
-1@cash,3,3,0	script	oct_foot_4	FAKE_NPC,{
-	end;
-OnInstanceInit:
-	donpcevent instance_npcname("oct_foot_4")+"::OnDisable";
-	end;
-OnEnable:
-	enablenpc instance_npcname("oct_foot_4");
-	donpcevent instance_npcname("oct_foot1")+"::OnEnable";
-	donpcevent instance_npcname("oct_foot2")+"::OnEnable";
-	donpcevent instance_npcname("oct_foot3")+"::OnEnable";
-	donpcevent instance_npcname("oct_foot4")+"::OnEnable";
-	.@map$ = instance_mapname("1@cash");
-	monster .@map$,20,114,"Octopus Leg#1",2193,1,instance_npcname("oct_foot_4")+"::OnMyMobDead";
-	monster .@map$,88,190,"Octopus Leg#2",2193,1,instance_npcname("oct_foot_4")+"::OnMyMobDead";
-	monster .@map$,307,215,"Octopus Leg#3",2193,1,instance_npcname("oct_foot_4")+"::OnMyMobDead";
-	monster .@map$,372,131,"Octopus Leg#4",2193,1,instance_npcname("oct_foot_4")+"::OnMyMobDead";
-	end;
-OnDisable:
-	disablenpc instance_npcname("oct_foot_4");
-	end;
-OnMyMobDead:
-	.@map$ = instance_mapname("1@cash");
-	if (mobcount(.@map$,instance_npcname("oct_foot_4")+"::OnMyMobDead") < 1) {
-		donpcevent instance_npcname("oct_boss_con")+"::OnEnable";
-		mapannounce .@map$,"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_warpall .@map$,199,99;
-		end;
-	}
-	mapannounce .@map$,"Arrgg!! That hurts!!! I need another strategy...",bc_map,"0x00ff99";
-	end;
-}
-
-1@cash,20,114,0	script	oct_foot1	HIDDEN_WARP_NPC,6,6,{
-	end;
-OnInstanceInit:
-	donpcevent instance_npcname(strnpcinfo(NPC_NAME))+"::OnDisable";
-	end;
-OnEnable:
-	enablenpc instance_npcname(strnpcinfo(NPC_NAME));
-	.@label$ = instance_npcname(strnpcinfo(NPC_NAME))+"::OnMyMobDead";
-	.@i = atoi(charat(strnpcinfo(NPC_NAME),8));
-	.@map$ = instance_mapname("1@cash");
-	switch(.@i) {
-	case 1:
-		areamonster .@map$,34,96,38,100,"Octopus's Henchman",2192,3,.@label$;
-		areamonster .@map$,39,90,41,92,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,38,76,40,78,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,39,58,41,60,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,50,38,56,44,"Octopus's Henchman",2192,5,.@label$;
-		areamonster .@map$,68,32,72,36,"Octopus's Henchman",2192,5,.@label$;
-		areamonster .@map$,83,26,85,28,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,107,28,109,30,"Octopus's Henchman",2192,1,.@label$;
-		areamonster .@map$,123,28,125,30,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,134,31,138,35,"Octopus's Henchman",2192,5,.@label$;
-		areamonster .@map$,142,39,146,43,"Octopus's Henchman",2192,2,.@label$;
-		break;
-	case 2:
-		areamonster .@map$,139,113,143,117,"Octopus's Henchman",2192,5,.@label$;
-		areamonster .@map$,135,104,137,106,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,123,93,127,97,"Octopus's Henchman",2192,3,.@label$;
-		areamonster .@map$,113,90,115,92,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,103,89,105,91,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,89,90,91,92,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,74,104,76,106,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,74,120,76,122,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,83,131,87,135,"Octopus's Henchman",2192,3,.@label$;
-		areamonster .@map$,92,142,94,144,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,98,159,100,161,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,94,180,98,184,"Octopus's Henchman",2192,5,.@label$;
-		break;
-	case 3:
-		areamonster .@map$,299,209,303,213,"Octopus's Henchman",2192,3,.@label$;
-		areamonster .@map$,292,203,296,207,"Octopus's Henchman",2192,3,.@label$;
-		areamonster .@map$,291,186,293,188,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,292,166,294,168,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,293,151,295,153,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,299,137,303,141,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,300,123,304,127,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,300,104,304,108,"Octopus's Henchman",2192,3,.@label$;
-		areamonster .@map$,279,101,281,103,"Octopus's Henchman",2192,2,.@label$;
-		monster .@map$,260,103,"Octopus's Henchman",2192,1,.@label$;
-		break;
-	case 4:
-		areamonster .@map$,363,123,367,127,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,364,108,368,112,"Octopus's Henchman",2192,5,.@label$;
-		areamonster .@map$,363,93,367,97,"Octopus's Henchman",2192,3,.@label$;
-		areamonster .@map$,364,72,366,74,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,364,58,366,60,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,355,44,359,48,"Octopus's Henchman",2192,3,.@label$;
-		areamonster .@map$,346,36,350,40,"Octopus's Henchman",2192,3,.@label$;
-		areamonster .@map$,319,28,325,34,"Octopus's Henchman",2192,5,.@label$;
-		areamonster .@map$,305,27,307,29,"Octopus's Henchman",2192,2,.@label$;
-		areamonster .@map$,276,29,280,33,"Octopus's Henchman",2192,5,.@label$;
-		areamonster .@map$,258,37,262,41,"Octopus's Henchman",2192,2,.@label$;
-		break;
-	}
-	end;
-OnDisable:
-	killmonster instance_mapname("1@cash"),instance_npcname(strnpcinfo(NPC_NAME))+"::OnMyMobDead"; // Not in official script.
-	disablenpc instance_npcname(strnpcinfo(NPC_NAME));
-	end;
-OnTouch:
-	if (getd("."+strnpcinfo(NPC_NAME)+instance_id())) end;
-	setd "."+strnpcinfo(NPC_NAME)+instance_id(),1;
-	hideonnpc instance_npcname(strnpcinfo(NPC_NAME));
-	mapannounce instance_mapname("1@cash"),"Come out all my babies and help me out!",bc_map,"0xFFFF00";
-	initnpctimer;
-	end;
-OnTimer5000:
-	.@map$ = instance_mapname("1@cash");
-	mapannounce .@map$,"Let's give them a lesson!",bc_map,"0xFFFF00";
-	.@label$ = instance_npcname(strnpcinfo(NPC_NAME))+"::OnMyMobDead";
-	.@i = atoi(charat(strnpcinfo(NPC_NAME),8));
-	switch(.@i) {
-	case 1:
-		areamonster .@map$,18,112,22,116,"Octopus's Henchman",2192,3,.@label$;
-		areamonster .@map$,18,112,22,116,"Octopus's Henchman",2192,3,.@label$;
-		break;
-	case 2:
-		areamonster .@map$,86,188,90,192,"Octopus's Henchman",2192,3,.@label$;
-		areamonster .@map$,96,98,100,102,"Octopus's Henchman",2192,3,.@label$;
-		break;
-	case 3:
-		areamonster .@map$,305,213,309,217,"Octopus's Henchman",2192,3,.@label$;
-		areamonster .@map$,305,213,309,217,"Octopus's Henchman",2192,3,.@label$;
-		break;
-	case 4:
-		areamonster .@map$,370,129,374,133,"Octopus's Henchman",2192,3,.@label$;
-		areamonster .@map$,370,129,374,133,"Octopus's Henchman",2192,3,.@label$;
-		break;
-	}
-	end;
-OnTimer30000:
-	setd "."+strnpcinfo(NPC_NAME)+instance_id(),0;
-	stopnpctimer;
-	.@i = atoi(charat(strnpcinfo(NPC_NAME),8));
-	donpcevent instance_npcname("oct_foot_exit"+.@i)+"::OnEnable";
-	donpcevent instance_npcname(strnpcinfo(NPC_NAME))+"::OnDisable";
-	end;
-OnMyMobDead:
-	.@map$ = instance_mapname("1@cash");
-	if (mobcount(.@map$,instance_npcname(strnpcinfo(NPC_NAME))+"::OnMyMobDead") < 1) {
-		mapannounce .@map$,"You hurt my babies!!? You'll have to pay for this!!!",bc_map,"0x00ff99";
-		setd "."+strnpcinfo(NPC_NAME)+instance_id(),0;
-		stopnpctimer;
-		.@i = atoi(charat(strnpcinfo(NPC_NAME),8));
-		donpcevent instance_npcname("oct_foot_exit"+.@i)+"::OnEnable";
-		donpcevent instance_npcname(strnpcinfo(NPC_NAME))+"::OnDisable";
-		end;
-	}
-	end;
-}
-1@cash,88,190,0	duplicate(oct_foot1)	oct_foot2	HIDDEN_WARP_NPC,6,6
-1@cash,307,215,0	duplicate(oct_foot1)	oct_foot3	HIDDEN_WARP_NPC,6,6
-1@cash,372,131,0	duplicate(oct_foot1)	oct_foot4	HIDDEN_WARP_NPC,6,6
-
-1@cash,16,117,0	script	oct_foot_exit1	WARPNPC,2,2,{
-	end;
-OnInstanceInit:
-	disablenpc instance_npcname(strnpcinfo(NPC_NAME));
-	end;
-OnEnable:
-	enablenpc instance_npcname(strnpcinfo(NPC_NAME));
-	end;
-OnTouch:
-	warp instance_mapname("1@cash"),198,99;
-	end;
-}
-1@cash,77,193,0	duplicate(oct_foot_exit1)	oct_foot_exit2	WARPNPC,2,2
-1@cash,312,214,0	duplicate(oct_foot_exit1)	oct_foot_exit3	WARPNPC,2,2
-1@cash,370,139,0	duplicate(oct_foot_exit1)	oct_foot_exit4	WARPNPC,2,2
-
-1@cash,15,15,0	script	oct_mob_con	FAKE_NPC,{
-	end;
-OnInstanceInit:
-	donpcevent instance_npcname("oct_mob_con")+"::OnDisable";
-	end;
-OnEnable:
-	.@map$ = instance_mapname("1@cash");
-	enablenpc instance_npcname("oct_mob_con");
-	monster .@map$,32,94,"Hydra",1068,1;
-	monster .@map$,41,101,"Hydra",1068,1;
-	monster .@map$,35,78,"Hydra",1068,1;
-	monster .@map$,35,62,"Hydra",1068,1;
-	monster .@map$,49,54,"Hydra",1068,1;
-	monster .@map$,70,28,"Hydra",1068,1;
-	monster .@map$,83,22,"Hydra",1068,1;
-	monster .@map$,99,23,"Hydra",1068,1;
-	monster .@map$,115,23,"Hydra",1068,1;
-	monster .@map$,132,25,"Hydra",1068,1;
-	monster .@map$,100,185,"Hydra",1068,1;
-	monster .@map$,92,178,"Hydra",1068,1;
-	monster .@map$,92,162,"Hydra",1068,1;
-	monster .@map$,70,121,"Hydra",1068,1;
-	monster .@map$,70,105,"Hydra",1068,1;
-	monster .@map$,105,85,"Hydra",1068,1;
-	monster .@map$,121,84,"Hydra",1068,1;
-	monster .@map$,292,209,"Hydra",1068,1;
-	monster .@map$,303,206,"Hydra",1068,1;
-	monster .@map$,290,163,"Hydra",1068,1;
-	monster .@map$,299,150,"Hydra",1068,1;
-	monster .@map$,308,141,"Hydra",1068,1;
-	monster .@map$,308,125,"Hydra",1068,1;
-	monster .@map$,295,97,"Hydra",1068,1;
-	monster .@map$,279,97,"Hydra",1068,1;
-	monster .@map$,370,111,"Hydra",1068,1;
-	monster .@map$,370,110,"Hydra",1068,1;
-	monster .@map$,371,96,"Hydra",1068,1;
-	monster .@map$,371,80,"Hydra",1068,1;
-	monster .@map$,367,55,"Hydra",1068,1;
-	monster .@map$,343,29,"Hydra",1068,1;
-	monster .@map$,327,24,"Hydra",1068,1;
-	monster .@map$,311,22,"Hydra",1068,1;
-	monster .@map$,295,22,"Hydra",1068,1;
-	monster .@map$,279,22,"Hydra",1068,1;
-	areamonster .@map$,30,67,50,87,"Stapo",1784,1;
-	areamonster .@map$,102,19,122,39,"Stapo",1784,1;
-	areamonster .@map$,89,138,109,158,"Stapo",1784,1;
-	areamonster .@map$,112,83,132,103,"Stapo",1784,1;
-	areamonster .@map$,283,168,303,188,"Stapo",1784,1;
-	areamonster .@map$,292,97,312,117,"Stapo",1784,1;
-	areamonster .@map$,355,64,375,84,"Stapo",1784,1;
-	areamonster .@map$,317,17,337,37,"Stapo",1784,1;
-	donpcevent instance_npcname("oct_backattack1")+"::OnEnable";
-	donpcevent instance_npcname("oct_backattack2")+"::OnEnable";
-	donpcevent instance_npcname("oct_backattack3")+"::OnEnable";
-	donpcevent instance_npcname("oct_backattack4")+"::OnEnable";
-	donpcevent instance_npcname("oct_mob_con")+"::OnDisable";
-	end;
-OnDisable:
-	disablenpc instance_npcname("oct_mob_con");
-	end;
-}
-
-1@cash,45,53,0	script	oct_backattack1	HIDDEN_WARP_NPC,3,3,{
-	end;
-OnInstanceInit:
-	disablenpc instance_npcname("oct_backattack1");
-	end;
-OnTouch:
-	.@map$ = instance_mapname("1@cash");
-	monster .@map$,39,59,"Hydra",1068,1;
-	monster .@map$,40,59,"Hydra",1068,1;
-	monster .@map$,41,59,"Hydra",1068,1;
-	monster .@map$,47,50,"Hydra",1068,1;
-	monster .@map$,48,50,"Hydra",1068,1;
-	monster .@map$,49,50,"Hydra",1068,1;
-	monster .@map$,41,53,"Octopus's Henchman",2192,1;
-	mapannounce .@map$,"Don't let them break through, stop them!!!",bc_map,"0x00ff99";
-	specialeffect EF_BASH;
-	disablenpc instance_npcname("oct_backattack1");
-	end;
-OnEnable:
-	enablenpc instance_npcname("oct_backattack1");
-	end;
-}
-
-1@cash,78,99,0	script	oct_backattack2	HIDDEN_WARP_NPC,3,3,{
-	end;
-OnInstanceInit:
-	disablenpc instance_npcname("oct_backattack2");
-	end;
-OnTouch:
-	if (getd("."+instance_id())) end;
-	setd "."+instance_id(),1;
-	initnpctimer;
-	.@map$ = instance_mapname("1@cash");
-	monster .@map$,71,105,"Octopus's Henchman ",2192,1;
-	mapannounce .@map$,"Headquarters are empty, GO!!!",bc_map,"0x00ff99";
-	hideonnpc instance_npcname("oct_backattack2");
-	end;
-OnTimer2000:
-	.@map$ = instance_mapname("1@cash");
-	monster .@map$,71,105,"Octopus's Henchman ",2192,1;
-	mapannounce .@map$,"Run, RUN! Go, GO!!!",bc_map,"0x00ff99";
-	end;
-OnTimer4000:
-	.@map$ = instance_mapname("1@cash");
-	monster .@map$,71,105,"Octopus's Henchman ",2192,1;
-	mapannounce .@map$,"No time, come out fast!",bc_map,"0x00ff99";
-	end;
-OnTimer6000:
-	.@map$ = instance_mapname("1@cash");
-	monster .@map$,71,105,"Octopus's Henchman ",2192,3;
-	mapannounce .@map$,"Let's take over the headquarters!!!",bc_map,"0x00ff99";
-	end;
-OnTimer8000:
-	.@map$ = instance_mapname("1@cash");
-	monster .@map$,71,105,"Octopus's Henchman ",2192,1;
-	mapannounce .@map$,"There is no time to lose, hurry up!!!",bc_map,"0x00ff99";
-	stopnpctimer;
-	end;
-OnEnable:
-	enablenpc instance_npcname("oct_backattack2");
-	end;
-}
-
-1@cash,299,144,0	script	oct_backattack3	HIDDEN_WARP_NPC,3,3,{
-	end;
-OnInstanceInit:
-	disablenpc instance_npcname("oct_backattack3");
-	end;
-OnTouch:
-	if (getd("."+instance_id())) end;
-	setd "."+instance_id(),1;
-	.@map$ = instance_mapname("1@cash");
-	monster .@map$,293,153,"Octopus's Henchman ",2192,1;
-	monster .@map$,294,152,"Octopus's Henchman ",2192,1;
-	monster .@map$,292,153,"Octopus's Henchman ",2192,1;
-	monster .@map$,293,151,"Octopus's Henchman ",2192,1;
-	monster .@map$,293,152,"Octopus's Henchman ?",2175,1;
-	mapannounce .@map$,"Kakaka! Suprised??!!",bc_map,"0x00ff99";
-	initnpctimer;
-	hideonnpc instance_npcname("oct_backattack3");
-	end;
-OnTimer5000:
-	mapannounce instance_mapname("1@cash"),"... Looks like we have a spy among us.",bc_map,"0x00ff99";
-	stopnpctimer;
-	end;
-OnEnable:
-	enablenpc instance_npcname("oct_backattack3");
-	end;
-}
-
-1@cash,336,36,0	script	oct_backattack4	HIDDEN_WARP_NPC,3,3,{
-	end;
-OnInstanceInit:
-	disablenpc instance_npcname("oct_backattack4");
-	end;
-OnTouch:
-	if (getd("."+instance_id())) end;
-	setd "."+instance_id(),1;
-	.@map$ = instance_mapname("1@cash");
-	monster .@map$,332,37,"Octopus's Henchman ",2192,1;
-	monster .@map$,332,36,"Octopus's Henchman ",2192,1;
-	monster .@map$,332,35,"Octopus's Henchman ",2192,1;
-	monster .@map$,332,34,"Octopus's Henchman ",2192,1;
-	monster .@map$,341,37,"Octopus's Henchman ",2192,1;
-	monster .@map$,341,36,"Octopus's Henchman ",2192,1;
-	monster .@map$,341,35,"Octopus's Henchman ",2192,1;
-	monster .@map$,341,34,"Octopus's Henchman ",2192,1;
-	monster .@map$,260,40,"Mercenary Squid",2175,1;
-	monster .@map$,260,41,"Mercenary Squid",2175,1;
-	monster .@map$,260,39,"Mercenary Squid",2175,1;
-	monster .@map$,259,40,"Mercenary Squid",2175,1;
-	monster .@map$,261,40,"Mercenary Squid",2175,1;
-	mapannounce .@map$,"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");
-	end;
-OnTimer5000:
-	mapannounce instance_mapname("1@cash"),"Mercenary Squid : eh...eh... wrong direction. No enemies are shown in this direction.",bc_map,"0x00ff99";
-	end;
-OnTimer7000:
-	mapannounce instance_mapname("1@cash"),"Pervert Octopus : Fools! Can't you read the map??!! Useless!!",bc_map,"0x00ff99";
-	stopnpctimer;
-	end;
-OnEnable:
-	enablenpc instance_npcname("oct_backattack4");
-	end;
-}
-
-1@cash,2,2,0	script	oct_boss_con	FAKE_NPC,{
-	end;
-OnInstanceInit:
-	donpcevent instance_npcname("oct_boss_con")+"::OnDisable";
-	end;
-OnDisable:
-	disablenpc instance_npcname("oct_boss_con");
-	end;
-OnEnable:
-	enablenpc instance_npcname("oct_boss_con");
-	donpcevent instance_npcname("oct_boss_foot")+"::OnEnable";
-	monster instance_mapname("1@cash"),199,188,"Disgusting Octopus",2194,1,instance_npcname("oct_boss_con")+"::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:
-	mapannounce instance_mapname("1@cash"),"Disgusting Octopus : "+getarg(rand(3)),bc_map,"0xFFFF00";
-	return;
-OnMyMobDead:
-	.@map$ = instance_mapname("1@cash");
-	if (mobcount(.@map$,instance_npcname("oct_boss_con")+"::OnMyMobDead") < 1) {
-		mapannounce .@map$,"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");
-		enablenpc instance_npcname("oct_exit_2");
-		donpcevent instance_npcname("oct_boss_foot")+"::OnDisable";
-		stopnpctimer;
-		donpcevent instance_npcname("oct_boss_con")+"::OnDisable";
-		end;
-	}
-	end;
-}
-
-1@cash,4,4,0	script	oct_boss_foot	FAKE_NPC,{
-	end;
-OnInstanceInit:
-	donpcevent instance_npcname("oct_boss_foot")+"::OnDisable";
-	end;
-OnEnable:
-	enablenpc instance_npcname("oct_boss_foot");
-	initnpctimer;
-	end;
-OnCall:
-	.@map$ = instance_mapname("1@cash");
-	if (mobcount(.@map$,instance_npcname("oct_boss_foot")+"::OnMyMobDead") < 100) {
-		switch(rand(2)) {
-		case 0:
-			mapannounce .@map$,"Disgusting Octopus : Do you know how many legs octopus have? It doesn't matter, I have unlimited legs!!",bc_map,"0xFFFF00";
-			areamonster .@map$,192,181,206,195,"Octopus Leg",2193,1,instance_npcname("oct_boss_foot")+"::OnMyMobDead";
-			break;
-		case 1:
-			mapannounce .@map$,"Disgusting Octopus : I...cannot..hold anymore, my babies~ please come out and fight!",bc_map,"0xFFFF00";
-			areamonster .@map$,192,181,206,195,"Octopus's Henchman ",2192,5,instance_npcname("oct_boss_foot")+"::OnMyMobDead";
-			break;
-		}
-	}
-	initnpctimer;
-	end;
-OnTimer10000:
-	stopnpctimer;
-	donpcevent instance_npcname("oct_boss_foot")+"::OnCall";
-	end;
-OnDisable:
-	stopnpctimer;
-	killmonster instance_mapname("1@cash"),instance_npcname("oct_boss_foot")+"::OnMyMobDead"; // Not in official script.
-	disablenpc instance_npcname("oct_boss_foot");
-	end;
-OnMyMobDead:
-	end;
-}
-
-1@cash,198,116,0	script	oct_boss_warp	WARPNPC,2,2,{
-	end;
-OnInstanceInit:
-	disablenpc instance_npcname("oct_boss_warp");
-	end;
-OnTouch:
-	warp instance_mapname("1@cash"),210,172;
-	end;
-}
-
-1@cash,190,208,0	script	oct_exit_1	WARPNPC,2,2,{
-	end;
-OnInstanceInit:
-	disablenpc instance_npcname(strnpcinfo(NPC_NAME));
-	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	WARPNPC,2,2
-// This is never enabled in the official script.
-//1@cash,200,161,0	duplicate(oct_exit_1)	oct_exit_3	WARPNPC,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
diff --git a/npc/re/instances/octopus_cave.txt b/npc/re/instances/octopus_cave.txt
new file mode 100644
index 000000000..71f164ff7
--- /dev/null
+++ b/npc/re/instances/octopus_cave.txt
@@ -0,0 +1,701 @@
+//================= Hercules Script =======================================
+//=       _   _                     _
+//=      | | | |                   | |
+//=      | |_| | ___ _ __ ___ _   _| | ___  ___
+//=      |  _  |/ _ \ '__/ __| | | | |/ _ \/ __|
+//=      | | | |  __/ | | (__| |_| | |  __/\__ \
+//=      \_| |_/\___|_|  \___|\__,_|_|\___||___/
+//================= License ===============================================
+//= This file is part of Hercules.
+//= http://herc.ws - http://github.com/HerculesWS/Hercules
+//=
+//= Copyright (C) 2013-2016  Hercules Dev Team
+//= Copyright (C)  Euphy
+//= Copyright (C)  Muad_Dib
+//=
+//= 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 <http://www.gnu.org/licenses/>.
+//=========================================================================
+//= Octopus Cave
+//================= Description ===========================================
+//= Defeat the Disgusting Octopus.
+//================= Current Version =======================================
+//= 1.1
+//=========================================================================
+
+1@cash	mapflag	src4instance
+
+//== Instance Creation =====================================
+mal_dun01,151,235,5	script	Starfish	4_ASTER,{
+
+	.@party_id = getcharid(1);
+	.@md_name$ = "Octopus Cave";
+
+	if (!.@party_id) {
+		mes("[Starfish]");
+		mes("You alone is powerless, hehe! Better get someone to help you out. Make a party, and come back later.");
+		close;
+	}
+	if (getcharid(0) != getpartyleader(.@party_id, 2)) {
+		mes("[Starfish]");
+		mes("Where is your leader, hehe. I don't talk to some random people. Bring your boss to me.");
+		close;
+	}
+	mes("[Starfish]");
+	mes("I am guarding here, hehe! It is just roughly blocked for now. 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 suffering with some issues, ooh ooh. Something bad happen in this peaceful place, hehe!");
+			next;
+			mes("[Starfish]");
+			mes("Weird looking limbs came out from the hole there, tried to kidnap our lady Starfish. Ooh Ooh.");
+			next;
+			mes("[Starfish]");
+			mes("It seems those limbs belong to that ugly octopus. That monster should be taken care of,\r"
+				"but it's hard for ourselves only to make it happen, hehe.");
+			next;
+			mes("[Starfish]");
+			mes("I want to find someone special, and ask to punish this ugly octopus.\r"
+				"I hope this octopus won't ever harass our lady, hehe.");
+			next;
+			mes("[Starfish]");
+			mes("Go catch that octopus and stick it to this pick. If you bring back the pick,\r"
+				"I will open this gate for a while. You should challenge if you are interested, hehe.");
+			next;
+			break;
+		case 2:
+			.@playtime = questprogress(4197, PLAYTIME);
+			if (.@playtime == 1) {
+				mes("[Starfish]");
+				mes("Octopus is not around now, hehe. Please come back later.");
+				close;
+			}
+			if (.@playtime == 2) erasequest 4197;
+			if (countitem(Octopus_Hunt_Stick)) {
+				.@instance = instance_create(.@md_name$, .@party_id);
+				if (.@instance < 0) {
+					mes("[Starfish]");
+					mesf("Party name is... %s.", getpartyname(.@party_id));
+					mesf("Party leader is... %s.", strcharinfo(PC_NAME));
+					mesf("^0000FF%s^000000, I cannot open now, hehe.", .@md_name$);
+					mes("Now is not the time, please wait.");
+					close;
+				}
+				if (instance_attachmap("1@cash", .@instance) == "") {
+					mesf("^0000FF%s^000000 - Reservation Failed!", .@md_name$);
+					instance_destroy(.@instance);
+					close;
+				}
+				instance_set_timeout(3600, 300, .@instance);
+				instance_init(.@instance);
+
+				mes("[Starfish]");
+				mesf("I will open the gate for a while to ^0000FF%s^000000.", .@md_name$);
+				mes("Please catch that pervert octopus, and come back with it sticked to the pick, hehe.");
+				close;
+			}
+			mes("[Starfish]");
+			mes("Prepare a pick first, so you can thread that octopus with that pick.\r"
+				"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	CLEAR_NPC,{
+	mes("There is a strange entrance blocked roughly with some boards.");
+	next;
+	switch (select("Go in.", "Stop.")) {
+	case 1:
+		if (countitem(Octopus_Hunt_Stick)) {
+			if (has_instance("1@cash") == "") {
+				if (questprogress(4197, PLAYTIME) == 1) {
+					mes("[Starfish]");
+					mes("Ah, now is not the time... Would you come back later? Hehe.");
+					close;
+				}
+				mes("[Starfish]");
+				mes("Shhh... Weird aura is coming from that entrance. Big trouble is waiting, if you go in now.");
+				close;
+			}
+
+			mapannounce("mal_dun01", sprintf(_$("%s party's %s member started to hunt the Octopus!"), getpartyname(getcharid(1)), strcharinfo(PC_NAME)), bc_map, C_SPRINGGREEN);
+			if (!questprogress(4197)) setquest 4197;
+			warp "1@cash", 199, 99;
+			end;
+		}
+		mes("[Starfish]");
+		mes("You should definitely prepare hunting stick if you want to punish the Octopus. 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	HIDDEN_WARP_NPC,4,4,{
+	end;
+OnTouch:
+	donpcevent instance_npcname("oct_enter_broad")+"::OnEnable";
+	specialeffect EF_BASH;
+	disablenpc instance_npcname("oct_enter");
+	end;
+}
+
+1@cash,1,1,0	script	oct_enter_broad	FAKE_NPC,{
+	end;
+OnInstanceInit:
+	donpcevent instance_npcname("oct_enter_broad")+"::OnDisable";
+	end;
+OnEnable:
+	enablenpc instance_npcname("oct_enter_broad");
+	donpcevent instance_npcname("oct_foot_4")+"::OnEnable";
+	donpcevent instance_npcname("oct_mob_con")+"::OnEnable";
+	initnpctimer;
+	end;
+OnDisable:
+	disablenpc instance_npcname("oct_enter_broad");
+	end;
+OnTimer1000:
+	mapannounce(instance_mapname("1@cash"), _("Pervert Octopus : How dare you to come inside of my place!"), bc_map, C_YELLOW);
+	end;
+OnTimer4000:
+	mapannounce(instance_mapname("1@cash"), _("Pervert Octopus : But I blocked all the cave gates!! There is nothing you can do!"), bc_map, C_YELLOW);
+	end;
+OnTimer7000:
+	mapannounce(instance_mapname("1@cash"), _("Pervert Octopus : My juniors~ There is your toy! Play with it~ kakaka"), bc_map, C_YELLOW);
+	stopnpctimer;
+	donpcevent instance_npcname("oct_enter_broad")+"::OnDisable";
+	end;
+}
+
+1@cash,3,3,0	script	oct_foot_4	FAKE_NPC,{
+	end;
+OnInstanceInit:
+	donpcevent instance_npcname("oct_foot_4")+"::OnDisable";
+	end;
+OnEnable:
+	enablenpc instance_npcname("oct_foot_4");
+	donpcevent instance_npcname("oct_foot1")+"::OnEnable";
+	donpcevent instance_npcname("oct_foot2")+"::OnEnable";
+	donpcevent instance_npcname("oct_foot3")+"::OnEnable";
+	donpcevent instance_npcname("oct_foot4")+"::OnEnable";
+	.@map$ = instance_mapname("1@cash");
+	monster(.@map$, 20, 114, _("Octopus Leg#1"), MD_OCTOPUS_LEG, 1, instance_npcname("oct_foot_4")+"::OnMyMobDead");
+	monster(.@map$, 88, 190, _("Octopus Leg#2"), MD_OCTOPUS_LEG, 1, instance_npcname("oct_foot_4")+"::OnMyMobDead");
+	monster(.@map$, 307, 215, _("Octopus Leg#3"), MD_OCTOPUS_LEG, 1, instance_npcname("oct_foot_4")+"::OnMyMobDead");
+	monster(.@map$, 372, 131, _("Octopus Leg#4"), MD_OCTOPUS_LEG, 1, instance_npcname("oct_foot_4")+"::OnMyMobDead");
+	end;
+OnDisable:
+	disablenpc instance_npcname("oct_foot_4");
+	end;
+OnMyMobDead:
+	.@map$ = instance_mapname("1@cash");
+	if (mobcount(.@map$,instance_npcname("oct_foot_4")+"::OnMyMobDead") < 1) {
+		donpcevent instance_npcname("oct_boss_con")+"::OnEnable";
+		mapannounce(.@map$, _("Hey you!! I'll personally take care of you all! Let's bring it on!"), bc_map, C_SPRINGGREEN);
+		enablenpc instance_npcname("oct_boss_warp");
+		instance_warpall .@map$, 199, 99;
+		end;
+	}
+	mapannounce(.@map$, _("Arrgg!! That hurts!!! I need another strategy..."), bc_map, C_SPRINGGREEN);
+	end;
+}
+
+1@cash,20,114,0	script	oct_foot1	HIDDEN_WARP_NPC,6,6,{
+	end;
+OnInstanceInit:
+	donpcevent instance_npcname(strnpcinfo(NPC_NAME))+"::OnDisable";
+	end;
+OnEnable:
+	enablenpc instance_npcname(strnpcinfo(NPC_NAME));
+	.@label$ = instance_npcname(strnpcinfo(NPC_NAME))+"::OnMyMobDead";
+	.@i = atoi(charat(strnpcinfo(NPC_NAME),8));
+	.@map$ = instance_mapname("1@cash");
+	switch (.@i) {
+	case 1:
+		areamonster(.@map$, 34, 96, 38, 100, _("Octopus's Henchman"), MD_OCTOPUS, 3, .@label$);
+		areamonster(.@map$, 39, 90, 41, 92, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 38, 76, 40, 78, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 39, 58, 41, 60, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 50, 38, 56, 44, _("Octopus's Henchman"), MD_OCTOPUS, 5, .@label$);
+		areamonster(.@map$, 68, 32, 72, 36, _("Octopus's Henchman"), MD_OCTOPUS, 5, .@label$);
+		areamonster(.@map$, 83, 26, 85, 28, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 107, 28, 109, 30, _("Octopus's Henchman"), MD_OCTOPUS, 1, .@label$);
+		areamonster(.@map$, 123, 28, 125, 30, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 134, 31, 138, 35, _("Octopus's Henchman"), MD_OCTOPUS, 5, .@label$);
+		areamonster(.@map$, 142, 39, 146, 43, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		break;
+	case 2:
+		areamonster(.@map$, 139, 113, 143, 117, _("Octopus's Henchman"), MD_OCTOPUS, 5, .@label$);
+		areamonster(.@map$, 135, 104, 137, 106, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 123, 93, 127, 97, _("Octopus's Henchman"), MD_OCTOPUS, 3, .@label$);
+		areamonster(.@map$, 113, 90, 115, 92, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 103, 89, 105, 91, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 89, 90, 91,92, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 74, 104, 76, 106, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 74, 120, 76, 122, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 83, 131, 87, 135, _("Octopus's Henchman"), MD_OCTOPUS, 3, .@label$);
+		areamonster(.@map$, 92, 142, 94, 144, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 98, 159, 100, 161, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 94, 180, 98, 184, _("Octopus's Henchman"), MD_OCTOPUS, 5, .@label$);
+		break;
+	case 3:
+		areamonster(.@map$, 299, 209, 303, 213, _("Octopus's Henchman"), MD_OCTOPUS, 3, .@label$);
+		areamonster(.@map$, 292, 203, 296, 207, _("Octopus's Henchman"), MD_OCTOPUS, 3, .@label$);
+		areamonster(.@map$, 291, 186, 293, 188, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 292, 166, 294, 168, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 293, 151, 295, 153, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 299, 137, 303, 141, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 300, 123, 304, 127, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 300, 104, 304, 108, _("Octopus's Henchman"), MD_OCTOPUS, 3, .@label$);
+		areamonster(.@map$, 279, 101, 281, 103, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		monster(.@map$, 260, 103, _("Octopus's Henchman"), MD_OCTOPUS, 1, .@label$);
+		break;
+	case 4:
+		areamonster(.@map$, 363, 123, 367, 127, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 364, 108, 368, 112, _("Octopus's Henchman"), MD_OCTOPUS, 5, .@label$);
+		areamonster(.@map$, 363, 93, 367, 97, _("Octopus's Henchman"), MD_OCTOPUS, 3, .@label$);
+		areamonster(.@map$, 364, 72, 366, 74, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 364, 58, 366, 60, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 355, 44, 359, 48, _("Octopus's Henchman"), MD_OCTOPUS, 3, .@label$);
+		areamonster(.@map$, 346, 36, 350, 40, _("Octopus's Henchman"), MD_OCTOPUS, 3, .@label$);
+		areamonster(.@map$, 319, 28, 325, 34, _("Octopus's Henchman"), MD_OCTOPUS, 5, .@label$);
+		areamonster(.@map$, 305, 27, 307, 29, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		areamonster(.@map$, 276, 29, 280, 33, _("Octopus's Henchman"), MD_OCTOPUS, 5, .@label$);
+		areamonster(.@map$, 258, 37, 262, 41, _("Octopus's Henchman"), MD_OCTOPUS, 2, .@label$);
+		break;
+	}
+	end;
+OnDisable:
+	killmonster instance_mapname("1@cash"), instance_npcname(strnpcinfo(NPC_NAME))+"::OnMyMobDead"; // Not in official script.
+	disablenpc instance_npcname(strnpcinfo(NPC_NAME));
+	end;
+OnTouch:
+	if (getd("."+strnpcinfo(NPC_NAME)+instance_id())) end;
+	setd "."+strnpcinfo(NPC_NAME)+instance_id(),1;
+	hideonnpc instance_npcname(strnpcinfo(NPC_NAME));
+	mapannounce(instance_mapname("1@cash"), _("Come out all my babies and help me out!"), bc_map, C_YELLOW);
+	initnpctimer;
+	end;
+OnTimer5000:
+	.@map$ = instance_mapname("1@cash");
+	mapannounce(.@map$, _("Let's give them a lesson!"), bc_map, C_YELLOW);
+	.@label$ = instance_npcname(strnpcinfo(NPC_NAME))+"::OnMyMobDead";
+	.@i = atoi(charat(strnpcinfo(NPC_NAME),8));
+	switch (.@i) {
+	case 1:
+		areamonster(.@map$, 18, 112, 22,116, _("Octopus's Henchman"), MD_OCTOPUS, 3, .@label$);
+		areamonster(.@map$, 18, 112, 22,116, _("Octopus's Henchman"), MD_OCTOPUS, 3, .@label$);
+		break;
+	case 2:
+		areamonster(.@map$, 86, 188, 90,192, _("Octopus's Henchman"), MD_OCTOPUS, 3, .@label$);
+		areamonster(.@map$, 96, 98, 100,102, _("Octopus's Henchman"), MD_OCTOPUS, 3, .@label$);
+		break;
+	case 3:
+		areamonster(.@map$, 305, 213, 309,217, _("Octopus's Henchman"), MD_OCTOPUS, 3, .@label$);
+		areamonster(.@map$, 305, 213, 309,217, _("Octopus's Henchman"), MD_OCTOPUS, 3, .@label$);
+		break;
+	case 4:
+		areamonster(.@map$, 370, 129, 374,133, _("Octopus's Henchman"), MD_OCTOPUS, 3, .@label$);
+		areamonster(.@map$, 370, 129, 374,133, _("Octopus's Henchman"), MD_OCTOPUS, 3, .@label$);
+		break;
+	}
+	end;
+OnTimer30000:
+	setd "."+strnpcinfo(NPC_NAME)+instance_id(),0;
+	stopnpctimer;
+	.@i = atoi(charat(strnpcinfo(NPC_NAME),8));
+	donpcevent instance_npcname("oct_foot_exit"+.@i)+"::OnEnable";
+	donpcevent instance_npcname(strnpcinfo(NPC_NAME))+"::OnDisable";
+	end;
+OnMyMobDead:
+	.@map$ = instance_mapname("1@cash");
+	if (mobcount(.@map$,instance_npcname(strnpcinfo(NPC_NAME))+"::OnMyMobDead") < 1) {
+		mapannounce(.@map$, _("You hurt my babies!!? You'll have to pay for this!!!"), bc_map, C_SPRINGGREEN);
+		setd "."+strnpcinfo(NPC_NAME)+instance_id(),0;
+		stopnpctimer;
+		.@i = atoi(charat(strnpcinfo(NPC_NAME),8));
+		donpcevent instance_npcname("oct_foot_exit"+.@i)+"::OnEnable";
+		donpcevent instance_npcname(strnpcinfo(NPC_NAME))+"::OnDisable";
+		end;
+	}
+	end;
+}
+1@cash,88,190,0	duplicate(oct_foot1)	oct_foot2	HIDDEN_WARP_NPC,6,6
+1@cash,307,215,0	duplicate(oct_foot1)	oct_foot3	HIDDEN_WARP_NPC,6,6
+1@cash,372,131,0	duplicate(oct_foot1)	oct_foot4	HIDDEN_WARP_NPC,6,6
+
+1@cash,16,117,0	script	oct_foot_exit1	WARPNPC,2,2,{
+	end;
+OnInstanceInit:
+	disablenpc instance_npcname(strnpcinfo(NPC_NAME));
+	end;
+OnEnable:
+	enablenpc instance_npcname(strnpcinfo(NPC_NAME));
+	end;
+OnTouch:
+	warp instance_mapname("1@cash"), 198, 99;
+	end;
+}
+1@cash,77,193,0	duplicate(oct_foot_exit1)	oct_foot_exit2	WARPNPC,2,2
+1@cash,312,214,0	duplicate(oct_foot_exit1)	oct_foot_exit3	WARPNPC,2,2
+1@cash,370,139,0	duplicate(oct_foot_exit1)	oct_foot_exit4	WARPNPC,2,2
+
+1@cash,15,15,0	script	oct_mob_con	FAKE_NPC,{
+	end;
+OnInstanceInit:
+	donpcevent instance_npcname("oct_mob_con")+"::OnDisable";
+	end;
+OnEnable:
+	.@map$ = instance_mapname("1@cash");
+	enablenpc instance_npcname("oct_mob_con");
+	monster(.@map$, 32, 94, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 41, 101, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 35, 78, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 35, 62, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 49, 54, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 70, 28, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 83, 22, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 99, 23, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 115, 23, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 132, 25, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 100, 185, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 92, 178, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 92, 162, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 70, 121, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 70, 105, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 105, 85, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 121, 84, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 292, 209, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 303, 206, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 290, 163, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 299, 150, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 308, 141, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 308, 125, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 295, 97, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 279, 97, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 370, 111, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 370, 110, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 371, 96, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 371, 80, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 367, 55, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 343, 29, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 327, 24, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 311, 22, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 295, 22, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 279, 22, _("Hydra"), HYDRA, 1);
+	areamonster(.@map$, 30, 67, 50, 87,  _("Stapo"), STAPO, 1);
+	areamonster(.@map$, 102, 19, 122, 39,  _("Stapo"), STAPO, 1);
+	areamonster(.@map$, 89, 138, 109, 158,  _("Stapo"), STAPO, 1);
+	areamonster(.@map$, 112, 83, 132, 103,  _("Stapo"), STAPO, 1);
+	areamonster(.@map$, 283, 168, 303, 188,  _("Stapo"), STAPO, 1);
+	areamonster(.@map$, 292, 97, 312, 117,  _("Stapo"), STAPO, 1);
+	areamonster(.@map$, 355, 64, 375, 84,  _("Stapo"), STAPO, 1);
+	areamonster(.@map$, 317, 17, 337, 37,  _("Stapo"), STAPO, 1);
+	donpcevent instance_npcname("oct_backattack1")+"::OnEnable";
+	donpcevent instance_npcname("oct_backattack2")+"::OnEnable";
+	donpcevent instance_npcname("oct_backattack3")+"::OnEnable";
+	donpcevent instance_npcname("oct_backattack4")+"::OnEnable";
+	donpcevent instance_npcname("oct_mob_con")+"::OnDisable";
+	end;
+OnDisable:
+	disablenpc instance_npcname("oct_mob_con");
+	end;
+}
+
+1@cash,45,53,0	script	oct_backattack1	HIDDEN_WARP_NPC,3,3,{
+	end;
+OnInstanceInit:
+	disablenpc instance_npcname("oct_backattack1");
+	end;
+OnTouch:
+	.@map$ = instance_mapname("1@cash");
+	monster(.@map$, 39, 59, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 40, 59, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 41, 59, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 47, 50, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 48, 50, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 49, 50, _("Hydra"), HYDRA, 1);
+	monster(.@map$, 41, 53, _("Octopus's Henchman"), MD_OCTOPUS, 1);
+	mapannounce(.@map$, _("Don't let them break through, stop them!!!"), bc_map, C_SPRINGGREEN);
+	specialeffect EF_BASH;
+	disablenpc instance_npcname("oct_backattack1");
+	end;
+OnEnable:
+	enablenpc instance_npcname("oct_backattack1");
+	end;
+}
+
+1@cash,78,99,0	script	oct_backattack2	HIDDEN_WARP_NPC,3,3,{
+	end;
+OnInstanceInit:
+	disablenpc instance_npcname("oct_backattack2");
+	end;
+OnTouch:
+	if (getd("."+instance_id())) end;
+	setd "."+instance_id(),1;
+	initnpctimer;
+	.@map$ = instance_mapname("1@cash");
+	monster(.@map$, 71, 105, _("Octopus's Henchman"), MD_OCTOPUS, 1);
+	mapannounce(.@map$, _("Headquarters are empty, GO!!!"), bc_map, C_SPRINGGREEN);
+	hideonnpc instance_npcname("oct_backattack2");
+	end;
+OnTimer2000:
+	.@map$ = instance_mapname("1@cash");
+	monster(.@map$, 71, 105, _("Octopus's Henchman"), MD_OCTOPUS, 1);
+	mapannounce(.@map$, _("Run, RUN! Go, GO!!!"), bc_map, C_SPRINGGREEN);
+	end;
+OnTimer4000:
+	.@map$ = instance_mapname("1@cash");
+	monster(.@map$, 71, 105, _("Octopus's Henchman"), MD_OCTOPUS, 1);
+	mapannounce(.@map$, _("No time, come out fast!"), bc_map, C_SPRINGGREEN);
+	end;
+OnTimer6000:
+	.@map$ = instance_mapname("1@cash");
+	monster(.@map$, 71, 105, _("Octopus's Henchman"), MD_OCTOPUS, 3);
+	mapannounce(.@map$, _("Let's take over the headquarters!!!"), bc_map, C_SPRINGGREEN);
+	end;
+OnTimer8000:
+	.@map$ = instance_mapname("1@cash");
+	monster(.@map$, 71, 105, _("Octopus's Henchman"), MD_OCTOPUS, 1);
+	mapannounce(.@map$, _("There is no time to lose, hurry up!!!"), bc_map, C_SPRINGGREEN);
+	stopnpctimer;
+	end;
+OnEnable:
+	enablenpc instance_npcname("oct_backattack2");
+	end;
+}
+
+1@cash,299,144,0	script	oct_backattack3	HIDDEN_WARP_NPC,3,3,{
+	end;
+OnInstanceInit:
+	disablenpc instance_npcname("oct_backattack3");
+	end;
+OnTouch:
+	if (getd("."+instance_id())) end;
+	setd "."+instance_id(),1;
+	.@map$ = instance_mapname("1@cash");
+	monster(.@map$, 293, 153, _("Octopus's Henchman"), MD_OCTOPUS, 1);
+	monster(.@map$, 294, 152, _("Octopus's Henchman"), MD_OCTOPUS, 1);
+	monster(.@map$, 292, 153, _("Octopus's Henchman"), MD_OCTOPUS, 1);
+	monster(.@map$, 293, 151, _("Octopus's Henchman"), MD_OCTOPUS, 1);
+	monster(.@map$, 293, 152, _("Octopus's Henchman ?"), MD_MARSE, 1);
+	mapannounce(.@map$, _("Kakaka! Suprised??!!"), bc_map, C_SPRINGGREEN);
+	initnpctimer;
+	hideonnpc instance_npcname("oct_backattack3");
+	end;
+OnTimer5000:
+	mapannounce(instance_mapname("1@cash"), _("... Looks like we have a spy among us."), bc_map, C_SPRINGGREEN);
+	stopnpctimer;
+	end;
+OnEnable:
+	enablenpc instance_npcname("oct_backattack3");
+	end;
+}
+
+1@cash,336,36,0	script	oct_backattack4	HIDDEN_WARP_NPC,3,3,{
+	end;
+OnInstanceInit:
+	disablenpc instance_npcname("oct_backattack4");
+	end;
+OnTouch:
+	if (getd("."+instance_id())) end;
+	setd "."+instance_id(),1;
+	.@map$ = instance_mapname("1@cash");
+	monster(.@map$, 332, 37, _("Octopus's Henchman"), MD_OCTOPUS, 1);
+	monster(.@map$, 332, 36, _("Octopus's Henchman"), MD_OCTOPUS, 1);
+	monster(.@map$, 332, 35, _("Octopus's Henchman"), MD_OCTOPUS, 1);
+	monster(.@map$, 332, 34, _("Octopus's Henchman"), MD_OCTOPUS, 1);
+	monster(.@map$, 341, 37, _("Octopus's Henchman"), MD_OCTOPUS, 1);
+	monster(.@map$, 341, 36, _("Octopus's Henchman"), MD_OCTOPUS, 1);
+	monster(.@map$, 341, 35, _("Octopus's Henchman"), MD_OCTOPUS, 1);
+	monster(.@map$, 341, 34, _("Octopus's Henchman"), MD_OCTOPUS, 1);
+	monster(.@map$, 260, 40, _("Mercenary Squid"), MD_MARSE, 1);
+	monster(.@map$, 260, 41, _("Mercenary Squid"), MD_MARSE, 1);
+	monster(.@map$, 260, 39, _("Mercenary Squid"), MD_MARSE, 1);
+	monster(.@map$, 259, 40, _("Mercenary Squid"), MD_MARSE, 1);
+	monster(.@map$, 261, 40, _("Mercenary Squid"), MD_MARSE, 1);
+	mapannounce(.@map$, _("What a successful pincer tactic! The enemy is strong! Let's not lose yourselves! Anyway, where are all the mercenaries??"), bc_map, C_SPRINGGREEN);
+	initnpctimer;
+	hideonnpc instance_npcname("oct_backattack4");
+	end;
+OnTimer5000:
+	mapannounce(instance_mapname("1@cash"), _("Mercenary Squid : eh...eh... wrong direction. No enemies are shown in this direction."), bc_map, C_SPRINGGREEN);
+	end;
+OnTimer7000:
+	mapannounce(instance_mapname("1@cash"), _("Pervert Octopus : Fools! Can't you read the map??!! Useless!!"), bc_map, C_SPRINGGREEN);
+	stopnpctimer;
+	end;
+OnEnable:
+	enablenpc instance_npcname("oct_backattack4");
+	end;
+}
+
+1@cash,2,2,0	script	oct_boss_con	FAKE_NPC,{
+	end;
+OnInstanceInit:
+	donpcevent instance_npcname("oct_boss_con")+"::OnDisable";
+	end;
+OnDisable:
+	disablenpc instance_npcname("oct_boss_con");
+	end;
+OnEnable:
+	enablenpc instance_npcname("oct_boss_con");
+	donpcevent instance_npcname("oct_boss_foot")+"::OnEnable";
+	monster(instance_mapname("1@cash"), 199, 188, _("Disgusting Octopus"), MD_GIANT_OCTOPUS, 1, instance_npcname("oct_boss_con")+"::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:
+	mapannounce(instance_mapname("1@cash"), sprintf(_$("Disgusting Octopus : %s"), getarg(rand(3))), bc_map, C_YELLOW);
+	return;
+OnMyMobDead:
+	.@map$ = instance_mapname("1@cash");
+	if (mobcount(.@map$,instance_npcname("oct_boss_con")+"::OnMyMobDead") < 1) {
+		mapannounce(.@map$, _("Disgusting Octopus : That's it for the today! Next time, I will play with you badly!"), bc_map, C_YELLOW);
+		enablenpc instance_npcname("oct_exit_1");
+		enablenpc instance_npcname("oct_exit_2");
+		donpcevent instance_npcname("oct_boss_foot")+"::OnDisable";
+		stopnpctimer;
+		donpcevent instance_npcname("oct_boss_con")+"::OnDisable";
+		end;
+	}
+	end;
+}
+
+1@cash,4,4,0	script	oct_boss_foot	FAKE_NPC,{
+	end;
+OnInstanceInit:
+	donpcevent instance_npcname("oct_boss_foot")+"::OnDisable";
+	end;
+OnEnable:
+	enablenpc instance_npcname("oct_boss_foot");
+	initnpctimer;
+	end;
+OnCall:
+	.@map$ = instance_mapname("1@cash");
+	if (mobcount(.@map$,instance_npcname("oct_boss_foot")+"::OnMyMobDead") < 100) {
+		switch(rand(2)) {
+		case 0:
+			mapannounce(.@map$, _("Disgusting Octopus : Do you know how many legs octopus have? It doesn't matter, I have unlimited legs!!"), bc_map, C_YELLOW);
+			areamonster(.@map$, 192, 181, 206, 195, _("Octopus Leg"), MD_OCTOPUS_LEG, 1, instance_npcname("oct_boss_foot")+"::OnMyMobDead");
+			break;
+		case 1:
+			mapannounce(.@map$, _("Disgusting Octopus : I...cannot..hold anymore, my babies~ please come out and fight!"), bc_map, C_YELLOW);
+			areamonster(.@map$, 192, 181, 206, 195, _("Octopus's Henchman"), MD_OCTOPUS, 5, instance_npcname("oct_boss_foot")+"::OnMyMobDead");
+			break;
+		}
+	}
+	initnpctimer;
+	end;
+OnTimer10000:
+	stopnpctimer;
+	donpcevent instance_npcname("oct_boss_foot")+"::OnCall";
+	end;
+OnDisable:
+	stopnpctimer;
+	killmonster instance_mapname("1@cash"), instance_npcname("oct_boss_foot")+"::OnMyMobDead"; // Not in official script.
+	disablenpc instance_npcname("oct_boss_foot");
+	end;
+OnMyMobDead:
+	end;
+}
+
+1@cash,198,116,0	script	oct_boss_warp	WARPNPC,2,2,{
+	end;
+OnInstanceInit:
+	disablenpc instance_npcname("oct_boss_warp");
+	end;
+OnTouch:
+	warp instance_mapname("1@cash"), 210, 172;
+	end;
+}
+
+1@cash,190,208,0	script	oct_exit_1	WARPNPC,2,2,{
+	end;
+OnInstanceInit:
+	disablenpc instance_npcname(strnpcinfo(NPC_NAME));
+	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	WARPNPC,2,2
+// This is never enabled in the official script.
+//1@cash,200,161,0	duplicate(oct_exit_1)	oct_exit_3	WARPNPC,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
diff --git a/npc/re/scripts.conf b/npc/re/scripts.conf
index 55b5066de..8529e7b31 100644
--- a/npc/re/scripts.conf
+++ b/npc/re/scripts.conf
@@ -91,7 +91,7 @@
 "npc/re/instances/ghost_palace.txt",
 "npc/re/instances/HazyForest.txt",
 "npc/re/instances/MalangdoCulvert.txt",
-"npc/re/instances/OctopusCave.txt",
+"npc/re/instances/octopus_cave.txt",
 "npc/re/instances/OldGlastHeim.txt",
 "npc/re/instances/saras_memory.txt",
 "npc/re/instances/WolfchevLaboratory.txt",