// This script controls the Keshlam Swamps
// Made for Doomsday Event - The 070-3 and original quests were lost due this

027-4,105,61,0|script|#KeshlamClue701|400
{
    if (!#CRYPT_PASSWORD) end;
    mes "In memory of the left handed singer";
    if (#CRYPT_PASSWORD & 1) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At south a bright sparks.";
    close;

L_Off:
    mes "A reading says: At northeast a bright sparks.";
    close;
}

027-4,91,61,0|script|#KeshlamClue702|400
{
    if (!#CRYPT_PASSWORD) end;
    mes "In memory of the left handed lone warrior";
    if (#CRYPT_PASSWORD & 1) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At southwest a bright sparks.";
    close;

L_Off:
    mes "A reading says: At southeast a bright sparks.";
    close;
}

027-4,99,61,0|script|#KeshlamClue703|400
{
    if (!#CRYPT_PASSWORD) end;
    mes "In memory of the left handed sailor";
    if (#CRYPT_PASSWORD & 1) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At northwest a bright sparks.";
    close;

L_Off:
    mes "A reading says: At south a bright sparks.";
    close;
}

027-4,121,61,0|script|#KeshlamClue704|400
{
    if (!#CRYPT_PASSWORD) end;
    mes "In memory of the left handed gargoyle";
    if (#CRYPT_PASSWORD & 2) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At southwest a bright sparks.";
    close;

L_Off:
    mes "A reading says: At southeast a bright sparks.";
    close;
}



027-3,105,88,0|script|#KeshlamClue705|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 4) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At northwest a bright sparks.";
    close;

L_Off:
    mes "A reading says: At south a bright sparks.";
    close;
}

027-3,111,88,0|script|#KeshlamClue706|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 4) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At northeast a bright sparks.";
    close;

L_Off:
    mes "A reading says: At southwest a bright sparks.";
    close;
}




027-3,105,83,0|script|#KeshlamClue707|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 4) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At north a bright sparks.";
    close;

L_Off:
    mes "A reading says: At west a bright sparks.";
    close;
}

027-3,111,83,0|script|#KeshlamClue708|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 8) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At east a bright sparks.";
    close;

L_Off:
    mes "A reading says: At north a bright sparks.";
    close;
}



027-3,105,78,0|script|#KeshlamClue709|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 8) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At southeast a bright sparks.";
    close;

L_Off:
    mes "A reading says: At northwest a bright sparks.";
    close;
}

027-3,111,78,0|script|#KeshlamClue710|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 8) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At northeast a bright sparks.";
    close;

L_Off:
    mes "A reading says: At southwest a bright sparks.";
    close;
}



027-3,105,73,0|script|#KeshlamClue711|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 8) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At north a bright sparks.";
    close;

L_Off:
    mes "A reading says: At west a bright sparks.";
    close;
}

027-3,111,73,0|script|#KeshlamClue712|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 16) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At east a bright sparks.";
    close;

L_Off:
    mes "A reading says: At north a bright sparks.";
    close;
}



027-3,106,59,0|script|#KeshlamClue713|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 16) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At southeast a bright sparks.";
    close;

L_Off:
    mes "A reading says: At northwest a bright sparks.";
    close;
}

027-3,111,59,0|script|#KeshlamClue714|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 16) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At south a bright sparks.";
    close;

L_Off:
    mes "A reading says: At northeast a bright sparks.";
    close;
}



027-3,106,54,0|script|#KeshlamClue715|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 32) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At southwest a bright sparks.";
    close;

L_Off:
    mes "A reading says: At southeast a bright sparks.";
    close;
}

027-3,111,54,0|script|#KeshlamClue716|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 32) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At south a bright sparks.";
    close;

L_Off:
    mes "A reading says: At northeast a bright sparks.";
    close;
}

///////////////////////////////////////////////////////////////////////////////
////// Second Wing
027-4,111,61,0|script|#KeshlamClue750|400
{
    if (!#CRYPT_PASSWORD) end;
    mes "In memory of the right handed sailor";
    if (#CRYPT_PASSWORD & 64) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At southwest a bright sparks.";
    close;

L_Off:
    mes "A reading says: At southeast a bright sparks.";
    close;
}

027-4,108,61,0|script|#KeshlamClue751|400
{
    if (!#CRYPT_PASSWORD) end;
    mes "In memory of the right handed duo";
    if (#CRYPT_PASSWORD & 64) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At south a bright sparks.";
    close;

L_Off:
    mes "A reading says: At northeast a bright sparks.";
    close;
}

027-4,115,61,0|script|#KeshlamClue752|400
{
    if (!#CRYPT_PASSWORD) end;
    mes "In memory of the right handed Kage";
    if (#CRYPT_PASSWORD & 128) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At northwest a bright sparks.";
    close;

L_Off:
    mes "A reading says: At south a bright sparks.";
    close;
}

027-4,119,61,0|script|#KeshlamClue753|400
{
    if (!#CRYPT_PASSWORD) end;
    mes "In memory of the right handed lone warrior";
    if (#CRYPT_PASSWORD & 128) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At southwest a bright sparks.";
    close;

L_Off:
    mes "A reading says: At southeast a bright sparks.";
    close;
}



027-3,118,88,0|script|#KeshlamClue754|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 256) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At northwest a bright sparks.";
    close;

L_Off:
    mes "A reading says: At south a bright sparks.";
    close;
}

027-3,124,88,0|script|#KeshlamClue755|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 256) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At northeast a bright sparks.";
    close;

L_Off:
    mes "A reading says: At southwest a bright sparks.";
    close;
}



027-3,118,83,0|script|#KeshlamClue756|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 256) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At north a bright sparks.";
    close;

L_Off:
    mes "A reading says: At west a bright sparks.";
    close;
}

027-3,124,83,0|script|#KeshlamClue757|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 256) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At east a bright sparks.";
    close;

L_Off:
    mes "A reading says: At north a bright sparks.";
    close;
}



027-3,118,78,0|script|#KeshlamClue758|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 512) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At north a bright sparks.";
    close;

L_Off:
    mes "A reading says: At west a bright sparks.";
    close;
}

027-3,124,78,0|script|#KeshlamClue759|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 512) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At east a bright sparks.";
    close;

L_Off:
    mes "A reading says: At north a bright sparks.";
    close;
}



027-3,118,73,0|script|#KeshlamClue760|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 512) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At northeast a bright sparks.";
    close;

L_Off:
    mes "A reading says: At southwest a bright sparks.";
    close;
}

027-3,124,73,0|script|#KeshlamClue761|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 512) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At south a bright sparks.";
    close;

L_Off:
    mes "A reading says: At northeast a bright sparks.";
    close;
}



027-3,117,59,0|script|#KeshlamClue762|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 1024) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At south a bright sparks.";
    close;

L_Off:
    mes "A reading says: At northeast a bright sparks.";
    close;
}

027-3,122,59,0|script|#KeshlamClue763|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 1024) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At southeast a bright sparks.";
    close;

L_Off:
    mes "A reading says: At northwest a bright sparks.";
    close;
}



027-3,117,54,0|script|#KeshlamClue764|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 2048) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At south a bright sparks.";
    close;

L_Off:
    mes "A reading says: At northeast a bright sparks.";
    close;
}

027-3,122,54,0|script|#KeshlamClue765|400
{
    if (!#CRYPT_PASSWORD) end;
    if (#CRYPT_PASSWORD & 2048) goto L_On;
    goto L_Off;

L_On:
    mes "A reading says: At southwest a bright sparks.";
    close;

L_Off:
    mes "A reading says: At southeast a bright sparks.";
    close;
}

///////////////////////////////////////////////////////////////////////////////
////// Gates
027-5,68,94,0|script|#KeshlamClue791|400
{
    if (!#CRYPT_PASSWORD) end;
    mes "There's an inscription on the gate.";
    next;
    mes "\"Krukan reads from bottom up. Four clues.\"";
    close;
}

027-5,68,87,0|script|#KeshlamClue792|400
{
    if (!#CRYPT_PASSWORD) end;
    mes "There's an inscription on the gate.";
    next;
    mes "\"The candle shall lit you, but if you mess up, a different light will show.";
    mes "Alas did you knew, that Razha came before Krukan?\"";
    close;
}

027-5,68,73,0|script|#KeshlamClue793|400
{
    if (!#CRYPT_PASSWORD) end;
    mes "There's an inscription on the gate.";
    next;
    mes "\"Razha likes to read from left to right. Two clues, Two clues.\"";
    close;
}

027-5,68,59,0|script|#KeshlamClue794|400
{
    if (!#CRYPT_PASSWORD) end;
    mes "There's an inscription on the gate.";
    next;
    mes "\"The master's candlesticks are like the fingers of his hand.";
    mes "And if it is not to kill, they will never move.\"";
    close;
}

027-5,68,46,0|script|#KeshlamClue795|400
{
    if (!#CRYPT_PASSWORD) end;
    mes "There's a bloody inscription on the gate.";
    next;
    mes "\"##B"+get(.invocation$, "reapercry")+"##b\"";
    next;
    mes "##9You hear the sounds of battle. Candle lights shines in distance.";
    next;
    mes "##9However, when you turn towards the source - both the light as the sound have already stopped.";
    next;
    mes "##9Is this a clue of some sort?";
    close;
}

///////////////////////////////////////////////////////////////////////////////
// Totally optional Easter Egg :>
099-7,95,65,0|script|Engraving#Keshlam|400
{
    mes "There's an engraving on this tree.";
    next;
    if (countitem("FlawedLens") < 1) goto L_Tools;
    mes "Thanks to the lens on your inventory, you can read this:";
    mes "";
    mes "\"Nu'rem perished here, after the fight with Jande, Tal and Di'Tal.";
    mes "For this very reason, this land is plagued forever. We shall give Nu'Rem a proper burrial.\"";
    next;
    mes "-- The Sparron";
    close;

L_Tools:
    mes "It is too faint to read without some good lens, but you can make the following words out of the engraving:";
    next;
    mes "\"Nu'rem .... here .... fight .... Jande ....";
    mes ".... land .... plagued forever. .... Nu'Rem .... proper burrial.\"";
    next;
    mes "-- The ....";
    close;
}


///////////////////////////////////////////////////////////////////////////////
// Monster Script Control
-|script|Keshlam|32767
{
    close;

OnInit:
    areamonster "099-7", 37, 36, 142, 140, "", 1148, 10, "Keshlam::OnDeath8";
    areamonster "099-7", 37, 36, 142, 140, "", 1149, 10, "Keshlam::OnDeath9";
//   areamobuseskill "099-7", 37, 36, 142, 140, 
//    areamobuseskill "009-7", 155,188,2,1083,"MG_COLDBOLT",10,3000,1,e_gg,0;
//*areamobuseskill "<map name>",<x>,<y>,<range>,<mob id>,<skill id>,<skill level>,<cast time>,<cancelable>,<emotion>,<target type>;
//*areamobuseskill "<map name>",<x>,<y>,<range>,<mob id>,"<skill name>",<skill level>,<cast time>,<cancelable>,<emotion>,<target type>;

    monster "099-7", 40, 121, "Grim Reaper", 1068, 1, "Keshlam::OnBoss";
    end;

OnDeath8:
    goto OnDeath;

OnDeath9:
    goto OnDeath;

OnDeath:
    // TODO: Only fire this if timer not running. Set timer to 5min
    initnpctimer;
    end;

OnBoss:
    initnpctimer;
    // If a player is attached, give them 20 Treasure Keys
    getitem "TreasureKey", 20;
    end;

OnTimer150000:
    // 1148
    set $@KeshlamMc, mobcount("099-7", "Keshlam::OnDeath8")+1;
    if ($@KeshlamMc < 10)
        areamonster "099-7", 37, 36, 142, 140, "", 1148, 10-$@KeshlamMc, "Keshlam::OnDeath8";

    // 1149
    set $@KeshlamMc, mobcount("099-7", "Keshlam::OnDeath9")+1;
    if ($@KeshlamMc < 10)
        areamonster "099-7", 37, 36, 142, 140, "", 1149, 10-$@KeshlamMc, "Keshlam::OnDeath9";

    // Boss (TODO maybe give boss their own timer with 5 minutes)
    set $@KeshlamMc, mobcount("099-7", "Keshlam::OnBoss")+1;
    if ($@KeshlamMc < 1)
        monster "099-7", 40, 121, "Grim Reaper", 1068, 1, "Keshlam::OnBoss";

    // Done
    set $@KeshlamMc, 0;
    stopnpctimer;
    end;
}

///////////////////////////////////////////////////////////////////////////////
// Who wants a rare drop?
099-7,38,126,0|script|Chest#keshlam|111
{
    if (FLAGS & FLAG_KESHLAM_RAREDROP) goto L_Finished;
    mes "[Chest]";
    mes "Would you try to open it?";
    mes "##1Cost: 1000 Treasure Keys";
    next;
    menu
        "Yes.", L_Yes,
        "No.", L_Close;

L_Yes:
    if (isdead())
        goto L_Not_Enough;
    if(countitem("TreasureKey") < 1000)
        goto L_Not_Enough;
    getinventorylist;
    if (@inventorylist_count == 100
        && countitem("TreasureKey") > 1000)
            goto L_TooMany;
    delitem "TreasureKey", 1000;
    if (FLAGS & FLAG_KESHLAM_FLAWEDLENS) goto L_Rare;
    goto L_FlawedLens;

L_FlawedLens:
    getitem "FlawedLens", 1;
    getexp 20000000, 0;
    set FLAGS, FLAGS | FLAG_KESHLAM_FLAWEDLENS;
    mes "[Chest]";
    mes "You opened it and found...! Some flawed lens?! Meh.";
    next;
    mes "[Chest]";
    mes "You notice this chest has a hidden section with another lock.";
    mes "You might want try that again later.";
    close;

L_Rare:
    getexp 10000000, 0;
    set FLAGS, FLAGS | FLAG_KESHLAM_RAREDROP;
    if (rand(4) == 1) goto L_Amulet; // 25% chance
    goto L_Ring; // 75% chance

L_Amulet:
    getitem "EnchantersAmulet", 1;
    mes "[Chest]";
    mes "You opened it and found...! An Enchanter's Amulet! Lucky!";
    close;

L_Ring:
    getitem "MageRing", 1;
    mes "[Chest]";
    mes "You opened it and found...! A Mage Ring! Lucky!";
    close;

L_Not_Enough:
    mes "It seems that this is not the right key...";
    close;

L_Finished:
    mes "[Chest]";
    mes "You already opened this chest.";
    close;

L_TooMany:
    mes "[Chest]";
    mes "You don't have room for what ever is inside. Maybe you should try again later.";
    close;

L_Close:
    close;
}

///////////////////////////////////////////////////////////////////////////////
// Who wants experience?
099-7,115,133,0|script|Knowledgeable Tree|400
{
    mes "If you kill every monster, this tree can warp you back.";
    mes "You will receive experience points for cleaning the map.";
    mes "";
    mes "But be warned, monsters respawn on their own every five minutes.";
    mes "The boss must also be defeated.";
    next;
    set @KeshlamMc, mobcount("099-7", "Keshlam::OnDeath8")+1;
    set @KeshlamMc, @KeshlamMc+mobcount("099-7", "Keshlam::OnDeath9")+1;
    set @KeshlamMc, @KeshlamMc+mobcount("099-7", "Keshlam::OnBoss")+1;
    if (@KeshlamMc <= 0) goto L_Done;
    mes "There is ##B"+@KeshlamMc+" monsters##b alive.";
    close;

L_Done:
    mes "Go back?";
    menu
        "Yes", L_Yes,
        "No", L_No;

L_Yes:
    set #CHRONOS, 0;
    getexp 1000000, 0;
    warp "027-2", 50, 29;
    if ($CHRONOS_STOCK < 3)
        set $CHRONOS_STOCK, 3;
    close;

L_No:
    close;
}

///////////////////////////////////////////////////////////////////////////////
// Some minor major bugs
027-4,107,61,0|script|#NoobJesusalva01|400
{
    if (!#CRYPT_PASSWORD) end;
    mes "(The memorial is at right, behind the column.)";
    close;
}
027-4,109,61,0|script|#NoobJesusalva02|400
{
    if (!#CRYPT_PASSWORD) end;
    mes "(The memorial is at left, behind the column.)";
    close;
}
099-7,93,36,0|script|#NoobKytty01|400,0,0
{
    warp "099-7", 94, 33;
    end;
}
099-7,93,33,0|script|#NoobKytty02|400,0,0
{
    warp "099-7", 92, 36;
    end;
}