030-2,87,41,0 script Eljas NPC328,5,1,{
callfunc "XmasStates";
callfunc "ThrowOutTheBum";
if(@getout) end;
goto L_Start;
L_Start:
if($@xmas_time)
goto L_XmasMain;
goto L_OffSeason;
L_XmasMain:
if (@xmas_state > $@xmas_list_deliver_state)
goto L_OffSeason;
if (@xmas_list_deliver)
goto L_SeeChief;
if (@xmas_list_complete)
goto L_HaveList1;
if (@xmas_list_both)
goto L_HaveList1;
if (@xmas_list_path1)
goto L_HaveList2;
if (@xmas_list_path2)
goto L_NeedList1;
goto L_NeedList2;
L_HaveList1:
mes "[Eljas]";
mes "\"Hello! Welcome to the Christmas Inn. We work all year around to make the magic happen.\"";
next;
mes "\"What brings you here?\"";
next;
mes "...";
menu
"What were the childrens names again?", L_ListNames,
"Look, I have Santa's List.", L_SantasList,
"I have Santa's List.(follow Orum and his evil deeds)", L_SantasFakeList,
"Christmas?", L_Christmas,
"I am interested in magical research.", L_Research,
"Nothing, I have to go.", L_close;
L_HaveList2:
mes "Mmmmh he probably won't notice what lists you will bring him (Did you ever notice that he does not move at all?)";
mes "Haven't you always wondered what happens if you simply cheat?";
mes "Well ... It's a story as ancient as mankind.";
mes "If you break the rules that are tied to an environment you live in, you are likely to be punished";
mes "by them. So be careful what you do next, you might regret it...";
next;
menu
"What were the childrens names again?", L_ListNames,
"Look, I have Santa's List.", L_SantasList,
"I have Santa's List. (replace every wish with \"Christmas would die\" )", L_SantasFakeList,
"Christmas?", L_Christmas,
"I am interested in magical research.", L_Research,
"Nothing, I have to go.", L_close;
L_NeedList1:
mes "[Eljas]";
mes "\"Hello! Welcome to the Christmas Inn. We work all year around to make the magic of the holidays happen.\"";
next;
mes "\"So what brings you here my dear?\"";
menu
"Mmh? Nothing, I have to go.", L_close,
"I heard you need help with some Wish lists?", L_Next;
L_Next:
mes "\"True...\"";
next;
mes "\"It appears we are missing some of the wish list from the children from all over the Mana World.\"";
mes "\"Let me check here...\"";
next;
mes "\"Ah ha, here we go.\"";
mes "\"The missing wish lists are:";
callfunc "XmasListList";
mes "\"If you can find these children, please bring their lists back to me.\"";
mes "\"Thank you for helping out!\"";
mes "He looks up from his notes and gives you a broad smile";
@xmas_state = $@xmas_list_both_state;
callfunc "XmasSetState";
goto L_close;
L_NeedList2:
mes "[Eljas]";
mes "\"Hello! Welcome to the Christmas Inn. We work all year around to make the magic of the holidays happen.\"";
next;
mes "\"So what brings you here my dear?\"";
menu
"Do you need any help this year?", L_StartQuest,
"Mmh? Nothing, I have to go.", L_close;
L_OffSeason:
mes "[Eljas]";
mes "\"Hello! Welcome to the Christmas Inn. We work all year around to make the magic of the holidays happen.\"";
next;
mes "\"And what brings you here?\"";
menu
"Christmas.", L_Christmas,
"Magical research.", L_Research,
"Och, nothing. I have to go.", L_close;
L_StartQuest:
mes "\"Why yes! Of course we do!\"";
next;
mes "\"It appears we are missing some of the wish list from the children from all over the Mana World.\"";
mes "\"Let me check here...\"";
next;
mes "\"Ah ha, here we go.\"";
mes "\"The missing wish lists are:";
callfunc "XmasListList";
mes "\"If you can find these children, please bring their lists back to me.\"";
mes "\"Thank you for helping out!\"";
mes "He looks up from his notes and gives you a broad smile";
next;
@xmas_state = $@xmas_list_path1_state;
callfunc "XmasSetState";
goto L_close;
L_ListNames:
mes "He checks a piece of paper on his desk...";
mes "\"Mmh... the missing lists are:";
callfunc "XmasListList";
mes "\"If you can find these children, please bring their lists back.\"";
goto L_close;
L_SantasList:
callfunc "XmasCheckList";
callfunc "XmasStates";
if(!(@xmas_list_complete))
goto L_NotComplete;
mes "\"Awesome! Now please take those lists to Chief Warrick on the next floor.\"";
@karma_bonus = @xmas_list_count;
callfunc "XmasNice";
@xmas_state = $@xmas_list_deliver_state;
callfunc "XmasSetState";
callfunc "XmasXpReward";
goto L_close;
L_SantasFakeList:
callfunc "XmasCheckList";
callfunc "XmasStates";
if(!(@xmas_list_complete))
goto L_NotComplete;
mes "\"Wait a second... whats that aura...\"";
mes "\"THESE ARE NOT THE REAL LISTS!\"";
mes "\"Guards! Toss this naughty one outside!\"";
next;
@karma_bonus = @xmas_list_count;
callfunc "XmasNaughty";
callfunc "XmasSetSide";
callfunc "XmasThrowOut";
@xmas_state = $@xmas_list_deliver_state;
callfunc "XmasSetState";
callfunc "XmasXpReward";
goto L_NotWelcome;
L_NotComplete:
mes "\"Hrmm... Even I can tell that you did not bring all the lists we are missing.\"";
goto L_ListNames;
L_SeeChief:
mes "\"Please take those lists to Chief Warrick on the next floor.\"";
goto L_close;
L_Christmas:
mes "\"All year round we work hard to make toys and repair our help for each years event.\"";
mes "\"Ask Chief Warrick on the next floor, He is the shop foreman, people are always looking to him to find extra help.\"";
next;
goto L_close;
L_Research:
mes "\"Well, the most astonishing discovery in our recent researches is a complex combination of Transmutation, Astral and Nature Magic to animate wooden figurines.\"";
mes "\"Did you notice the Guards around the house? Originally those were simple nutcrackers, carved out of wood by our talented carpenters.\"";
next;
mes "\"With the results of our magic researches, we were able to transform them into animated beings, acting rudimentary self-determined and capable to perform simple tasks.\"";
mes "\"At the moment we can keep them animated for an unlimited time, as long as the caster stays in range.\"";
next;
mes "\"If you want to learn more about the magic used speak with Avalia she is on the 4th floor in her private room.\"";
next;
goto L_close;
L_NotWelcome:
mes l("... You hear a voice calling your name ... ");
mesn l("Balthasar");
mesq l("Come see me in the caves below.");
mesq l("go south till you reach the snowman. Then head into the cave to the east.");
warp "020-1",33,94;
close;
L_close:
mes"\"Goodbye\"";
close;
L_End:
end;
OnTouch:
callfunc "XmasStates";
callfunc "ThrowOutTheBum";
if(@getout) end;
if((@xmas_list_gather) || !($@xmas_time))
goto L_End;
goto L_Start;
}
