Changes Rossy's quest storyline for the cave battle.

4 files changed, 375 insertions, 139 deletions

diff --git a/npc/025-1/barrier.txt b/npc/025-1/barrier.txt
index 940eeb56..61a9bc5f 100644
--- a/npc/025-1/barrier.txt
+++ b/npc/025-1/barrier.txt
@@ -1,7 +1,7 @@
 //
 025-1.gat,42,79,0	script	#JuliaBarrier	127,1,1,{
   if (Rossy_Quest <= 13) goto L_Block;
-  if (@Alrd_Been != 1 || Rossy_Quest == 14) message strcharinfo(0), "You hear distant screams of fear.";
+  if (@Alrd_Been != 1 && Rossy_Quest == 14) message strcharinfo(0), "You hear distant screams of fear.";
   set @Alrd_Been, 1;
   warp "025-3.gat", 112, 97;
   end;
diff --git a/npc/025-3/barriers.txt b/npc/025-3/barriers.txt
index bac28c8a..11d2255c 100644
--- a/npc/025-3/barriers.txt
+++ b/npc/025-3/barriers.txt
@@ -1,11 +1,10 @@
 // -----------------------------------Warp to Cave 1 ---------------------------------------
 
-025-3.gat,78,127,0	script	#WarpBattleCave1	127,1,1,{
+025-3.gat,78,127,0	script	#WarpBattleCave1	45,1,1,{
 
-  if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
-// Check if someone is already inside. Change the x1, y1, x2, y2 values according to the place the player will be warped
+    if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
     if (getareausers("025-4.gat", 26, 63, 60, 97) >= 1) goto L_SomeoneInside;
-// Check if you already done this fight
+    if ($@timercontrol1 != 0) goto L_Wait;
     if (cavefights & BATTLE_CAVE1) goto L_AlreadyDone;
     if (Rossy_Quest < 15) goto L_Block;
 
@@ -16,13 +15,17 @@ L_StartFight:
     set $@cave1fighterdeaths, PC_DIE_COUNTER;
     startnpctimer;
     set $@cave1start, gettimetick(2);
-    message strcharinfo(0), "As you enter, you feel evil forces filling up this cave.";
+    message strcharinfo(0), "As you enter, you feel an evil force filling up the cave.";
     end;
 
 L_SomeoneInside:
-    message strcharinfo(0), $@cave1fighter$ + " is already inside.";
+    message strcharinfo(0), $@cave1fighter$ + " is already inside. The cave seems to be blocked.";
     end;
 
+L_Wait:
+    message strcharinfo(0), "Someone just got out of the cave, but it is still blocked. I should try to enter again.";
+    end;
+    
 L_AlreadyDone:
     message strcharinfo(0), "I already defeated the monsters in this cave.";
     end;
@@ -86,6 +89,7 @@ L_CleaningNorid:
     end;
 
 L_AlreadyClean:
+    set $@timercontrol1, 0;
     stopnpctimer;
     setnpctimer 0;    
     end;
@@ -94,12 +98,11 @@ L_AlreadyClean:
 
 // ---------------------------- Warp to Cave 2 ----------------------------
 
-025-3.gat,53,107,0	script	#WarpBattleCave2	127,1,1,{
+025-3.gat,53,107,0	script	#WarpBattleCave2	45,1,1,{
 
-  if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
-// Check if someone is already inside. Change the x1, y1, x2, y2 values according to the place the player will be warped
+    if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
     if (getareausers("025-4.gat", 97, 62, 126, 96) >= 1) goto L_SomeoneInside;
-// Check if you already done this fight
+    if ($@timercontrol2 != 0) goto L_Wait;
     if (cavefights & BATTLE_CAVE2) goto L_AlreadyDone;
     if (Rossy_Quest < 15) goto L_Block;
 
@@ -110,15 +113,15 @@ L_StartFight:
     set $@cave2fighterdeaths, PC_DIE_COUNTER;
     startnpctimer;
     set $@cave2start, gettimetick(2);
-    message strcharinfo(0), "As you enter, you feel evil forces filling up this cave.";
+    message strcharinfo(0), "As you enter, you feel an evil force filling up the cave.";
     end;
 
 L_SomeoneInside:
-    message strcharinfo(0), $@cave2fighter$ + " is already inside.";
+    message strcharinfo(0), $@cave2fighter$ + " is already inside. The cave seems to be blocked.";
     end;
 
-L_AlreadyDone:
-    message strcharinfo(0), "I already defeated the monsters in this cave.";
+L_Wait:
+    message strcharinfo(0), "Someone just got out of the cave, but it is still blocked. I should try to enter again.";
     end;
 
 L_AlreadyHelped:
@@ -180,6 +183,7 @@ L_CleaningNorid:
     end;
 
 L_AlreadyClean:
+    set $@timercontrol2, 0;
     stopnpctimer;
     setnpctimer 0;    
     end;
@@ -187,12 +191,11 @@ L_AlreadyClean:
 
 // --------------------------------- Warp to Cave 3 ----------------------------------------
 
-025-3.gat,71,83,0	script	#WarpBattleCave3	127,1,1,{
+025-3.gat,71,83,0	script	#WarpBattleCave3	45,1,1,{
 
-  if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
-// Check if someone is already inside. Change the x1, y1, x2, y2 values according to the place the player will be warped
+    if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
     if (getareausers("025-4.gat", 150, 84, 177, 117) >= 1) goto L_SomeoneInside;
-// Check if you already done this fight
+    if ($@timercontrol3 != 0) goto L_Wait;
     if (cavefights & BATTLE_CAVE3) goto L_AlreadyDone;
     if (Rossy_Quest < 15) goto L_Block;
 
@@ -203,11 +206,15 @@ L_StartFight:
     set $@cave3fighterdeaths, PC_DIE_COUNTER;
     startnpctimer;
     set $@cave3start, gettimetick(2);
-    message strcharinfo(0), "As you enter, you feel evil forces filling up this cave.";
+    message strcharinfo(0), "As you enter, you feel an evil force filling up the cave.";
     end;
 
 L_SomeoneInside:
-    message strcharinfo(0), $@cave3fighter$ + " is already inside.";
+    message strcharinfo(0), $@cave3fighter$ + " is already inside. The cave seems to be blocked.";
+    end;
+
+L_Wait:
+    message strcharinfo(0), "Someone just got out of the cave, but it is still blocked. I should try to enter again.";
     end;
 
 L_AlreadyDone:
@@ -273,6 +280,7 @@ L_CleaningNorid:
     end;
 
 L_AlreadyClean:
+    set $@timercontrol3, 0;
     stopnpctimer;
     setnpctimer 0;    
     end;
@@ -280,12 +288,11 @@ L_AlreadyClean:
 
 // --------------------------- Warp to Cave 4 --------------------------------------
 
-025-3.gat,80,83,0	script	#WarpBattleCave4	127,1,1,{
+025-3.gat,80,83,0	script	#WarpBattleCave4	45,1,1,{
 
-  if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
-// Check if someone is already inside. Change the x1, y1, x2, y2 values according to the place the player will be warped
+    if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
     if (getareausers("025-4.gat", 28, 124, 57, 156) >= 1) goto L_SomeoneInside;
-// Check if you already done this fight
+    if ($@timercontrol4 != 0) goto L_Wait;
     if (cavefights & BATTLE_CAVE4) goto L_AlreadyDone;
     if (Rossy_Quest < 15) goto L_Block;
 
@@ -296,11 +303,15 @@ L_StartFight:
     set $@cave4fighterdeaths, PC_DIE_COUNTER;
     startnpctimer;
     set $@cave4start, gettimetick(2);
-    message strcharinfo(0), "As you enter, you feel evil forces filling up this cave.";
+    message strcharinfo(0), "As you enter, you feel an evil force filling up the cave.";
     end;
 
 L_SomeoneInside:
-    message strcharinfo(0), $@cave4fighter$ + " is already inside.";
+    message strcharinfo(0), $@cave4fighter$ + " is already inside. The cave seems to be blocked.";
+    end;
+
+L_Wait:
+    message strcharinfo(0), "Someone just got out of the cave, but it is still blocked. I should try to enter again.";
     end;
 
 L_AlreadyDone:
@@ -366,6 +377,7 @@ L_CleaningNorid:
     end;
 
 L_AlreadyClean:
+    set $@timercontrol4, 0;
     stopnpctimer;
     setnpctimer 0;    
     end;
@@ -373,12 +385,11 @@ L_AlreadyClean:
 
 // --------------------------- Warp to Cave 5 ----------------------------------------
 
-025-3.gat,71,30,0	script	#WarpBattleCave5	127,1,1,{
+025-3.gat,71,30,0	script	#WarpBattleCave5	45,1,1,{
 
-  if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
-// Check if someone is already inside. Change the x1, y1, x2, y2 values according to the place the player will be warped
+    if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
     if (getareausers("025-4.gat", 91, 131, 124, 160) >= 1) goto L_SomeoneInside;
-// Check if you already done this fight
+    if ($@timercontrol5 != 0) goto L_Wait;
     if (cavefights & BATTLE_CAVE5) goto L_AlreadyDone;
     if (Rossy_Quest < 15) goto L_Block;
 
@@ -389,11 +400,15 @@ L_StartFight:
     set $@cave5fighterdeaths, PC_DIE_COUNTER;
     startnpctimer;
     set $@cave5start, gettimetick(2);
-    message strcharinfo(0), "As you enter, you feel evil forces filling up this cave.";
+    message strcharinfo(0), "As you enter, you feel an evil force filling up the cave.";
     end;
 
 L_SomeoneInside:
-    message strcharinfo(0), $@cave5fighter$ + " is already inside.";
+    message strcharinfo(0), $@cave5fighter$ + " is already inside. The cave seems to be blocked.";
+    end;
+
+L_Wait:
+    message strcharinfo(0), "Someone just got out of the cave, but it is still blocked. I should try to enter again.";
     end;
 
 L_AlreadyDone:
@@ -459,6 +474,7 @@ L_CleaningNorid:
     end;
 
 L_AlreadyClean:
+    set $@timercontrol5, 0;
     stopnpctimer;
     setnpctimer 0;    
     end;
@@ -466,12 +482,11 @@ L_AlreadyClean:
 
 // -------------------------------- Warp to Cave 6 -----------------------------------------
 
-025-3.gat,128,35,0	script	#WarpBattleCave6	127,1,1,{
+025-3.gat,128,35,0	script	#WarpBattleCave6	45,1,1,{
 
-  if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
-// Check if someone is already inside. Change the x1, y1, x2, y2 values according to the place the player will be warped
+    if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
     if (getareausers("025-4.gat", 153, 143, 178, 174) >= 1) goto L_SomeoneInside;
-// Check if you already done this fight
+    if ($@timercontrol6 != 0) goto L_Wait;
     if (cavefights & BATTLE_CAVE6) goto L_AlreadyDone;
     if (Rossy_Quest < 15) goto L_Block;
 
@@ -482,11 +497,15 @@ L_StartFight:
     set $@cave6fighterdeaths, PC_DIE_COUNTER;
     startnpctimer;
     set $@cave6start, gettimetick(2);
-    message strcharinfo(0), "As you enter, you feel evil forces filling up this cave.";
+    message strcharinfo(0), "As you enter, you feel an evil force filling up the cave.";
     end;
 
 L_SomeoneInside:
-    message strcharinfo(0), $@cave6fighter$ + " is already inside.";
+    message strcharinfo(0), $@cave6fighter$ + " is already inside. The cave seems to be blocked.";
+    end;
+
+L_Wait:
+    message strcharinfo(0), "Someone just got out of the cave, but it is still blocked. I should try to enter again.";
     end;
 
 L_AlreadyDone:
@@ -552,6 +571,7 @@ L_CleaningNorid:
     end;
 
 L_AlreadyClean:
+    set $@timercontrol6, 0;
     stopnpctimer;
     setnpctimer 0;    
     end;
@@ -559,12 +579,11 @@ L_AlreadyClean:
 
 // ---------------------------- Warp to Cave 7 ------------------------------------------
 
-025-3.gat,70,57,0	script	#WarpBattleCave7	127,1,1,{
+025-3.gat,70,57,0	script	#WarpBattleCave7	45,1,1,{
 
-  if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
-// Check if someone is already inside. Change the x1, y1, x2, y2 values according to the place the player will be warped
+    if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
     if (getareausers("025-4.gat", 27, 185, 61, 219) >= 1) goto L_SomeoneInside;
-// Check if you already done this fight
+    if ($@timercontrol7 != 0) goto L_Wait;
     if (cavefights & BATTLE_CAVE7) goto L_AlreadyDone;
     if (Rossy_Quest < 15) goto L_Block;
 
@@ -575,11 +594,15 @@ L_StartFight:
     set $@cave7fighterdeaths, PC_DIE_COUNTER;
     startnpctimer;
     set $@cave7start, gettimetick(2);
-    message strcharinfo(0), "As you enter, you feel evil forces filling up this cave.";
+    message strcharinfo(0), "As you enter, you feel an evil force filling up the cave.";
     end;
 
 L_SomeoneInside:
-    message strcharinfo(0), $@cave7fighter$ + " is already inside.";
+    message strcharinfo(0), $@cave7fighter$ + " is already inside. The cave seems to be blocked.";
+    end;
+
+L_Wait:
+    message strcharinfo(0), "Someone just got out of the cave, but it is still blocked. I should try to enter again.";
     end;
 
 L_AlreadyDone:
@@ -645,6 +668,7 @@ L_CleaningNorid:
     end;
 
 L_AlreadyClean:
+    set $@timercontrol7, 0;
     stopnpctimer;
     setnpctimer 0;    
     end;
@@ -652,12 +676,11 @@ L_AlreadyClean:
 
 // -----------------------------------------------Warp to Cave 8-------------------------------------------------------------
 
-025-3.gat,138,92,0	script	#WarpBattleCave8	127,1,1,{
+025-3.gat,138,92,0	script	#WarpBattleCave8	45,1,1,{
 
-  if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
-// Check if someone is already inside. Change the x1, y1, x2, y2 values according to the place the player will be warped
+    if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
     if (getareausers("025-4.gat", 90, 193, 119, 216) >= 1) goto L_SomeoneInside;
-// Check if you already done this fight
+    if ($@timercontrol8 != 0) goto L_Wait;
     if (cavefights & BATTLE_CAVE8) goto L_AlreadyDone;
     if (Rossy_Quest < 15) goto L_Block;
 
@@ -668,11 +691,15 @@ L_StartFight:
     set $@cave8fighterdeaths, PC_DIE_COUNTER;
     startnpctimer;
     set $@cave8start, gettimetick(2);
-    message strcharinfo(0), "As you enter, you feel evil forces filling up this cave.";
+    message strcharinfo(0), "As you enter, you feel an evil force filling up the cave.";
     end;
 
 L_SomeoneInside:
-    message strcharinfo(0), $@cave8fighter$ + " is already inside.";
+    message strcharinfo(0), $@cave8fighter$ + " is already inside. The cave seems to be blocked.";
+    end;
+
+L_Wait:
+    message strcharinfo(0), "Someone just got out of the cave, but it is still blocked. I should try to enter again.";
     end;
 
 L_AlreadyDone:
@@ -738,6 +765,7 @@ L_CleaningNorid:
     end;
 
 L_AlreadyClean:
+    set $@timercontrol8, 0;
     stopnpctimer;
     setnpctimer 0;    
     end;
@@ -745,12 +773,11 @@ L_AlreadyClean:
 
 // ------------------------------ Warp to Cave 9 ----------------------------------------
 
-025-3.gat,138,160,0	script	#WarpBattleCave9	127,1,1,{
+025-3.gat,138,160,0	script	#WarpBattleCave9	45,1,1,{
 
     if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
-// Check if someone is already inside. Change the x1, y1, x2, y2 values according to the place the player will be warped
     if (getareausers("025-4.gat", 144, 192, 173, 226) >= 1) goto L_SomeoneInside;
-// Check if you already done this fight
+    if ($@timercontrol9 != 0) goto L_Wait;
     if (cavefights & BATTLE_CAVE9) goto L_AlreadyDone;
     if (Rossy_Quest < 15) goto L_Block;
 
@@ -761,11 +788,15 @@ L_StartFight:
     set $@cave9fighterdeaths, PC_DIE_COUNTER;
     startnpctimer;
     set $@cave9start, gettimetick(2);
-    message strcharinfo(0), "As you enter, you feel evil forces filling up this cave.";
+    message strcharinfo(0), "As you enter, you feel an evil force filling up the cave.";
     end;
 
 L_SomeoneInside:
-    message strcharinfo(0), $@cave9fighter$ + " is already inside.";
+    message strcharinfo(0), $@cave9fighter$ + " is already inside. The cave seems to be blocked.";
+    end;
+
+L_Wait:
+    message strcharinfo(0), "Someone just got out of the cave, but it is still blocked. I should try to enter again.";
     end;
 
 L_AlreadyDone:
@@ -831,6 +862,7 @@ L_CleaningNorid:
     end;
 
 L_AlreadyClean:
+    set $@timercontrol9, 0;
     stopnpctimer;
     setnpctimer 0;    
     end;
@@ -838,15 +870,34 @@ L_AlreadyClean:
 
 // ----------------------------- Warp to Boss Cave -------------------------------
 
-025-3.gat,77,170,0	script	#WarpBossCave	127,1,1,{
+025-3.gat,77,170,0	script	#WarpBossCave	45,1,1,{
 
     if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
-//Check if someone is already inside. Change the x1, y1, x2, y2 values according to the place the player will be warped
+    set @barrier_force, 0;
+    if (cavefights & ~BATTLE_CAVE1) set @barrier_force, @barrier_force - 1;
+    if (cavefights & ~BATTLE_CAVE2) set @barrier_force, @barrier_force - 1;
+    if (cavefights & ~BATTLE_CAVE3) set @barrier_force, @barrier_force - 1;
+    if (cavefights & ~BATTLE_CAVE4) set @barrier_force, @barrier_force - 1;
+    if (cavefights & ~BATTLE_CAVE5) set @barrier_force, @barrier_force - 1;
+    if (cavefights & ~BATTLE_CAVE6) set @barrier_force, @barrier_force - 1;
+    if (cavefights & ~BATTLE_CAVE7) set @barrier_force, @barrier_force - 1;
+    if (cavefights & ~BATTLE_CAVE8) set @barrier_force, @barrier_force - 1;
+    if (cavefights & ~BATTLE_CAVE9) set @barrier_force, @barrier_force - 1;
+    if (@barrier_force != 0) goto L_Hurt;
     if (getareausers("025-4.gat", 142, 24, 172, 48) >= 1) goto L_SomeoneInside;
-//Check if you can enter this cave
-    if (cavefights & BATTLE_CAVE1 && cavefights & BATTLE_CAVE2 && cavefights & BATTLE_CAVE3 && cavefights & BATTLE_CAVE4 && cavefights & BATTLE_CAVE5 && cavefights & BATTLE_CAVE6 && cavefights & BATTLE_CAVE7 && cavefights & BATTLE_CAVE8 && cavefights & BATTLE_CAVE9) goto L_StartFight;
+    if ($@timercontrol10 != 0) goto L_Wait;
+    if (@barrier_force == 0) goto L_StartFight;
+    end;
+
+L_Hurt:
+    message strcharinfo(0), "As you try to enter, you bump into a magic barrier. Its force pushes you back, hurting you badly.";
+    message strcharinfo(0), @barrier_force;
+    percentheal @barrier_force * 10, 0;
+    warp "025-3.gat", 77, 164;
+    end;
 
-    message strcharinfo(0), "As you try to enter, you bump into an invisible door. You can feel a total of nince small lockets.";
+L_Wait:
+    message strcharinfo(0), "Someone just got out of the cave, but it is still blocked. I should try to enter again.";
     end;
 
 L_StartFight:
@@ -923,6 +974,7 @@ L_CleaningNorid:
     end;
 
 L_AlreadyClean:
+    set $@timercontrol10, 0;
     stopnpctimer;
     setnpctimer 0;    
     end;
diff --git a/npc/025-4/battlecaves.txt b/npc/025-4/battlecaves.txt
index a307877b..dbe1dac3 100644
--- a/npc/025-4/battlecaves.txt
+++ b/npc/025-4/battlecaves.txt
@@ -1,6 +1,6 @@
 // ---------------------------------    Cave 1    -----------------------------------
 
-025-4.gat,41,91,0	script	#StartCaveFight1	111,{
+025-4.gat,41,91,0	script	#StartCaveFight1	324,{
     if (Rossy_Quest < 15) goto L_Cheat;
     if ($@battlecave1 == 1) goto L_Start;
     end;
@@ -11,7 +11,13 @@ L_Cheat:
     end;
 
 L_Start:
-    message strcharinfo(0), "You opened the chest and found a tiny key. At the same time, some monsters appear from nowhere.";    
+    menu
+        "Place a root at the center of the energy source.", -,
+        "I am not prepared yet!", L_Close;
+    if ((countitem("Root")<1)) goto L_no_root;
+    close2;
+    delitem "Root", 1;
+    message strcharinfo(0), "As you place the root on the energy source, earth monsters seem to emerge from the ground.";    
     
 L_Summon:
     set $@cave1_loop, $@cave1_loop + 1;
@@ -30,7 +36,7 @@ L_Done:
 
     if ($@wave_cave1 == 1) message strcharinfo(0), "Oh no, more monsters?!";
     if ($@wave_cave1 == 2) message strcharinfo(0), "I can't give up now!";
-    if ($@wave_cave1 == 3) message strcharinfo(0), "As you killed all the monsters, you opened the chest. It was empty.";
+    if ($@wave_cave1 == 3) message strcharinfo(0), "As soon as you kill the last monster, your vision blacks out and you feel a strange sensation, as if you were being lifted from the ground... When you open your eyes, you are outside of the cave.";
 
     if ($@wave_cave1 != $@CAVE1_WAVES) goto L_Summon;
     set cavefights, (cavefights ^ BATTLE_CAVE1);
@@ -54,6 +60,13 @@ OnMonsterDeath:
     if ($@cave1_kills >= $@CAVE1_MONSTERS_QTY[1] + $@CAVE1_MONSTERS_QTY[2] + $@CAVE1_MONSTERS_QTY[3]) goto L_Done;
     end;
 
+L_Close:
+    close;
+
+L_no_root:
+    mes "I don't have any root in my inventory!";
+    close;
+
 onInit:
 // Here you can define the specifics of each battle cave.
 // Monsters IDs to be spawned.
@@ -68,20 +81,25 @@ onInit:
 
 // ---------------------  Cave 1 Checker  ----------------------------
 
-025-4.gat,41,97,0	script	#CheckCaveFight1	127,1,1,{
-    if (cavefight & BATTLE_CAVE1) goto L_Done;
-    message strcharinfo(0), "Evil forces make you stop, you need to defeat them first before getting out.";
+025-4.gat,41,97,0	script	#CheckCaveFight1	45,1,1,{
+    if ($@wave_cave1 != 0) message strcharinfo(0), "You can't get out! Seems like a barrier was created when the energy transmuted itself into monsters.";
+    if ($@wave_cave1 == 0) goto L_Done;
     end;
 
 L_Done:
     warp "025-3.gat", 78, 130;
+    set $@battlecave1, 0;
+    set $@cave1fighter$, "";
+    set $@cave1fighterdeaths, 0;
+    set $@cave1start, 0;
+    set $@timercontrol1, 1;
     end;
 }
 
 // ---------------------------------    Cave 2   ---------------------------------------
 
 
-025-4.gat,110,90,0	script	#StartCaveFight2	111,{
+025-4.gat,110,90,0	script	#StartCaveFight2	324,{
     if (Rossy_Quest < 15) goto L_Cheat;
     if ($@battlecave2 == 1) goto L_Start;
     end;
@@ -92,7 +110,14 @@ L_Cheat:
     end;
 
 L_Start:
-    message strcharinfo(0), "You opened the chest and found a tiny key. At the same time, some monsters appear from nowhere.";   
+    menu
+        "Place a root at the center of the energy source.", -,
+        "I am not prepared yet!", L_Close;
+    if ((countitem("Root")<1)) goto L_no_root;
+    close2;
+    delitem "Root", 1;
+    message strcharinfo(0), "As you place the root on the energy source, earth monsters seem to emerge from the ground.";    
+ 
 
 L_Summon:
     set $@cave2_loop, $@cave2_loop + 1;
@@ -111,7 +136,7 @@ L_Done:
 
     if ($@wave_cave2 == 1) message strcharinfo(0), "Oh no, more monsters?!";
     if ($@wave_cave2 == 2) message strcharinfo(0), "I can't give up now!";
-    if ($@wave_cave2 == 3) message strcharinfo(0), "As you killed all the monsters, you opened the chest. It was empty.";
+    if ($@wave_cave2 == 3) message strcharinfo(0), "As soon as you kill the last monster, your vision blacks out and you feel a strange sensation, as if you were being lifted from the ground... When you open your eyes, you are outside of the cave.";
 
     if ($@wave_cave2 != $@CAVE2_WAVES) goto L_Summon;
     set cavefights, (cavefights ^ BATTLE_CAVE2);
@@ -135,6 +160,13 @@ OnMonsterDeath:
     if ($@cave2_kills >= $@CAVE2_MONSTERS_QTY[1] + $@CAVE2_MONSTERS_QTY[2] + $@CAVE2_MONSTERS_QTY[3]) goto L_Done;
     end;
 
+L_Close:
+    close;
+
+L_no_root:
+    mes "I don't have any root in my inventory!";
+    close;
+
 onInit:
 // Here you can define the specifics of each battle cave.
 // Monsters IDs to be spawned.
@@ -149,18 +181,23 @@ onInit:
 
 // ---------------------  Cave 2 Checker  ----------------------------
 
-025-4.gat,110,96,0	script	#CheckCaveFight2	127,1,1,{
-    if (cavefight & BATTLE_CAVE2) goto L_Done;
-    message strcharinfo(0), "Evil forces make you stop, you need to defeat them first before getting out.";
+025-4.gat,110,96,0	script	#CheckCaveFight2	45,1,1,{
+    if ($@wave_cave2 != 0) message strcharinfo(0), "You can't get out! Seems like a barrier was created when the energy transmuted itself into monsters.";
+    if ($@wave_cave2 == 0) goto L_Done;
     end;
 
 L_Done:
     warp "025-3.gat", 53, 110;
+    set $@battlecave2, 0;
+    set $@cave2fighter$, "";
+    set $@cave2fighterdeaths, 0;
+    set $@cave2start, 0;
+    set $@timercontrol2, 1;
     end;
 }
 
 // ------------------------------------    Cave 3    --------------------------------------
-025-4.gat,168,111,0	script	#StartCaveFight3	111,{
+025-4.gat,168,111,0	script	#StartCaveFight3	324,{
     if (Rossy_Quest < 15) goto L_Cheat;
     if ($@battlecave3 == 1) goto L_Start;
     end;
@@ -171,7 +208,14 @@ L_Cheat:
     end;
 
 L_Start:
-    message strcharinfo(0), "You opened the chest and found a tiny key. At the same time, some monsters appear from nowhere.";   
+    menu
+        "Place a root at the center of the energy source.", -,
+        "I am not prepared yet!", L_Close;
+    if ((countitem("Root")<1)) goto L_no_root;
+    close2;
+    delitem "Root", 1;
+    message strcharinfo(0), "As you place the root on the energy source, earth monsters seem to emerge from the ground.";    
+ 
 
 L_Summon:
     set $@cave3_loop, $@cave3_loop + 1;
@@ -190,7 +234,7 @@ L_Done:
 
     if ($@wave_cave3 == 1) message strcharinfo(0), "Oh no, more monsters?!";
     if ($@wave_cave3 == 2) message strcharinfo(0), "I can't give up now!";
-    if ($@wave_cave3 == 3) message strcharinfo(0), "As you killed all the monsters, you opened the chest. It was empty.";
+    if ($@wave_cave3 == 3) message strcharinfo(0), "As soon as you kill the last monster, your vision blacks out and you feel a strange sensation, as if you were being lifted from the ground... When you open your eyes, you are outside of the cave.";
 
     if ($@wave_cave3 != $@CAVE3_WAVES) goto L_Summon;
     set cavefights, (cavefights ^ BATTLE_CAVE3);
@@ -214,6 +258,13 @@ OnMonsterDeath:
     if ($@cave3_kills >= $@CAVE3_MONSTERS_QTY[1] + $@CAVE3_MONSTERS_QTY[2] + $@CAVE3_MONSTERS_QTY[3]) goto L_Done;
     end;
 
+L_Close:
+    close;
+
+L_no_root:
+    mes "I don't have any root in my inventory!";
+    close;
+
 onInit:
 // Here you can define the specifics of each battle cave.
 // Monsters IDs to be spawned.
@@ -228,18 +279,23 @@ onInit:
 
 // ---------------------  Cave 3 Checker  ----------------------------
 
-025-4.gat,168,117,0	script	#CheckCaveFight3	127,1,1,{
-    if (cavefight & BATTLE_CAVE3) goto L_Done;
-    message strcharinfo(0), "Evil forces make you stop, you need to defeat them first before getting out.";
+025-4.gat,168,117,0	script	#CheckCaveFight3	45,1,1,{
+    if ($@wave_cave3 != 0) message strcharinfo(0), "You can't get out! Seems like a barrier was created when the energy transmuted itself into monsters.";
+    if ($@wave_cave3 == 0) goto L_Done;
     end;
 
 L_Done:
     warp "025-3.gat", 71, 85;
+    set $@battlecave3, 0;
+    set $@cave3fighter$, "";
+    set $@cave3fighterdeaths, 0;
+    set $@cave3start, 0;
+    set $@timercontrol3, 1;
     end;
 }
 
 // ---------------------------    Cave 4    --------------------------------
-025-4.gat,32,150,0	script	#StartCaveFight4	111,{
+025-4.gat,32,150,0	script	#StartCaveFight4	324,{
     if (Rossy_Quest < 15) goto L_Cheat;
     if ($@battlecave4 == 1) goto L_Start;
     end;
@@ -250,7 +306,13 @@ L_Cheat:
     end;
 
 L_Start:
-    message strcharinfo(0), "You opened the chest and found a tiny key. At the same time, some monsters appear from nowhere.";   
+    menu
+        "Place a root at the center of the energy source.", -,
+        "I am not prepared yet!", L_Close;
+    if ((countitem("Root")<1)) goto L_no_root;
+    close2;
+    delitem "Root", 1;
+    message strcharinfo(0), "As you place the root on the energy source, earth monsters seem to emerge from the ground.";    
 
 L_Summon:
     set $@cave4_loop, $@cave4_loop + 1;
@@ -269,7 +331,7 @@ L_Done:
 
     if ($@wave_cave4 == 1) message strcharinfo(0), "Oh no, more monsters?!";
     if ($@wave_cave4 == 2) message strcharinfo(0), "I can't give up now!";
-    if ($@wave_cave4 == 3) message strcharinfo(0), "As you killed all the monsters, you opened the chest. It was empty.";
+    if ($@wave_cave4 == 3) message strcharinfo(0), "As soon as you kill the last monster, your vision blacks out and you feel a strange sensation, as if you were being lifted from the ground... When you open your eyes, you are outside of the cave.";
 
     if ($@wave_cave4 != $@CAVE4_WAVES) goto L_Summon;
     set cavefights, (cavefights ^ BATTLE_CAVE4);
@@ -293,6 +355,13 @@ OnMonsterDeath:
     if ($@cave4_kills >= $@CAVE4_MONSTERS_QTY[1] + $@CAVE4_MONSTERS_QTY[2] + $@CAVE4_MONSTERS_QTY[3]) goto L_Done;
     end;
 
+L_Close:
+    close;
+
+L_no_root:
+    mes "I don't have any root in my inventory!";
+    close;
+
 onInit:
 // Here you can define the specifics of each battle cave.
 // Monsters IDs to be spawned.
@@ -307,19 +376,24 @@ onInit:
 
 // ---------------------  Cave 4 Checker  ----------------------------
 
-025-4.gat,32,156,0	script	#CheckCaveFight4	127,1,1,{
-    if (cavefight & BATTLE_CAVE4) goto L_Done;
-    message strcharinfo(0), "Evil forces make you stop, you need to defeat them first before getting out.";
+025-4.gat,32,156,0	script	#CheckCaveFight4	45,1,1,{
+    if ($@wave_cave4 != 0) message strcharinfo(0), "You can't get out! Seems like a barrier was created when the energy transmuted itself into monsters.";
+    if ($@wave_cave4 == 0) goto L_Done;
     end;
 
 L_Done:
     warp "025-3.gat", 80, 85;
+    set $@battlecave4, 0;
+    set $@cave4fighter$, "";
+    set $@cave4fighterdeaths, 0;
+    set $@cave4start, 0;
+    set $@timercontrol4, 1;
     end;
 }
 
 // ----------------------------    Cave 5    ------------------------------
 
-025-4.gat,100,154,0	script	#StartCaveFight5	111,{
+025-4.gat,100,154,0	script	#StartCaveFight5	324,{
     if (Rossy_Quest < 15) goto L_Cheat;
     if ($@battlecave5 == 1) goto L_Start;
     end;
@@ -330,7 +404,13 @@ L_Cheat:
     end;
 
 L_Start:
-    message strcharinfo(0), "You opened the chest and found a tiny key. At the same time, some monsters appear from nowhere.";   
+    menu
+        "Place a root at the center of the energy source.", -,
+        "I am not prepared yet!", L_Close;
+    if ((countitem("Root")<1)) goto L_no_root;
+    close2;
+    delitem "Root", 1;
+    message strcharinfo(0), "As you place the root on the energy source, earth monsters seem to emerge from the ground.";    
 
 L_Summon:
     set $@cave5_loop, $@cave5_loop + 1;
@@ -349,7 +429,7 @@ L_Done:
 
     if ($@wave_cave5 == 1) message strcharinfo(0), "Oh no, more monsters?!";
     if ($@wave_cave5 == 2) message strcharinfo(0), "I can't give up now!";
-    if ($@wave_cave5 == 3) message strcharinfo(0), "As you killed all the monsters, you opened the chest. It was empty.";
+    if ($@wave_cave5 == 3) message strcharinfo(0), "As soon as you kill the last monster, your vision blacks out and you feel a strange sensation, as if you were being lifted from the ground... When you open your eyes, you are outside of the cave.";
 
     if ($@wave_cave5 != $@CAVE5_WAVES) goto L_Summon;
     set cavefights, (cavefights ^ BATTLE_CAVE5);
@@ -373,6 +453,13 @@ OnMonsterDeath:
     if ($@cave5_kills >= $@CAVE5_MONSTERS_QTY[1] + $@CAVE5_MONSTERS_QTY[2] + $@CAVE5_MONSTERS_QTY[3]) goto L_Done;
     end;
 
+L_Close:
+    close;
+
+L_no_root:
+    mes "I don't have any root in my inventory!";
+    close;
+
 onInit:
 // Here you can define the specifics of each battle cave.
 // Monsters IDs to be spawned.
@@ -387,19 +474,24 @@ onInit:
 
 // ---------------------  Cave 5 Checker  ----------------------------
 
-025-4.gat,100,160,0	script	#CheckCaveFight5	127,1,1,{
-    if (cavefight & BATTLE_CAVE5) goto L_Done;
-    message strcharinfo(0), "Evil forces make you stop, you need to defeat them first before getting out.";
+025-4.gat,100,160,0	script	#CheckCaveFight5	45,1,1,{
+    if ($@wave_cave5 != 0) message strcharinfo(0), "You can't get out! Seems like a barrier was created when the energy transmuted itself into monsters.";
+    if ($@wave_cave5 == 0) goto L_Done;
     end;
 
 L_Done:
     warp "025-3.gat", 71, 33;
+    set $@battlecave5, 0;
+    set $@cave5fighter$, "";
+    set $@cave5fighterdeaths, 0;
+    set $@cave5start, 0;
+    set $@timercontrol5, 1;
     end;
 }
 
 // --------------------------------    Cave 6    -----------------------------------------
 
-025-4.gat,159,168,0	script	#StartCaveFight6	111,{
+025-4.gat,159,168,0	script	#StartCaveFight6	324,{
     if (Rossy_Quest < 15) goto L_Cheat;
     if ($@battlecave6 == 1) goto L_Start;
     end;
@@ -410,7 +502,13 @@ L_Cheat:
     end;
 
 L_Start:
-    message strcharinfo(0), "You opened the chest and found a tiny key. At the same time, some monsters appear from nowhere.";   
+    menu
+        "Place a root at the center of the energy source.", -,
+        "I am not prepared yet!", L_Close;
+    if ((countitem("Root")<1)) goto L_no_root;
+    close2;
+    delitem "Root", 1;
+    message strcharinfo(0), "As you place the root on the energy source, earth monsters seem to emerge from the ground.";    
 
 L_Summon:
     set $@cave6_loop, $@cave6_loop + 1;
@@ -429,7 +527,7 @@ L_Done:
 
     if ($@wave_cave6 == 1) message strcharinfo(0), "Oh no, more monsters?!";
     if ($@wave_cave6 == 2) message strcharinfo(0), "I can't give up now!";
-    if ($@wave_cave6 == 3) message strcharinfo(0), "As you killed all the monsters, you opened the chest. It was empty.";
+    if ($@wave_cave6 == 3) message strcharinfo(0), "As soon as you kill the last monster, your vision blacks out and you feel a strange sensation, as if you were being lifted from the ground... When you open your eyes, you are outside of the cave.";
 
     if ($@wave_cave6 != $@CAVE6_WAVES) goto L_Summon;
     set cavefights, (cavefights ^ BATTLE_CAVE6);
@@ -453,6 +551,13 @@ OnMonsterDeath:
     if ($@cave6_kills >= $@CAVE6_MONSTERS_QTY[1] + $@CAVE6_MONSTERS_QTY[2] + $@CAVE6_MONSTERS_QTY[3]) goto L_Done;
     end;
 
+L_Close:
+    close;
+
+L_no_root:
+    mes "I don't have any root in my inventory!";
+    close;
+
 onInit:
 // Here you can define the specifics of each battle cave.
 // Monsters IDs to be spawned.
@@ -467,19 +572,24 @@ onInit:
 
 // ---------------------  Cave 6 Checker  ----------------------------
 
-025-4.gat,159,174,0	script	#CheckCaveFight6	127,1,1,{
-    if (cavefight & BATTLE_CAVE6) goto L_Done;
-    message strcharinfo(0), "Evil forces make you stop, you need to defeat them first before getting out.";
+025-4.gat,159,174,0	script	#CheckCaveFight6	45,1,1,{
+    if ($@wave_cave6 != 0) message strcharinfo(0), "You can't get out! Seems like a barrier was created when the energy transmuted itself into monsters.";
+    if ($@wave_cave6 == 0) goto L_Done;
     end;
 
 L_Done:
     warp "025-3.gat", 128, 38;
+    set $@battlecave6, 0;
+    set $@cave6fighter$, "";
+    set $@cave6fighterdeaths, 0;
+    set $@cave6start, 0;
+    set $@timercontrol6, 1;
     end;
 }
 
 // --------------------------------    Cave 7    -----------------------------------
 
-025-4.gat,39,215,0	script	#StartCaveFight7	111,{
+025-4.gat,39,215,0	script	#StartCaveFight7	324,{
     if (Rossy_Quest < 15) goto L_Cheat;
     if ($@battlecave7 == 1) goto L_Start;
     end;
@@ -490,7 +600,14 @@ L_Cheat:
     end;
 
 L_Start:
-    message strcharinfo(0), "You opened the chest and found a tiny key. At the same time, some monsters appear from nowhere.";   
+    menu
+        "Place a root at the center of the energy source.", -,
+        "I am not prepared yet!", L_Close;
+    if ((countitem("Root")<1)) goto L_no_root;
+    close2;
+    delitem "Root", 1;
+    message strcharinfo(0), "As you place the root on the energy source, earth monsters seem to emerge from the ground.";    
+  
     
 L_Summon:
     set $@cave7_loop, $@cave7_loop + 1;
@@ -509,7 +626,7 @@ L_Done:
 
     if ($@wave_cave7 == 1) message strcharinfo(0), "Oh no, more monsters?!";
     if ($@wave_cave7 == 2) message strcharinfo(0), "I can't give up now!";
-    if ($@wave_cave7 == 3) message strcharinfo(0), "As you killed all the monsters, you opened the chest. It was empty.";
+    if ($@wave_cave7 == 3) message strcharinfo(0), "As soon as you kill the last monster, your vision blacks out and you feel a strange sensation, as if you were being lifted from the ground... When you open your eyes, you are outside of the cave.";
 
     if ($@wave_cave7 != $@CAVE7_WAVES) goto L_Summon;
     set cavefights, (cavefights ^ BATTLE_CAVE7);
@@ -533,6 +650,13 @@ OnMonsterDeath:
     if ($@cave7_kills >= $@CAVE7_MONSTERS_QTY[1] + $@CAVE7_MONSTERS_QTY[2] + $@CAVE7_MONSTERS_QTY[3]) goto L_Done;
     end;
 
+L_Close:
+    close;
+
+L_no_root:
+    mes "I don't have any root in my inventory!";
+    close;
+
 onInit:
 // Here you can define the specifics of each battle cave.
 // Monsters IDs to be spawned.
@@ -547,19 +671,24 @@ onInit:
 
 // ---------------------  Cave 7 Checker  ----------------------------
 
-025-4.gat,42,219,0	script	#CheckCaveFight7	127,1,1,{
-    if (cavefight & BATTLE_CAVE7) goto L_Done;
-    message strcharinfo(0), "Evil forces make you stop, you need to defeat them first before getting out.";
+025-4.gat,42,219,0	script	#CheckCaveFight7	45,1,1,{
+    if ($@wave_cave7 != 0) message strcharinfo(0), "You can't get out! Seems like a barrier was created when the energy transmuted itself into monsters.";
+    if ($@wave_cave7 == 0) goto L_Done;
     end;
 
 L_Done:
     warp "025-3.gat", 70, 60;
+    set $@battlecave7, 0;
+    set $@cave7fighter$, "";
+    set $@cave7fighterdeaths, 0;
+    set $@cave7start, 0;
+    set $@timercontrol7, 1;
     end;
 }
 
 // ---------------------------    Cave 8    -------------------------------
 
-025-4.gat,105,210,0	script	#StartCaveFight8	111,{
+025-4.gat,105,210,0	script	#StartCaveFight8	324,{
     if (Rossy_Quest < 15) goto L_Cheat;
     if ($@battlecave8 == 1) goto L_Start;
     end;
@@ -570,7 +699,14 @@ L_Cheat:
     end;
 
 L_Start:
-    message strcharinfo(0), "You opened the chest and found a tiny key. At the same time, some monsters appear from nowhere.";   
+    menu
+        "Place a root at the center of the energy source.", -,
+        "I am not prepared yet!", L_Close;
+    if ((countitem("Root")<1)) goto L_no_root;
+    close2;
+    delitem "Root", 1;
+    message strcharinfo(0), "As you place the root on the energy source, earth monsters seem to emerge from the ground.";    
+  
 
 L_Summon:
     set $@cave8_loop, $@cave8_loop + 1;
@@ -589,7 +725,7 @@ L_Done:
 
     if ($@wave_cave8 == 1) message strcharinfo(0), "Oh no, more monsters?!";
     if ($@wave_cave8 == 2) message strcharinfo(0), "I can't give up now!";
-    if ($@wave_cave8 == 3) message strcharinfo(0), "As you killed all the monsters, you opened the chest. It was empty.";
+    if ($@wave_cave8 == 3) message strcharinfo(0), "As soon as you kill the last monster, your vision blacks out and you feel a strange sensation, as if you were being lifted from the ground... When you open your eyes, you are outside of the cave.";
 
     if ($@wave_cave8 != $@CAVE8_WAVES) goto L_Summon;
     set cavefights, (cavefights ^ BATTLE_CAVE8);
@@ -613,6 +749,13 @@ OnMonsterDeath:
     if ($@cave8_kills >= $@CAVE8_MONSTERS_QTY[1] + $@CAVE8_MONSTERS_QTY[2] + $@CAVE8_MONSTERS_QTY[3]) goto L_Done;
     end;
 
+L_Close:
+    close;
+
+L_no_root:
+    mes "I don't have any root in my inventory!";
+    close;
+
 onInit:
 // Here you can define the specifics of each battle cave.
 // Monsters IDs to be spawned.
@@ -627,19 +770,24 @@ onInit:
 
 // ---------------------  Cave 8 Checker  ----------------------------
 
-025-4.gat,105,216,0	script	#CheckCaveFight8	127,1,1,{
-    if (cavefight & BATTLE_CAVE8) goto L_Done;
-    message strcharinfo(0), "Evil forces make you stop, you need to defeat them first before getting out.";
+025-4.gat,105,216,0	script	#CheckCaveFight8	45,1,1,{
+    if ($@wave_cave8 != 0) message strcharinfo(0), "You can't get out! Seems like a barrier was created when the energy transmuted itself into monsters.";
+    if ($@wave_cave8 == 0) goto L_Done;
     end;
 
 L_Done:
     warp "025-3.gat", 138, 95;
+    set $@battlecave8, 0;
+    set $@cave8fighter$, "";
+    set $@cave8fighterdeaths, 0;
+    set $@cave8start, 0;
+    set $@timercontrol8, 1;
     end;
 }
 
 // ---------------------------    Cave 9    -------------------------------
 
-025-4.gat,157,220,0	script	#StartCaveFight9	111,{
+025-4.gat,157,220,0	script	#StartCaveFight9	324,{
     if (Rossy_Quest < 15) goto L_Cheat;
     if ($@battlecave9 == 1) goto L_Start;
     end;
@@ -650,7 +798,13 @@ L_Cheat:
     end;
 
 L_Start:
-    message strcharinfo(0), "You opened the chest and found a tiny key. At the same time, some monsters appear from nowhere.";   
+    menu
+        "Place a root at the center of the energy source.", -,
+        "I am not prepared yet!", L_Close;
+    if ((countitem("Root")<1)) goto L_no_root;
+    close2;
+    delitem "Root", 1;
+    message strcharinfo(0), "As you place the root on the energy source, earth monsters seem to emerge from the ground.";    
 
 L_Summon:
     set $@cave9_loop, $@cave9_loop + 1;
@@ -669,7 +823,7 @@ L_Done:
 
     if ($@wave_cave9 == 1) message strcharinfo(0), "Oh no, more monsters?!";
     if ($@wave_cave9 == 2) message strcharinfo(0), "I can't give up now!";
-    if ($@wave_cave9 == 3) message strcharinfo(0), "As you killed all the monsters, you opened the chest. You found a strange key into the chest.";
+    if ($@wave_cave9 == 3) message strcharinfo(0), "As soon as you kill the last monster, your vision blacks out and you feel a strange sensation, as if you were being lifted from the ground... When you open your eyes, you are outside of the cave.";
 
     if ($@wave_cave9 != $@CAVE9_WAVES) goto L_Summon;
     set cavefights, (cavefights ^ BATTLE_CAVE9);
@@ -693,6 +847,13 @@ OnMonsterDeath:
     if ($@cave9_kills >= $@CAVE9_MONSTERS_QTY[1] + $@CAVE9_MONSTERS_QTY[2] + $@CAVE9_MONSTERS_QTY[3]) goto L_Done;
     end;
 
+L_Close:
+    close;
+
+L_no_root:
+    mes "I don't have any root in my inventory!";
+    close;
+
 onInit:
 // Here you can define the specifics of each battle cave.
 // Monsters IDs to be spawned.
@@ -707,27 +868,37 @@ onInit:
 
 // ---------------------  Cave 9 Checker  ----------------------------
 
-025-4.gat,157,226,0	script	#CheckCaveFight9	127,1,1,{
-    if (cavefight & BATTLE_CAVE9) goto L_Done;
-    message strcharinfo(0), "Evil forces make you stop, you need to defeat them first before getting out.";
+025-4.gat,157,226,0	script	#CheckCaveFight9	45,1,1,{
+    if ($@wave_cave9 != 0) message strcharinfo(0), "You can't get out! Seems like a barrier was created when the energy transmuted itself into monsters.";
+    if ($@wave_cave9 == 0) goto L_Done;
     end;
 
 L_Done:
     warp "025-3.gat", 138, 158;
+    set $@battlecave9, 0;
+    set $@cave9fighter$, "";
+    set $@cave9fighterdeaths, 0;
+    set $@cave9start, 0;
+    set $@timercontrol9, 1;
     end;
 }
 
 // ---------------------  Boss Cave  ----------------------------
 
-025-4.gat,157,42,0	script	#StartBossCaveFight	111,{
+025-4.gat,157,42,0	script	#StartBossCaveFight	324,{
     if (Rossy_Quest == 16) goto L_Found;
-    if ($@battlebosscave == 1 && cavefights & BATTLE_CAVE1 && cavefights & BATTLE_CAVE2 && cavefights & BATTLE_CAVE3 && cavefights & BATTLE_CAVE4 && cavefights & BATTLE_CAVE5 && cavefights & BATTLE_CAVE6 && cavefights & BATTLE_CAVE7 && cavefights & BATTLE_CAVE8 && cavefights & BATTLE_CAVE9 && Rossy_Quest == 15) goto L_Found;
+    if ($@battlebosscave == 1 && cavefights & BATTLE_CAVE1 && cavefights & BATTLE_CAVE2 && cavefights & BATTLE_CAVE3 && cavefights & BATTLE_CAVE4 && cavefights & BATTLE_CAVE5 && cavefights & BATTLE_CAVE6 && cavefights & BATTLE_CAVE7 && cavefights & BATTLE_CAVE8 && cavefights & BATTLE_CAVE9 && Rossy_Quest == 15) goto L_Start;
     message strcharinfo(0), "You shouldn't be here, you cheater.";
     percentheal -100, 0;
     end;
 
-L_Found:
-    message strcharinfo(0), "You found a golden key inside the chest.";
+L_Start:
+    menu
+        "Place a root at the center of the energy source.", -,
+        "I am not prepared yet!", L_Close;
+    if ((countitem("Root")<1)) goto L_no_root;
+    delitem "Root", 1;
+    message strcharinfo(0), "As you place the root on the energy source, earth monsters seem to emerge from the ground.";    
 
 L_Summon:
     set $@cave10_loop, $@cave10_loop + 1;
@@ -739,7 +910,6 @@ L_Summon:
 
 L_SummonBoss:
     attachrid(getcharid(3,$@cave10fighter$));
-    message strcharinfo(0), "WHaaat? What is this?!";
     areamonster "025-4.gat",142, 24, 172, 48,"",$@BOSS,1,"#StartBossCaveFight::OnBossDeath";
     stopnpctimer;
     setnpctimer 0;    
@@ -755,7 +925,7 @@ L_Done:
     if ($@wave_cave10 == 1) message strcharinfo(0), "I can't give up now!";
     if ($@wave_cave10 == 2) message strcharinfo(0), "I feel I'm getting close to the end...";
     if ($@wave_cave10 == 3) message strcharinfo(0), "What? This is harder than I imagined!";
-    if ($@wave_cave10 == 4) message strcharinfo(0), "Finally! It seems I have defeated all of them! Wait... what is that?!";
+    if ($@wave_cave10 == 4) message strcharinfo(0), "Finally! It seems I have defeated all of them!";
 
     if ($@wave_cave10 != $@CAVE10_WAVES) goto L_Summon;
     set $@wave_cave10, 5;
@@ -777,7 +947,7 @@ L_Cleaning:
 OnTimer4000:
     attachrid(getcharid(3,$@cave10fighter$));
     set @boss, @boss + 1;
-    if (@boss == 1) message strcharinfo(0), "Due to the number of monsters in this cave, you feel you have more time to kill them all before other monsters come.";
+    if (@boss == 1) message strcharinfo(0), "You feel something strange... Looks like something terrible is about to show up in this cave.";
     if (@boss == 2) goto L_SummonBoss;
     setnpctimer 0;
     end;
@@ -794,10 +964,17 @@ OnBossDeath:
     set $@cave10start, 0;
     set $@cave10fighter$, "";
     set $@cave10fighterdeaths$, 0;
-    message strcharinfo(0), "What a harsh battle! I should have peace to use that golden key now.";
+    message strcharinfo(0), "What a harsh battle! I should save Julia now.";
     set Rossy_Quest, 16;
     end;
 
+L_Close:
+    close;
+
+L_no_root:
+    mes "I don't have any root in my inventory!";
+    close;
+
 onInit:
 // Here you can define the specifics of each battle cave.
 // Monsters IDs to be spawned. before the boss.
@@ -814,10 +991,10 @@ onInit:
 
 // ---------------------  Boss Cave Checker  ----------------------------
 
-025-4.gat,157,48,0	script	#CheckCaveFightBoss	127,1,1,{
+025-4.gat,157,48,0	script	#CheckCaveFightBoss	45,1,1,{
     if (Rossy_Quest >= 17) goto L_Done;
-    if (Rossy_Quest == 17) goto L_Julia;
-    message strcharinfo(0), "Evil forces make you stop, you need to defeat them first before getting out.";
+    if (Rossy_Quest == 16) goto L_Julia;
+    if (Rossy_Quest < 16) goto L_Out;
     end;
 
 L_Julia:
@@ -827,17 +1004,22 @@ L_Julia:
 L_Done:
     warp "025-3.gat", 77, 168;
     end;
+
+L_Out:
+    set $@battlebosscave, 0;
+    set $@cave10fighter$, "";
+    set $@cave10fighterdeaths, 0;
+    set $@cave10start, 0;
+    set $@timercontrol10, 1;
+    end;
 }
 
 // ---------------------  Julia Cave Checker Outside  ----------------------------
 
-025-4.gat,157,24,0	script	#CheckJuliaCaveOutside	127,1,1,{
-    if ($@wave_cave10 != 0) goto L_Focus;
-    message strcharinfo(0), "As you try to walk through, you bump into an invisible door. You might need a key to open it.";
-    end;
-
-L_Focus:
-    message strcharinfo(0), "I can't use the key while there are monsters around... I should defeat them first.";
+025-4.gat,157,24,0	script	#CheckJuliaCaveOutside	45,1,1,{
+    if (Rossy_Quest > 15) goto L_Done;
+    message strcharinfo(0), "As you try to walk through, you bump into a strong magical barrier.";
+    percentheal 10, 0;
     end;
 
 L_Done:
@@ -847,7 +1029,7 @@ L_Done:
 
 // ---------------------  Julia Cave Checker Inside  ----------------------------
 
-025-4.gat,93,35,0	script	#CheckJuliaCaveInside	127,1,1,{
+025-4.gat,93,35,0	script	#CheckJuliaCaveInside	45,1,1,{
     if (Rossy_Quest >= 17) goto L_Done;
     if (Rossy_Quest == 16) goto L_Save;
     if (Rossy_Quest <= 15) goto L_Cheat;
diff --git a/npc/025-4/clauquer.txt b/npc/025-4/clauquer.txt
index 8796c1d7..1acba11d 100644
--- a/npc/025-4/clauquer.txt
+++ b/npc/025-4/clauquer.txt
@@ -20,13 +20,15 @@ L_Help:
     "Of course not.", -;
   next;
   mes "[Clauquer]";
-  mes "\"I can see that you really want to save the little girl. First of all, you should know that these little caves contain horrible blood thirsty earth monsters. They come from nowhere and you can't escape while they are still alive. And if you take too much time, you will die due to the foul air in the caves and the monsters will move your body outside, to the entrance of the cave. So you better be quick.\"";
+  mes "\"I can see that you really want to save the little girl. She is trapped in a place inside one of these caves, protected by a magic barrier created by a fey spirit. To save her, you have to annulate the energy sources of this barrier. They are located in 10 different spots, each one in a different cave.\"";
   next;
-  mes "\"The girl is trapped in a place inside one of these caves, protected by a door with 9 different locks. You have to find the key for each one of these locks in the different caves around here. They are inside some chests. The problem is, once you try to open the chest, the monsters I told you about will surround you.\"";
+  mes "\"To do this, you have to place a root on the exact center of the energy source. Once you do this, its entire power will transmute into some terrible earth monsters. If you defeat them, this source of energy will be close to nothing and the barrier will be weaker.\"";
   next;
-  mes "\"In these caves, either you die, or they die. This is the only rule. When you kill all the monsters in a cave, make sure you get out immediatelly, because of the air. Don't worry, They only appear when you open the chests.\"";
+  mes "\"If my observations are correct, the girl is trapped in a cave protected by a barrier fed by 9 different power sources. And inside this cave, there is another barrier, fed by a single, but very strong, power source. The girl is inside that cave, protected by that strong barrier.\"";
   next;
-  mes "\"When you enter the cave in which the girl is locked, you'll be in front of numerous monsters. But watch out, the last one is more dangerous than the other ones. When you see it you will be frightened to death. Don't worry, I can give you some advices.\"";
+  mes "\"Be prepared before you enter one of those caves, because once you put the root in the power source, you won't be able to get out. Also, remember that you can't stay in those caves for a long time, because of the foul air.\"";
+  next;
+  mes "\"Now I should tell you more about how that little girl got into that cave and warn you about what you are going to face there...\"";
   next;
   menu
     "Please go on.", -;
@@ -36,7 +38,7 @@ L_Advice:
   next;
   mes "\"The old tales of hurnscald say this spirit always change his offspring with beautiful and smart human childs, to use them as servants. And his offspring usually forgets about its own origin, growing up in a human family. But they are usually 'people' with really bad temper, the kind of people who does terrible things in this world...\"";
   next;
-  mes "However, the girl you are looking for is mentally too strong, and the spirit is having problems to create a changeling identical to her. So it locked her in one of those terrible caves, trying to scare the poor girl and make his task easier. As you can see, scary story.\"";
+  mes "However, the girl you are looking for is mentally too strong, and the spirit is having problems to create a changeling identical to her. So it locked her in one of those terrible caves, trying to scare the poor girl and make his task easier.\"";
   next;
   mes "\"Oh, and if you really plan to rescue the girl in the cave, I advise you to use potions for every single battle, I'm thinking of Concentration and Iron Potions. You might want to take some food with you, you might be hungry in battle. I would personally take some water, I'm always thirsty. Don't be afraid to take too much of each, the battles take time to end.\"";
   next;