//Lavet af Kim Byrresen 2003
//Dette script saette ind i et haandtage OnUse event


// jeg har aendret i dette script saaledes at det nu placerer 7 lys og fjerner dem igen.
// Scriptet tilhoerer stadig Kim Byrresen og maaden jeg har aendret det paa kan sagtens
// vaere uhensigtsmaessig og daarlig og siger i saa tilfaelde intet om den oprindelige
// ophavsmands evner.... MVH. Kenneth Jensen aka Tarashon

void main()
{

object oPC = GetLastUsedBy();

if (!GetIsPC(oPC)) return;

if (GetItemPossessedBy(oPC, "Tarakey")== OBJECT_INVALID)
   return;

ExploreAreaForPlayer(GetArea(oPC), oPC);


    object oPlayer = GetLastUsedBy(); //Player der sidst bruger haandtaget (oPlayer er en object variable)
    location lLysSoejle = GetLocation(GetNearestObjectByTag("KB_Loc_Lys")); //Find naermeste object med Tag navn "KB_Loc_Lys" og hent dens location ned i en locations variable. Det er det gule Waypoint som jeg har sat i modulet!
    location lLysSoejle1 = GetLocation(GetNearestObjectByTag("KB_Loc_Lys1"));
    location lLysSoejle2 = GetLocation(GetNearestObjectByTag("KB_Loc_Lys2"));
    location lLysSoejle3 = GetLocation(GetNearestObjectByTag("KB_Loc_Lys3"));
    location lLysSoejle4 = GetLocation(GetNearestObjectByTag("KB_Loc_Lys4"));
   // location lLysSoejle5 = GetLocation(GetNearestObjectByTag("KB_Loc_Lys5"));
   // location lLysSoejle6 = GetLocation(GetNearestObjectByTag("KB_Loc_Lys6"));


    if (GetLocalInt(OBJECT_SELF, "Light_ON") == FALSE) //Hvis variablen "Light_ON" er FALSE saa goer nedstaaende
    {
        PlayAnimation(ANIMATION_PLACEABLE_ACTIVATE); //Run animationen Aktiver. Goer at man ser haandtaget blive aktiveret.
        SetLocalInt(OBJECT_SELF, "Light_ON", TRUE); //Give Variablen "Light_ON" Vaerdien TRUE.
        CreateObject(OBJECT_TYPE_PLACEABLE, "solgreen001", lLysSoejle, TRUE); //Lav lys. Husk at have objectet jeg har lavet som hedder solgreen001 i dens Ref difination. Den laver simplehen et object. Se Placable!
        CreateObject(OBJECT_TYPE_PLACEABLE, "solgreen002", lLysSoejle1, TRUE);
        CreateObject(OBJECT_TYPE_PLACEABLE, "solgreen003", lLysSoejle2, TRUE);
        CreateObject(OBJECT_TYPE_PLACEABLE, "solgreen004", lLysSoejle3, TRUE);
        CreateObject(OBJECT_TYPE_PLACEABLE, "solgreen005", lLysSoejle4, TRUE);
       // CreateObject(OBJECT_TYPE_PLACEABLE, "solgreen006", lLysSoejle5, TRUE);
       // CreateObject(OBJECT_TYPE_PLACEABLE, "solgreen007", lLysSoejle6, TRUE);

    }
    else //ellers hvis variablen "Light_ON" er TRUE eller andet saa goer nedstaaende
    {
        PlayAnimation(ANIMATION_PLACEABLE_DEACTIVATE); //Run animationen Deaktivere. Goer at man ser haandtaget blive deaktiveret.
        SetLocalInt(OBJECT_SELF, "Light_ON", FALSE); //Give Variablen "Light_ON" Vaerdien FALSE.
        object oLys = GetNearestObjectByTag("ShaftofLightGreen"); //Find det naermeste object med Tag Navnet: "ShaftofLightGreen" (Er det lys object jeg har lavet.) Se Placable!
        object oLys1 = GetNearestObjectByTag("ShaftofLightGreen1");
        object oLys2 = GetNearestObjectByTag("ShaftofLightGreen2");
        object oLys3 = GetNearestObjectByTag("ShaftofLightGreen3");
        object oLys4 = GetNearestObjectByTag("ShaftofLightGreen4");
       // object oLys5 = GetNearestObjectByTag("ShaftofLightGreen5");
       // object oLys6 = GetNearestObjectByTag("ShaftofLightGreen6");


        if (GetIsObjectValid(oLys) == TRUE) //Hvis det object vi fandt er der s goer nedstaaende.
        {
            SetPlotFlag(oLys, FALSE); //Goer at objectet oLys kan destueres.
            DestroyObject(oLys); //Destruer objectet oLys. Du kan se Dette object som jeg har lavet under Placable!

            SetPlotFlag(oLys1, FALSE); //Goer at objectet oLys kan destueres.
            DestroyObject(oLys1); //Destruer objectet oLys. Du kan se Dette object som jeg har lavet under Placable!

            SetPlotFlag(oLys2, FALSE); //Goer at objectet oLys kan destueres.
            DestroyObject(oLys2); //Destruer objectet oLys. Du kan se Dette object som jeg har lavet under Placable!

            SetPlotFlag(oLys3, FALSE); //Goer at objectet oLys kan destueres.
            DestroyObject(oLys3); //Destruer objectet oLys. Du kan se Dette object som jeg har lavet under Placable!

            SetPlotFlag(oLys4, FALSE); //Goer at objectet oLys kan destueres.
            DestroyObject(oLys4); //Destruer objectet oLys. Du kan se Dette object som jeg har lavet under Placable!

        //    SetPlotFlag(oLys5, FALSE); //Goer at objectet oLys kan destueres.
        //    DestroyObject(oLys5); //Destruer objectet oLys. Du kan se Dette object som jeg har lavet under Placable!

        //    SetPlotFlag(oLys6, FALSE); //Goer at objectet oLys kan destueres.
        //    DestroyObject(oLys6); //Destruer objectet oLys. Du kan se Dette object som jeg har lavet under Placable!


        }
    }
}