// Authors: alastrim, Ali-g, Dark Mage

// -----------------------------------Warp to Cave 1 ---------------------------------------

025-3.gat,78,127,0	script	#WarpBattleCave1	45,1,1,{

    if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
    if (getareausers("025-4.gat", 26, 63, 60, 97) >= 1 || $@battlecave1 == 1) goto L_SomeoneInside;
    if (cavefights & BATTLE_CAVE1) goto L_AlreadyDone;
    if (Rossy_Quest < 15) goto L_Block;

L_StartFight:
    set $@battlecave1, 1;
    warp "025-4.gat", 41, 95;
    set $@cave1fighter$, strcharinfo(0);
    set $@cave1fighterdeaths, PC_DIE_COUNTER;
    startnpctimer;
    set $@cave1start, gettimetick(2);
    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. The cave seems to be blocked.";
    end;

L_AlreadyDone:
    message strcharinfo(0), "I already eliminated this source of energy.";
    end;

L_AlreadyHelped:
    message strcharinfo(0), "There is nothing more than dead monster corpses in this cave.";
    end;

L_Block:
    message strcharinfo(0), "Maybe I should learn a bit more about this place before I go inside.";
    end;

OnTimer5000:
    if ($@battlecave1 == 0) goto L_AlreadyClean;
    if (isloggedin(getcharid(3,$@cave1fighter$))==0) goto L_CleaningNorid;
    attachrid(getcharid(3,$@cave1fighter$));
    if (cavefights & BATTLE_CAVE1) goto L_Win;
    if (getareausers("025-4.gat", 26, 63, 60, 97) < 1) goto L_Ranaway;
    if (gettimetick(2) - $@cave1start >= $@CAVE1_TIME) goto L_Cleaning;
    if (PC_DIE_COUNTER > $@cave1fighterdeaths) goto L_CleaningDead;
    setnpctimer 0;
    end;

L_Win:
    attachrid(getcharid(3,$@cave1fighter$));
    message strcharinfo(0), "It is getting harder to breathe inside this cave... You feel like you are almost passing out.";
    if ((gettimetick(2) - $@cave1start) < 60) set $@cave1start, $@cave1start + 60;
    if (Hp - (MaxHp*5)/100 <= 0) goto L_BadAir;
    percentheal -5, 0;
    set $@cave1_timer, $@cave1_timer + 5;
    if ($@cave1_timer >= 60) goto L_BadAir;
    setnpctimer 0;
    end;

L_Ranaway:
    set $@wave_cave1, 0;
    set $@cave1_kills, 0;
    set $@cave1start, 0;
    set $@cave1fighter$, "";
    set $@cave1fighterdeaths$, 0;
    set $@battlecave1, 0;
    killmonster "025-4.gat", "#StartCaveFight1::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

L_BadAir:
    warp "025-3.gat", 78, 129;
    message strcharinfo(0), "You can't stand the foul air inside the cave and run away!";
    set $@wave_cave1, 0;
    set $@cave1_kills, 0;
    set $@cave1start, 0;
    set $@cave1fighter$, "";
    set $@cave1fighterdeaths$, 0;
    set $@battlecave1, 0;
    stopnpctimer;
    setnpctimer 0;
    end;

L_Cleaning:
    attachrid(getcharid(3,$@cave1fighter$));
    warp "025-3.gat", 78, 129;
    message strcharinfo(0), "You took too much time to eliminate this source of energy... If you stay one more second in this cave you won't be able to breathe....";
    set $@wave_cave1, 0;
    set $@cave1_kills, 0;
    set $@cave1start, 0;
    set $@cave1fighter$, "";
    set $@cave1fighterdeaths$, 0;
    set $@battlecave1, 0;
    killmonster "025-4.gat", "#StartCaveFight1::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

L_CleaningDead:
    attachrid(getcharid(3,$@cave1fighter$));
    warp "025-3.gat", 78, 129;
    message strcharinfo(0), "You were not strong enough to eliminate this power source.";
    set $@wave_cave1, 0;
    set $@cave1_kills, 0;
    set $@cave1start, 0;
    set $@cave1fighter$, "";
    set $@cave1fighterdeaths$, 0;
    set $@battlecave1, 0;
    killmonster "025-4.gat", "#StartCaveFight1::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

L_CleaningNorid:
    set $@wave_cave1, 0;
    set $@cave1_kills, 0;
    set $@cave1start, 0;
    set $@cave1fighter$, "";
    set $@cave1fighterdeaths$, 0;
    set $@battlecave1, 0;
    killmonster "025-4.gat", "#StartCaveFight1::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

OnGetout:
    attachrid(getcharid(3,$@cave1fighter$));
    warp "025-3.gat", 78, 129;
    set $@wave_cave1, 0;
    set $@cave1_kills, 0;
    set $@cave1start, 0;
    set $@cave1fighter$, "";
    set $@cave1fighterdeaths$, 0;
    set $@battlecave1, 0;
    stopnpctimer;
    setnpctimer 0;
    end;

L_AlreadyClean:
    stopnpctimer;
    setnpctimer 0;    
    end;

}

// ---------------------------- Warp to Cave 2 ----------------------------

025-3.gat,53,107,0	script	#WarpBattleCave2	45,1,1,{

    if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
    if (getareausers("025-4.gat", 97, 62, 126, 96) >= 1 || $@battlecave2 == 1) goto L_SomeoneInside;
    if (cavefights & BATTLE_CAVE2) goto L_AlreadyDone;
    if (Rossy_Quest < 15) goto L_Block;

L_StartFight:
    set $@battlecave2, 1;
    warp "025-4.gat", 110, 94;
    set $@cave2fighter$, strcharinfo(0);
    set $@cave2fighterdeaths, PC_DIE_COUNTER;
    startnpctimer;
    set $@cave2start, gettimetick(2);
    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. The cave seems to be blocked.";
    end;

L_AlreadyDone:
    message strcharinfo(0), "I already eliminated this source of energy.";
    end;

L_AlreadyHelped:
    message strcharinfo(0), "There is nothing more than dead monster corpses in this cave.";
    end;

L_Block:
    message strcharinfo(0), "Maybe I should learn a bit more about this place before I go inside.";
    end;

OnTimer5000:
    if ($@battlecave2 == 0) goto L_AlreadyClean;
    if (isloggedin(getcharid(3,$@cave2fighter$))==0) goto L_CleaningNorid;
    attachrid(getcharid(3,$@cave2fighter$));
    if (cavefights & BATTLE_CAVE2) goto L_Win;
    if (getareausers("025-4.gat", 97, 62, 126, 96) < 1) goto L_Ranaway;
    if (gettimetick(2) - $@cave2start >= $@CAVE2_TIME) goto L_Cleaning;
    if (PC_DIE_COUNTER > $@cave2fighterdeaths) goto L_CleaningDead;
    setnpctimer 0;
    end;

L_Win:
    attachrid(getcharid(3,$@cave2fighter$));
    message strcharinfo(0), "It is getting harder to breathe inside this cave... You feel like you are almost passing out.";
    if ((gettimetick(2) - $@cave2start) < 60) set $@cave2start, $@cave2start + 60;
    if (Hp - (MaxHp*5)/100 <= 0) goto L_BadAir;
    percentheal -5, 0;
    set $@cave2_timer, $@cave2_timer + 5;
    if ($@cave2_timer >= 60) goto L_BadAir;
    setnpctimer 0;
    end;

L_Ranaway:
    set $@wave_cave2, 0;
    set $@cave2_kills, 0;
    set $@cave2start, 0;
    set $@cave2fighter$, "";
    set $@cave2fighterdeaths$, 0;
    set $@battlecave2, 0;
    killmonster "025-4.gat", "#StartCaveFight2::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

L_BadAir:
    warp "025-3.gat", 53, 109;
    message strcharinfo(0), "You can't stand the foul air inside the cave and run away!";
    set $@wave_cave1, 0;
    set $@cave2_kills, 0;
    set $@cave2start, 0;
    set $@cave2fighter$, "";
    set $@cave2fighterdeaths$, 0;
    set $@battlecave2, 0;
    stopnpctimer;
    setnpctimer 0;
    end;

L_Cleaning:
    attachrid(getcharid(3,$@cave2fighter$));
    warp "025-3.gat", 53, 109;
    message strcharinfo(0), "You took too much time to eliminate this source of energy... If you stay one more second in this cave you won't be able to breathe....";
    set $@wave_cave2, 0;
    set $@cave2_kills, 0;
    set $@cave2start, 0;
    set $@cave2fighter$, "";
    set $@cave2fighterdeaths$, 0;
    set $@battlecave2, 0;
    killmonster "025-4.gat", "#StartCaveFight2::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

L_CleaningDead:
    attachrid(getcharid(3,$@cave2fighter$));
    warp "025-3.gat", 53, 109;
    message strcharinfo(0), "You were not strong enough to eliminate this power source.";
    set $@wave_cave2, 0;
    set $@cave2_kills, 0;
    set $@cave2start, 0;
    set $@cave2fighter$, "";
    set $@cave2fighterdeaths$, 0;
    set $@battlecave2, 0;
    killmonster "025-4.gat", "#StartCaveFight2::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

L_CleaningNorid:
    set $@wave_cave2, 0;
    set $@cave2_kills, 0;
    set $@cave2start, 0;
    set $@cave2fighter$, "";
    set $@cave2fighterdeaths$, 0;
    set $@battlecave2, 0;
    killmonster "025-4.gat", "#StartCaveFight2::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

OnGetout:
    attachrid(getcharid(3,$@cave2fighter$));
    warp "025-3.gat", 53, 109;
    set $@wave_cave2, 0;
    set $@cave2_kills, 0;
    set $@cave2start, 0;
    set $@cave2fighter$, "";
    set $@cave2fighterdeaths$, 0;
    set $@battlecave2, 0;
    stopnpctimer;
    setnpctimer 0;
    end;

L_AlreadyClean:
    stopnpctimer;
    setnpctimer 0;    
    end;
}

// --------------------------------- Warp to Cave 3 ----------------------------------------

025-3.gat,71,83,0	script	#WarpBattleCave3	45,1,1,{

    if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
    if (getareausers("025-4.gat", 150, 84, 177, 117) >= 1 || $@battlecave3 == 1) goto L_SomeoneInside;
    if (cavefights & BATTLE_CAVE3) goto L_AlreadyDone;
    if (Rossy_Quest < 15) goto L_Block;

L_StartFight:
    set $@battlecave3, 1;
    warp "025-4.gat", 168, 115;
    set $@cave3fighter$, strcharinfo(0);
    set $@cave3fighterdeaths, PC_DIE_COUNTER;
    startnpctimer;
    set $@cave3start, gettimetick(2);
    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. The cave seems to be blocked.";
    end;

L_AlreadyDone:
    message strcharinfo(0), "I already eliminated this source of energy.";
    end;

L_AlreadyHelped:
    message strcharinfo(0), "There is nothing more than dead monster corpses in this cave.";
    end;

L_Block:
    message strcharinfo(0), "Maybe I should learn a bit more about this place before I go inside.";
    end;

OnTimer5000:
    if ($@battlecave3 == 0) goto L_AlreadyClean;
    if (isloggedin(getcharid(3,$@cave3fighter$))==0) goto L_CleaningNorid;
    attachrid(getcharid(3,$@cave3fighter$));
    if (cavefights & BATTLE_CAVE3) goto L_Win;
    if (getareausers("025-4.gat", 150, 84, 177, 117) < 1) goto L_Ranaway;
    if (gettimetick(2) - $@cave3start >= $@CAVE3_TIME) goto L_Cleaning;
    if (PC_DIE_COUNTER > $@cave3fighterdeaths) goto L_CleaningDead;
    setnpctimer 0;
    end;

L_Win:
    attachrid(getcharid(3,$@cave3fighter$));
    message strcharinfo(0), "It is getting harder to breathe inside this cave... You feel like you are almost passing out.";
    if ((gettimetick(2) - $@cave3start) < 60) set $@cave3start, $@cave3start + 60;
    if (Hp - (MaxHp*5)/100 <= 0) goto L_BadAir;
    percentheal -5, 0;
    set $@cave3_timer, $@cave3_timer + 5;
    if ($@cave3_timer >= 60) goto L_BadAir;
    setnpctimer 0;
    end;

L_Ranaway:
    set $@wave_cave3, 0;
    set $@cave3_kills, 0;
    set $@cave3start, 0;
    set $@cave3fighter$, "";
    set $@cave3fighterdeaths$, 0;
    set $@battlecave3, 0;
    killmonster "025-4.gat", "#StartCaveFight3::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

L_BadAir:
    warp "025-3.gat", 71, 85;
    message strcharinfo(0), "You can't stand the foul air inside the cave and run away!";
    set $@wave_cave3, 0;
    set $@cave3_kills, 0;
    set $@cave3start, 0;
    set $@cave3fighter$, "";
    set $@cave3fighterdeaths$, 0;
    set $@battlecave3, 0;
    stopnpctimer;
    setnpctimer 0;
    end;

L_Cleaning:
    attachrid(getcharid(3,$@cave3fighter$));
    warp "025-3.gat", 71, 85;
    message strcharinfo(0), "You took too much time to eliminate this source of energy... If you stay one more second in this cave you won't be able to breathe....";
    set $@wave_cave3, 0;
    set $@cave3_kills, 0;
    set $@cave3start, 0;
    set $@cave3fighter$, "";
    set $@cave3fighterdeaths$, 0;
    set $@battlecave3, 0;
    killmonster "025-4.gat", "#StartCaveFight3::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

L_CleaningDead:
    attachrid(getcharid(3,$@cave3fighter$));
    warp "025-3.gat", 71, 85;
    message strcharinfo(0), "You were not strong enough to eliminate this power source.";
    set $@wave_cave3, 0;
    set $@cave3_kills, 0;
    set $@cave3start, 0;
    set $@cave3fighter$, "";
    set $@cave3fighterdeaths$, 0;
    set $@battlecave3, 0;
    killmonster "025-4.gat", "#StartCaveFight3::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

L_CleaningNorid:
    set $@wave_cave3, 0;
    set $@cave3_kills, 0;
    set $@cave3start, 0;
    set $@cave3fighter$, "";
    set $@cave3fighterdeaths$, 0;
    set $@battlecave3, 0;
    killmonster "025-4.gat", "#StartCaveFight3::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

OnGetout:
    attachrid(getcharid(3,$@cave3fighter$));
    warp "025-3.gat", 71, 85;
    set $@wave_cave3, 0;
    set $@cave3_kills, 0;
    set $@cave3start, 0;
    set $@cave3fighter$, "";
    set $@cave3fighterdeaths$, 0;
    set $@battlecave3, 0;
    stopnpctimer;
    setnpctimer 0;
    end;

L_AlreadyClean:
    stopnpctimer;
    setnpctimer 0;    
    end;
}

// --------------------------- Warp to Cave 4 --------------------------------------

025-3.gat,80,83,0	script	#WarpBattleCave4	45,1,1,{

    if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
    if (getareausers("025-4.gat", 28, 124, 57, 156) >= 1 || $@battlecave4 == 1) goto L_SomeoneInside;
    if (cavefights & BATTLE_CAVE4) goto L_AlreadyDone;
    if (Rossy_Quest < 15) goto L_Block;

L_StartFight:
    set $@battlecave4, 1;
    warp "025-4.gat", 32, 154;
    set $@cave4fighter$, strcharinfo(0);
    set $@cave4fighterdeaths, PC_DIE_COUNTER;
    startnpctimer;
    set $@cave4start, gettimetick(2);
    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. The cave seems to be blocked.";
    end;

L_AlreadyDone:
    message strcharinfo(0), "I already eliminated this source of energy.";
    end;

L_AlreadyHelped:
    message strcharinfo(0), "There is nothing more than dead monster corpses in this cave.";
    end;

L_Block:
    message strcharinfo(0), "Maybe I should learn a bit more about this place before I go inside.";
    end;

OnTimer5000:
    if ($@battlecave4 == 0) goto L_AlreadyClean;
    if (isloggedin(getcharid(3,$@cave4fighter$))==0) goto L_CleaningNorid;
    attachrid(getcharid(3,$@cave4fighter$));
    if (cavefights & BATTLE_CAVE4) goto L_Win;
    if (getareausers("025-4.gat", 28, 124, 57, 156) < 1) goto L_Ranaway;
    if (gettimetick(2) - $@cave4start >= $@CAVE4_TIME) goto L_Cleaning;
    if (PC_DIE_COUNTER > $@cave4fighterdeaths) goto L_CleaningDead;
    setnpctimer 0;
    end;

L_Win:
    attachrid(getcharid(3,$@cave4fighter$));
    message strcharinfo(0), "It is getting harder to breathe inside this cave... You feel like you are almost passing out.";
    if ((gettimetick(2) - $@cave4start) < 60) set $@cave4start, $@cave4start + 60;
    if (Hp - (MaxHp*5)/100 <= 0) goto L_BadAir;
    percentheal -5, 0;
    set $@cave4_timer, $@cave4_timer + 5;
    if ($@cave4_timer >= 60) goto L_BadAir;
    setnpctimer 0;
    end;

L_Ranaway:
    set $@wave_cave4, 0;
    set $@cave4_kills, 0;
    set $@cave4start, 0;
    set $@cave4fighter$, "";
    set $@cave4fighterdeaths$, 0;
    set $@battlecave4, 0;
    killmonster "025-4.gat", "#StartCaveFight4::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

L_BadAir:
    warp "025-3.gat", 80, 85;
    message strcharinfo(0), "You can't stand the foul air inside the cave and run away!";
    set $@wave_cave4, 0;
    set $@cave4_kills, 0;
    set $@cave4start, 0;
    set $@cave4fighter$, "";
    set $@cave4fighterdeaths$, 0;
    set $@battlecave4, 0;
    stopnpctimer;
    setnpctimer 0;
    end;

L_Cleaning:
    attachrid(getcharid(3,$@cave4fighter$));
    warp "025-3.gat", 80, 85;
    message strcharinfo(0), "You took too much time to eliminate this source of energy... If you stay one more second in this cave you won't be able to breathe....";
    set $@wave_cave4, 0;
    set $@cave4_kills, 0;
    set $@cave4start, 0;
    set $@cave4fighter$, "";
    set $@cave4fighterdeaths$, 0;
    set $@battlecave4, 0;
    killmonster "025-4.gat", "#StartCaveFight4::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

L_CleaningDead:
    attachrid(getcharid(3,$@cave4fighter$));
    warp "025-3.gat", 80, 85;
    message strcharinfo(0), "You were not strong enough to eliminate this power source.";
    set $@wave_cave4, 0;
    set $@cave4_kills, 0;
    set $@cave4start, 0;
    set $@cave4fighter$, "";
    set $@cave4fighterdeaths$, 0;
    set $@battlecave4, 0;
    killmonster "025-4.gat", "#StartCaveFight4::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

L_CleaningNorid:
    set $@wave_cave4, 0;
    set $@cave4_kills, 0;
    set $@cave4start, 0;
    set $@cave4fighter$, "";
    set $@cave4fighterdeaths$, 0;
    set $@battlecave4, 0;
    killmonster "025-4.gat", "#StartCaveFight4::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

OnGetout:
    attachrid(getcharid(3,$@cave4fighter$));
    warp "025-3.gat", 80, 85;
    set $@wave_cave4, 0;
    set $@cave4_kills, 0;
    set $@cave4start, 0;
    set $@cave4fighter$, "";
    set $@cave4fighterdeaths$, 0;
    set $@battlecave4, 0;
    stopnpctimer;
    setnpctimer 0;
    end;

L_AlreadyClean:
    stopnpctimer;
    setnpctimer 0;    
    end;
}

// --------------------------- Warp to Cave 5 ----------------------------------------

025-3.gat,71,30,0	script	#WarpBattleCave5	45,1,1,{

    if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
    if (getareausers("025-4.gat", 91, 131, 124, 160) >= 1 || $@battlecave5 == 1) goto L_SomeoneInside;
    if (cavefights & BATTLE_CAVE5) goto L_AlreadyDone;
    if (Rossy_Quest < 15) goto L_Block;

L_StartFight:
    set $@battlecave5, 1;
    warp "025-4.gat", 100, 158;
    set $@cave5fighter$, strcharinfo(0);
    set $@cave5fighterdeaths, PC_DIE_COUNTER;
    startnpctimer;
    set $@cave5start, gettimetick(2);
    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. The cave seems to be blocked.";
    end;

L_AlreadyDone:
    message strcharinfo(0), "I already eliminated this source of energy.";
    end;

L_AlreadyHelped:
    message strcharinfo(0), "There is nothing more than dead monster corpses in this cave.";
    end;

L_Block:
    message strcharinfo(0), "Maybe I should learn a bit more about this place before I go inside.";
    end;

OnTimer5000:
    if ($@battlecave5 == 0) goto L_AlreadyClean;
    if (isloggedin(getcharid(3,$@cave5fighter$))==0) goto L_CleaningNorid;
    attachrid(getcharid(3,$@cave5fighter$));
    if (cavefights & BATTLE_CAVE5) goto L_Win;
    if (getareausers("025-4.gat", 91, 131, 124, 160) < 1) goto L_Ranaway;
    if (gettimetick(2) - $@cave5start >= $@CAVE5_TIME) goto L_Cleaning;
    if (PC_DIE_COUNTER > $@cave5fighterdeaths) goto L_CleaningDead;
    setnpctimer 0;
    end;

L_Win:
    attachrid(getcharid(3,$@cave5fighter$));
    message strcharinfo(0), "It is getting harder to breathe inside this cave... You feel like you are almost passing out.";
    if ((gettimetick(2) - $@cave5start) < 60) set $@cave5start, $@cave5start + 60;
    if (Hp - (MaxHp*5)/100 <= 0) goto L_BadAir;
    percentheal -5, 0;
    set $@cave5_timer, $@cave5_timer + 5;
    if ($@cave5_timer >= 60) goto L_BadAir;
    setnpctimer 0;
    end;

L_Ranaway:
    set $@wave_cave5, 0;
    set $@cave5_kills, 0;
    set $@cave5start, 0;
    set $@cave5fighter$, "";
    set $@cave5fighterdeaths$, 0;
    set $@battlecave5, 0;
    killmonster "025-4.gat", "#StartCaveFight5::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

L_BadAir:
    warp "025-3.gat", 71, 32;
    message strcharinfo(0), "You can't stand the foul air inside the cave and run away!";
    set $@wave_cave5, 0;
    set $@cave5_kills, 0;
    set $@cave5start, 0;
    set $@cave5fighter$, "";
    set $@cave5fighterdeaths$, 0;
    set $@battlecave5, 0;
    stopnpctimer;
    setnpctimer 0;
    end;

L_Cleaning:
    attachrid(getcharid(3,$@cave5fighter$));
    warp "025-3.gat", 71, 32;
    message strcharinfo(0), "You took too much time to eliminate this source of energy... If you stay one more second in this cave you won't be able to breathe....";
    set $@wave_cave5, 0;
    set $@cave5_kills, 0;
    set $@cave5start, 0;
    set $@cave5fighter$, "";
    set $@cave5fighterdeaths$, 0;
    set $@battlecave5, 0;
    killmonster "025-4.gat", "#StartCaveFight5::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

L_CleaningDead:
    attachrid(getcharid(3,$@cave5fighter$));
    warp "025-3.gat", 71, 32;
    message strcharinfo(0), "You were not strong enough to eliminate this power source.";
    set $@wave_cave5, 0;
    set $@cave5_kills, 0;
    set $@cave5start, 0;
    set $@cave5fighter$, "";
    set $@cave5fighterdeaths$, 0;
    set $@battlecave5, 0;
    killmonster "025-4.gat", "#StartCaveFight5::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

L_CleaningNorid:
    set $@wave_cave5, 0;
    set $@cave5_kills, 0;
    set $@cave5start, 0;
    set $@cave5fighter$, "";
    set $@cave5fighterdeaths$, 0;
    set $@battlecave5, 0;
    killmonster "025-4.gat", "#StartCaveFight5::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

OnGetout:
    attachrid(getcharid(3,$@cave5fighter$));
    warp "025-3.gat", 71, 32;
    set $@wave_cave5, 0;
    set $@cave5_kills, 0;
    set $@cave5start, 0;
    set $@cave5fighter$, "";
    set $@cave5fighterdeaths$, 0;
    set $@battlecave5, 0;
    stopnpctimer;
    setnpctimer 0;
    end;

L_AlreadyClean:
    stopnpctimer;
    setnpctimer 0;    
    end;
}

// -------------------------------- Warp to Cave 6 -----------------------------------------

025-3.gat,128,35,0	script	#WarpBattleCave6	45,1,1,{

    if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
    if (getareausers("025-4.gat", 153, 143, 178, 174) >= 1 || $@battlecave6 == 1) goto L_SomeoneInside;
    if (cavefights & BATTLE_CAVE6) goto L_AlreadyDone;
    if (Rossy_Quest < 15) goto L_Block;

L_StartFight:
    set $@battlecave6, 1;
    warp "025-4.gat", 159, 172;
    set $@cave6fighter$, strcharinfo(0);
    set $@cave6fighterdeaths, PC_DIE_COUNTER;
    startnpctimer;
    set $@cave6start, gettimetick(2);
    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. The cave seems to be blocked.";
    end;

L_AlreadyDone:
    message strcharinfo(0), "I already eliminated this source of energy.";
    end;

L_AlreadyHelped:
    message strcharinfo(0), "There is nothing more than dead monster corpses in this cave.";
    end;

L_Block:
    message strcharinfo(0), "Maybe I should learn a bit more about this place before I go inside.";
    end;

OnTimer5000:
    if ($@battlecave6 == 0) goto L_AlreadyClean;
    if (isloggedin(getcharid(3,$@cave6fighter$))==0) goto L_CleaningNorid;
    attachrid(getcharid(3,$@cave6fighter$));
    if (cavefights & BATTLE_CAVE6) goto L_Win;
    if (getareausers("025-4.gat", 153, 143, 178, 174) < 1) goto L_Ranaway;
    if (gettimetick(2) - $@cave6start >= $@CAVE6_TIME) goto L_Cleaning;
    if (PC_DIE_COUNTER > $@cave6fighterdeaths) goto L_CleaningDead;
    setnpctimer 0;
    end;

L_Win:
    attachrid(getcharid(3,$@cave6fighter$));
    message strcharinfo(0), "It is getting harder to breathe inside this cave... You feel like you are almost passing out.";
    if ((gettimetick(2) - $@cave6start) < 60) set $@cave6start, $@cave6start + 60;
    if (Hp - (MaxHp*5)/100 <= 0) goto L_BadAir;
    percentheal -5, 0;
    set $@cave6_timer, $@cave6_timer + 5;
    if ($@cave6_timer >= 60) goto L_BadAir;
    setnpctimer 0;
    end;

L_Ranaway:
    set $@wave_cave6, 0;
    set $@cave6_kills, 0;
    set $@cave6start, 0;
    set $@cave6fighter$, "";
    set $@cave6fighterdeaths$, 0;
    set $@battlecave6, 0;
    killmonster "025-4.gat", "#StartCaveFight6::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

L_BadAir:
    warp "025-3.gat", 128, 37;
    message strcharinfo(0), "You can't stand the foul air inside the cave and run away!";
    set $@wave_cave6, 0;
    set $@cave6_kills, 0;
    set $@cave6start, 0;
    set $@cave6fighter$, "";
    set $@cave6fighterdeaths$, 0;
    set $@battlecave6, 0;
    stopnpctimer;
    setnpctimer 0;
    end;

L_Cleaning:
    attachrid(getcharid(3,$@cave6fighter$));
    warp "025-3.gat", 128, 37;
    message strcharinfo(0), "You took too much time to eliminate this source of energy... If you stay one more second in this cave you won't be able to breathe....";
    set $@wave_cave6, 0;
    set $@cave6_kills, 0;
    set $@cave6start, 0;
    set $@cave6fighter$, "";
    set $@cave6fighterdeaths$, 0;
    set $@battlecave6, 0;
    killmonster "025-4.gat", "#StartCaveFight6::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

L_CleaningDead:
    attachrid(getcharid(3,$@cave6fighter$));
    warp "025-3.gat", 128, 37;
    message strcharinfo(0), "You were not strong enough to eliminate this power source.";
    set $@wave_cave6, 0;
    set $@cave6_kills, 0;
    set $@cave6start, 0;
    set $@cave6fighter$, "";
    set $@cave6fighterdeaths$, 0;
    set $@battlecave6, 0;
    killmonster "025-4.gat", "#StartCaveFight6::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

L_CleaningNorid:
    set $@wave_cave6, 0;
    set $@cave6_kills, 0;
    set $@cave6start, 0;
    set $@cave6fighter$, "";
    set $@cave6fighterdeaths$, 0;
    set $@battlecave6, 0;
    killmonster "025-4.gat", "#StartCaveFight6::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

OnGetout:
    attachrid(getcharid(3,$@cave6fighter$));
    warp "025-3.gat", 128, 37;
    set $@wave_cave6, 0;
    set $@cave6_kills, 0;
    set $@cave6start, 0;
    set $@cave6fighter$, "";
    set $@cave6fighterdeaths$, 0;
    set $@battlecave6, 0;
    stopnpctimer;
    setnpctimer 0;
    end;

L_AlreadyClean:
    stopnpctimer;
    setnpctimer 0;    
    end;
}

// ---------------------------- Warp to Cave 7 ------------------------------------------

025-3.gat,70,57,0	script	#WarpBattleCave7	45,1,1,{

    if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
    if (getareausers("025-4.gat", 27, 185, 61, 219) >= 1 || $@battlecave7 == 1) goto L_SomeoneInside;
    if (cavefights & BATTLE_CAVE7) goto L_AlreadyDone;
    if (Rossy_Quest < 15) goto L_Block;

L_StartFight:
    set $@battlecave7, 1;
    warp "025-4.gat", 42, 217;
    set $@cave7fighter$, strcharinfo(0);
    set $@cave7fighterdeaths, PC_DIE_COUNTER;
    startnpctimer;
    set $@cave7start, gettimetick(2);
    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. The cave seems to be blocked.";
    end;

L_AlreadyDone:
    message strcharinfo(0), "I already eliminated this source of energy.";
    end;

L_AlreadyHelped:
    message strcharinfo(0), "There is nothing more than dead monster corpses in this cave.";
    end;

L_Block:
    message strcharinfo(0), "Maybe I should learn a bit more about this place before I go inside.";
    end;

OnTimer5000:
    if ($@battlecave7 == 0) goto L_AlreadyClean;
    if (isloggedin(getcharid(3,$@cave7fighter$))==0) goto L_CleaningNorid;
    attachrid(getcharid(3,$@cave7fighter$));
    if (cavefights & BATTLE_CAVE7) goto L_Win;
    if (getareausers("025-4.gat", 27, 185, 61, 219) < 1) goto L_Ranaway;
    if (gettimetick(2) - $@cave7start >= $@CAVE7_TIME) goto L_Cleaning;
    if (PC_DIE_COUNTER > $@cave7fighterdeaths) goto L_CleaningDead;
    setnpctimer 0;
    end;

L_Win:
    attachrid(getcharid(3,$@cave7fighter$));
    message strcharinfo(0), "It is getting harder to breathe inside this cave... You feel like you are almost passing out.";
    if ((gettimetick(2) - $@cave7start) < 60) set $@cave7start, $@cave7start + 60;
    if (Hp - (MaxHp*5)/100 <= 0) goto L_BadAir;
    percentheal -5, 0;
    set $@cave7_timer, $@cave7_timer + 5;
    if ($@cave7_timer >= 60) goto L_BadAir;
    setnpctimer 0;
    end;

L_Ranaway:
    set $@wave_cave7, 0;
    set $@cave7_kills, 0;
    set $@cave7start, 0;
    set $@cave7fighter$, "";
    set $@cave7fighterdeaths$, 0;
    set $@battlecave7, 0;
    killmonster "025-4.gat", "#StartCaveFight7::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;    
    end;

L_BadAir:
    warp "025-3.gat", 70, 59;
    message strcharinfo(0), "You can't stand the foul air inside the cave and run away!";
    set $@wave_cave7, 0;
    set $@cave7_kills, 0;
    set $@cave7start, 0;
    set $@cave7fighter$, "";
    set $@cave7fighterdeaths$, 0;
    set $@battlecave7, 0;
    stopnpctimer;
    setnpctimer 0;
    end;

L_Cleaning:
    attachrid(getcharid(3,$@cave7fighter$));
    warp "025-3.gat", 70, 59;
    message strcharinfo(0), "You took too much time to eliminate this source of energy... If you stay one more second in this cave you won't be able to breathe....";
    set $@wave_cave7, 0;
    set $@cave7_kills, 0;
    set $@cave7start, 0;
    set $@cave7fighter$, "";
    set $@cave7fighterdeaths$, 0;
    set $@battlecave7, 0;
    killmonster "025-4.gat", "#StartCaveFight7::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;    
    end;

L_CleaningDead:
    attachrid(getcharid(3,$@cave7fighter$));
    warp "025-3.gat", 70, 59;
    message strcharinfo(0), "You were not strong enough to eliminate this power source.";
    set $@wave_cave7, 0;
    set $@cave7_kills, 0;
    set $@cave7start, 0;
    set $@cave7fighter$, "";
    set $@cave7fighterdeaths$, 0;
    set $@battlecave7, 0;
    killmonster "025-4.gat", "#StartCaveFight7::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;    
    end;

L_CleaningNorid:
    set $@wave_cave7, 0;
    set $@cave7_kills, 0;
    set $@cave7start, 0;
    set $@cave7fighter$, "";
    set $@cave7fighterdeaths$, 0;
    set $@battlecave7, 0;
    killmonster "025-4.gat", "#StartCaveFight7::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;    
    end;

OnGetout:
    attachrid(getcharid(3,$@cave7fighter$));
    warp "025-3.gat", 70, 59;
    set $@wave_cave7, 0;
    set $@cave7_kills, 0;
    set $@cave7start, 0;
    set $@cave7fighter$, "";
    set $@cave7fighterdeaths$, 0;
    set $@battlecave7, 0;
    stopnpctimer;
    setnpctimer 0;
    end;

L_AlreadyClean:
    stopnpctimer;
    setnpctimer 0;    
    end;
}

// -----------------------------------------------Warp to Cave 8-------------------------------------------------------------

025-3.gat,138,92,0	script	#WarpBattleCave8	45,1,1,{

    if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
    if (getareausers("025-4.gat", 90, 193, 119, 216) >= 1 || $@battlecave8 == 1) goto L_SomeoneInside;
    if (cavefights & BATTLE_CAVE8) goto L_AlreadyDone;
    if (Rossy_Quest < 15) goto L_Block;

L_StartFight:
    set $@battlecave8, 1;
    warp "025-4.gat", 105, 214;
    set $@cave8fighter$, strcharinfo(0);
    set $@cave8fighterdeaths, PC_DIE_COUNTER;
    startnpctimer;
    set $@cave8start, gettimetick(2);
    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. The cave seems to be blocked.";
    end;

L_AlreadyDone:
    message strcharinfo(0), "I already eliminated this source of energy.";
    end;

L_AlreadyHelped:
    message strcharinfo(0), "There is nothing more than dead monster corpses in this cave.";
    end;

L_Block:
    message strcharinfo(0), "Maybe I should learn a bit more about this place before I go inside.";
    end;

OnTimer5000:
    if ($@battlecave8 == 0) goto L_AlreadyClean;
    if (isloggedin(getcharid(3,$@cave8fighter$))==0) goto L_CleaningNorid;
    attachrid(getcharid(3,$@cave8fighter$));
    if (cavefights & BATTLE_CAVE8) goto L_Win;
    if (getareausers("025-4.gat", 90, 193, 119, 216) < 1) goto L_Ranaway;
    if (gettimetick(2) - $@cave8start >= $@CAVE8_TIME) goto L_Cleaning;
    if (PC_DIE_COUNTER > $@cave8fighterdeaths) goto L_CleaningDead;
    setnpctimer 0;
    end;

L_Win:
    attachrid(getcharid(3,$@cave8fighter$));
    message strcharinfo(0), "It is getting harder to breathe inside this cave... You feel like you are almost passing out.";
    if ((gettimetick(2) - $@cave8start) < 60) set $@cave8start, $@cave8start + 60;
    if (Hp - (MaxHp*5)/100 <= 0) goto L_BadAir;
    percentheal -5, 0;
    set $@cave8_timer, $@cave8_timer + 5;
    if ($@cave8_timer >= 60) goto L_BadAir;
    setnpctimer 0;
    end;

L_Ranaway:
    set $@wave_cave8, 0;
    set $@cave8_kills, 0;
    set $@cave8start, 0;
    set $@cave8fighter$, "";
    set $@cave8fighterdeaths$, 0;
    set $@battlecave8, 0;
    killmonster "025-4.gat", "#StartCaveFight8::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

L_BadAir:
    warp "025-3.gat", 138, 94;
    message strcharinfo(0), "You can't stand the foul air inside the cave and run away!";
    set $@wave_cave8, 0;
    set $@cave8_kills, 0;
    set $@cave8start, 0;
    set $@cave8fighter$, "";
    set $@cave8fighterdeaths$, 0;
    set $@battlecave8, 0;
    stopnpctimer;
    setnpctimer 0;
    end;

L_Cleaning:
    attachrid(getcharid(3,$@cave8fighter$));
    warp "025-3.gat", 138, 94;
    message strcharinfo(0), "You took too much time to eliminate this source of energy... If you stay one more second in this cave you won't be able to breathe....";
    set $@wave_cave8, 0;
    set $@cave8_kills, 0;
    set $@cave8start, 0;
    set $@cave8fighter$, "";
    set $@cave8fighterdeaths$, 0;
    set $@battlecave8, 0;
    killmonster "025-4.gat", "#StartCaveFight8::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

L_CleaningDead:
    attachrid(getcharid(3,$@cave8fighter$));
    warp "025-3.gat", 138, 94;
    message strcharinfo(0), "You were not strong enough to eliminate this power source.";
    set $@wave_cave8, 0;
    set $@cave8_kills, 0;
    set $@cave8start, 0;
    set $@cave8fighter$, "";
    set $@cave8fighterdeaths$, 0;
    set $@battlecave8, 0;
    killmonster "025-4.gat", "#StartCaveFight8::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;
    end;

L_CleaningNorid:
    set $@wave_cave8, 0;
    set $@cave8_kills, 0;
    set $@cave8start, 0;
    set $@cave8fighter$, "";
    set $@cave8fighterdeaths$, 0;
    set $@battlecave8, 0;
    killmonster "025-4.gat", "#StartCaveFight8::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;    
    end;

OnGetout:
    attachrid(getcharid(3,$@cave8fighter$));
    warp "025-3.gat", 138, 94;
    set $@wave_cave8, 0;
    set $@cave8_kills, 0;
    set $@cave8start, 0;
    set $@cave8fighter$, "";
    set $@cave8fighterdeaths$, 0;
    set $@battlecave8, 0;
    stopnpctimer;
    setnpctimer 0;
    end;

L_AlreadyClean:
    stopnpctimer;
    setnpctimer 0;    
    end;
}

// ------------------------------ Warp to Cave 9 ----------------------------------------

025-3.gat,138,160,0	script	#WarpBattleCave9	45,1,1,{

    if (Rossy_Quest >= 16 || FLAGS & FLAG_ROSSI_COMPLETED) goto L_AlreadyHelped;
    if (getareausers("025-4.gat", 144, 192, 173, 226) >= 1 || $@battlecave9 == 1) goto L_SomeoneInside;
    if (cavefights & BATTLE_CAVE9) goto L_AlreadyDone;
    if (Rossy_Quest < 15) goto L_Block;

L_StartFight:
    set $@battlecave9, 1;
    warp "025-4.gat", 157, 222;
    set $@cave9fighter$, strcharinfo(0);
    set $@cave9fighterdeaths, PC_DIE_COUNTER;
    startnpctimer;
    set $@cave9start, gettimetick(2);
    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. The cave seems to be blocked.";
    end;

L_AlreadyDone:
    message strcharinfo(0), "I already eliminated this source of energy.";
    end;

L_AlreadyHelped:
    message strcharinfo(0), "There is nothing more than dead monster corpses in this cave.";
    end;

L_Block:
    message strcharinfo(0), "Maybe I should learn a bit more about this place before I go inside.";
    end;

OnTimer5000:
    if ($@battlecave9 == 0) goto L_AlreadyClean;
    if (isloggedin(getcharid(3,$@cave9fighter$))==0) goto L_CleaningNorid;
    attachrid(getcharid(3,$@cave9fighter$));
    if (cavefights & BATTLE_CAVE9) goto L_Win;
    if (getareausers("025-4.gat", 144, 192, 173, 226) < 1) goto L_Ranaway;
    if (gettimetick(2) - $@cave9start >= $@CAVE9_TIME) goto L_Cleaning;
    if (PC_DIE_COUNTER > $@cave9fighterdeaths) goto L_CleaningDead;
    setnpctimer 0;
    end;

L_Win:
    attachrid(getcharid(3,$@cave9fighter$));
    message strcharinfo(0), "It is getting harder to breathe inside this cave... You feel like you are almost passing out.";
    if ((gettimetick(2) - $@cave9start) < 60) set $@cave9start, $@cave9start + 60;
    if (Hp - (MaxHp*5)/100 <= 0) goto L_BadAir;
    percentheal -5, 0;
    set $@cave9_timer, $@cave9_timer + 5;
    if ($@cave9_timer >= 60) goto L_BadAir;
    setnpctimer 0;
    end;

L_Ranaway:
    set $@wave_cave9, 0;
    set $@cave9_kills, 0;
    set $@cave9start, 0;
    set $@cave9fighter$, "";
    set $@cave9fighterdeaths$, 0;
    set $@battlecave9, 0;
    killmonster "025-4.gat", "#StartCaveFight9::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;    
    end;

L_BadAir:
    warp "025-3.gat", 138, 158;
    message strcharinfo(0), "You can't stand the foul air inside the cave and run away!";
    set $@wave_cave9, 0;
    set $@cave9_kills, 0;
    set $@cave9start, 0;
    set $@cave9fighter$, "";
    set $@cave9fighterdeaths$, 0;
    set $@battlecave9, 0;
    stopnpctimer;
    setnpctimer 0;
    end;

L_Cleaning:
    attachrid(getcharid(3,$@cave9fighter$));
    warp "025-3.gat", 138, 158;
    message strcharinfo(0), "You took too much time to eliminate this source of energy... If you stay one more second in this cave you won't be able to breathe....";
    set $@wave_cave9, 0;
    set $@cave9_kills, 0;
    set $@cave9start, 0;
    set $@cave9fighter$, "";
    set $@cave9fighterdeaths$, 0;
    set $@battlecave9, 0;
    killmonster "025-4.gat", "#StartCaveFight9::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;    
    end;

L_CleaningDead:
    attachrid(getcharid(3,$@cave9fighter$));
    warp "025-3.gat", 138, 158;
    message strcharinfo(0), "You were not strong enough to eliminate this power source.";
    set $@wave_cave9, 0;
    set $@cave9_kills, 0;
    set $@cave9start, 0;
    set $@cave9fighter$, "";
    set $@cave9fighterdeaths$, 0;
    set $@battlecave9, 0;
    killmonster "025-4.gat", "#StartCaveFight9::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;    
    end;

L_CleaningNorid:
    set $@wave_cave9, 0;
    set $@cave9_kills, 0;
    set $@cave9start, 0;
    set $@cave9fighter$, "";
    set $@cave9fighterdeaths$, 0;
    set $@battlecave9, 0;
    killmonster "025-4.gat", "#StartCaveFight9::OnMonsterDeath";
    stopnpctimer;
    setnpctimer 0;    
    end;

OnGetout:
    attachrid(getcharid(3,$@cave9fighter$));
    warp "025-3.gat", 138, 158;
    set $@wave_cave9, 0;
    set $@cave9_kills, 0;
    set $@cave9start, 0;
    set $@cave9fighter$, "";
    set $@cave9fighterdeaths$, 0;
    set $@battlecave9, 0;
    stopnpctimer;
    setnpctimer 0;
    end;

L_AlreadyClean:
    stopnpctimer;
    setnpctimer 0;    
    end;
}

// ----------------------------- Warp to Boss Cave -------------------------------

025-3.gat,77,170,0	script	#WarpBossCave	45,1,1,{
    if (Rossy_Quest > 16 || FLAGS & FLAG_ROSSI_COMPLETED) end; 
    if (Rossy_Quest == 16) goto L_AlreadyHelped;
    set @barrier_force, -9;
    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 || $@battlecave10 == 1) goto L_SomeoneInside;
    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.";
    percentheal @barrier_force * 10, 0;
    warp "025-3.gat", 77, 164;
    end;

L_StartFight:
    message strcharinfo(0), "You go through the magic barrier without problems... you can hear screams that seem to be very close.";
    set $@battlecave10, 1;
    warp "025-4.gat", 157, 44;
    set $@cave10fighter$, strcharinfo(0);
    set $@cave10fighterdeaths, PC_DIE_COUNTER;
    startnpctimer;
    set $@cave10start, gettimetick(2);
    end;

L_SomeoneInside:
    message strcharinfo(0), $@cave10fighter$ + " is already inside.";
    end;

L_AlreadyHelped:
    message strcharinfo(0), "There is nothing more than corpses in this cave. You close your eyes and go straight to the place where Julia is hidden.";
    warp "025-4.gat", 93, 33;
    end;

OnTimer5000:
    if ($@battlecave10 == 0) goto L_AlreadyClean;
    if (isloggedin(getcharid(3,$@cave10fighter$))==0) goto L_CleaningNorid;
    attachrid(getcharid(3,$@cave10fighter$));
    if (Rossy_Quest == 16) goto L_Win;
    if (getareausers("025-4.gat", 142, 24, 172, 48) < 1) goto L_Ranaway;
    if (gettimetick(2) - $@cave10start >= $@CAVE10_TIME) goto L_Cleaning;
    if (PC_DIE_COUNTER > $@cave10fighterdeaths) goto L_CleaningDead;
    setnpctimer 0;
    end;

L_Win:
    attachrid(getcharid(3,$@cave10fighter$));
    message strcharinfo(0), "It is getting harder to breathe inside this cave... You feel like you are almost passing out.";
    if ((gettimetick(2) - $@cave10start) < 60) set $@cave10start, $@cave10start + 60;
    if (Hp - (MaxHp*5)/100 <= 0) goto L_BadAir;
    percentheal -5, 0;
    set $@cave10_timer, $@cave10_timer + 5;
    if ($@cave10_timer >= 60) goto L_BadAir;
    setnpctimer 0;
    end;

L_Ranaway:
    set $@wave_cave10, 0;
    set $@cave10_kills, 0;
    set $@cave10start, 0;
    set $@cave10fighter$, "";
    set $@cave10fighterdeaths$, 0;
    set $@battlecave10, 0;
    killmonster "025-4.gat", "#StartBossCaveFight::OnMonsterDeath";
    killmonster "025-4.gat", "#StartBossCaveFight::OnBossDeath";
    stopnpctimer;
    setnpctimer 0;    
    end;

L_BadAir:
    warp "025-4.gat", 93, 33;
    message strcharinfo(0), "You can't stand the foul air inside the cave and run as fast as you can to save Julia!";
    set $@wave_cave10, 0;
    set $@cave10_kills, 0;
    set $@cave10start, 0;
    set $@cave10fighter$, "";
    set $@cave10fighterdeaths$, 0;
    set $@battlecave10, 0;
    stopnpctimer;
    setnpctimer 0;
    end;

L_Cleaning:
    attachrid(getcharid(3,$@cave10fighter$));
    warp "025-3.gat", 77, 168;
    message strcharinfo(0), "You took too much time to eliminate this source of energy... If you stay one more second in this cave you won't be able to breathe....";
    set $@wave_cave10, 0;
    set $@cave10_kills, 0;
    set $@cave10start, 0;
    set $@cave10fighter$, "";
    set $@cave10fighterdeaths$, 0;
    set $@battlecave10, 0;
    killmonster "025-4.gat", "#StartBossCaveFight::OnMonsterDeath";
    killmonster "025-4.gat", "#StartBossCaveFight::OnBossDeath";
    stopnpctimer;
    setnpctimer 0;    
    end;

L_CleaningDead:
    attachrid(getcharid(3,$@cave10fighter$));
    warp "025-3.gat", 77, 168;
    if ($@wave_cave10 < 5) message strcharinfo(0), "You were not strong enough to eliminate this power source.";
    if ($@wave_cave10 == 5) message strcharinfo(0), "This horrible monster is probably too powerful for you right now.";
    set $@wave_cave10, 0;
    set $@cave10_kills, 0;
    set $@cave10start, 0;
    set $@cave10fighter$, "";
    set $@cave10fighterdeaths$, 0;
    set $@battlecave10, 0;
    killmonster "025-4.gat", "#StartBossCaveFight::OnMonsterDeath";
    killmonster "025-4.gat", "#StartBossCaveFight::OnBossDeath";
    stopnpctimer;
    setnpctimer 0;    
    end;

L_CleaningNorid:
    set $@wave_cave10, 0;
    set $@cave10_kills, 0;
    set $@cave10start, 0;
    set $@cave10fighter$, "";
    set $@cave10fighterdeaths$, 0;
    set $@battlecave10, 0;
    killmonster "025-4.gat", "#StartBossCaveFight::OnMonsterDeath";
    killmonster "025-4.gat", "#StartBossCaveFight::OnBossDeath";
    stopnpctimer;
    setnpctimer 0;    
    end;

OnGetout:
    attachrid(getcharid(3,$@cave10fighter$));
    warp "025-3.gat", 77, 168;
    set $@wave_cave10, 0;
    set $@cave10_kills, 0;
    set $@cave10start, 0;
    set $@cave10fighter$, "";
    set $@cave10fighterdeaths$, 0;
    set $@battlecave10, 0;
    stopnpctimer;
    setnpctimer 0;
    end;

OnWin:
    attachrid(getcharid(3,$@cave10fighter$));
    warp "025-4.gat", 93, 33;
    set $@wave_cave10, 0;
    set $@cave10_kills, 0;
    set $@cave10start, 0;
    set $@cave10fighter$, "";
    set $@cave10fighterdeaths$, 0;
    set $@battlecave10, 0;
    stopnpctimer;
    setnpctimer 0;
    end;

L_AlreadyClean:
    stopnpctimer;
    setnpctimer 0;    
    end;
}