=TalkNpc,Victor;
	*npcsay("I am so, so hungry, could you spare a little food please?");
        *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(Victor_Nothing)
	*ifvar(Chat,1)
        +Jump(Victor_C)
	-ifvar(Chat,2)
        +Jump(Victor_M)
	-ifvar(Chat,3)
        +Jump(Victor_MC)
	-ifvar(Chat,4)
        +Jump(Victor_B)
	-ifvar(Chat,5)
        +Jump(Victor_BC)
	-ifvar(Chat,6)
        +Jump(Victor_BM)
	-ifvar(Chat,7)
        +Jump(Victor_BMC)

=Label,Victor_Nothing;
	*multi2("I am sorry, I have no food at all.",Victor_NoFood,"No, I think scroungers should be shot",Victor_Scrounger);

=Label,Victor_C;
	*multi2("Have some cabbage",Victor_Give_C,"No, I think scroungers should be shot",Victor_Scrounger);

=Label,Victor_M;
	*multi2("I have some meat I can spare for you",Victor_Give_M,"No, I think scroungers should be shot",Victor_Scrounger);

=Label,Victor_MC;
	*multi3("Have some cabbage",Victor_Give_C,"I have some meat I can spare for you",Victor_Give_M,"No, I think scroungers should be shot",Victor_Scrounger);

=Label,Victor_B;
	*multi2("Here is some bread, I think you need it",Victor_Give_B,"No, I think scroungers should be shot",Victor_Scrounger);

=Label,Victor_BC;
	*multi3("Have some cabbage",Victor_Give_C,"Here is some bread, I think you need it",Victor_Give_B,"No, I think scroungers should be shot",Victor_Scrounger);

=Label,Victor_BM;
	*multi3("I have some meat I can spare for you",Victor_Give_M,"Here is some bread, I think you need it",Victor_Give_B,"No, I think scroungers should be shot",Victor_Scrounger);

=Label,Victor_BMC;
	*multi4("Have some cabbage",Victor_C_Given,"I have some meat I can spare for you",Victor_Give_M,"Here is some bread, I think you need it",Victor_Give_B,"No, I think scroungers should be shot",Victor_Scrounger);

=Label,Victor_Give_M;
	*say(""I have some meat I can spare for you");
        *mes("You give some cooked meat to Victor");
        *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(Victor_M_Given)
	*ifvar(Chat,1)
        +Jump(Victor_M_More_M)
	-ifvar(Chat,2)
        +Jump(Victor_M_More_B)
	-ifvar(Chat,3)
        +Jump(Victor_M_More_MB)

=Label,Victor_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",Victor_MM_Given,"I am sorry, thats all I can spare.",Victor_M_Given);

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

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

=Label,Victor_M_Give_B;
	*say("I can give you some bread";
        *mes("You give some bread to Victor");
        *remove(bread,1); 
        *ifheld(Bread,1);
        -Jump(Victor_BM_Given);
        +Jump(Victor_BM_More_B);

=Label,Victor_Give_B;
	*say("Here is some bread, I think you need it";
        *mes("You give some bread to Victor");
        *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(Victor_B_Given);
	*ifvar(Chat,1);
        +Jump(Victor_B_More_M);
	-ifvar(Chat,2);
        +Jump(Victor_B_More_B);
	-ifvar(Chat,3);
        +Jump(Victor_B_More_MB);

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

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

=Label,Victor_B_More_MB;
	*say("Could you perhaps spare me a little more, I am so hungry.");
	*multi3("I can give you some more bread",Victor_B_Give_B,"I can give you a little meat",Victor_B_Give_M,"I can't give you anything more",Victor_B_Given);

=Label,Victor_B_Give_B;
	*say("I can give you some more bread";
        *mes("You give some bread to Victor");
        *remove(bread,1); 
        *Setvar(Chat,0);
        *Ifheld(CookedMeat,1);
        +addvar(Chat,1);
        *ifheld(Bread,1);
        +addvar(Chat,2);
	*ifvar(Chat,0);
        +Jump(Victor_BB_Given);
	*ifvar(Chat,1);
        +Jump(Victor_BB_More_M);
	-ifvar(Chat,2);
        +Jump(Victor_BB_More_B);
	-ifvar(Chat,3);
        +Jump(Victor_BB_More_MB);

=Label,Victor_B_Give_M;
	*say("I can give you some bread";
        *mes("You give some bread to Victor");
        *remove(bread,1); 
        *ifheld(Bread,1);
        -Jump(Victor_BB_Given);
        +Jump(Victor_BM_More_B);

=Label,Victor_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",Victor_BB_Give_M,"That is all the food I can give you",Victor_BB_Given);

=Label,Victor_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",Victor_BBB_Given,"That is all the food I can give you",Victor_BB_Given);

=Label,Victor_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",Victor_BBB_Given,"I can give some meat",Victor_BB_Give_M,"That is all the food I can give you",Victor_BB_Given);

=Label,Victor_BB_Give_M;
	"I can give some meat"
        *mes("You give some meat to Victor");
        *remove(meat,1); 
	*jump(Victor_BBM_Given);

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

  Here is the payout section, it works as follows                 

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

  Bread only, 7 coins
  Bread and Meat 7 coins plus 2 uncooked meat or 10 + 1 meat      
  Bread and Bread 14 coins plus 10% chance of Bronze mail         

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

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


=Label,Victor_C_Given;
	*say("Have some cabbage");
        *mes("You give a cabbage to Victor");
        *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("Victor passes you 2 coins");
        +give(coins,2); 

=Label,Victor_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("Victor gives you 2 coins");
        +give(coins,2); 
	+npcsay("And I have this raw meat, it is no use to me");
        +mes("Victor passes some uncooked meat to you");
        +give(uncookedmeat,1); 
        -mes("Victor gives you 4 coins");
        -give(coins,4); 

=Label,Victor_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("Victor gives you 3 coins");
        +give(coins,3); 
	+npcsay("And I have this raw meat, it is no use to me");
        +mes("Victor passes some uncooked meat to you");
        +give(uncookedmeat,2); 
        -mes("Victor gives you 6 coins");
        -give(coins,6); 
	-npcsay("And I have this raw meat, it is no use to me");
        -mes("Victor passes some uncooked meat to you");
        -give(uncookedmeat,1); 

=Label,Victor_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("Victor gives you 9 coins");
        +give(coins,9); 
	+end()
        -random(128);
        +mes("Victor gives you 7 coins");
        +give(coins,7); 
        -mes("Victor gives you 5 coins");
        -give(coins,5); 

=Label,Victor_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("Victor gives you 15 coins");
        *give(coins,15); 
	*random(25);
	*npcsay("I was also given this armour, if you can use it");
        *mes("Victor gives you some bronze chain mail");
        *give(BronzeChainMail,1); 

=Label,Victor_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("Victor gives you 7 coins");
        +give(coins,7); 
	+npcsay("And I have this raw meat, it is no use to me");
        +mes("Victor passes some uncooked meat to you");
        +give(uncookedmeat,2); 
        -mes("Victor gives you 10 coins");
        -give(coins,10); 
	-npcsay("And I have this raw meat, it is no use to me");
        -mes("Victor passes some uncooked meat to you");
        -give(uncookedmeat,1); 

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

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