Add #23 (ship indoor).

4 files changed, 142 insertions, 0 deletions

diff --git a/npc/001-2-23/_import.txt b/npc/001-2-23/_import.txt
new file mode 100644
index 00000000..bff75ce4
--- /dev/null
+++ b/npc/001-2-23/_import.txt
@@ -0,0 +1,4 @@
+// Map 001-2-23: La Johanne, Hold
+npc: npc/001-2-23/doors.txt
+npc: npc/001-2-23/mapflags.txt
+npc: npc/001-2-23/ratto.txt
diff --git a/npc/001-2-23/doors.txt b/npc/001-2-23/doors.txt
new file mode 100644
index 00000000..ac0e5f61
--- /dev/null
+++ b/npc/001-2-23/doors.txt
@@ -0,0 +1,69 @@
+// Evol scripts.
+// Authors:
+//    Ablu
+//    Alastrim
+//    Reid
+// Description:
+//    Doors NPCs.
+
+001-2-23,48,29,0	script	DoorUpwards	32767,0,0,{
+
+OnTouch:
+    if (mobcount("001-2-23.gat","all") > 0) goto L_Warn;
+
+    goto L_Warp;
+
+L_Warn:
+    .@q = getq(ShipQuests_Peter);
+    if (.@q == 5) goto L_Warp;
+
+    mesn "Narrator";
+    mes col(l("There are still some rattos left! Do you want to abort the quest?"), 9);
+    next;
+
+    menu
+        l("Yes."), L_Warp,
+        l("No."), -;
+
+    warp "001-2-23", 48, 28;
+    closedialog;
+    close;
+
+L_Warp:
+    warp "001-2-23", 72, 36;
+    closedialog;
+    close;
+}
+
+001-2-23,24,31,0	script	LeftDoor	32767,0,0,{
+
+OnTouch:
+    mesn "Narrator";
+    mes col(l("It seems that you need a key to open this door."), 9);
+    next;
+    mes col(l("What do you want to do?"), 9);
+    next;
+
+    menu
+        rif(countitemcolor("JohanneKey") > 0, l("Use the key.")), L_Warp,
+        l("Break the door."), L_Break,
+        l("Go away."), -;
+
+    closedialog;
+    close;
+
+L_Break:
+
+    mes "";
+    mesn "Narrator";
+    mes col(l("You hear a loud scream. It must be the creaking of the wooden door..."), 9);
+
+    close;
+
+L_Warp:
+    mes "";
+    mesn "Narrator";
+    mes col(l("Wait, it seems someone is blocking the door from the other side!"), 9);
+
+    close;
+}
diff --git a/npc/001-2-23/mapflags.txt b/npc/001-2-23/mapflags.txt
new file mode 100644
index 00000000..2a33c188
--- /dev/null
+++ b/npc/001-2-23/mapflags.txt
@@ -0,0 +1 @@
+001-2-23	mapflag	nosave	001-2-22,61,36
diff --git a/npc/001-2-23/ratto.txt b/npc/001-2-23/ratto.txt
new file mode 100644
index 00000000..5f42a802
--- /dev/null
+++ b/npc/001-2-23/ratto.txt
@@ -0,0 +1,68 @@
+// Evol scripts.
+// Authors:
+//    Ablu
+//    Alastrim
+//    Reid
+// Description:
+//    Ratto killer.
+
+// $@ARTIS_RAT1_CONTROL array explanation:
+// [1] = Shows status of ratto number 1 (1 is dead and 0 is alive).
+// [2] = Shows status of ratto number 2 (1 is dead and 0 is alive).
+// [3] = Shows status of ratto number 3 (1 is dead and 0 is alive).
+// [4] = Shows status of ratto number 4 (1 is dead and 0 is alive).
+// [5] = Shows how many seconds passed since ratto number 1 died.
+// [6] = Shows how many seconds passed since ratto number 2 died.
+// [7] = Shows how many seconds passed since ratto number 3 died.
+// [8] = Shows how many seconds passed since ratto number 4 died.
+// [9] = Shows how many seconds passed since the player started the quest.
+
+001-2-23,47,30,0	script	RattosControl	32767,{
+
+OnSpawn:
+    areamonster "001-2-23.gat", 23, 19, 50, 40, "Ratto", 1005, 1, "RattosControl::OnRatto1Death";
+    areamonster "001-2-23.gat", 23, 19, 50, 40, "Ratto", 1005, 1, "RattosControl::OnRatto2Death";
+    areamonster "001-2-23.gat", 23, 19, 50, 40, "Ratto", 1005, 1, "RattosControl::OnRatto3Death";
+    areamonster "001-2-23.gat", 23, 19, 50, 40, "Ratto", 1005, 1, "RattosControl::OnRatto4Death";
+    close;
+
+OnRatto1Respawn:
+    areamonster "001-2-23.gat", 23, 19, 50, 40, "Ratto", 1005, 1, "RattosControl::OnRatto1Death";
+    $@ARTIS_RAT1_CONTROL[1] = 0;
+    $@ARTIS_RAT1_CONTROL[5] = 0;
+    end;
+
+OnRatto2Respawn:
+    areamonster "001-2-23.gat", 23, 19, 50, 40, "Ratto", 1005, 1, "RattosControl::OnRatto2Death";
+    $@ARTIS_RAT1_CONTROL[2] = 0;
+    $@ARTIS_RAT1_CONTROL[6] = 0;
+    end;
+
+OnRatto3Respawn:
+    areamonster "001-2-23.gat", 23, 19, 50, 40, "Ratto", 1005, 1, "RattosControl::OnRatto3Death";
+    $@ARTIS_RAT1_CONTROL[3] = 0;
+    $@ARTIS_RAT1_CONTROL[7] = 0;
+    end;
+
+OnRatto4Respawn:
+    areamonster "001-2-23.gat", 23, 19, 50, 40, "Ratto", 1005, 1, "RattosControl::OnRatto4Death";
+    $@ARTIS_RAT1_CONTROL[4] = 0;
+    $@ARTIS_RAT1_CONTROL[8] = 0;
+    end;
+
+OnRatto1Death:
+    $@ARTIS_RAT1_CONTROL[1] = 1;
+    end;
+
+OnRatto2Death:
+    $@ARTIS_RAT1_CONTROL[2] = 1;
+    end;
+
+OnRatto3Death:
+    $@ARTIS_RAT1_CONTROL[3] = 1;
+    end;
+
+OnRatto4Death:
+    $@ARTIS_RAT1_CONTROL[4] = 1;
+    end;
+}