//St. Patrick's Day

//Written by DerLoisl @ irc.freenode.net

//2010

 

 

000-0.gat,0,0,0         script Patrick  000, {

       

        mes "[Patrick]";

        mes "Happy St. Patrick's Day! What's your name my friend?";

        next;

        input@name$;

        if(SPD == 0) goto L_Quest;

        if(SPD == 1) goto L_Happy;

       

 

L_Quest:

        mes "[The Riddler]";

        mes "\"Ah, hello " + @name$ + ", how are you today, ready for St. Patrick's Day???\"";

        next;

        menu

 

                "Oh, yeah, I am!", L_Yeah,

                "I'm not sure...", L_NotSure,

                "Definately not", L_No,

                "What's St. Patrick's Day?", L_Explanation;

 

L_Happy:

        mes "[Patrick]";

        mes "You've alreday got your reward. Please give the others also a try! And keep in mind that St. Patrick's Day is an event to celebrate St. Patrick.  Next year, you can find my at the same location. Now, go go go and trink as much green beer as you want!";

        mes "See you next year my friend.";

        close;

 

L_Yeah:

        mes "[Patrick]";

        mes "\"That's what I wanted to hear!";

        mes "Have you ever kissed the Blarney stone?\"";

        next;

        menu

               

                "Sure", goto L_Kissed,

                "Nah", -,

                "Blarney Stone?", goto L_Stone;

        close;

       

 

L_NotSure:

        mes "[Patrick]";

        mes "St. Patrick's Day is really exciting...better think about it and tell me your decision later.";

        mes "See you.";

        close;

 

L_No:

        mes "[Patrick]";

        mes "You're not ready for St. Patrick's Day?!";

        mes "A pity...";

        close;

 

L_Explanation:

 

L_Kissed:

        if(Stone == 0) goto L_Kiss;

        if/Stone == 1) goto L_Done;

 

L_Done:

        mes "[Patrick]"

        mes "\"Oh yeah, that's good. May I ask whether you want to participate in a little game?\"";

        next;

        menu

                "YAY!", goto L_Ok,

                "Maybe next year...", -;

        close;

 

L_Stone:

        mes "[Patrick]";

        mes "\"The Blarney Stone is an ancient misterious rock. Try to kiss the stone and you might get something.\"";

        next;

        menu

                "No, thank you", -,

                "Where can i find the Blarney Stone?", goto L_Location,

                "Wow, I am on my way!", -;

        close;

       

L_Location:

        mes "[Patrick]";

        mes "I don't know the exact location, but I think the stone is somewhere near the mining camp north of Hurnscald.";

        mes "Find the stone and come back!";

        close;

       

L_Ok:

        mes "[Patrick]"

        mes "I'm glad to hear that.";

        mes "Come on, turn on this wheel and you might win something.";

        next;

                set @TEMP, rand(4);

                if(@TEMP == 0) goto L_Reward0;

                if(@TEMP == 1) goto L_Reward1;

                if(@TEMP == 2) goto L_Reward2;

                if(@TEMP == 3) goto L_Reward3;

                if(@TEMP == 4) goto L_Reward4;

               

L_Reward0:

        mes "[Patrick]";

        mes "Unfortunately a blank. But take this as a consolation prize!;

        getitem "greenbeer", 15;

        getitem 648, 1;

        set SPD, 1;

        close;

 

L_Reward1:

        mes "[Patrick]";

        mes "Take this as reward.";

        getitem "greenbeer", 30;

        getitem 649, 1;

        getexp 500, 0;

        set SPD, 1;

        close;

 

L_Reward2:

        mes "[Patrick]";

        mes "Here's your prize.";

        getitem "greenbeer", 30;

        getitem 650, 1;

        set zeny, zeny + 1000;

        set SPD, 1;

        close;

 

L_Reward3:

        mes "[Patrick]";

        mes "Take this.";

        getitem "greenbeer", 30;

        getitem 651, 1;

        getexp 600, 0;

        set SPD, 1;

        close;

 

L_Reward4:

        mes "[Patrick]";

        mes "Have fun with your reward.";

        getitem "greenbeer", 30;

        getitem 652, 1;

        set zeny, zeny + 1500;

        set SPD, 1;

        close;

       

L_Kiss:

        mes "[Patrick]";

        mes "Seems like you haven't kissed the stone...";

        close;

       

}