Updates I made since ta-testing repo was closed: minor fix to Hurnsald warps and entrances, plus additions for the crypt quest.

4 files changed, 154 insertions, 116 deletions

diff --git a/npc/027-2_Caretakers_House/_import.txt b/npc/027-2_Caretakers_House/_import.txt
index cc783991..e288d6cb 100644
--- a/npc/027-2_Caretakers_House/_import.txt
+++ b/npc/027-2_Caretakers_House/_import.txt
@@ -4,4 +4,4 @@ npc: npc/027-2_Caretakers_House/_warps.txt
 npc: npc/027-2_Caretakers_House/caretaker.txt

 npc: npc/027-2_Caretakers_House/alacrius.txt

 npc: npc/027-2_Caretakers_House/gy_inn_shops.txt

-npc: npc/027-2_Caretakers_House/testnpcs.txt

+npc: npc/027-2_Caretakers_House/testnpcs.txt
\ No newline at end of file
diff --git a/npc/027-2_Caretakers_House/_warps.txt b/npc/027-2_Caretakers_House/_warps.txt
index bf9c47ac..c1bfeb92 100644
--- a/npc/027-2_Caretakers_House/_warps.txt
+++ b/npc/027-2_Caretakers_House/_warps.txt
@@ -8,7 +8,9 @@
 
 027-2.gat,127,35,0	warp	ToInnSecondFloorL	-1,-1,027-2.gat,75,92
 027-2.gat,128,35,0	warp	ToInnSecondFloorR	-1,-1,027-2.gat,76,92
-027-2.gat,106,46,0	warp	ToTulimshar	1,-1,001-1.gat,27,72
+027-2.gat,106,46,0	warp	GYInnExit	1,-1,debugroom.gat,30,27
+
+027-2.gat,111,37,0	warp	ToReaper	1,-1,027-4.gat,40,38
 
 
 
diff --git a/npc/027-2_Caretakers_House/alacrius.txt b/npc/027-2_Caretakers_House/alacrius.txt
index a48a64aa..eee471ad 100755
--- a/npc/027-2_Caretakers_House/alacrius.txt
+++ b/npc/027-2_Caretakers_House/alacrius.txt
@@ -1,117 +1,40 @@
 // Starts the reaper quest

-// NOTE: just a copy paste of kastor's script. It hasnt been tested and needs a major reworking.

-

 

 027-2.gat,104,39,0	script	Alacrius	313,{

-	if ($@FIGHT_ALACRIUS_STATUS != 0) goto L_Enjoy;

-

-

-   mes "[ALACRIUS]";

-   mes "\"Hello, I'm Alacrius. \"";

-   next;

-   mes "[ALACRIUS]";

-   mes "\"Very long time ago, i figured a way to cheat the death and the limits of time and space. You may think it actually is evil, but I made it because of true love... \"";

-   next;

-   mes "[ALACRIUS]";

-   mes "\"The reaper kidnapped my beloved wife, and took her to the underworld, so I had to find a way to stop him, and as time went by, I became what you can see now... But if you dare to cheat death, time and space you'll have to pay a high price... \"";

-   next;

-

-   mes "[ALACRIUS]";

-   mes "\"Being away from the time and space doesn't allow me to try to save my beloved wife... I need your help, do you think you have what it takes to handle the most powerful monsters over the world of Mana? \"";

-   next;

-

-   menu   

-      "Let's go",L_PLAY_OK,

-      "No thank you",-;

-   close;

-

-

-L_PLAY_OK:

-

-   if ($@FIGHT_ALACRIUS_STATUS != 0) goto L_AlreadyStarted;

-   set $@FIGHT_ALACRIUS_STATUS, 1;

-   set $@MO_REAPER, 0;

-   startnpctimer;

-   set @PRIZE, 1;

-

-   goto L_Exit;

-

-L_Enjoy:

-   if ($@MO_REAPER == 1) goto L_AllDead;

-   mes "[ALACRIUS]";

-   mes "\"...Please hurry up, the time is running...\"";

-   goto L_Exit;

-

-L_AlreadyStarted:

-   mes "[ALACRIUS]";

-   mes "\"The Reaper is alive.\"";

-   goto L_Exit;

-

-L_Exit:

-   close;

-   end;

-

-

-// Time to fight

-OnTimer10000:

-

-        monster "027-2.gat",0,0,"Hunter Quest1",1003,1,"Alacrius::OnDeadReaper";

-        monster "027-2.gat",0,0,"Hunter Quest2",1002,6,"Alacrius::OnDeadLost";

-   

-   end;

-

-OnDeadReaper:

-        set $@MO_REAPER, $@MO_REAPER + 1;

-   killmonster "027-2.gat","All";

-        end;

-

-OnDeadLost:

-   set $@MO_LOST, $@MO_LOST + 1;

-        end;

-

-

-OnTimer120000:

-

-        set $@MO_REAPER,0;

-   set $@FIGHT_ALACRIUS_STATUS, 0;

-   killmonster "027-2.gat","All";

-   stopnpctimer;

-   setnpctimer 0;

-   set @PRIZE, 0;

-   npctalk "Oh my beloved wife, you could not have been rescued! I will have to purge my mistakes again...";

-   npctalk "Please, help my beloved wife!!";

-

-   end;

-

-OnDead:

-   end;

-

-

-L_AllDead:

-   if(@PRIZE == 0) goto L_NOHERO;

-

-   getinventorylist;

-   if (@inventorylist_count == 100) goto L_TooMany;

-   getitem "CasinoCoins", 1;

-

-        mes "[ALACRIUS]";

-   mes "Thank you very much, you saved my love!! Here you are, a prize according to the dangers you've been exposed to.";

-   set @PRIZE , 0;

-        set $@MO_REAPER,0;

-   close;

-        end;

-

-L_TooMany:

-        mes "[ALACRIUS]";

-   mes "You have no room for the reward.";

-   close;

-

-L_NOHERO:

-        mes "[ALACRIUS]";

-   mes "Sorry, but you didn't save my love... Try it again when you're ready...";

-   close;

-        end;

-OnInit:

-   		initnpctimer;

-   stopnpctimer;

-}
\ No newline at end of file
+    // if started, go to started

+    // if fail go to failed

+    // if complete go to complete

+    // if cooldown go to cooldown

+

+// start quest section

+    mes "hi want to fight the reaper?";

+    menu   

+    "Let's go",L_START,

+    "No thank you",-;

+    close;

+

+L_START:

+    monster "027-4.gat",40,55,"Reaper Quest",1111,1,"Reaper::OnDead";

+	enablenpc "#gatecontrol";

+    enablenpc "#closedgate";

+    disablenpc "#opengate";

+// Open doors to reaper level

+    warp "027-3.gat",41,70;

+    initnpctimer;

+    close;

+

+// 5 min mark for testing purposes, up it when finished.

+OnTimer300000:

+    mapwarp "027-3.gat", "027-2.gat",104,41;

+    mapwarp "027-4.gat", "027-2.gat",104,41;

+    killmonsterall "027-4.gat";

+    end;

+OnTimer301000:

+    npctalk "You have failed the mission";

+    end;

+

+// cooldown before the quest can be restarted

+OnTimer360000:

+    // set quest var

+    end;

+}

diff --git a/npc/027-2_Caretakers_House/alacrius2.txt b/npc/027-2_Caretakers_House/alacrius2.txt
new file mode 100755
index 00000000..70cf0c42
--- /dev/null
+++ b/npc/027-2_Caretakers_House/alacrius2.txt
@@ -0,0 +1,113 @@
+// Starts the reaper quest

+

+027-2.gat,104,39,0	script	Alacrius	313,{

+	if ($@FIGHT_ALACRIUS_STATUS != 0) goto L_Enjoy;

+

+

+   mes "[ALACRIUS]";

+   mes "\"Hello, I'm Alacrius. \"";

+   next;

+   mes "[ALACRIUS]";

+   mes "\"Very long time ago, i figured a way to cheat the death and the limits of time and space. You may think it actually is evil, but I made it because of true love... \"";

+   next;

+   mes "[ALACRIUS]";

+   mes "\"The reaper kidnapped my beloved wife, and took her to the underworld, so I had to find a way to stop him, and as time went by, I became what you can see now... But if you dare to cheat death, time and space you'll have to pay a high price... \"";

+   next;

+

+   mes "[ALACRIUS]";

+   mes "\"Being away from the time and space doesn't allow me to try to save my beloved wife... I need your help, do you think you have what it takes to handle the most powerful monsters over the world of Mana? \"";

+   next;

+

+   menu   

+      "Let's go",L_PLAY_OK,

+      "No thank you",-;

+   close;

+

+

+L_PLAY_OK:

+

+   if ($@FIGHT_ALACRIUS_STATUS != 0) goto L_AlreadyStarted;

+   set $@FIGHT_ALACRIUS_STATUS, 1;

+   set $@MO_REAPER, 0;

+   startnpctimer;

+   set @PRIZE, 1;

+

+   goto L_Exit;

+

+L_Enjoy:

+   if ($@MO_REAPER == 1) goto L_AllDead;

+   mes "[ALACRIUS]";

+   mes "\"...Please hurry up, the time is running...\"";

+   goto L_Exit;

+

+L_AlreadyStarted:

+   mes "[ALACRIUS]";

+   mes "\"The Reaper is alive.\"";

+   goto L_Exit;

+

+L_Exit:

+   close;

+   end;

+

+

+// Time to fight

+OnTimer10000:

+

+        monster "027-2.gat",0,0,"Reaper Quest",1111,1,"Alacrius::OnDeadReaper";   

+   end;

+

+OnDeadReaper:

+        set $@MO_REAPER, $@MO_REAPER + 1;

+   killmonster "027-2.gat","All";

+        end;

+

+OnDeadLost:

+   set $@MO_LOST, $@MO_LOST + 1;

+        end;

+

+

+OnTimer120000:

+

+        set $@MO_REAPER,0;

+   set $@FIGHT_ALACRIUS_STATUS, 0;

+   killmonster "027-2.gat","All";

+   stopnpctimer;

+   setnpctimer 0;

+   set @PRIZE, 0;

+   npctalk "Oh my beloved wife, you could not have been rescued! I will have to purge my mistakes again...";

+   npctalk "Please, help my beloved wife!!";

+

+   end;

+

+OnDead:

+   end;

+

+

+L_AllDead:

+   if(@PRIZE == 0) goto L_NOHERO;

+

+   getinventorylist;

+   if (@inventorylist_count == 100) goto L_TooMany;

+   getitem "CasinoCoins", 1;

+

+        mes "[ALACRIUS]";

+   mes "Thank you very much, you saved my love!! Here you are, a prize according to the dangers you've been exposed to.";

+   set @PRIZE , 0;

+        set $@MO_REAPER,0;

+   close;

+        end;

+

+L_TooMany:

+        mes "[ALACRIUS]";

+   mes "You have no room for the reward.";

+   close;

+

+L_NOHERO:

+        mes "[ALACRIUS]";

+   mes "Sorry, but you didn't save my love... Try it again when you're ready...";

+   close;

+        end;

+OnInit:

+   		initnpctimer;

+   stopnpctimer;

+}
\ No newline at end of file