[test]
{
  print('А эта надпись не должна появляццо никогда =)');
}

[main]
{
  pln('Привет =) Я тестовый персонаж. У меня нет имени и возраста, да и вообще, меня создали исключительно для тестирования системы разговоров =)');
  pln('Что пожелаете, Господин?');
  var (prod, 'Продолжить разговор');
  var (exit, 'Окончить разговор');
  var (testsell, 'А давай поторгуем? У меня куча всякого барахла...');
  var(AddImplants, 'Установишь мне найденные мной имплантанты?');
}

[main2]
{
  pln('Чего изволите?');
  var (prod, 'Продолжить разговор');
  var (exit, 'Окончить разговор');
  var (testsell, 'А может, все-таки поторгуем? Куда я еще это барахло-то скину...');
}

[AddImplants]
{
  SetImplants();
  pln('Вот и все, процедура окончена.');
  var(main2, 'Назад');
}

[testsell]
{
  if perem(1) > 5
  {
    pln('Я и так все карманы вывернул и все до последней монетки отдал, еще-то чего?!');
    var(main2, 'Назад');
  }
  if perem(1) <= 5
  {
    BuyArmor();
    pln('Было приятно с вами поторговать =)');
    var (main2, 'Взаимно приятно');
  }
}

[prod]
{
  p('Я могу ');
  if money < 1000
    p('подать деньжат, ');
  pln('поддать опыта, дать тестовую весчь и забрать ее. В зависимости от этого могут появляться или исчезать новые варианты ответа мне.');
  pln('Что выбираете?');
  var(money, 'Добавь мне денег...');
  var (expa, 'Добавь мне опыта, что ли...');
  var (kach, 'Прокачай-ка мой интеллект');
  if item(420) = 0
    var (item, 'Дай мне тестовую вещь');
  if item(420) > 0
    var(item2, 'Забери у меня взломщик');
  if intellect > 10
    var (int, 'Здесь наверное надо сказать какую-нибудь умную фразу...А к черту!');
  if money >= 1000
    var(bogat, 'Теперь йа богат! =)');
  if money > 700
    if money < 1000
      var (dv, 'А вот так надо кодить двойные и более условия =)');    
  var(exit1, 'Ладно. Пойду я наверное... Не скучай.');          
}

[bogat]
{
  pln('Зато я беден и нищ... *грустно вздыхает*');
  var(prod, 'Да кого это волнует...');
}

[dv]
{
  var (prod, 'Назад');
}

[int]
{
  pln('Да ладно вам, Господин... Уже само то, что я это сейчас говорю, значит, что интеллект у вас выше среднего.');
  var(prod, 'А ведь и не поспоришь...');
}

[item]
{
  if perem(3) = 1
    pln('Как вы уже знаете, Господин, это взломщик кодовых дверей.');
  if perem(3) = 0
  {
    pln('Это взломщик кодовых дверей, Господин. В бете не слишком-то полезная штука, но надо же как-то скрипты испытывать =)');
    SetPerem(3, 1);    
  }
  AddItem(420, 1);
  var(prod, 'Благодарю...');
}

[item2]
{
  pln('Как скажете, Господин. Что только не сделаешь для испытания скриптов...');
  var(prod, 'Благодарю.');
}

[kach]
{
  pln('+1 к интеллекту.');
  AddSkill(intellect, 1);
  var(prod, '*Назад*');
}

[expa]
{
  if perem(2) <> 0
  {
    pln('Все рассказал, Господин. Не могу вам больше опыта добавить.');
    var(prod, 'И всего-то...');
  }
  if perem(2) = 0
  {
    pln('Опыт, опыт приди... Вот вам, Господин. Немного опыта.');
    AddExpa(1000);
    var(prod, 'Благодарю, тестовый человечек');
    SetPerem(2, 1);
  }  
}

[money]
{
  if perem(1) > 5
  {
    pln('Нет, Господин. Я вывернул все карманы, у вас все мои монеты до последней.');
    var(prod, 'Как скажешь... Обыскивать уж не буду'); 
  }
  if perem(1) = 5
  {
    pln('*достает из кармана последнюю монету и протягивает ее* Я ненавижу вас, Господин.');
    AddMoney(1);
    SetPerem(1, 6);
    var(prod, 'Спасибо, тестовый человечек. Я тебя тоже.');  
  }
  if perem(1) = 4
  {
    pln('Вы смерти моей хотите, Господин? 19 монет, это все, что у меня было.');    
    AddMoney(19);
    SetPerem(1, 5);
    var(prod, '*забрать деньги*');  
  }
  if perem(1) = 3
  {
    pln('Господин... Мне бы самому хоть что-нибудь оставить, прошу вас.');
    pln('Вот еще 80 монет.');
    AddMoney(80);
    SetPerem(1, 4);
    var(prod, 'Почти-почти...');  
  }
  if perem(1) = 2
  {
    pln('Вот еще сотня монет, Господин.');
    AddMoney(100);
    SetPerem(1, 3);
    var(prod, 'Все больше и больше...');  
  }
  if perem(1) = 1
  {
    pln('Как скажете, Господин. Вот вам еще 300 монет.');
    AddMoney(100);
    SetPerem(1, 2);
    var(prod, 'А они перестают помещаться у меня в сумке...');    
  }
  if perem(1) = 0
  {
    pln('С удовольствием, Господин! Вот вам 500 монет.');
    AddMoney(500);
    SetPerem(1, 1);
    var(prod, 'Круууууто...');
  }
}

[exit1]
{
  pln('Удачи вам, Господин!');
  var(exit, 'И тебе всего хорошего');
}