Santa Quest

////////////////////////////////////////////////////////////////////////////////////////////
//= Santa Quest                                       //
//======= By =============================================================================//
//= Custody                                           //
////////////////////////////////////////////////////////////////////////////////////////////
//= 1st Part Tooth Fairy                                  //
////////////////////////////////////////////////////////////////////////////////////////////
prontera,164,174,3  script  Tooth Fairy 718,{
    if(SG_QUEST1 == 1) goto L_SG_Q1_Done;
    mes "[Tooth Fairy]";
    mes "I know Santa was looking for someone who can help him to find his stuffs for this comming Christmas.";
    mes "If he do not find all his stuff this is the most lonely chirstmas ever.";
    mes "Will you help please help him to get all his stuff for this comming christmas?";
    next;
    menu "Yes, I will.",-,"Nah, I dont care.",L_SG_No;

    mes "[Tooth Fairy]";
    mes "Thank you. I know where to find him. I will tell you if you help me to find a few stuff of Santa.";
    mes "If you do it I will tell him that you are coming to help him.";
    next;
    menu "Yeah, I will help.",L_SG_1,"No way, I will find her with myself!",-;

    mes "[Tooth Fairy]";
    mes "Sadness is in your heart.";
    mes "I am the only one who knows where to find him.";
    next;
    mes "[Tooth Fairy]";
    mes "Come back to me, when you given up.";
    close;
L_SG_1:
    mes "[Tooth Fairy]";
    mes "Ok before I tell you where to find him please look for this stuff: ";
    mes "50 Candy Cane, ";
    mes "50 Candy, ";
    mes "100 Dead Branch, ";
    mes "And 5.000.000.";
    next;
    menu "Alright, Over here.",L_SG_1_Check,"Nah, I cannot Afford it!",-;

    mes "[Tooth Fairy]";
    mes "Sadness is in your heart.";
    close;
L_SG_1_Check:
    if (countitem(530) < 50) goto L_SG_CC;
    if (countitem(529) < 50) goto L_SG_C;
    if (countitem(604) < 100) goto L_SG_DB;
    if (zeny<5000000) goto L_SG_Funds;
    delitem 530,50;
    delitem 529,50;
    delitem 604,100;
    set zeny,zeny-5000000;
    set SG_QUEST1,1;
    mes "[Tooth Fairy]";
    mes "Great Job, Now listen Carefully.";
    next;
    mes "[Tooth Fairy]";
    mes "Look for Santa at the Snow City where he lived.";
    mes "I have already send him a letter that you will help to find his stuff.";
    close;
L_SG_CC:
    mes "[Tooth Fairy]";
    mes "You do not bring what i need. Please come back later.";
    close;
L_SG_C:
    mes "[Tooth Fairy]";
    mes "You do not bring what i need. Please come back later.";
    close;
L_SG_DB:
    mes "[Tooth Fairy]";
    mes "You do not bring what i need. Please come back later.";
    close;
L_SG_Funds:
    mes "[Tooth Fairy]";
    mes "You do not bring what i need. Please come back later.";
    close;
L_SG_Q1_Done:
    mes "[Tooth Fairy]";
    mes "Ok, I have already tell you what I know go now and help him.";
    next;
    mes "[Tooth Fairy]";
    mes "Go look for Santa, Dont waste your time, Hurry !.";
    close;
L_SG_No:
    mes "[Tooth Fairy]";
    mes "Sadness is in you heart.";
    close;
}

////////////////////////////////////////////////////////////////////////////////////////////
//= 2nd Part Santa                                        //
////////////////////////////////////////////////////////////////////////////////////////////

xmas,201,245,5  script  Santa   718,{
    if(SG_QUEST1 == 1) goto L_SG_2;
    mes "[Santa]";
    mes "I dont have gift for you now.";
    mes "I am still looking for my stuff.";
    close;
L_SG_2:
    mes "[Santa]";
    mes "Hello, Good day!.";
    next;
    mes "[Santa]";
    mes "You came to help me to find my stuff, right?";
    menu "Yes",L_SG_2_Start,"No, sorry to bother you.",-;

    mes "[Santa]";
    mes "Sadness is in your heart";
    close;

L_SG_2_Start:
    mes "[Santa]";
    mes "To make all the chilren happy, You need to find 50 Gift Box and 5000000z.";
    next;
    menu "Here you go.",L_SG_Q2_Check,"No, thanks.",-;

    mes "[Santa]";
    mes "Sadness is in your heart.";
    close;

L_SG_Q2_Check:
    if (countitem(644) < 50) goto L_SG_GB;
    if (zeny<5000000) goto L_SG_Funds;
    delitem 644,50;
    set zeny,zeny-5000000;
    mes "[Santa]";
    mes "Thank you for your help, I will give you a special gift for this christmas.";
    next;
    mes "[Santa]";
    mes "There you go.";
    getitem 12103,10;
    getitem 12208,10;
    getitem 7539,10;
////////////////////////////////////////////////////////////////////////////////////////////
//= Quest Reset                                       //
////////////////////////////////////////////////////////////////////////////////////////////
    set SG_QUEST1,0;
    set Quest_natal,0;
    next;
    mes "[Santa]";
    mes "Enjoy it.";
    close;
L_SG_GB:
    mes "[Santa]";
    mes "You dont have what i looking for.";
    mes "Please continue finding my stuff.";
    close;
L_SG_Funds:
    mes "[Santa]";
    mes "You dont have what i looking for.";
    mes "Please continue finding my stuff.";
    close;
}