root/npc/custom/quests/tha_statues.txt

//===== eAthena Script =======================================
//= Custom Thanatos Tower Quest
//===== By: ==================================================
//= Bibilol & Moryagorn
//===== Current Version: =====================================
//= 1.1
//===== Compatible With: =====================================
//= Any eAthena Version;
//===== Description: =========================================
//= Custom Thanatos Tower Quest
//===== Additional Comments: =================================
//= 1.1 Fixed wrong NPC names in their dialogues, added
//=     Justin84's gems check in Sox NPC [Lupus]
//============================================================


//Statue (NPC)(U: UP, D: DOWN, R: RIGHT, L: LEFT) :
// Explain Npc
tha_t08,69,106,4        script  Statue  111,{

        mes "You can read on the back of the statue:";
        mes "'By the spirit of olds, the walls are closed";
        mes "Upper floors or foreign taboo";
        mes "By the order of the Statues you will find the way";
        mes "Which perhaps a day will bring you to me.";
        mes ".....Thanatos '";
        close;
}

//Tha_t09 :
//(Thalos)(U,L)-->tha_t09,17,158,4
//(Mediane)(D,R)-->tha_t09,84,99,4
//Script:

tha_t09,17,158,4        script  Thalos  111,{

        if(TSQ_CHK == 1) goto done;
        mes "[Thalos]";
        mes "You must find the 2nd Statue now.";
        set TSQ_CHK,1;
        close;

done:
        mes "[Thalos]";
        mes "Go search the 2nd Statue!";
        close;
           
}

tha_t09,84,99,4 script  Mediane 111,{

        if(TSQ_CHK != 1) goto nook;
        mes "[Mediane]";
        mes "Okay, i am warping you to the next floor now.";
        next;
        set TSQ_CHK,0;
        warp "tha_t10", 165,    138; 
        close;
nook:
        mes "[Mediane]";
        mes "You must talk with the Spirit in the 1st Statue.";
        close;
}

//Tha_t10 :
//(Melkor)(U)-->tha_t10,130,159,4
//(Zebrus)(D,R)-->tha_t10,160,98,4
//(Veriaelle)(D,L)-->tha_t10,99,97,4
//Script:

tha_t10,130,159,4       script  Melkor  111,{

        if(TSQ_CHK == 1) goto done;
        mes "[Melkor]";
        mes "You must find the other Spirits now.";
        mes "We are 3.";
        set TSQ_CHK,1;
        close;
done:
        mes "[Melkor]";
        mes "Go Search, They are in this floor.";
        close;
}

tha_t10,160,98,4        script  Zebrus  111,{

        if(TSQ_CHK != 1) goto nook;
        mes "[Zebrus]";
        mes "Keep on this way, There is one Spirit left";
        set TSQ_CHK,2;
        close;
nook:
        mes "[Zebrus]";
        mes "You seems to be lost, Go back and talk to Melkor.";
        next;
        set TSQ_CHK,0;
        close;
}

tha_t10,99,97,4 script  Veriaelle       111,{

        if(TSQ_CHK != 2) goto nook;
        mes "[Veriaelle]";
        mes "Okay, i am warping you to the next floor.";
        next;
        set TSQ_CHK,0;
        warp "tha_t11", 86,     38;
        close;
nook:
        mes "[Veriaelle]";
        mes "You seems to be lost, Go back and talk to Melkor.";
        next;
        set TSQ_CHK,0;
        close;
}

//Tha_t11 :
//(Throtre)(U,L)-->tha_t11,16,85,4
//(Klermaz)(D,R)-->tha_t11,85,16,4
//(Mihane)(D,L)-->tha_t11,16,16,4
//(Seranes)(U,R)-->tha_t11,85,85,4
//Script:

tha_t11,16,85,4 script  Throtre 111,{
        if(TSQ_CHK == 1) goto done;
        mes "[Throtre]";
        mes "You got my authorization for the next floor";
        mes "However, you must show how strong you are to the other Spirits";
        set TSQ_CHK,1;
        close;
done:
        mes "[Throtre]";
        mes "Go search, They Can't leave this floor.";
        close;
}

tha_t11,85,16,4 script  Klermaz 111,{
        if(TSQ_CHK != 1) goto nook;
        mes "[Klermaz]";
        mes "Hmm it seems that Throtre allowed you to pass.";
        mes "Well then you have my blessing, 2 Spirits remaining.";
        set TSQ_CHK,2;
        close;
nook:
        mes "[Klermaz]";
        mes "You seems to be lost, Go back and talk to Throtre.";
        next;
        set TSQ_CHK,0;
        close;
}

tha_t11,16,16,4 script  Mihane  111,{
      if(TSQ_CHK != 2) goto nook;
        mes "[Mihane]";
        mes "Keep on this way, Only 1 Left.";
        set TSQ_CHK,3;
        close;
nook:
        mes "[Mihane]";
        mes "Sorry, You must start over from the begining.";
        next;
        set TSQ_CHK,0;
        close;
}

tha_t11,85,85,4 script  Seranes 111,{
        if(TSQ_CHK != 3 ) goto nook;
        mes "[Seranes]";
        mes "Perfect, it seems that the other spirits grants you the access.";
        mes "I am warping you to the next floor.";
        next;
        set TSQ_CHK,0;
        warp "tha_t12", 129,    58;
        close;
nook:
        mes "[Seranes]";
        mes "You did not follow the good order, starts again from the begining.";
        next;
        set TSQ_CHK,0;
        close;
}

//Tha_t12 ( M: Middle):
//(Nox)(D,L)-->tha_t12,103,18,4
//(Vox)(R)-->tha_t12,162,58,4
//(Hox)(L)-->tha_t12,96,57,4
//(Dox)(D,R)-->tha_t12,153,17,4
//(Sox)(U)-->tha_t12,128,88,4
//Script:

tha_t12,103,18,4        script  Nox     111,{
        if(TSQ_CHK == 1 ) goto done;
        mes "[Nox]";
        mes "Fine, 4 Spirits left.";
        set TSQ_CHK,1;
        close;
done:
        mes "[Nox]";
        mes "Go search, They can't leave this floor.";
        close;
}

tha_t12,162,58,4        script  Vox     111,{
        if(TSQ_CHK != 1 ) goto nook;
        mes "[Vox]";
        mes "Keep on this way, 3 Spirits remaining !";
        set TSQ_CHK,2;
        close;
nook:
        mes "[Vox]";
        mes "Sorry, Go back and talk to Nox.";
        next;
        set TSQ_CHK,0;
        close;
}

tha_t12,96,57,4 script  Hox     111,{   
        if(TSQ_CHK != 2 ) goto nook;
        mes "[Hox]";
        mes "You are on the good way, 2 Spirits remaining !";
        set TSQ_CHK,3;
        close;
nook:
        mes "[Hox]";
        mes "Sorry, Go back and talk to Vox.";
        next;
        set TSQ_CHK,0;
        close;
}

tha_t12,153,17,4        script  Dox     111,{
        if(TSQ_CHK != 3 ) goto nook;
        mes "[Dox]";
        mes "Perfect, 1 Spirit left.";
        set TSQ_CHK,4;
        close;
nook:
        mes "[Dox]";
        mes "Sorry, Go back and talk to Hox.";
        next;
        set TSQ_CHK,0;
        close;
}

tha_t12,128,88,4        script  Sox     111,{
        if(TSQ_CHK != 4 ) goto nook;
        mes "[Sox]";
        mes "You have just passed the test successfully.";
        next;
        mes "[Sox]";
        mes "You have to give me Red Magic Stone, Yellow Magic Stone, Blue Magic Stone & Green Magic Stone.";
        next;
        if(countitem(7426) < 1 || countitem(7427) < 1 || countitem(7428) < 1 || countitem(7429) < 1) goto nostone;
        delitem 7426,1;
        delitem 7427,1;
        delitem 7428,1;
        delitem 7429,1;
        mes "[Sox]";
        mes "I will now warp you to steps of Fate.";
        mes "Good-bye.";
        next;
        set TSQ_CHK,0;
        warp "thana_step", 186, 223;
        close;

nostone:
        mes "[Sox]";
        mes "Oh well, seems you don't have enough stones.";
        close;

nook:
        mes "[Sox]";
        mes "Sorry, Go back and talk to Dox.";
        next;
        set TSQ_CHK,0;
        close;
}