Update Intro (Renewal) (#1427)

* Update Intro (Renewal)
- Conversion while Playing from kRO
- New starting Map: iz_int 18 27 (Requires New kRO MAP)
- iz_int01 - iz_int04 and int_land01 - int_land04 are added, but not used
- the rest of the script was updated to latest script standards
- x/y span for duplicates with OnTouch
- Fixed wrong getarg
- removed +"" in warp

1 files changed, 75 insertions, 15 deletions

diff --git a/npc/re/warps/cities/izlude.txt b/npc/re/warps/cities/izlude.txt
index a8062d578..0fb3b1f86 100644
--- a/npc/re/warps/cities/izlude.txt
+++ b/npc/re/warps/cities/izlude.txt
@@ -9,7 +9,8 @@
 //= This file is part of Hercules.
 //= http://herc.ws - http://github.com/HerculesWS/Hercules
 //=
-//= Copyright (C) 2012-2015  Hercules Dev Team
+//= Copyright (C) 2012-2016  Hercules Dev Team
+//= Copyright (C)  Ridley
 //= Copyright (C)  Euphy
 //= Copyright (C)  Streusel
 //= Copyright (C)  Masao
@@ -72,6 +73,79 @@ izlude_b,52,172,0	warp	iz04_b	2,2,izlude_in,74,161
 izlude_c,52,172,0	warp	iz04_c	2,2,izlude_in,74,161
 izlude_d,52,172,0	warp	iz04_d	2,2,izlude_in,74,161
 
+//= iz_int(Intro) & int_land(Secluded Island) ================
+iz_int,27,30,0	script	noviship#room1-1	WARPNPC,2,2,{
+	end;
+
+OnTouch:
+	warp(strnpcinfo(NPC_MAP), 51, 30);
+	end;
+
+OnInit:
+	questinfo(21001, QTYPE_QUEST, 1, Job_Novice);
+}
+
+iz_int,47,30,3	script	noviship#room1-2	WARPNPC,2,2,{
+	end;
+
+OnTouch:
+	@display = 0;
+	warp(strnpcinfo(NPC_MAP), 22, 30);
+	end;
+}
+
+iz_int,56,15,0	script	noviship	WARPNPC,2,2,{
+	end;
+
+OnTouch:
+	savepoint("int_land"+strnpcinfo(NPC_NAME_HIDDEN), 77, 101);
+	warp("int_land"+strnpcinfo(NPC_NAME_HIDDEN), 85, 107);
+}
+
+int_land,49,57,0	script	noviship#izlude	WARPNPC,2,2,{
+	end;
+
+OnTouch:
+	mes "^4d4dffOnce you left this island there is no way back.";
+	mes "Are you sure you want to go directly to Izlude?^000000";
+	next;
+	mes "^4d4dffIf you do, the quest got deleted from your Quest Log.^000000";
+	next;
+	if (select("Do not go to Izlude yet", "Sail to Izlude!") == 1) {
+		mes "[Sailor]";
+		mes "You want to stay here longer?";
+		mes "Good, then I wait until you're ready~";
+		close();
+	}
+	mes "[Sailor]";
+	mes "Lets head toward Izlude!";
+	close2;
+	if (questprogress(21001))
+		erasequest 21001;
+	if (questprogress(21002))
+		erasequest 21002;
+	warp("izlude"+strnpcinfo(NPC_NAME_HIDDEN), 196, 209);
+	end;
+}
+
+//= iz_int(Intro) & int_land(Secluded Island) Duplicates =====
+iz_int01,27,30,0	duplicate(noviship#room1-1)	noviship#room1-1a	WARPNPC,2,2
+iz_int02,27,30,0	duplicate(noviship#room1-1)	noviship#room1-1b	WARPNPC,2,2
+iz_int03,27,30,0	duplicate(noviship#room1-1)	noviship#room1-1c	WARPNPC,2,2
+iz_int04,27,30,0	duplicate(noviship#room1-1)	noviship#room1-1d	WARPNPC,2,2
+iz_int01,47,30,0	duplicate(noviship#room1-2)	noviship#room1-2a	WARPNPC,2,2
+iz_int02,47,30,0	duplicate(noviship#room1-2)	noviship#room1-2b	WARPNPC,2,2
+iz_int03,47,30,0	duplicate(noviship#room1-2)	noviship#room1-2c	WARPNPC,2,2
+iz_int04,47,30,0	duplicate(noviship#room1-2)	noviship#room1-2d	WARPNPC,2,2
+iz_int01,56,15,0	duplicate(noviship)	noviship#01	WARPNPC,2,2
+iz_int02,56,15,0	duplicate(noviship)	noviship#02	WARPNPC,2,2
+iz_int03,56,15,0	duplicate(noviship)	noviship#03	WARPNPC,2,2
+iz_int04,56,15,0	duplicate(noviship)	noviship#04	WARPNPC,2,2
+int_land01,49,57,0	duplicate(noviship#izlude)	noviship#_a	WARPNPC,2,2
+int_land02,49,57,0	duplicate(noviship#izlude)	noviship#_b	WARPNPC,2,2
+int_land03,49,57,0	duplicate(noviship#izlude)	noviship#_c	WARPNPC,2,2
+int_land04,49,57,0	duplicate(noviship#izlude)	noviship#_d	WARPNPC,2,2
+
 //= Izlude Academy ===========================================
 izlude,125,257,0	warp	#to_ac01	2,2,iz_ac01,99,29
 izlude,130,257,0	warp	#to_ac02	2,2,iz_ac01,99,29
@@ -82,20 +156,6 @@ iz_ac02,94,27,0	warp	#to_ac1f01	2,2,iz_ac01,78,28
 iz_ac02,113,27,0	warp	#to_ac1f02	2,2,iz_ac01,122,28
 new_1-3,96,176,0	warp	#to_ac01-2	1,1,iz_ac01,49,73
 
-iz_int,96,73,0	script	iz_int_iz	WARPNPC,2,2,{
-	end;
-
-	OnTouch:
-		savepoint "izlude", 128, 98;
-		warp "izlude"+strnpcinfo(NPC_NAME_HIDDEN)+"", 195, 209;
-		end;
-}
-
-iz_int01,96,73,0	duplicate(iz_int_iz)	iz_int_iz#_a	WARPNPC,2,2
-iz_int02,96,73,0	duplicate(iz_int_iz)	iz_int_iz#_b	WARPNPC,2,2
-iz_int03,96,73,0	duplicate(iz_int_iz)	iz_int_iz#_c	WARPNPC,2,2
-iz_int04,96,73,0	duplicate(iz_int_iz)	iz_int_iz#_d	WARPNPC,2,2
-
 //= Izlude Academy Duplicates ================================
 izlude_a,125,257,0	warp	#to_ac01_a	2,2,iz_ac01_a,99,29
 izlude_b,125,257,0	warp	#to_bc01_b	2,2,iz_ac01_b,99,29