=TalkNpc,Vincent;
	*npcsay("Have you got any food to spare a humble man, kind traveller?");
        *Setvar(Chat,0)
	*Ifheld(Cabbage,1)
        +Setvar(Chat,1)
        *Ifheld(CookedMeat,1)
        +addvar(Chat,2)
        *ifheld(Bread,1)
        +addvar(Chat,4)
	*ifvar(Chat,0)
        +Jump(Vincent_Nothing)
	*ifvar(Chat,1)
        +Jump(Vincent_C)
	-ifvar(Chat,2)
        +Jump(Vincent_M)
	-ifvar(Chat,3)
        +Jump(Vincent_MC)
	-ifvar(Chat,4)
        +Jump(Vincent_B)
	-ifvar(Chat,5)
        +Jump(Vincent_BC)
	-ifvar(Chat,6)
        +Jump(Vincent_BM)
	-ifvar(Chat,7)
        +Jump(Vincent_BMC)

=Label,Vincent_Nothing;
	*multi2("I am sorry, I have no food at all.",Vincent_NoFood,"No, I don't have anything I can spare someone like you",Vincent_Scrounger);

=Label,Vincent_C;
	*multi2("Have some cabbage",Vincent_Give_C," No, I don't have anything I can spare someone like you ",Vincent_Scrounger);

=Label,Vincent_M;
	*multi2("I have some meat I can spare for you",Vincent_Give_M,"No, I don't have anything I can spare someone like you",Vincent_Scrounger);

=Label,Vincent_MC;
	*multi3("Have some cabbage",Vincent_Give_C,"I have some meat I can spare for you",Vincent_Give_M,"No, I don't have anything I can spare someone like you",Vincent_Scrounger);

=Label,Vincent_B;
	*multi2("Here is some bread, I think you need it",Vincent_Give_B,"No, I don't have anything I can spare someone like you",Vincent_Scrounger);

=Label,Vincent_BC;
	*multi3("Have some cabbage",Vincent_Give_C,"Here is some bread, I think you need it",Vincent_Give_B,"No, I don't have anything I can spare someone like you",Vincent_Scrounger);

=Label,Vincent_BM;
	*multi3("I have some meat I can spare for you",Vincent_Give_M,"Here is some bread, I think you need it",Vincent_Give_B,"No, I don't have anything I can spare someone like you",Vincent_Scrounger);

=Label,Vincent_BMC;
	*multi4("Have some cabbage",Vincent_C_Given,"I have some meat I can spare for you",Vincent_Give_M,"Here is some bread, I think you need it",Vincent_Give_B,"No, I don't have anything I can spare someone like you",Vincent_Scrounger);

=Label,Vincent_Give_M;
	*say(""I have some meat I can spare for you");
        *mes("You give some cooked meat to Vincent");
        *remove(cookedmeat,1); 
	*npcsay("Lovely, meat is a rare gift these days.");
        *Setvar(Chat,0)
        *Ifheld(CookedMeat,1)
        +addvar(Chat,1)
        *ifheld(Bread,1)
        +addvar(Chat,2)
	*ifvar(Chat,0)
        +Jump(Vincent_M_Given)
	*ifvar(Chat,1)
        +Jump(Vincent_M_More_M)
	-ifvar(Chat,2)
        +Jump(Vincent_M_More_B)
	-ifvar(Chat,3)
        +Jump(Vincent_M_More_MB)

=Label,Vincent_M_More_M;
	*say(""Could you perhaps spare me a little more,? I am so hungry.");
	*multi2("I can give you a little more meat",Vincent_MM_Given,"I am sorry, thats all I can spare.",Vincent_M_Given);

=Label,Vincent_M_More_B;
	*say(""Could you perhaps spare me a little more,? I am so hungry.");
	*multi2("I can give you some bread",Vincent_M_Give_B,"I am sorry, thats all I can spare.",Vincent_M_Given);

=Label,Vincent_M_More_MB;
	*say(""Could you perhaps spare me a little more,? I am so hungry.");
	*multi3("I can give you some bread",Vincent_M_Give_B,"I can give you a little more meat",Vincent_MM_Given,"I am sorry, thats all I can spare.",Vincent_M_Given);

=Label,Vincent_M_Give_B;
	*say("I can give you some bread";
        *mes("You give some bread to Vincent");
        *remove(bread,1); 
        *ifheld(Bread,1);
        -Jump(Vincent_BM_Given);
        +Jump(Vincent_BM_More_B);

=Label,Vincent_Give_B;
	*say("Here is some bread, I think you need it";
        *mes("You give some bread to Vincent");
        *remove(bread,1); 
	*npcsay("Bread would fill me up a little, thankyou.");
        *Setvar(Chat,0);
        *Ifheld(CookedMeat,1);
        +addvar(Chat,1);
        *ifheld(Bread,1);
        +addvar(Chat,2);
	*ifvar(Chat,0);
        +Jump(Vincent_B_Given);
	*ifvar(Chat,1);
        +Jump(Vincent_B_More_M);
	-ifvar(Chat,2);
        +Jump(Vincent_B_More_B);
	-ifvar(Chat,3);
        +Jump(Vincent_B_More_MB);

=Label,Vincent_B_More_M;
	*say("Could you perhaps spare me a little more,? I am so hungry.");
	*multi2("I can give you some meat",Vincent_B_Give_M,"I can't give you anything more",Vincent_B_Given);

=Label,Vincent_B_More_B;
	*say("Could you perhaps spare me a little more,? I am so hungry.");
	*multi2("I can give you some more bread",Vincent_B_Give_B,"I can't give you anything more",Vincent_B_Given);

=Label,Vincent_B_More_MB;
	*say("Could you perhaps spare me a little more, I am so hungry.");
	*multi3("I can give you some more bread",Vincent_B_Give_B,"I can give you a little meat",Vincent_B_Give_M,"I can't give you anything more",Vincent_B_Given);

=Label,Vincent_B_Give_B;
	*say("I can give you some more bread";
        *mes("You give some bread to Vincent");
        *remove(bread,1); 
        *Setvar(Chat,0);
        *Ifheld(CookedMeat,1);
        +addvar(Chat,1);
        *ifheld(Bread,1);
        +addvar(Chat,2);
	*ifvar(Chat,0);
        +Jump(Vincent_BB_Given);
	*ifvar(Chat,1);
        +Jump(Vincent_BB_More_M);
	-ifvar(Chat,2);
        +Jump(Vincent_BB_More_B);
	-ifvar(Chat,3);
        +Jump(Vincent_BB_More_MB);

=Label,Vincent_B_Give_M;
	*say("I can give you some bread";
        *mes("You give some bread to Vincent");
        *remove(bread,1); 
        *ifheld(Bread,1);
        -Jump(Vincent_BB_Given);
        +Jump(Vincent_BM_More_B);

=Label,Vincent_BM_More_B;
	*npcsay("Could I trouble you for some more. Its been a while");
	*npcsay("I will pay you for what you can spare");
	*multi2("I can give some meat",Vincent_BB_Give_M,"That is all the food I can give you",Vincent_BB_Given);

=Label,Vincent_BB_More_M;
	*npcsay("Could I troouble you for some more. Its been a while");
	*npcsay("I will pay you for what you can spare");
	*multi2("I can give you one more loaf",Vincent_BBB_Given,"That is all the food I can give you",Vincent_BB_Given);

=Label,Vincent_BB_More_MB;
	*npcsay("Could I troouble you for some more. Its been a while");
	*npcsay("I will pay you for what you can spare");
	*multi3("I can give you one more loaf",Vincent_BBB_Given,"I can give some meat",Vincent_BB_Give_M,"That is all the food I can give you",Vincent_BB_Given);

=Label,Vincent_BB_Give_M;
	"I can give some meat"
        *mes("You give some meat to Vincent");
        *remove(meat,1); 
	*jump(Vincent_BBM_Given);

//*******************************************************************************

  Here is the payout section, it works as follows                 

  Cabbage, gee thanks.  Random 2 coins 30% of the time            
  Meat only, 3 coins or 1 uncooked and 2 coins                    
  Meat and meat, 4 coins + 1 meat or 2 coins and 2 meat.          

  Bread only, 6 coins
  Bread and Meat 6 coins plus 2 uncooked meat or 8 + 1 meat      
  Bread and Bread 13 coins plus 10% chance of Bronze mail         

  B+B+Meat 15 coins plus 2 uncooked, 10% chance of Bronze chest   
  B+B+B 18 coins 10% chance of Iron armour                        

*******************************************************************************//


=Label,Vincent_C_Given;
	*say("Have some cabbage");
        *mes("You give a cabbage to Vincent");
        *remove(cabbage,1); 
	*npcsay("Thankyou, I am always grateful for cabbage.");
	*npcsay("People do seem to offer it to me when they have it");
	*random(70);
	+npcsay("I can spare you two coins if that would help a little");
        *mes("Vincent passes you 2 coins");
        +give(coins,2); 

=Label,Vincent_M_Given;
	*say("I am sorry, thats all I can spare");
	*npcsay("Thanks again for the meat");
	*npcsay("I can spare you a few coins for your kindness");
	*random(128);
        +mes("Vincent gives you 2 coins");
        +give(coins,2); 
	+npcsay("And I have this raw meat, it is no use to me");
        +mes("Vincent passes some uncooked meat to you");
        +give(uncookedmeat,1); 
        -mes("Vincent gives you 3 coins");
        -give(coins,3); 

=Label,Vincent_MM_Given;
	*say(I can give you a little more meat");
	*npcsay("That is very generous of you");
	*npcsay("I can spare you a few coins for your kindness");
	*random(128);
        +mes("Vincent gives you 2 coins");
        +give(coins,2); 
	+npcsay("And I have this raw meat, it is no use to me");
        +mes("Vincent passes some uncooked meat to you");
        +give(uncookedmeat,2); 
        -mes("Vincent gives you 4 coins");
        -give(coins,4); 
	-npcsay("And I have this raw meat, it is no use to me");
        -mes("Vincent passes some uncooked meat to you");
        -give(uncookedmeat,1); 

=Label,Vincent_B_Given;
	*say("I can't give you anything more");
	*npcsay("Your gift of bread was very generous");
	*npcsay("I can spare you a few coins for your kindness");
	*random(60);
        +mes("Vincent gives you 8 coins");
        +give(coins,8); 
	+end()
        -random(128);
        +mes("Vincent gives you 6 coins");
        +give(coins,6); 
        -mes("Vincent gives you 4 coins");
        -give(coins,4); 

=Label,Vincent_BB_Given;
	*say("That is all the food I can give you");
	*npcsay("Your gift of bread was very generous");
	*npcsay("I can spare you a few coins for your kindness");
        *mes("Vincent gives you 13 coins");
        *give(coins,13); 
	*random(25);
	*npcsay("I was also given this armour, if you can use it");
        *mes("Vincent gives you some bronze chain mail");
        *give(BronzeChainMail,1); 

=Label,Vincent_BM_Given;
	*Say("That is all the food I can spare you");
	*npcsay("I can spare you a few coins for your kindness");
	*random(128);
        +mes("Vincent gives you 6 coins");
        +give(coins,6); 
	+npcsay("And I have this raw meat, it is no use to me");
        +mes("Vincent passes some uncooked meat to you");
        +give(uncookedmeat,2); 
        -mes("Vincent gives you 8 coins");
        -give(coins,8); 
	-npcsay("And I have this raw meat, it is no use to me");
        -mes("Vincent passes some uncooked meat to you");
        -give(uncookedmeat,1); 

=Label,Vincent_BBB_Given;
	*say("I can give you one more loaf");
	*npcsay("What a marvelous meal I will have!");
	*npcsay("Let me repay you");
        *mes("Vincent gives you 18 coins");
        *give(coins,18); 
	*random(25);
	*npcsay("I also have this armour for you, thanks again");
        *mes("Vincent gives you some Bronze Plate mail");
        *give(BronzePlateMail,1); 

=Label,Vincent_BBM_Given;
	*npcsay("You have given me a rare feast!");
	*npcsay("I will happily pay you for your charity");
        *mes("Vincent gives you 15 coins");
        *give(coins,15); 
	*random(25);
	*npcsay("I also obtained this armour, if you can use it");
        *mes("Vincent gives you some Iron chain mail");
        *give(IronChainMail,1);