[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, '   ');
}