path: root/npc/000-2-1/alige.txt

// Evol scripts.
// Authors:
//    Vasily_Makarov
// Description:
//    Hidden NPC on a ship'ground hole.
//
// 2 bits array:	
//    ShipQuests	
// Variable:	
//    ShipQuests_Alige
// Values:	
//    0     first talking (before food)
//    1     already talked

000-2-1.gat,33,31,0,1	script	Alige	301,1,1{

  if (geta2(ShipQuests, ShipQuests_Alige) == 1) goto l_AskForFood;

  mesn l("Hidden person");
  mesq l("Hey, psst! You're not a sailor, right?");

  menu
      l("I am, who are you?"), -,
      l("I'm not."), l_NeedHelp;

  mesn l("Hidden person doesn't answer");
  close;

  l_NeedHelp:

    mesn l("Hidden person");
    mesq l("Good, good! ") + " " + l("Could you help me please? ") + " " + l("I beg you, please, pleeeease... ");
    
    menu
        l("Why not... but, who are you?") + l("And what kind of help do you need?"), l_CanHelp;
        l("I don't have any time for this, sorry."), -;

    mesn l("Hidden person");
    mesq l("Damn you! You better not tell anyone that you've seen me!");
    close;

  l_CanHelp:

    mesn;
    mesq l("I'm called Alige, and I'm hiding here for few weeks.") + l("All that I had to eat were these berries... Berries... Berries...") + l("I'm losing my mind, I need something else to eat!");
    next;    

    mesn;
    mesq l("Can you bring me something which isn't a vegetable?") + l("And please, no berries. No more!");
    
    menu
        l("Okay, but what can you do for me?"), l_AboutReward;
        l("But why are you hiding, aren't you a sailor?")+ " " + l("And why don't you go outside to talk?"), -;

  l_ExplainHiding:
    mesn;
    mesq l("No, I'm not, I just wanted to travel across the seas for fun.") + " " + l("In this cave, you see, I have lots of fun.");
    next;

    mesn;
    mesq l("Err, seriously, I just wanted to get to Artis, and I haven't got the money to pay for the ferry!");
    next;

    mesn;
    mesq l("Please, don't tell people that you've seen me, I don't want to be thrown to sea as food for sharks or decapitated, not again!");

    next;

    if (geta2(ShipQuests, ShipQuests_Alige) == 1) goto l_AskForFood;

    goto l_Accept;

  l_AboutReward:

    mesn;
    mesq l("I'll share my berries with you, if you help me.");
    next;

  l_Accept:

    menu
      l("Ok, I'll help you."), l_Accepted,
      l("I think I should report you to the crew members, I don't want to have any problems with them."), -;

    goto l_DamnYou;

  l_Accepted:

    mesn;
    mesq l("Perfect, which food did you get for me today?");
    next;
    goto l_GiveFood;

  l_GiveFood:
    
    menu
        rif(countitem(502, 1), l(getitemname(502))), 502,
        rif(countitem(503, 1), l(getitemname(503))), 503,
        rif(countitem(504, 1), l(getitemname(504))), 504,
        rif(countitem(505, 1), l(getitemname(505))), 505,
        rif(countitem(506, 1), l(getitemname(506))), 506,
        rif(countitem(507, 1), l(getitemname(507))), 507,
	l("I don't have anything good for you today."), -1;

    set @id, @menuret;
    if (@id == -1) goto l_DamnYou;
    if ( (@id == 502) || (@id == 504) || (@id == 505) ) goto l_GiveReward;
    if (@id == 507) goto l_NoMore;

    mesn;
    mesq("I dont want this, give me something else.");
    goto l_GiveFood;

  l_GiveReward:

    delitem @id, 1;

    mesn;
    mesq l("Thank you so much! Here, have some berries...");
    next;

    getitem 507, rand(1,3);
    close;

  l_NoMore:

    mesn;
    mesq l("Arrr, don't give me more berries! I don't want them, stupid berries, stupid ... stupid ... stupid!");
    next;
    close;

  l_AskForFood:

    mesn;
    mesq "Do you have anything for me today?";
    next;

    menu
      l("Yes."), l_GiveFood,
      l("But why are you hiding, aren't you a sailor?") + " " + l("And why don't you go outside to talk?"), l_ExplainHiding,
      l("I think I should report you to the crew members, I don't want to have any problems with them."), l_DamnYou;

  l_DamnYou:

    mesn;
    mesq l("Damn you! You better not tell anyone that you've seen me!");
    close;
}