=TalkNpc,Serena;
        -ifvarless(MonkQuest,10);
        +jump(SereStep0);
        -ifvarless(MonkQuest,20);
        +jump(SereStep10);
        -ifvarless(MonkQuest,30);
        +jump(SereStep20);
        -ifvarless(MonkQuest,60);
        +jump(SereStep30);
        -ifvarless(MonkQuest,100);
        +jump(SereStep60);
        -jump(SereStep100);

=Label,SereStep0;
      *npcsay("I am Serena");
      *multi3("Hi, what exactly do you do here?",Sere0_a,"Why don't you live in a better house?",Sere0_b,"Got any hints on quests?",Sere0_c);

=Label,Sere0_a;
      *say("Hello you don't look so cheerful.");
      *npcsay("Thank you for the concern, I am upset.");
      *say("What's causing you such grief?");
      *npcsay("well I'm sure it's those evil red monks again. They are tormenting me in my dreams.");
      *npcsay("Awful nightmares, its quite scary!");
      *multi2("How can I help? This sounds like a worthy quest!",Hoss0a_Yes,"I just want healing, quests don't interest me",Hoss0a_No);

=Label,Sere0a_Yes;
      *say("How can I help? This sounds like a worthy quest!");
      *npcsay("Ok, let's see....I know who might be able to assist in some way.");
      *npcsay("There is a sorceress somewhere in Falador. Serena");
      *npcsay("She is not exactly good, but not evil like the monks");
      *npcsay("she may offer help, if she feels like it");
      *say("Ok I will do that. Take care.");
      *npcsay("Thank you, I will try to be calm.");
	*setvar(MonkQuest,10);
	
=Label,Sere0a_No;
      *say("I just want healing, quests dont interest me");
      *npcsay("Then go in peace warrior, speak to one of the monks for healing");

=Label,Sere0_b;
      *say("What's the matter,Imp got your tongue?");
      *npcsay("Hmmm, I'm quite upset. Leave me be.");

=Label,Sere0_c;
      *say("Do you ever say no to healing someone?");
      *npcsay("I would say no if someone were to hurt my fellow monks.");
      *npcsay("But no one ever asks me to heal them.");

=Label,SereStep10;
      *npcsay("Have you spoken to the Sorceress yet?");
      *say("No, I am still trying to find her");

=Label,SereStep20;
      *npcsay("Have you spoken to the Sorceress yet?");
      *say("Yes, she sent me to her sister Marina, who knows about dream power");
      *npcsay("I don't know where she could be, maybe in Varrock somewhere?");

=Label,SereStep30;
      *npcsay("How is your quest progressing?");
      *npcsay("My dreams are becoming unbearable");
      *say("Rest Abbot, I am gaining their trust then I shall destroy this evil");

=Label,SereStep60;
      *say("How are you feeling now Hoss?");    //hehe, Couldn't resist that line :)
      *npcsay("My dreams are back to normal. I can't begin to thank you enough.");
      *npcsay("I hope this is enough of a token to show my appreciation.");
      *npcsay("If you ever need healing come back, and it will be done.");
      *npcsay("Thank you very much.");
	*Advance(Prayers,4);	/// Reward - Check and change as required
	*setvar(MonkQuest,100);

=Label,SereStep100;
      *npcsay("Thank you very much. for clearimg my dreams");