// TMW2 scripts.
// Authors:
//    Saulc
// Description:
//    Help Tulimshar guards
// Quest variable:
//    TulimsharQuests_Guards
// Quest stages:
//    0 - not started
//    1 - Lieutenant Dausen asked for help Tulimshar guards
//    2 - completed


003-1,111,84,0	script	Lieutenant Dausen	NPC_PLAYER,{
    // The Monster King have a special menu
    if (strcharinfo(2) == "Monster King") goto L_MKControl;

    // This NPC is broken, so this code disables it
    mesn;
    mesq l("Greetings, citzen. I am @@, chief of the Tulimshar guards.", .name$);
    close;

    
    function quest_waterForGuard
    {
        setq TulimsharQuest_WaterForGuard, 1;
        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
            l("Good luck !");
        close;
    }

    .@has = getq(TulimsharQuest_WaterForGuard);
    if (.@has == 0)
    {
        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
            l("Hello can you help me?");
        do
        {
            select
                l("Yes"),
                menuaction(l("Quit"));

            switch (@menu)
            {
                case 1:
                    quest_waterForGuard;
                    break;
            }
        } while (@menu != 2);
    }
    else if (.@has == 1)
    {
        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
            l("Not yet. Get level 255 and I'll reward you!");
    }
    else if (.@has == 2)
    {
        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
            l("Thank you, there is your reward");
            narrator("You receive 30 exp.");
        getexp 30, 0;
        setq TulimsharQuest_WaterForGuard, 3;
    }
    else
    {
        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
            l("Thank you for your help.");
    }

    closedialog;
    goodbye;
    close;

L_MKControl:
    mesn;
    mes l("Oh noes! You've found the Tulimshar control panel!");
    menu
        l("Initiate small siege (lv. 20)"), L_MKSmall,
        l("Abort"), -;
    close;

L_MKSmall:
    pvpon("003-1");
    pvpon("004-1");
    announce(l("##1WARNING! WARNING! Siege starting at Tulimshar!!"), bc_all);
    areamonster("004-1", 0, 0, 79, 81, l("Black Scorpion"), 1074, 10, "Lieutenant Dausen::OnBlackScorpionDeath");
    initnpctimer;
    close;




OnBlackScorpionDeath:
    areamonster("004-1", 0, 0, 79, 81, l("Black Scorpion"), 1074, 1, "Lieutenant Dausen::OnBlackScorpionDeath");
    if (rand(10000) <= 100)
        getitem StrangeCoin, 1;
    end;

OnBlackScorpion2Death:
    areamonster("003-1", 0, 0, 120, 155, l("Black Scorpion"), 1074, 1, "Lieutenant Dausen::OnBlackScorpionDeath");
    if (rand(10000) <= 1000)
        getitem StrangeCoin, 1;
    end;

OnGreenSlimeDeath:
    areamonster("003-1", 0, 0, 120, 155, l("Green Slime"), 1085, 1, "Lieutenant Dausen::OnGreenSlimeDeath");
    if (rand(10000) <= 300)
        getitem StrangeCoin, 1;
    end;

OnCandiedSlimeDeath:
    areamonster("003-1", 0, 0, 120, 155, l("Candied Slime"), 1089, 1, "Lieutenant Dausen::OnCandiedSlimeDeath");
    if (rand(10000) <= 250)
        getitem StrangeCoin, 1;
    end;

OnManaGhostDeath:
    areamonster("003-1", 0, 0, 120, 155, l("Mana Ghost"), 1068, 1, "Lieutenant Dausen::OnManaGhostDeath");
    if (rand(10000) <= 1000)
        getitem StrangeCoin, 1;
    end;





OnTimer5000:
    areamonster("004-1", 0, 0, 79, 81, "Black Scorpion", 1074, 5, "Lieutenant Dausen::OnBlackScorpionDeath");
    areamonster("003-1", 0, 0, 120, 155, "Black Scorpion", 1074, 5, "Lieutenant Dausen::OnBlackScorpion2Death");
    mapannounce("003-1", "##2Message to all Tulimshar NPCs: Take shelter!", bc_map);
    disablenpc "Ched";
    disablenpc "Aahna";
    disablenpc "Constable Perry";
    disablenpc "Cyndala";
    disablenpc "Eomie";
    disablenpc "Eugene";
    disablenpc "Gladys";
    disablenpc "Inac";
    disablenpc "Ishi";
    disablenpc "Itka";
    disablenpc "Jakod";
    disablenpc "Jerican";
    disablenpc "Mahoud";
    disablenpc "Marius The Bard";
    disablenpc "Michel";
    disablenpc "Neko";
    disablenpc "Nina The Traveler";
    disablenpc "Sarah";
    disablenpc "Silvia";
    disablenpc "Tamiloc";
    disablenpc "Tinris";
    disablenpc "#water_animation0";
    disablenpc "Luca";
    end;

OnTimer15000:
    areamonster("004-1", 0, 0, 79, 81, ("Black Scorpion"), 1074, 5, "Lieutenant Dausen::OnBlackScorpionDeath");
    areamonster("003-1", 0, 0, 120, 155, ("Black Scorpion"), 1074, 10, "Lieutenant Dausen::OnBlackScorpion2Death");
    disablenpc "Aidan";
    disablenpc "Inar";
    disablenpc "Malivox";
    disablenpc "Estard";
    disablenpc "Malindou";
    disablenpc "Jhedia";
    end;

OnTimer60000:
    areamonster("003-1", 0, 0, 120, 155, ("Black Scorpion"), 1074, 3, "Lieutenant Dausen::OnBlackScorpion2Death");
    areamonster("003-1", 0, 0, 120, 155, ("Green Slime"), 1085, 10, "Lieutenant Dausen::OnGreenSlimeDeath");
    areamonster("003-1", 0, 0, 120, 155, ("Candied Slime"), 1089, 1, "Lieutenant Dausen::OnCandiedSlimeDeath");
    end;

OnTimer120000:
    areamonster("003-1", 0, 0, 120, 155, ("Slime Blast"), 1090, 15);
    areamonster("003-1", 0, 0, 120, 155, ("Black Scorpion"), 1074, 1, "Lieutenant Dausen::OnBlackScorpion2Death");
    areamonster("003-1", 0, 0, 120, 155, ("Green Slime"), 1085, 10, "Lieutenant Dausen::OnGreenSlimeDeath");
    areamonster("003-1", 0, 0, 120, 155, ("Mana Ghost"), 1068, 2, "Lieutenant Dausen::OnManaGhostDeath");
    end;

OnTimer180000:
    areamonster("003-1", 0, 0, 120, 155, ("Slime Blast"), 1090, 25);
    areamonster("003-1", 0, 0, 120, 155, ("Black Scorpion"), 1074, 1, "Lieutenant Dausen::OnBlackScorpion2Death");
    areamonster("003-1", 0, 0, 120, 155, ("Candied Slime"), 1089, 10, "Lieutenant Dausen::OnCandiedSlimeDeath");
    areamonster("003-1", 0, 0, 120, 155, ("Mana Ghost"), 1068, 2, "Lieutenant Dausen::OnManaGhostDeath");
    end;

OnTimer240000:
    areamonster("003-1", 0, 0, 120, 155, ("Slime Blast"), 1090, 25);
    areamonster("003-1", 0, 0, 120, 155, ("Black Scorpion"), 1074, 1, "Lieutenant Dausen::OnBlackScorpion2Death");
    areamonster("003-1", 0, 0, 120, 155, ("Mana Ghost"), 1068, 2, "Lieutenant Dausen::OnManaGhostDeath");
    end;

OnTimer300000:
    areamonster("003-1", 0, 0, 120, 155, ("Slime Blast"), 1090, 5);
    areamonster("003-1", 0, 0, 120, 155, ("Candied Slime"), 1089, 1, "Lieutenant Dausen::OnCandiedSlimeDeath");
    areamonster("003-1", 0, 0, 120, 155, ("Mana Ghost"), 1068, 1, "Lieutenant Dausen::OnManaGhostDeath");
    end;

OnTimer360000:
OnTimer420000:
OnTimer480000:
    areamonster("003-1", 0, 0, 120, 155, ("Slime Blast"), 1090, 5);
    end;

OnTimer540000:
    mapannounce("003-1", "##1The Monster King is getting tired of resistance!", bc_map);
    areamonster("003-1", 0, 0, 120, 155, ("Slime Blast"), 1090, 5);
    areamonster("003-1", 0, 0, 120, 155, ("Mana Ghost"), 1068, 1, "Lieutenant Dausen::OnManaGhostDeath");
    end;

OnTimer600000:
    mapannounce("003-1", "##1The Monster King is preparing to withdraw!", bc_map);
    end;

OnTimer630000:
    killmonsterall("003-1", 0);
    killmonsterall("004-1", 0);
    pvpoff("003-1");
    announce(("Tulimshar siege is over!"), bc_all);
    enablenpc "Ched";
    enablenpc "Aahna";
    enablenpc "Constable Perry";
    enablenpc "Cyndala";
    enablenpc "Eomie";
    enablenpc "Eugene";
    enablenpc "Gladys";
    enablenpc "Inac";
    enablenpc "Ishi";
    enablenpc "Itka";
    enablenpc "Jakod";
    enablenpc "Jerican";
    enablenpc "Mahoud";
    enablenpc "Marius The Bard";
    enablenpc "Michel";
    enablenpc "Neko";
    enablenpc "Nina The Traveler";
    enablenpc "Sarah";
    enablenpc "Silvia";
    enablenpc "Tamiloc";
    enablenpc "Tinris";
    enablenpc "#water_animation0";
    enablenpc "Aidan";
    enablenpc "Inar";
    enablenpc "Malivox";
    enablenpc "Luca";
    enablenpc "Estard";
    enablenpc "Malindou";
    enablenpc "Jhedia";
    stopnpctimer;
    end;


OnInit:
    .sex = G_MALE;
    .distance = 4;
    end;
}


003-1,98,100,0	script	Guard Philip	NPC_GUARD1,{
    legiontalk;
    if (getq(TulimsharQuest_WaterForGuard) == 1)
    {
        //CheckGuard(); // FIXME This is not Hide And Seek
    }
    end;
    
OnTimer1000:
    domovestep;

OnInit:

    // Check items.xml for info about this
    .@npcId = getnpcid(0, "Lieutenant Dausen");
    setunitdata(.@npcId, UDT_HEADTOP, 2906);
    setunitdata(.@npcId, UDT_HEADMIDDLE, 1304);
    setunitdata(.@npcId, UDT_HEADBOTTOM, 2201);
    setunitdata(.@npcId, UDT_SHIELD, 1800);    // TODO FIXME: Display Boots
    setunitdata(.@npcId, UDT_WEAPON, 3504);
    setunitdata(.@npcId, UDT_HAIRSTYLE, 7);
    setunitdata(.@npcId, UDT_HAIRCOLOR, 17);

    initpath "move", 98, 104,
             "dir", DOWN, 0,
             "wait", 60, 0, 
             "move", 84, 100,
             "dir", DOWN, 0,
             "wait", 45, 0,
             "move", 93, 110,
             "dir", DOWN, 0,
             "wait", 70, 0,
             "move", 101, 106,
             "dir", RIGHT, 0,
             "wait", 12, 0,
             "move", 98, 104,
             "dir", DOWN, 0,
             "wait", 68, 0,
             "move", 93, 110,
             "dir", DOWN, 0,
             "wait", 90, 0,  
             "move", 111, 109,
             "dir", DOWN, 0,
             "wait", 11, 0;
    initialmove;
    initnpctimer;
    .distance = 5;
}
003-1,98,121,0	script	Guard Defou	NPC_GUARD1,{
    legiontalk;
    end;
OnInit:
    .sex = G_OTHER;
    .distance = 1;
    end;
}
003-1,102,121,0	script	Guard Avou	NPC_GUARD1,{
    legiontalk;
    end;
OnInit:
    .sex = G_OTHER;
    .distance = 1;
    end;
}
003-1,58,158,0	script	Guard Benji	NPC_GUARD1,{
    legiontalk;
    end;
OnInit:
    .sex = G_OTHER;
    .distance = 1;
    end;
}
003-1,62,158,0	script	Guard Valou	NPC_GUARD1,{
    legiontalk;
    end;
OnInit:
    .sex = G_OTHER;
    .distance = 1;
    end;
}
003-1,71,138,0	script	Guard Nutelo	NPC_GUARD1,{
    legiontalk;
    end;
OnInit:
    .sex = G_OTHER;
    .distance = 1;
    end;
}
003-1,58,128,0	script	Guard Moustacha	NPC_GUARD1,{
    legiontalk;
    end;
OnInit:
    .sex = G_OTHER;
    .distance = 1;
    end;
}
003-1,58,100,0	script	Guard Popaul	NPC_GUARD1,{
    legiontalk;
    end;
    
OnTimer1000:
    domovestep;

OnInit:
    initpath "move", 58, 100,
             "dir", DOWN, 0,
             "wait", 100, 0, 
             "move", 62, 100,
             "dir", DOWN, 0,
             "wait", 35, 0,
             "move", 62, 93,
             "dir", DOWN, 0,
             "wait", 48, 0,             
             "move", 58, 104,
             "dir", DOWN, 0,
             "wait", 55, 0,
             "move", 54, 102,
             "dir", RIGHT, 0,
             "wait", 82, 0;

    initialmove;
    initnpctimer;
    .distance = 5;
}
003-1,51,73,0	script	Guard Yen	NPC_GUARD1,{
    legiontalk;
    end;
OnInit:
    .sex = G_OTHER;
    .distance = 1;
    end;
}
003-2,41,37,0	script	Guard Yuna	NPC_GUARD2,{
    legiontalk;
    end;
OnInit:
    .sex = G_OTHER;
    .distance = 1;
    end;
}
003-1,54,52,0	script	Guard Maxim	NPC_GUARD1,{
    legiontalk;
    end;
    
OnTimer1000:
    domovestep;

OnInit:
    initpath "move", 54, 52,
             "dir", DOWN, 0,
             "wait", 85, 0, 
             "move", 54, 45,
             "dir", DOWN, 0,
             "wait", 70, 0,
             "move", 67, 30,
             "dir", LEFT, 0,
             "wait", 11, 0,
             "move", 49, 46,
             "dir", DOWN, 0,
             "wait", 55, 0,
             "move", 31, 41,
             "dir", LEFT, 0,
             "wait", 6, 0,
             "move", 35, 36,
             "dir", UP, 0,
             "wait", 9, 0,  
             "move", 49, 52,
             "dir", DOWN, 0,
             "wait", 70, 0;    
    initialmove;
    initnpctimer;
    .distance = 5;

}
003-1,50,36,0	script	Guard Totor	NPC_GUARD1,{
    legiontalk;
    end;
    
OnTimer1000:
    domovestep;

OnInit:
    initpath "move", 50, 36,
             "dir", DOWN, 0,
             "wait", 45, 0,
             "move", 50, 39,
             "dir", DOWN, 0,
             "wait", 35, 0, 
             "move", 35, 40,
             "dir", UP, 0,
             "wait", 1, 0,  
             "move", 33, 34,
             "dir", DOWN, 0,
             "wait", 12, 0;    
    initialmove;
    initnpctimer;
    .distance = 5;
}
003-1,53,36,0	script	Guard Roukin	NPC_GUARD1,{
    legiontalk;
    end;
    
OnTimer1000:
    domovestep;

OnInit:
    initpath "move", 53, 36,
             "dir", DOWN, 0,
             "wait", 60, 0, 
             "move", 56, 59,
             "dir", DOWN, 0,
             "wait", 1, 0, 
             "move", 61, 76,
             "dir", RIGHT, 0,
             "wait", 5, 0,
             "move", 61, 105,
             "dir", RIGHT, 0,
             "wait", 8, 0,  
             "move", 59, 129,
             "dir", LEFT, 0,
             "wait", 4, 0,    
             "move", 60, 103,
             "dir", UP, 0,
             "wait", 1, 0, 
             "move", 56, 82,
             "dir", LEFT, 0,
             "wait", 7, 0, 
             "move", 56, 59,
             "dir", UP, 0,
             "wait", 1, 0, 
             "move", 53, 39,
             "dir", DOWN, 0,
             "wait", 25, 0;
    initialmove;
    initnpctimer;
    .distance = 5;
}
003-1,35,34,0	script	Guard Falko	NPC_GUARD1,{
    legiontalk;
    end;
    
OnTimer1000:
    domovestep;

OnInit:
    initpath "move", 35, 34,
             "dir", DOWN, 0,
             "wait", 60, 0, 
             "move", 51, 38,
             "dir", DOWN, 0,
             "wait", 10, 0;    
    initialmove;
    initnpctimer;
    .distance = 5;
}
003-3,39,37,0	script	Guard Malindax	NPC_GUARD1,{
    legiontalk;
    end;
OnInit:
    .sex = G_OTHER;
    .distance = 1;
    end;
}
003-1,111,101,0	script	Guard Froma	NPC_GUARD1,{
    legiontalk;
    end;
OnInit:
    .sex = G_OTHER;
    .distance = 1;
    end;
}
003-1,102,80,0	script	Guard Tetric	NPC_GUARD1,{
    legiontalk;
    end;
    
OnTimer1000:
    domovestep;

OnInit:
    initpath "move", 110, 84,
             "dir", RIGHT, 0,
             "wait", 1, 0, 
             "move", 110, 101,
             "dir", RIGHT, 0,
             "wait", 0, 0,
             "move", 99, 121,
             "dir", LEFT, 0,
             "wait", 1, 0,
             "move", 89, 136,
             "dir", DOWN, 0,
             "wait", 1, 0,
             "move", 65, 152,
             "dir", DOWN, 0,
             "wait", 1, 0,  
             "move", 71, 139,
             "dir", RIGHT, 0,
             "wait", 1, 0,
             "move", 59, 128,
             "dir", LEFT, 0,
             "wait", 1, 0,     
             "move", 47, 79,
             "dir", LEFT, 0,
             "wait", 1, 0,      
             "move", 80, 73,
             "dir", RIGHT, 0,
             "wait", 1, 0,    
             "move", 53, 52,
             "dir", RIGHT, 0,
             "wait", 1, 0,         
             "move", 52, 37,
             "dir", RIGHT, 0,
             "wait", 1, 0,   
             "move", 35, 35,
             "dir", RIGHT, 0,
             "wait", 1, 0,                                        
             "move", 62, 105,
             "dir", DOWN, 0,
             "wait", 1, 0;
    initialmove;
    initnpctimer;
    .distance = 5;
}
003-1,107,80,0	script	Guard Biscop	NPC_GUARD1,{
    legiontalk;
    end;
OnInit:
    .sex = G_OTHER;
    .distance = 1;
    end;
}