=TalkNpc,Juliet;
        *Ifvarmore(RJQuest,99);
        +jump(JQuestDone);
        -ifvarless(RJQuest,10);
        +jump(JStep0);
        -ifvarless(RJQuest,20);
        +jump(JStep10);
        -ifvarless(RJQuest,30);
        +jump(JStep20);
        -ifvarless(RJQuest,40);
        +jump(JStep30);
        -ifvarless(RJQuest,50);
        +jump(JStep40);
        -ifvarless(RJQuest,60);
        +jump(JStep50);
        -ifvarless(RJQuest,70);
        +jump(JStep60);
        -jump(JQuest_Confused);

=Label,JStep0;
        *npcsay("Romeo, Romeo, Wherefore art thou Romeo?");
        *delay(3);
        *npcsay("Bold adventurer, have you seen Romeo on your travels?");
        *npcsay("Skinny guy, a bit wishy washy, head full of poetry");
        *multi4("Yes I have met him",J0_a,"No, I think I would have remembered if I had",J0_b,"I guess I could find him",J0_c,"I think you could do better",J0_d);
   =Label,J0_a;
           *say("I did see Romeo somewhere.");
           *say("He seemed  bit depressed.");
           *npcsay("yes, That would be him.");
           *npcsay("Could you please deliver a messge to him");
           *multi2("Certinly, I will do so stright away",J0_10_Yes,"No, he was a little too weird for me",J0a_No);
      =Label,J0a_No;
              *Say(No, he was a little too weird for me");
              *npcsay("Oh dear, that will be the ruin of our love");
              *npcsay("Well, I will just stay here and worry");
              *npcsay("You unromantic soul.");
   =Label,J0_b;
           *say("No, I think I would have remembered");
           *npcsay("Could you please deliver a message to him");
           *multi2("Certinly, I will do so straight away",J0_10_Yes,"No, I have better things to do",J0b_No);
      =Label,J0b_No;
              *Say("No, I have better things to do");
              *npcsay("I will not keep you from them. Goodbye");
   =Label,J0_c;
           *Say("I guess I could find him");
           *npcsay("That is most kind of you");
           *npcsay("Could you please deliver a message to him");
	   *jump(J0_10_Yes)
   =Label,J0_d;
           *Say("I think you could do better");
           *npcsay("He has his good points.");
           *npcsay("He doesn't spend all day on the internet, at least");

=Label,JStep10;
        *say("Juliet, I come from Romeo.");
        *say("He begs me tell you he cares still");
        *npcsay("Please, Take this message to him.");
	*jump(J0_10_Yes)

=Label,J0_10_Yes;
        *Say("Certinly, I will deliver your message straight away");
        *npcsay("It may be our only hope");
        *setvar(RJQuest,20);
	*give(message,1); 

=Label,JStep20;
        *ifheld(message,1);
        +npcsay("Please, deliver the message to Romeo with all speed");
        -IfVar(RJQuest,21)
        +Jump(JQuest_Failed)
        -npcsay("How could you lose this most important message?");
        -npcsay("Please, take this message to him, and please don't lose it");
        -setvar(RJQuest,21);
	-give(message,1);

=Label,JStep30;
        *Say("I have passed on your message.");
        *Say("Now I go to Father Lawrence for help");
        *npcsay("Yes, he knows many things that can be done");
        *npcsay("I hope you find him soon");

=Label,JStep40;
        *Say("I found the Father. Now I seek the apothecary");
        *npcsay("I do not know where he lives");
        *npcsay("but please, make haste. My father is close");

=Label,JStep50;
	*ifheld(Cadava,1)
        +Say("I have a potion from Father Lawrence");
        +Say("it should make you seem dead, and get you away from this place");
        +mes("You pass the potion to Juliet");
        +delay(5);
        +remove(Cadava,1);
        +npcsay("Wonderful. I just hope Romeo can remember to get me from the Crypt");
        +npcsay("Many thanks kind sir");
        +npcsay("Please go to Romeo, make sure he understands");
        +npcsay("He can be a bit dense sometimes");
        +setvar(RJQuest,60);
	-Say("I have to get a potion made for you");
	-Say("not done that bit yet though. Still trying");
	-npcsay("Fair luck to you, the end is close");

=Label,JStep60;
        *npcsay("Have you seen Romeo, he will reward you for your help");
        *npcsay("He is the wealth in this story");
        *npcsay("I am just the glamour");

=Label,JQuest_Failed;
        *npcsay("It seems I cannot trust you with a simple message");
        *npcsay("I am sorry, I need a more reliable messenger");
        *setvar(RJQuest,120);

=Label,JQuest_Confused;
        *npcsay("Alas, poor Yorick, I knew him well");
	*delay(3);
        *npcsay("sorry, I can't think what came over me. Wrong story");

=label,JQuestDone;
	*ifvar(RJquest,120)
        +npcsay("I am sorry, I do need a more reliable messenger");
        +npcsay("Can you send any friends my way?");
        +npcsay("Preferably tall, dark and handsome");
        -npcsay("I sat in that cold crypt for ages waiting for Romeo");
        -npcsay("That useless fool never showed up");
        -npcsay("And all I got was indigestion. I am done with men like him");
        -npcsay("Now go away before I call my father!");