diff options
Diffstat (limited to 'world/map/npc/xmas/2012/reinbooFlightProblems.txt')
-rw-r--r-- | world/map/npc/xmas/2012/reinbooFlightProblems.txt | 185 |
1 files changed, 185 insertions, 0 deletions
diff --git a/world/map/npc/xmas/2012/reinbooFlightProblems.txt b/world/map/npc/xmas/2012/reinbooFlightProblems.txt new file mode 100644 index 00000000..c45117b3 --- /dev/null +++ b/world/map/npc/xmas/2012/reinbooFlightProblems.txt @@ -0,0 +1,185 @@ +// This file is part of Christmas Event 2012 +// author: Jenalya + +044-1.gat,71,101,0|script|Neiremes|331,{ + callfunc "xmas2012time"; + + set @reinboo, (xmas2012 & NIBBLE_0_MASK) >> NIBBLE_0_SHIFT; + + if (@xmas_time == $@xmas2012_no_event_time) + goto L_NoEvent; + if (@xmas_time == $@xmas2012_reward_time) + goto L_RewardTime; + + if (@reinboo == 14) goto L_Done; + if (@reinboo > 8) goto L_Training; + if (@reinboo == 8) goto L_Neimeres; + if (@reinboo > 6) goto L_Acorn; + if (@reinboo == 6) goto L_Hungry; + if (@reinboo > 1) goto L_Blanket; + + mes "[Neiremes]"; + mes "\"Hello? Please don't disturb me. I'm practicing.\""; + if (@reinboo == 0) + goto L_Close; + menu + "I'm here to help you!", -, + "Ok, sorry.", L_Close; + mes "[Neiremes]"; + mes "\"Help me? Oh, that's kind. Now that you say it, I can smell Grombadil on you. He sent you, right? He's so friendly to me. And I fear I'll dissapoint him.\""; + menu + "I'm sure you won't. What's causing you problems?", -, + "Pull yourself together! What's your problem?", -; + mes "[Neiremes]"; + mes "\"I... I have problems with flying. I can manage a short flight, but... well, first of all it's so terribly cold in the upper air!"; + mes "I don't like freezing.\""; + menu + "I'll try to get something to keep you warm.", -; + mes "[Neiremes]"; + mes "\"Oh, that's very kind! But... it has to be red, ok? It's Santa's color. I can't wear a different color!\""; + set @reinboo, 2; + callfunc "xmas2012update_reinboo_var"; + goto L_Close; + +L_Blanket: + mes "[Neiremes]"; + mes "\"Did you find something to keep me warm yet? I'm sure that'll help me to stay in the air for a longer time. And remember, I can only wear something red. Because it's Santa's color.\""; + if (@reinboo != 5) + goto L_Close; + menu + "I have a Red Saddle Rug for you!", -, + "Not yet.", L_Close; + + if (countitem("RedSaddleRug") < 1) + goto L_NoItem; + delitem "RedSaddleRug", 1; + set @reinboo, 6; + callfunc "xmas2012update_reinboo_var"; + + mes "[Neiremes]"; + mes "\"Oh, oh, oh! Amazing! It's so fluffy! And red! And warm! Thank you!\""; + mes "He takes the rug with his mouth and puts it on his back."; + next; + mes "[Neiremes]"; + mes "\"Can you fasten it onto my back? Pull that strap. Yes, that's right.\""; + next; + mes "\"Oh, I'm so happy. I'm sure now I can stay in the cold air for a longer time."; + mes "\"Unless..."; + menu + "Unless?", -, + "What's now the problem?", -; +L_Hungry: + mes "[Neiremes]"; + mes "\"Oh, I... I feel hungry now. It's hard to concentrate when I'm hungry. And I feel exhausted because of that. Yes. I need to eat first.\""; + next; + mes "\"Leiremes, my trainer, said it's not good to go on a long flight when you're hungry.\""; + menu + "Are you sure you aren't just afraid?", -, + "Ok, I'll get you something.", L_Close; + + mes "[Neiremes]"; + mes "\"Oh, don't be mean! I'm really hungry! I'm doing my best.\""; + goto L_Close; + +L_Acorn: + mes "[Neiremes]"; + mes "\"That Red Saddle Rug you brought me is really nice and warm. But I can't go on a long training flight when I'm hungry. Leiremes said it's dangerous to fly when you're hungry. He's my trainer and he's very wise.\""; + menu + "I'll try to find something appropriate.", L_Close, + "I've got some Roasted Acorns for you.", -; + + if (countitem("RoastedAcorn") < $@xmas2012_roasted_acorn_amount) + goto L_NoItem; + delitem "RoastedAcorn", $@xmas2012_roasted_acorn_amount; + set @reinboo, 8; + callfunc "xmas2012update_reinboo_var"; + + mes "[Neiremes]"; + mes "\"Roasted Acorns! Yum, yum, yum. Tasty!\""; + mes "Neiremes munches the acorns with visible delight."; + next; + mes "[Neiremes]"; + mes "\"Now I'm going back to training.\""; + next; +L_Neimeres: + mes "[Neiremes]"; + mes "\"Neimeres wanted to talk to you. I told her about the nice saddle rug you brought me and she got curious about you. She is just over there at the well.\""; + next; + mes "\"Mh... I think you have to go through that cave further downhill.\""; + goto L_Close; + +L_Training: + mes "[Neiremes]"; + mes "\"I'm training. Thank you for bringing me the saddle rug and the food. I'm doing my best now."; + mes "... If I only wouldn't have to fly so high...\""; + if (@reinboo != 13) + goto L_Close; + menu + "I have a Flight Talisman for you!", -, + "You just have to train harder!", L_Close; + mes "[Neiremes]"; + mes "\"Oh, exciting! What does it do? Does it help me?\""; + menu + "It'll keep you safe while you're flying.", -; + if (countitem("FlightTalisman") < 1) + goto L_NoItem; + delitem "FlightTalisman", 1; + set @reinboo, 14; + callfunc "xmas2012update_reinboo_var"; + mes "You give Neiremes the talisman."; + mes "[Neiremes]"; + mes "\"Oh, I already feel more safe. It's really powerful, is it? Thank you so much. I'm going to do another training flight, to test it.\""; + goto L_Close; + +L_Done: + mes "[Neiremes]"; + mes "\"Hello! I just made a very long and high training flight. And I didn't feel cold and I wasn't nervous! Are you proud of me? Thank you so much for bringing this Flight Talisman.\""; + next; + mes "\"Will you come to see how I did after Christmas?\""; + menu + "Of course I will!", -, + "When I have the time...", L_Please; + mes "[Neiremes]"; + mes "\"Yay!\""; + goto L_Close; + +L_Please: + mes "[Neiremes]"; + mes "\"Oh, please come!\""; + goto L_Close; + +L_NoItem: + mes "[Neiremes]"; + mes "\"Hey? You don't have it! That's mean.\""; + mes "Neiremes looks very sad."; + goto L_Close; + +L_NoEvent: + mes "Neiremes the Reinboo hums happily."; + goto L_Close; + +L_RewardTime: + mes "[Neiremes]"; + mes "\"Thank you so much for your help! It was really great to fly with Santa and the others. Neimeres was so happy too.\""; + if (@reinboo != 14) + goto L_Close; + + getinventorylist; + if ((checkweight("RedNose", 1) == 0) || (@inventorylist_count == 100)) + goto L_Inventory; + mes "\"Here, this is for you.\""; + getitem "RedNose", 1; + set @reinboo, 15; + callfunc "xmas2012update_reinboo_var"; + goto L_Close; + +L_Inventory: + mes "[Neiremes]"; + mes "\"Oh, I want to give you a gift, but you can't carry it.\""; + goto L_Close; + +L_Close: + set @reinboo, 0; + set @xmas_time, 0; + close; +} |