main
{
   questname  "PeriPeri quest"
   version      1.0
}
state begin
{
   desc         "PeriPeri quest"

   action       AddNpcText(23, "Oh my,since those angry moles appeared our harvest is wasted..");
   action       AddNpcText(23, "would you be so kind as to stop those moles for me?");

   action       AddNpcInput(23, 1, "not interested");
   action       AddNpcInput(23, 2, "I will help you");

   rule         InputNpc( 1 ) goto Lose
   rule         InputNpc( 2 ) goto TalkWithPeri
}
state  TalkWithPeri
{
   desc         "PeriPeri quest"
   action       AddNpcText(23, "Please kill 50 moles for me and I will reward you with experiance!");

   action       AddNpcInput(23, 1, "Sorry i give up");
   action       AddNpcInput(23, 2, "I am working on it!");

   rule         InputNpc( 1 ) goto Lose
   rule         InputNpc( 2 ) goto KillMoles
}
state  KillMoles
{
   desc         "PeriPeri quest"

   rule     KilledNpcs(241, 50) goto TalkWithPeri1
}
state  TalkWithPeri1
{
   action       AddNpcText(23, "Thank you so much,I can see you worked hard. Please accept my humble reward.");

   rule         TalkedWithNpc(23) goto Reward
}
state  Reward
{
    action  GiveExp(5000);
    action  Reset();
}
state  Lose
{

        action   AddNpcText(23, "I am ashamed of you");
        action   Reset();
}