diff options
| -rw-r--r-- | npc/005-1_Snake_desert/tree.txt | 149 |
1 files changed, 149 insertions, 0 deletions
diff --git a/npc/005-1_Snake_desert/tree.txt b/npc/005-1_Snake_desert/tree.txt new file mode 100644 index 00000000..1f033c63 --- /dev/null +++ b/npc/005-1_Snake_desert/tree.txt @@ -0,0 +1,149 @@ +function script QuestTreeTrigger { + set @Q_MASK, NIBBLE_2_MASK; + set @Q_SHIFT, NIBBLE_2_SHIFT; + + set @Q_status, (QUEST_MAGIC & @Q_MASK) >> @Q_SHIFT; + set @Q_status_lower, @Q_status & 3; + set @Q_status, (@Q_status & 12) >> 2; + + if (@Q_status & @flag) + close; // already did that + + if (@flag == 2) + goto L_hug; + +L_cont: + set @Q_status, @Q_status | @flag; + callsub S_update_var; + + if (@Q_status != 3) + close; + + if (MAGIC_FLAGS & MFLAG_DID_CUTTREE) + close; + + mes "Maybe it is just a trick of the light, but you can't help but think that the tree looks different... healthier, almost younger."; + mes "[20000 experience points]"; + getexp 20000, 0; + set @value, 15; + callfunc "QuestSagathaHappy"; + next; + close; + +L_hug: + mes "You hug the tree."; + next; + goto L_cont; + +S_update_var: + set @Q_wr_status, (@Q_status << 2) | @Q_status_lower; + set QUEST_MAGIC, + (QUEST_MAGIC & ~(@Q_MASK) + | (@Q_wr_status << @Q_SHIFT)); + return; +} + +function script QuestTreeTouch { + set @Q_MASK, NIBBLE_2_MASK; + set @Q_SHIFT, NIBBLE_2_SHIFT; + + set @Q_status, (QUEST_MAGIC & @Q_MASK) >> @Q_SHIFT; + set @Q_status, (@Q_status & 12) >> 2; + + if (@Q_status == 3) + goto L_happy; + + if (@Q_KNOWS_CUTTREE && (!(MAGIC_FLAGS & MFLAG_KNOWS_DRUIDTREE))) + goto L_cut; + + if (!@Q_KNOWS_CUTTREE && ((MAGIC_FLAGS & MFLAG_KNOWS_DRUIDTREE))) + goto L_water; + + if (@Q_KNOWS_CUTTREE && ((MAGIC_FLAGS & MFLAG_KNOWS_DRUIDTREE))) + goto L_both; + + close; + +L_cut: + mes "[Dying Tree]"; + mes "This must be the tree that the earth spirit was referring to."; + next; + menu + "Cut off a branch", L_do_cut, + "Leave it alone", -; + close; + +L_water: + mes "[Dying Tree]"; + mes "This must be the druid tree."; + next; + menu + "Water the tree", L_water, + "Kiss tree", L_kiss, + "Leave it alone", -; + close; + +L_both: + mes "[Dying Tree]"; + mes "This must be the druid tree, the one the earth spirit asked you to cut."; + next; + menu + "Water the + mes "You don't have any water."; + next; + close; + +L_kiss: + mes "[Dying Tree]"; + mes "You pluck out a splinter from your lip."; + mes "Somehow, you don't think that this helped."; + next; + close; + +L_do_cut: + if (countitem(570) < 1) + goto L_no_boneknife; + + if (MAGIC_FLAGS & MFLAG_DID_CUTTREE) + goto L_really_cut; + + mes "[Dying Tree]"; + mes "You find a suitable branch and put your bone knife in position."; + mes "Holding the branch, you have an uneasy feeling-- as if something inside the tree were trying to resist you..."; + mes "Do you want to continue cutting?"; + next; + + menu + "Nah... better not.", -, + "Yes, let's cut!", L_really_cut; + close; + +L_really_cut; + set MAGIC_FLAGS, MAGIC_FLAGS | MFLAG_DID_CUTTREE; + getitem 732, 1; + mes "[Dying Tree]"; + mes "You cut off a branch from the tree."; + mes "For an instant, you have an uneasy feeling, as if the branch were writhing in your hand..."; + next; + close; + +L_no_boneknife: + mes "[Dying Tree]"; + mes "Try as you might, you can't seem to find a way to cut off a branch. Perhaps you need a different tool for cutting?"; + next; + close; + +L_do_cut: + +L_happy: + + close; +} + +005-1.gat,79,41,0 script #DruidTree0#_M 127,{ + callfunc "QuestTreeTouch"; +} + +005-1.gat,80,41,0 script #DruidTree1#_M 127,{ + callfunc "QuestTreeTouch"; +} |