unit aData;

interface

uses
  loadz, DataProc;

const
  EmptySlot: TSlot = (number: 0; count: 0; ammo: 0);
  EmptyZakl: TZakl = (ZakType: 0; ZakLong: 0);
  EmptyMonster: TMonster = (montype: 0; health: 0; item: (number: 0; count: 0; ammo: 0);
                            point: 0; Zak: (ZakType: 0; ZakLong: 0));
  EmptyKletka: TKletka = (lev: #0; color: 0; vid: #0; now: #0;
                          levAttrz: 0; item: (number: 0; count: 0; ammo: 0);
                          AnObject: #0; AnObjectColor: 0;
                          ObjAttrz: 0; DoorCode: 0; attrz: 0;
                          Light: 0; StrIndex: 0; shadow: false;
                          Monster: (montype: 0; health: 0; max_health: 0; item: (number: 0; count: 0; ammo: 0);
                            point: 0; Zak: (ZakType: 0; ZakLong: 0)));
  EmptyEnemy: TEnemy =
  (
      name: ''; montype: 0; health: 0;
      expa: 0; strength: 0; Accuracy: 0;
      character: #0; charcolor: black;
      protect_base: 0; protect_fire: 0; protect_electric: 0;
      protect_psi: 0; chance_blood: 0;
      chance_desease: 0; intellect: AIHuman;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0);
      Attrz: 0;
  );
  EmptyItem: TItem =
  (
    number: 0; name: ''; expa: 0; itemType: ITPrimitive;
    InOboyma: 0; IsShooting: false; ShootsCount: 0; Effect: 0; help: '';
    cost: 0; weight: 0
  );
  MAXSTATUELABELS = 1;
  StatueArr: array[1..MAXSTATUELABELS] of string =
  (
    'Empresa, Nemesis и Shad0wDeath, создатели материи и всего сущего в этом мире.'
  );
  MaxItemsCount = 239;
  ItemsArr: array[1..MaxItemsCount] of TItem = (
    (
      number: 0; name: '[ Пустой предмет ]'; expa: 0;
      itemType: ITFire; InOboyma: 0; IsShooting: false; Effect: 0;
      help: ''; cost: 0; weight: 0;
    ),
    (
      number: ITEM_HACKGADGET; name: 'Взломщик кодовых дверей'; expa: 0;
      itemType: ITKey; InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Взломщик дверей, запертых на кодовый замок. ' +
        'Некоторые двери могут противостоять его воздействию.'
      ;
      cost: 500; weight: 2; ItemChar: '0'; ItemColor: LightGray;
      Frailty: 60;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),

{-==[ Оружие - примитив ]==-}
    (
      number: 1; name: 'Канцелярский нож'; expa: 1;
      itemType: ITPrimitive; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 4;
      help:
        'Ножик для офисных работников. Хорошо подходит ' +
        'для разрезания бумаги, но едва ли способен ' +
        'нанести что-то серьезнее царапины.'
      ;
      cost: 10; weight: 12; ItemChar: '/'; ItemColor: DarkGray;
      Frailty: 13;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 2; name: 'Столовый нож'; expa: 1;
      itemType: ITPrimitive; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 8;
      help:
        'Первый помощник домохозяйки. Для шинковки ' +
        'врагов подходит плохо. '
      ;
      cost: 20; weight: 24; ItemChar: '/'; ItemColor: LightGray;
      Frailty: 20;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 3; name: 'Полицейская дубинка'; expa: 1;
      itemType: ITPrimitive; InOboyma: 0; IsShooting: false; Effect: 9;
      help:
        'Довольно твердая и в то же время гибкая смесь ' +
        'пластмассы и резины. Подойдет для битвы один на ' +
        'один с несильным соперником.'
      ;
      cost: 25; weight: 24; ItemChar: '/'; ItemColor: DarkGray;
      Frailty: 3;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 4; name: 'Обломок трубы'; expa: 2;
      itemType: ITPrimitive; InOboyma: 0; IsShooting: false; Effect: 12;
      help:
        'Руки покрываются слоем грязи и ржавчины, стоит ' +
        'только взять ее в руки, но при большом желании ' +
        'ею моэно нанести кому-нибудь ощутимый урон.'
      ;
      cost: 55; weight: 60; ItemChar: '/'; ItemColor: Brown;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 5; name: 'Кусок арматуры'; expa: 3;
      itemType: ITPrimitive; InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Ржавый стальной прут. Имея хороший замах, с ним' +
        ' можно устроить хорощую бойню.'
      ;
      cost: 30; weight: 32; ItemChar: '/'; ItemColor: Brown;
      Frailty: 2;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 6; name: 'Дубина'; expa: 2;
      itemType: ITPrimitive; InOboyma: 0; IsShooting: false; Effect: 12;
      help:
        'Дереявнная палка с пронизывающими ее острыми ' +
        'ржавыми гвоздями. При отсутствии лучших ' +
        'вариантов вполне сгодится на первое время.'
      ;
      cost: 30; weight: 40; ItemChar: '/'; ItemColor: Brown;
      Frailty: 10;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 7; name: 'Боевой нож'; expa: 4;
      itemType: ITPrimitive; InOboyma: 0; IsShooting: false; Effect: 15;
      help:
        'Достаточно мало весит, удобно ложится в руку, ' +
        'очень неплохое средство уничтожения.'
      ;
      cost: 120; weight: 20; ItemChar: '/'; ItemColor: LightGray;
      Frailty: 12;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 8; name: 'Кастет'; expa: 3;
      itemType: ITPrimitive; InOboyma: 0; IsShooting: false; Effect: 8;
      help:
        'При отсутствии альтернатив весьма неплохое ' +
        'оружие ближнего боя.'
      ;
      cost: 75; weight: 12; ItemChar: '/'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 9; name: 'Разделочный топорик'; expa: 5;
      itemType: ITPrimitive; InOboyma: 0; IsShooting: false; Effect: 18;
      help:
        'Топорик для разделывания мяса. Одинаково хрошо ' +
        'справляется и с тушей забитой коровы, и с теми, ' +
        'кто вздумает встать на пути его обладателя.'
      ;
      cost: 75; weight: 60; ItemChar: '/'; ItemColor: DarkGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 10; name: 'Лезвие газонокосилки'; expa: 5;
      itemType: ITPrimitive; InOboyma: 0; IsShooting: false; Effect: 20;
      help:
        'Служившая когда-то исключительно хозяйственным ' +
        'нуждам, с небольшими изменениями теперь оно на ' +
        'службе зла.'
      ;
      cost: 175; weight: 28; ItemChar: '\'; ItemColor: LightGray;
      Frailty: 2;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 11; name: 'Кувалда'; expa: 7;
      itemType: ITPrimitive; InOboyma: 0; IsShooting: false; Effect: 23;
      help:
        'Очень тяжелое оружие прямиком из допотопных ' +
        'сталелитейных цехов. Не каждый сможет даже ' +
        'поднять его, не говоря уже об использовании в бою.'
      ;
      cost: 160; weight: 120; ItemChar: '/'; ItemColor: Brown;
      Frailty: 10;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 12; name: 'Тесак'; expa: 6;
      itemType: ITPrimitive; InOboyma: 0; IsShooting: false; Effect: 21;
      help:
        'Первый помощник мясника. Прекрасное сочетание ' +
        'небольшого веса и приличной убойной силы. '
      ;
      cost: 175; weight: 32; ItemChar: '/'; ItemColor: LightRed;
      Frailty: 3;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 13; name: 'Ломик'; expa: 4;
      itemType: ITPrimitive; InOboyma: 0; IsShooting: false; Effect: 12;
      help:
        'Просто фомка. Ничего особенного.'
      ;
      cost: 140; weight: 48; ItemChar: '/'; ItemColor: LightRed;
      Frailty: 1;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 14; name: 'Топор'; expa: 5;
      itemType: ITPrimitive; InOboyma: 0; IsShooting: false; Effect: 16;
      help:
        'Лучший друг маньяка и просто человека, ' +
        'способного защитить себя. При наличии хорошего ' +
        'замаха трудно найти более подходящее оружие.'
      ;
      cost: 170; weight: 76; ItemChar: '/'; ItemColor: Brown;
      Frailty: 3;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 15; name: 'Катана'; expa: 10;
      itemType: ITPrimitive; InOboyma: 0; IsShooting: false; Effect: 35;
      help:
        'Лучшее оружие ближнего боя, которое можно найти ' +
        'на просторах долины. Далеко не каждый сможет ' +
        'владеть ей, но сочетание легкости и потрясающей ' +
        'убойной силы с лихвой компенсируют это.'
      ;
      cost: 350; weight: 36; ItemChar: '/'; ItemColor: White;
      Frailty: 10;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),

{-==[ Оружие - самострелы ]==-}

    (
      number: 16; name: 'Самострел'; expa: 4;
      itemType: ITBows; InOboyma: 1; IsShooting: true;
      ShootsCount: 1; Effect: 4;
      help:
        'Сделанная умельцами на скорую руку неудачная ' +
        'пародия на арбалет. '
      ;
      cost: 30; weight: 72; ItemChar: '|'; ItemColor: LightRed;
      Frailty: 10;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 17; name: 'Арбалет'; expa: 6;
      itemType: ITBows; InOboyma: 1; IsShooting: true;
      ShootsCount: 1; Effect: 6;
      help:
        'Бесшумное оружие для настоящего охотника.'
      ;
      cost: 75; weight: 60; ItemChar: '|'; ItemColor: Brown;
      Frailty: 10;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 18; name: 'Модернизированный арбалет'; expa: 6;
      itemType: ITBows; InOboyma: 8; IsShooting: true;
      ShootsCount: 1; Effect: 7;
      help:
        'Арбалет с немного увеличенной скоростью запуска ' +
        'стрелы и встроенным механизмом подачи - ' +
        'самоедльным аналогом обоймы.'
      ;
      cost: 100; weight: 80; ItemChar: '|'; ItemColor: Brown;
      Frailty: 25;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),

{-==[ Оружие - огнестрел ]==-}

    (
      number: 19; name: 'Револьвер монахов'; expa: 3;
      itemType: ITFire; InOboyma: 5; IsShooting: true;
      ShootsCount: 1; Effect: 4;
      help:
        'Больше похоже на детскую хлопушку, чем на ' +
        'реальное оружие. Используется только совсем уж ' +
        'бедными грабителями с большой дороги и монахами ' +
        'Светлого Пути, да и то скорее для того, чтобы ' +
        'ночью дикий зверей от лагеря отпугивать.'
      ;
      cost: 20; weight: 48; ItemChar: '|'; ItemColor: LightGray;
      Frailty: 20;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 20; name: 'Беретта'; expa: 7;
      itemType: ITFire; InOboyma: 12; IsShooting: true;
      ShootsCount: 1; Effect: 7;
      help:
        'Истинный помощник стража порядка. В мирное время ' +
        'выдавалась как табельное оружие городским ' +
        'полицейским, в наши дни - лучший друг охранников ' +
        'и шерифов.'
      ;
      cost: 65; weight: 60; ItemChar: '|'; ItemColor: DarkGray;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 21; name: 'Глок'; expa: 7;
      itemType: ITFire; InOboyma: 12; IsShooting: true;
      ShootsCount: 1; Effect: 8;
      help:
        'Отличное сочетание невысокой цены, небольшой ' +
        'массы и приличной убойной силы. Хорошо подходит ' +
        'для основного оружия на первое время.'
      ;
      cost: 70; weight: 48; ItemChar: '|'; ItemColor: LightGray;
      Frailty: 15;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 22; name: 'Штурмовая винтовка'; expa: 10;
      itemType: ITFire; InOboyma: 30; IsShooting: true;
      ShootsCount: 3; Effect: 5;
      help:
        'Помощник коммандос и штурмовых отрядов. ' +
        'Основное оружие групп зачистки, исследующих ' +
        'мертвые города. '
      ;
      cost: 250; weight: 112; ItemChar: '/'; ItemColor: Yellow;
      Frailty: 37;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 23; name: 'Штурмовой автомат'; expa: 12;
      itemType: ITFire; InOboyma: 32; IsShooting: true;
      ShootsCount: 3; Effect: 6;
      help:
        'Отличное оружие, подходящее как для жарких схваток ' +
        'в узких коридорах, так и для перестрелок на ' +
        'свежем воздухе. Только найти его на просторах ' +
        'долины как правило не так уж просто.'
      ;
      cost: 300; weight: 120; ItemChar: '|'; ItemColor: Brown;
      Frailty: 30;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 24; name: 'Револьвер Кольт'; expa: 15;
      itemType: ITFire; InOboyma: 6; IsShooting: true;
      ShootsCount: 1; Effect: 10;
      help:
        'Убойная вещь, спасшая не одну и забравшая не одну ' +
        'сотню жизней. Время оставило на нем свой ржавый ' +
        'отпечаток, но ценности своей оружие не утратило.'
      ;
      cost: 350; weight: 88; ItemChar: '|'; ItemColor: White;
      Frailty: 20;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 25; name: 'Пустынный орел'; expa: 19;
      itemType: ITFire; InOboyma: 7; IsShooting: true;
      ShootsCount: 1; Effect: 19;
      help:
        'Самая убойная пушка, которую можно отыскать в ' +
        'долине. Самая большая удача, которая только может ' +
        'попасться на пути искателя приключений. Из-за ' +
        'большой отдачи нужно быть воистину мастером, чтобы ' +
        'в совершенстве владеть этим оружием, но ' +
        'потрясающая убойная сила вкупе с неболшим весом ' +
        'полностью компенсируют все недостатки.'
      ;
      cost: 500; weight: 100; ItemChar: '|'; ItemColor: DarkGray;
      Frailty: 30;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 26; name: 'Дробовик'; expa: 6;
      itemType: ITShells; InOboyma: 8; IsShooting: true;
      ShootsCount: 1; Effect: 10;
      help:
        'Полуавтоматический дробовик. Неплохая убойная ' +
        'сила компенсируется большим разбросом дроби в ' +
        'полете.'
      ;
      cost: 70; weight: 120; ItemChar: '|'; ItemColor: Cyan;
      Frailty: 10;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 27; name: 'Обрез двустволки'; expa: 9;
      itemType: ITShells; InOboyma: 2; IsShooting: true;
      ShootsCount: 2; Effect: 12; // Два патрона - эффект / 12
      help:
        'Убойная вещь, спасшая не одну и забравшая не одну ' +
        'сотню жизней. Время оставило на нем свой ржавый ' +
        'отпечаток, но ценности своей оружие не утратило.'
      ;
      cost: 370; weight: 88; ItemChar: '|'; ItemColor: White;
      Frailty: 20;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 28; name: 'Охотничья двустволка'; expa: 10;
      itemType: ITShells; InOboyma: 2; IsShooting: true;
      ShootsCount: 2; Effect: 24;
      help:
        'Стандартное охотничье ружье старого образца.'
      ;
      cost: 120; weight: 152; ItemChar: '|'; ItemColor: Brown;
      Frailty: 25;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 29; name: 'Джекхаммер'; expa: 15;
      itemType: ITShells; InOboyma: 12; IsShooting: true;
      ShootsCount: 1; Effect: 15;
      help:
        'Очень убойная пушка, которая к тому же имеет ' +
        'очень небольшой разброс дроби. Полезен для ' +
        'профессиональных воинов, новички могут попросту ' +
        'не удержать его в руках при выстреле.'
      ;
      cost: 160; weight: 160; ItemChar: '|'; ItemColor: DarkGray;
      Frailty: 38;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 30; name: 'Огнемет'; expa: 9;
      itemType: ITNapalm; InOboyma: 20; IsShooting: true;
      ShootsCount: 1; Effect: 22;
      help:
        'Каждый выстрел рождает на свет мини-бомбу, ' +
        'взрывающуюся при контакте с твердой преградой ' +
        'или нежелательным гостем.'
      ;
      cost: 170; weight: 268; ItemChar: '|'; ItemColor: Yellow;
      Frailty: 40;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 31; name: 'Метатель'; expa: 17;
      itemType: ITNapalm; InOboyma: 20; IsShooting: true;
      ShootsCount: 2; Effect: 40; // 2 патрона
      help:
        'Метатель самодельных взрывных в прямом смысле ' +
        'этого слова коктейлей. Два заряда образуют ' +
        'смертельную смесь.'
      ;
      cost: 200; weight: 280; ItemChar: '|'; ItemColor: Yellow;
      Frailty: 50;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 32; name: 'Молниемет'; expa: 5;
      itemType: ITElectric; InOboyma: 40; IsShooting: true;
      ShootsCount: 1; Effect: 8;
      help:
        'Выстреливает на свет миниатюрную модель шаровой ' +
        'молнии, которая разряжается, достигнув первого ' +
        'заземленного проводника.'
      ;
      cost: 80; weight: 120; ItemChar: '|'; ItemColor: LightBlue;
      Frailty: 50;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 33; name: 'Автомолниемет'; expa: 10;
      itemType: ITElectric; InOboyma: 90; IsShooting: true;
      ShootsCount: 3; Effect: 8;
      help:
        'Модернизированная модель молниемета.'
      ;
      cost: 120; weight: 160; ItemChar: '|'; ItemColor: LightBlue;
      Frailty: 50;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 34; name: 'Электропистолет'; expa: 8;
      itemType: ITElectric; InOboyma: 36; IsShooting: true;
      ShootsCount: 1; Effect: 10;
      help:
        'На првый взгляд лишь слегка наэлектризованные ' +
        'дротики, что с легким пшиком вылетают из ствола, ' +
        'при контакте дают неслабый разряд.'
      ;
      cost: 100; weight: 112; ItemChar: '|'; ItemColor: Blue;
      Frailty: 80;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 35; name: 'Пушка Тесла'; expa: 15;
      itemType: ITElectric; InOboyma: 100; IsShooting: true;
      ShootsCount: 4; Effect: 5;
      help:
        'Убойная, скорострельная и вместительная пушка. ' +
        'Отличное оружие для профессионалов своего дела. '
      ;
      cost: 160; weight: 156; ItemChar: '|'; ItemColor: Cyan;
      Frailty: 70;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 36; name: 'Ракетница'; expa: 7;
      itemType: ITRockets; InOboyma: 1; IsShooting: true;
      ShootsCount: 1; Effect: 25;
      help:
        'Ручная ракетная установка. Бьет мощно, но после ' +
        'каждого выстрела требуется перезарядка.'
      ;
      cost: 160; weight: 240; ItemChar: '|'; ItemColor: Brown;
      Frailty: 40;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 37; name: 'Ракетомет'; expa: 11;
      itemType: ITRockets; InOboyma: 5; IsShooting: true;
      ShootsCount: 1; Effect: 25;
      help:
        'Более поздняя модель ручной ракетницы. Дозарядка ' +
        'ракеты из самодельной обоймы теперь происходит' +
        ' автоматически, стрелку нужно лишь время от времени ' +
        'менять картридж.'
      ;
      cost: 180; weight: 260; ItemChar: '|'; ItemColor: DarkGray;
      Frailty: 80;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 38; name: 'Авторакетомет'; expa: 19;
      itemType: ITRockets; InOboyma: 12; IsShooting: true;
      ShootsCount: 3; Effect: 25;
      help:
        'Мало кто устоит на ногах после выстрела в упор ' +
        'из этого оружия, но такую роскошь, как три ' +
        'драгоценных ракеты за раз, может позволить ' +
        'себе далеко не каждый.'
      ;
      cost: 200; weight: 244; ItemChar: '|'; ItemColor: Brown;
      Frailty: 89;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 39; name: 'Энергобластер'; expa: 6;
      itemType: ITCell; InOboyma: 10; IsShooting: true;
      ShootsCount: 1; Effect: 7;
      help:
        'По мощности напоминает хороший пистолет, с той ' +
        'лишь разницей, что стреляет сгустками наэлектризованной плазмы.'
      ;
      cost: 70; weight: 72; ItemChar: '|'; ItemColor: Cyan;
      Frailty: 30;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 40; name: 'Плазменное ружье'; expa: 12;
      itemType: ITCell; InOboyma: 32; IsShooting: true;
      ShootsCount: 3; Effect: 9;
      help:
        'Полуавтоматическая винтовка, стреляющая ' +
        'сгустками наэлектризованной плазмы. Изобретение русских ученых, ' +
        'в наши дни утратившее свою былую распространенность ' +
        'из-за дефицита патронов к ней.'
      ;
      cost: 120; weight: 128; ItemChar: '|'; ItemColor: Magenta;
      Frailty: 60;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 41; name: 'Плазменная винтовка'; expa: 12;
      itemType: ITCell; InOboyma: 20; IsShooting: true;
      ShootsCount: 1; Effect: 12;
      help:
        'Бессовестно украденный и заново переделанный ' +
        'прототип, посторенный по чертежам плазменного ружья.' +
        ' Из-за увеличенной отдачи скорострельностью ' +
        'пришлось пожертвовать.'
      ;
      cost: 150; weight: 160; ItemChar: '|'; ItemColor: LightMagenta;
      Frailty: 60;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 42; name: '"Рельса"'; expa: 18;
      itemType: ITCell; InOboyma: 1; IsShooting: true;
      ShootsCount: 1; Effect: 20;
      help:
        'Оружие настоящего терминатора. Снаряд вылетает с такой ' +
        'начальной скоростью, на которой от трения с воздухом ' +
        'любая пуля превращалась бы в ' +
        'пар, не пролетев и нескольких метров. Убойная сила' +
        ' просто ошеломляет - впрочем, как и отдача. ' +
        'Ручная перезарядка после каждого выстрела.'
      ;
      cost: 200; weight: 232; ItemChar: '|'; ItemColor: LightCyan;
      Frailty: 80;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 43; name: 'Пси-пушка'; expa: 8;
      itemType: ITPsi; InOboyma: 5; IsShooting: true;
      ShootsCount: 1; Effect: 10;
      help:
        'Первая разработка ыченых в области оружия, не ' +
        'причиняющего физический урон, но разрушающего мозг.'
      ;
      cost: 200; weight: 100; ItemChar: '|'; ItemColor: LightBlue;
      Frailty: 80;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 44; name: 'Авто-пси-пушка'; expa: 12;
      itemType: ITPsi; InOboyma: 15; IsShooting: true;
      ShootsCount: 3; Effect: 10;
      help:
        'Та же самая писи-пушка, только с гораздо большей ' +
        'скорострельностью.'
      ;
      cost: 230; weight: 112; ItemChar: '|'; ItemColor: LightBlue;
      Frailty: 85;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 45; name: '"Взрыватель мозгов"'; expa: 19;
      itemType: ITPsi; InOboyma: 10; IsShooting: true;
      ShootsCount: 1; Effect: 40;
      help:
        'В буквальном смысле этого слова разносит мозг тому, ' +
        'кому не посчастливится попасть под беззвучно ' +
        'летящий снаряд.'
      ;
      cost: 300; weight: 140; ItemChar: '|'; ItemColor: Blue;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 46; name: 'Драная футболка'; expa: 0;
      itemType: ITArmor; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 1;
      help:
        'Старая потрепанная футболка. Защитить может разве что ' +
        'от укуса комара.'
      ;
      cost: 5; weight: 16; ItemChar: '@'; ItemColor: White;
      Frailty: 0;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 47; name: 'Кожаный жилет'; expa: 0;
      itemType: ITArmor; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 3;
      help:
        'Хорошо уберегает от ветра и пыли, но практически ' +
        'бесполезна как средство защиты от пуль или когтей.'
      ;
      cost: 15; weight: 32; ItemChar: '@'; ItemColor: LightGray;
      Frailty: 0;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 48; name: 'Кожаная куртка'; expa: 0;
      itemType: ITArmor; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 7;
      help:
        'Немного неудобна и чуть сковывает движения, но ' +
        'тем не менее вполне способна защитить от когтей ' +
        'встреченной в Долине живности.'
      ;
      cost: 50; weight: 60; ItemChar: '@'; ItemColor: DarkGray;
      Frailty: 0;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 49; name: 'Плотная кожаная куртка'; expa: 0;
      itemType: ITArmor; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 9;
      help:
        'Та же самая осенняя куртка, только с дополнительным ' +
        'слоем плотной ткани в подкладке.'
      ;
      cost: 60; weight: 90; ItemChar: '@'; ItemColor: DarkGray;
      Frailty: 0;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 50; name: 'Армейская куртка'; expa: 0;
      itemType: ITArmor; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 11;
      help:
        'Удобная и недорогая, в то же время достаточно ' +
        'прочная одежда. Оптимальное соответствие между ' +
        'ценой и качеством.'
      ;
      cost: 80; weight: 85; ItemChar: '@'; ItemColor: Brown;
      Frailty: 0;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 51; name: 'Полицейский бронежилет'; expa: 0;
      itemType: ITArmor; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 15;
      help:
        'Кевларовое обмундирование городских блюстителей ' +
        'порядка. Одно из лучших средств защиты в Долине.'
      ;
      cost: 200; weight: 160; ItemChar: '@'; ItemColor: LightBlue;
      Frailty: 0;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 51; name: 'Кевларовый бронекостюм'; expa: 0;
      itemType: ITArmor; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 19;
      help:
        'Полицейский бронежилет, усовершенствованный ' +
        'специально для тяжеловооруженных сил. В подкладку ' +
        'вшиты дополнительные бронепластины, что, в ущерб ' +
        ' маневренности солдата, тем не менее превращает ' +
        'его в ходячий танк.'
      ;
      cost: 350; weight: 200; ItemChar: '@'; ItemColor: LightBlue;
      Frailty: 0;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 52; name: 'Экзоскелет'; expa: 0;
      itemType: ITArmor; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 25;
      help:
        'Бронежилет для избранных. Лучшее из того, что ' +
        'можно найти в Долине. Больше похож на часть ' +
        'скафандра, чем на жилет, но особый покров позволяет ' +
        'солдату чувствовать себя в нем как в удобной домашней ' +
        'одежде.'
      ;
      cost: 500; weight: 300; ItemChar: '@'; ItemColor: LightRed;
      Frailty: 15;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 53; name: 'Ношеные ботинки'; expa: 0;
      itemType: ITSapogi; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 1;
      help:
        'Разваливающаяся по швам обувь, сменившая далеко ' +
        'не первого хозяина.'
      ;
      cost: 15; weight: 35; ItemChar: '>'; ItemColor: DarkGray;
      Frailty: 33;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 54; name: 'Осенние ботинки'; expa: 0;
      itemType: ITSapogi; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 2;
      help:
        'Хорошо защищали от непогоды, но практически ' +
        'бессильны против пуль, когтей и других средств ' +
        'уничтожения.'
      ;
      cost: 20; weight: 45; ItemChar: '>'; ItemColor: Brown;
      Frailty: 10;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 54; name: 'Армейские сапоги'; expa: 0;
      itemType: ITSapogi; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 3;
      help:
        'Легче обычных осенних ботинок и в то же время ' +
        'куда прочнее их.'
      ;
      cost: 30; weight: 40; ItemChar: '>'; ItemColor: DarkGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 55; name: 'Полицейские ботинки'; expa: 0;
      itemType: ITSapogi; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 4;
      help:
        'Крепкая и надежная обувь блюстителей порядка.'
      ;
      cost: 50; weight: 90; ItemChar: '>'; ItemColor: LightGray;
      Frailty: 10;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 56; name: 'Сапоги экзоскелета'; expa: 0;
      itemType: ITSapogi; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 5;
      help:
        'Лучшая обувь в Долине. Абсолютная защита. ' +
        'Ваша киска купила бы Вискас, ваши ноги купили бы ' +
        'сапоги экзоскелета.'
      ;
      cost: 100; weight: 120; ItemChar: '>'; ItemColor: LightRed;
      Frailty: 7;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 57; name: 'Бейсболка'; expa: 0;
      itemType: ITShapka; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 1;
      help:
        'Старый потрепанный выцветший головной убор. ' +
        'Способен защитить разве что от солнца.'
      ;
      cost: 15; weight: 20; ItemChar: '^'; ItemColor: Yellow;
      Frailty: 1;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 58; name: 'Осенняя шапка'; expa: 0;
      itemType: ITShapka; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 2;
      help:
        'Жарковато в ней путешествовать по Долине, где не' +
        'бывает холодного времени года, но и средство ' +
        'защиты из нее получше, чем из бейсболки.'
      ;
      cost: 20; weight: 25; ItemChar: '^'; ItemColor: Brown;
      Frailty: 1;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 59; name: 'Кастрюля'; expa: 0;
      itemType: ITShapka; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 4;
      help:
        'Самая настоящая кастрюля с прорезями для глаз. ' +
        'Несмотря на всю свою курьезность, прижилась в ' +
        'Долине как неплохой головной убор.'
      ;
      cost: 20; weight: 50; ItemChar: '^'; ItemColor: LightGray;
      Frailty: 0;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 60; name: 'Мотоциклетный шлем'; expa: 0;
      itemType: ITShapka; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 4;
      help:
        'Та же самая кастрюля, только немного легче и с ' +
        'удобной мягкой подкладкой внутри, что ' +
        'практически вдвое увеличивает его цену.'
      ;
      cost: 35; weight: 45; ItemChar: '^'; ItemColor: DarkGray;
      Frailty: 1;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 61; name: 'Полицейский шлем'; expa: 0;
      itemType: ITShapka; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 6;
      help:
        'Относительно легкий и очень прочный для своего ' +
        'веса шлем.'
      ;
      cost: 60; weight: 40; ItemChar: '^'; ItemColor: LightBlue;
      Frailty: 1;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 62; name: 'Шлем спецназа'; expa: 0;
      itemType: ITShapka; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 7;
      help:
        'Полицейский шлем с дополнительным слоем брони.'
      ;
      cost: 75; weight: 60; ItemChar: '^'; ItemColor: Blue;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 63; name: 'Шлем экзоскелета'; expa: 0;
      itemType: ITShapka; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 10;
      help:
        'Лучшая защита для самой уязвимой части тела. ' +
        'Многослойная броня из новейшего материала, по ' +
        'прочности и гибкости превосходящего кевлар. Обзор ' +
        'окружающего мира через пуленепробиваемое стекло.'
      ;
      cost: 100; weight: 90; ItemChar: '^'; ItemColor: LightRed;
      Frailty: 10;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 64; name: 'Шерстяная накидка'; expa: 0;
      itemType: ITPlashch; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 1;
      help:
        'Защищает больше от холода, чем от нежелательных ' +
        'последствий неприятных встреч.'
      ;
      cost: 15; weight: 40; ItemChar: '~'; ItemColor: LightGray;
      Frailty: 1;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 65; name: 'Кожаная накидка'; expa: 0;
      itemType: ITPlashch; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 2;
      help:
        'В комплекте с черными очками смотрится довольно ' +
        'эффектно. На этом преимущества накидки заканчиваются.'
      ;
      cost: 30; weight: 50; ItemChar: '~'; ItemColor: DarkGray;
      Frailty: 1;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 66; name: 'Плотная кожаная накидка'; expa: 0;
      itemType: ITPlashch; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 3;
      help:
        'Та же самая кожаная накидка, только с вшитым ' +
        'между подкладок слоем уплотнителя.'
      ;
      cost: 40; weight: 80; ItemChar: '~'; ItemColor: DarkGray;
      Frailty: 1;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 67; name: 'Кольчужная накидка'; expa: 0;
      itemType: ITPlashch; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 5;
      help:
        'Самая настоящая кольчуга средневекового образца. ' +
        'В Долине, за неимением лучшего, довольно актуальна.'
      ;
      cost: 100; weight: 120; ItemChar: '~'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 68; name: 'Кожаные перчатки'; expa: 0;
      itemType: ITGloves; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 1;
      help:
        'Отличная защита! От ветра, пыли, маленьких острых ' +
        'предметов... Однако если этим самым предметом в вас ' +
        'пытаются швырнуть, здесь они уже бессильны.'
      ;
      cost: 15; weight: 20; ItemChar: '-'; ItemColor: Brown;
      Frailty: 1;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),

{-==[ Имплантанты ]==-}

    (
      number: 69; name: 'Имплантант силы'; expa: 10;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Искусственные упрочнители мускул, вживляются прямиком в мышечную ткань. ' +
        'На 5 пунктов увеличивают силу. Мечта всех тяжелоатлетов и грузчиков.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: White;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: StrengthImplant;
    ),
    (
      number: 70; name: 'Имплантант обучаемости'; expa: 10;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Сохраняет в себе миниатюрную копию карты ассоциаций и логических цепочек ' +
        'мозга. Со временем добавляет к существующей карте новые возникающие ' +
        'естественным путем ассоциации, поддерживает существование старых, ' +
        'обеспечивая тем самым резкий подъем уровня интеллекта и памяти. На 5 ' +
        'пунктов увеличивает интеллект.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Cyan;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: IntellectImplant;
    ),
    (
      number: 71; name: 'Имплантант защиты'; expa: 10;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Толпы микроскопических нанороботов вживляются в кожные покровы ' +
        'и служат дополнительным щитом, уплотнителем кожи. +5 к базовой защите.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Brown;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: ProtectBaseImplant;
    ),
    (
      number: 72; name: 'Имплантант защиты от огня'; expa: 10;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Вживленные в кожные покровы нанороботы-магниты практически мгновенно ' +
        'удаляют все следы пороха на теле и притягивают к себе любой инородный кусок ' +
        'металла, проникнувший в тело обладателя имплантанта, после чего выводят его наружу. ' +
        'Увеличивают на 5 пунктов защиту от огнестрельного оружия.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: $000080FF;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: ProtectFireImplant;
    ),
    (
      number: 73; name: 'Имплантант защиты от электричества'; expa: 10;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Вживленная в кожу сеть мельчайших сенсоров поглощает часть любого электрического ' +
        'заряда, проходящего через тело. На 5 пунктов увеличивает защиту от электрического оружия.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Yellow;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: ProtectElectricImplant;
    ),
    (
      number: 74; name: 'Имплантант защиты от пси-воздействия'; expa: 10;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Имлантант поглощает часть направленной пси-энергии, когда мозги владельца ' +
        'уже начинают закипать. В буквальном смысле этого слова. Плюс 5 пунктов к ' +
        'защите от пси-оружия.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: LightBlue;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: ProtectPsiImplant;
    ),
    (
      number: 75; name: 'Имплантант внимания'; expa: 10;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Искусственные сенсоры, вживленные в тело, улучшают восприятие мира. ' +
        '+5 к вниманию обладателя.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Green;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: VnimanieImplant;
    ),
    (
      number: 76; name: 'Имплантант выносливости'; expa: 10;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Сеть нанороботов, вживленных в мышечную ткань, принимает на себя часть ' +
        'физической нагрузки обладателя. Увеличивает выносливость на 5 пунктов.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Blue;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: VinoslivostImplant;
    ),
    (
      number: 77; name: 'Имплантант меткости'; expa: 10;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Обеспечивает орлиное зрение обладателю, повышая меткость на 5 пунктов.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Magenta;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: MetkostImplant;
    ),
    (
      number: 78; name: 'Имплантант дополнительной силы'; expa: 20;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Модификация упрочнителей мускул на более современные версии. ' +
        'На 5 пунктов увеличивает силу. Требует имплантант силы для установки.'
      ;
      cost: 200; weight: 15; ItemChar: '"'; ItemColor: White;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: StrengthImplant;
    ),
    (
      number: 79; name: 'Имплантант дополнительной обучаемости'; expa: 20;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Дополнительный модуль обработки данных для имплантанта обучаемости. ' +
        'Требует наличие имплантанта обучаемости для установки. На 5 пунктов ' +
        'увеличивает интеллект.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Cyan;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: IntellectImplant;
    ),
    (
      number: 80; name: 'Имплантант дополнительной защиты'; expa: 20;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Более прочная версия нанороботов. +5 к базовой защите. Требует ' +
        'имплантант защиты для установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Brown;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: ProtectBaseImplant;
    ),
    (
      number: 81; name: 'Имплантант дополнительной защиты от огня'; expa: 20;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Более сильные магниты, более проворные роботы. +5 к защите от огня. ' +
        'Требует имплантант защиты от огня для установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: $000080FF;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: ProtectFireImplant;
    ),
    (
      number: 82; name: 'Имплантант дополнительной защиты от электричества'; expa: 20;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Дополнение для вживленных сенсоров. Более современные разработки позволили нанороботам ' +
        'поглощать еще большую часть проходящих через тело разрадов электричества. Добавляет 5 ' +
        'пунктов к защите от электричества. Требует имплантант защиты от электричества для установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Yellow;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: ProtectElectricImplant;
    ),
    (
      number: 83; name: 'Имплантант дополнительной защиты от пси-воздействия'; expa: 20;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Поглощает еще большую часть направленной на обладателя пси-энергии. Прибавляет ' +
        '5 пунктов к защите от пси-воздействия. Требует имплантант защиты от пси-воздействия ' +
        'для установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: LightBlue;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: ProtectPsiImplant;
    ),
    (
      number: 84; name: 'Имплантант дополнительного внимания'; expa: 20;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Более чувствительные к изменениям в окружающей среде сенсоры. +5 ' +
        'к вниманию. Требует имплантант внимания для установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Green;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: VnimanieImplant;
    ),
    (
      number: 85; name: 'Имплантант дополнительной выносливости'; expa: 20;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Более совеременная разработка нанороботов. Принимают на себя еще большую часть ' +
        'физической нагрузки обладателя. Добаляют 5 пунктов к выносливости. Требуют ' +
        'имплантант выносливости для установки'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Blue;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: VinoslivostImplant;
    ),
    (
      number: 86; name: 'Имплантант дополнительной меткости'; expa: 20;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Обеспечивает еще более острое зрение. +5 к меткости. Требует имплантант ' +
        'меткости для установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Magenta;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: MetkostImplant;
    ),
    (
      number: 87; name: 'Имплантант высокой силы'; expa: 30;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Модификация нанороботов из имплантанта дополнительной силы. Добавляет ' +
        '5 пунктов к силе. Требует имплантант дополнительной силы для установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: White;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: StrengthImplant;
    ),
    (
      number: 88; name: 'Имплантант высокой обучаемости'; expa: 30;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Второй дополнительный модуль обработки для имплантанта обучаемости, ' +
        'запрограммированный работать в паре с первым. Увеличивает интеллект на 5 пунктов. ' +
        'Требует имплантант дополнительной обучаемости для установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Cyan;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: IntellectImplant;
    ),
    (
      number: 89; name: 'Имплантант высокой защиты'; expa: 30;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Многослойные нанороботы - уплотнители кожи. +5 к базовой защите. ' +
        'Требует имплантант дополнительной защиты для установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Brown;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: ProtectBaseImplant;
    ),
    (
      number: 90; name: 'Имплантант высокой защиты от огня'; expa: 30;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Третья версия роботов - уборщиков пороха и чистильщиков пороха. Добавляет ' +
        '5 пунктов к защите от огня. Требует имплантант дополнительной защиты от ' +
        'огня для установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: $000080FF;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: ProtectFireImplant;
    ),
    (
      number: 91; name: 'Имплантант высокой защиты от электричества'; expa: 30;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Современная модификация сенсоров - поглотителей электричества. ' +
        'На 5 пунктов увеличивает хащиту от электричества. Требует имплантант ' +
        'защиты от '
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Yellow;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: ProtectElectricImplant;
    ),
    (
      number: 92; name: 'Имплантант высокой защиты от пси-воздействия'; expa: 30;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Третий модуль для поглощения направленной пси-энергии. Увеличивает на 5 пунктов ' +
        'защиту от пси-воздействия. Требует имплантант дополнительной защиты от пси-воздействия ' +
        'для установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: LightBlue;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: ProtectPsiImplant;
    ),
    (
      number: 93; name: 'Имплантант высокого внимания'; expa: 30;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Еще более чувствительные сенсоры. На 5 пунктов увеличивают внимание обладателя. ' +
        'Требуют имплантант дополнительного внимания для установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Green;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: VnimanieImplant;
    ),
    (
      number: 94; name: 'Имплантант высокой выносливости'; expa: 30;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Третья модификация вживляемых в мышечную ткань нанороботов. Принимают на себя ' +
        'намного большую часть физической нагрузки, нежели предыдущая версия. ' +
        'На 5 пунктов увеличивают выносливость. Требуют имплантант дополнительной ' +
        'выносливости для установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Blue;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: VinoslivostImplant;
    ),
    (
      number: 95; name: 'Имплантант высокой меткости'; expa: 30;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Обеспечивает просто орлиное зрение обладателю. Добавляет 5 очков к ' +
        'вниманию. Требует имплантант дополнительной меткости для устновки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Magenta;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: MetkostImplant;
    ),
    (
      number: 96; name: 'Имплантант высочайшей силы'; expa: 40;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Самая современная на сегодняшний день модификация. Делают из любого ' +
        'человека подобие терминатора. Добавляют 5 пунктов к силе. Требуют ' +
        'имплантант высокой силы для установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: White;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: StrengthImplant;
    ),
    (
      number: 97; name: 'Имплантант высочайшей обучаемости'; expa: 40;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Третий дополнительный модуль обработки данных, запрограммированный как  ' +
        'дополнение к уже установленным первым двум. Увеличивает интеллект ' +
        'обладателя на 5 пунктов. Требует имплантант высокой обучаемости для ' +
        'установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Cyan;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: IntellectImplant;
    ),
    (
      number: 98; name: 'Имплантант высочайшей защиты'; expa: 40;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Каждый из нанороботов данной модификации представляет собой миниатюрный ' +
        'нанотанк. Несколько дополнительных слоев брони из наипрочнейшего металла ' +
        'на Земле. Добавляет 5 пунктов к базовой защите обладателя. Требует ' +
        'имплантант высокой защиты для установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Brown;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: ProtectBaseImplant;
    ),
    (
      number: 99; name: 'Имплантант высочайшей защиты от огня'; expa: 40;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Оснащенные умными магнитами нанороботы практически моментально выводят из ' +
        'организма все инородные куски металла. Порох вычищают еще до того, как вы ' +
        'успеете почувствовать его ожог на коже. Добавляют 5 пунктов к защите от огнестрельного ' +
        'оружия. Требуют имплантант высокой защиты от огня для установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: $000080FF;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: ProtectFireImplant;
    ),
    (
      number: 100; name: 'Имплантант высочайшей защиты от электричества'; expa: 40;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Вживленные в кожу сенсоры не только поглощают большую часть опасного для ' +
        'жизни и здоровья электрического заряда, но и стараются заземлить ' +
        'оставшуюся часть. +5 к защите от электричества. Требуют имплантант ' +
        'высокой защиты от электричества для установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Yellow;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: ProtectElectricImplant;
    ),
    (
      number: 101; name: 'Имплантант высочайшей защиты от пси-воздействия'; expa: 40;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Четвертый модуль поглощения направленной пси-энергии. Работая ' +
        'параллельно с тремя первыми, обеспечивает практически полную защиту от ' +
        'закипания мозгов. Проверено и доказано лучшими гипнотизерами. Добавляет ' +
        '5 пунктов к защите от пси-воздействия. Требует имплантант высокой защиты от ' +
        'пси-воздействия для установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: LightBlue;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: ProtectPsiImplant;
    ),
    (
      number: 102; name: 'Имплантант высочайшего внимания'; expa: 40;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Самая современная на данный момент модификация сенсоров восприятия. ' +
        'Увеличивают внимание обладателя на 5 пунктов. Требуют имплантант высокого ' +
        'внимания для установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Green;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: VnimanieImplant;
    ),
    (
      number: 103; name: 'Имплантант высочайшей выносливости'; expa: 40;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Самая современная модификация нанороботов. Увеличивает выносливость ' +
        'обладателя на 5 пунктов. Требует имплантант высокой выносливости для установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Blue;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: VinoslivostImplant;
    ),
    (
      number: 104; name: 'Имплантант высочайшей меткости'; expa: 40;
      itemType: ITBioImplant; InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Орел покажется вам слепым старцем, когда вы ощутите всю остроту зрения, ' +
        'которую обеспечивает эта модификация имплантанта меткости. На 5 пунктов ' +
        'увеличивает меткость. Требует имплантант высокой меткости для установки.'
      ;
      cost: 100; weight: 15; ItemChar: '"'; ItemColor: Magenta;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: MetkostImplant;
    ),



{-==[ Съестные припасы ]==-}

    (
      number: 401; name: 'Бутылка воды'; expa: 0;
      itemType: ITEat; InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Чистая, пригодная для питья вода. Судя по запаху, ' +
        'содержит небольшое количество вещества, ' +
        'останавливающего кровотечение.'
      ;
      cost: 5; weight: 5; ItemChar: '!'; ItemColor: LightBlue;
      Frailty: 100;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: DrinkWater;
    ),
    (
      number: 402; name: 'Пачка чипсов'; expa: 0;
      itemType: ITEat; InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Яркие цвета на упаковке успели померкнуть - срок ' +
        'годности чипсов давно вышел, но тем не менее, они  ' +
        'все еще пригодны для еды.'
      ;
      cost: 9; weight: 3; ItemChar: ','; ItemColor: Brown;
      Frailty: 10;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: EatChips;
    ),
    (
      number: 403; name: 'Морковь'; expa: 0;
      itemType: ITEat; InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Все еще пригодна к еде.'
      ;
      cost: 5; weight: 3; ItemChar: ','; ItemColor: Yellow;
      Frailty: 20;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: EatCarrot;
    ),
    (
      number: 404; name: 'Кусок пиццы'; expa: 0;
      itemType: ITEat; InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Пркрасно утоляет голод. Твердый как камень, но все ' +
        'еще выглядит аппетитно.'
      ;
      cost: 15; weight: 5; ItemChar: ''''; ItemColor: Yellow;
      Frailty: 80;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: EatPizza;
    ),
    (
      number: 405; name: 'Сэндвич'; expa: 0;
      itemType: ITEat; InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        ''
      ;
      cost: 7; weight: 3; ItemChar: ''''; ItemColor: Brown;
      Frailty: 80;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: EatSandwich;
    ),
    (
      number: 406; name: 'Банан'; expa: 0;
      itemType: ITEat; InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        ''
      ;
      cost: 6; weight: 3; ItemChar: ''''; ItemColor: Yellow;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: EatBanana;
    ),
    (
      number: 407; name: 'Апельсин'; expa: 0;
      itemType: ITEat; InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        ''
      ;
      cost: 6; weight: 3; ItemChar: '.'; ItemColor: Yellow;
      Frailty: 90;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: EatOrange;
    ),
    (
      number: 408; name: 'Рацион еды'; expa: 0;
      itemType: ITEat; InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Три таких порции могут насытить даже умирающего от' +
        ' голода человека'
      ;
      cost: 20; weight: 15; ItemChar: ''''; ItemColor: Brown;
      Frailty: 95;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: EatFoodRation;
    ),
    (
      number: 409; name: 'Вяленое мясо'; expa: 0;
      itemType: ITEat; InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        ''
      ;
      cost: 6; weight: 3; ItemChar: ','; ItemColor: LightRed;
      Frailty: 15;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: EatMeat;
    ),
    (
      number: 410; name: 'Съедобная плесень'; expa: 0;
      itemType: ITEat; InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Съедобна, но обычно служит рассадником всевозможных' +
        ' болезней.'
      ;
      cost: 1; weight: 2; ItemChar: ','; ItemColor: Cyan;
      Frailty: 10;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: EatMildew;
    ),

{-==[ Медицинские принадлежности ]==-}

    (
      number: 411; name: 'Бинт'; expa: 0; itemtype: ITHealth;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Стерильный бинт, пропитанный обезболивающими ' +
        'средствами. Останавливает легкое кровотечение, ' +
        'слегка заглушает боль от ран.'
      ;
      cost: 10; weight: 2; ItemChar: '_'; ItemColor: LightRed;
      Frailty: 1;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: MakeBint;
    ),
    (
      number: 412; name: 'Шоколадный батончик'; expa: 0; itemtype: ITHealth;
      InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Утоляет несильный голод, а входящие в состав ' +
        'средства ускоряют заживление ран.'
      ;
      cost: 5; weight: 3; ItemChar: ','; ItemColor: Brown;
      Frailty: 30;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: MakeChocolate;
    ),
    (
      number: 413; name: 'Кола'; expa: 0; itemtype: ITHealth;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Вкусный и питательный напиток, который имеет ' +
        'замечательное свйотво оставаться прохладным при ' +
        'любой температуре.'
      ;
      cost: 6; weight: 5; ItemChar: '!'; ItemColor: Red;
      Frailty: 96;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: MakeCola;
    ),
    (
      number: 414; name: 'Энергетический напиток'; expa: 0; itemtype: ITHealth;
      InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Ввызывает прилив сил, лечит незначительные раны, ' +
        'останавливает слабое кровотечение.'
      ;
      cost: 10; weight: 5; ItemChar: '!'; ItemColor: Yellow;
      Frailty: 98;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: MakeEnergyDrink;
    ),
    (
      number: 415; name: 'Полевая аптечка'; expa: 0; itemtype: ITHealth;
      InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Лечит 25 - 50 единиц здоровья, останавливает ' +
        'несерьезное кровотечение.'
      ;
      cost: 30; weight: 15; ItemChar: '+'; ItemColor: LightRed;
      Frailty: 50;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: MakeFieldMedkit;
    ),
    (
      number: 416; name: 'Аптечка'; expa: 0; itemtype: ITHealth;
      InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Лчит 50 - 100 единиц здоровья, перевязочного ' +
        'материала достаточно, чтобы остановить даже' +
        ' серьезное кровотечение.'
      ;
      cost: 50; weight: 20; ItemChar: '+'; ItemColor: LightRed;
      Frailty: 50;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: MakeMedkit;
    ),
    (
      number: 417; name: 'Сума доктора'; expa: 0; itemtype: ITHealth;
      InOboyma: 0; IsShooting: false; Effect: 5;
      help:
        'Полностью восстанавливает здоровье и предотвращает ' +
        'кровотечение любой силы.'
      ;
      cost: 70; weight: 80; ItemChar: '|'; ItemColor: LightRed;
      Frailty: 80;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: MakeDoctorCase;
    ),
    (
      number: 421; name: 'Лопата'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Саперная лопатка с заостренным концом. Заметно облегчает ' +
        'проделывание новых проходов или очищение старых в подземельях.'
      ;
      cost: 50; weight: 100; ItemChar: '/'; ItemColor: Brown;
      Frailty: 10;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),

{-==[ Уникальные вещи ]==-}

    (
      number: 422; name: 'Ломик Гордона Фримена'; expa: 12;
      itemtype: ITPrimitive; InOboyma: 0; IsShooting: false;
      Effect: 12;
      help:
        'Знаменитое оружие легендарного героя, слухи и ' +
        'легенды о котором хоть раз в жизни слышал каждый.'
        // В комплекте с очками Гордона Фримена увеличивает
        // интеллект на 15 о_О
      ;
      cost: 500; weight: 28; ItemChar: '\'; ItemColor: LightRed;
      Frailty: 1;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 423; name: 'Электродрель'; expa: 15;
      itemtype: ITPrimitive; InOboyma: 0; IsShooting: false;
      Effect: 18;
      help:
        'Видавшее виды оружие с проржавевшим основанием. ' +
        'Раньше служило мирным целям, но в свете ' +
        'последних событий нашло несколько иное применение.'
      ;
      cost: 450; weight: 44; ItemChar: '\'; ItemColor: LightBlue;
      Frailty: 40;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 424; name: 'Бензопила'; expa: 15;
      itemtype: ITPrimitive; InOboyma: 0; IsShooting: false;
      Effect: 25;
      help:
        'На заляпанном кровью лезвии можно прочесть ' +
        'название: "Дружба".'
      ;
      cost: 600; weight: 100; ItemChar: '\'; ItemColor: Yellow;
      Frailty: 20;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 425; name: 'Световой меч'; expa: 18;
      itemtype: ITPrimitive; InOboyma: 0; IsShooting: false;
      Effect: 20;
      help:
        'Наследие джедаев. Крайне убийственная вещь.'
      ;
      cost: 650; weight: 60; ItemChar: '\'; ItemColor: White;
      Frailty: 3;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 426; name: 'Арбалет Темного Лорда'; expa: 15;
      itemType: ITBows; InOboyma: 15; IsShooting: true;
      ShootsCount: 3;
      Effect: 9;
      help:
        'Личное оружие главного духовного наставника ' +
        'Ордена Светлого Пути. Автоматическая подача ' +
        'стрелы из вдвое увеличенное по вместимости обоймы ' +
        'обеспечивает скорость стрельбы не хуже, чем у ' +
        'полуавтоматической винтовки.'
      ;
      cost: 450; weight: 100; ItemChar: '|'; ItemColor: Yellow;
      Frailty: 40;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 427; name: 'Миниган'; expa: 15;
      itemType: ITFire; InOboyma: 100; IsShooting: true;
      ShootsCount: 5; Effect: 5; //х5
      help:
        'Кушает патроны с феноменальной скоростью, но при ' +
        'хорошей точности - лучшее оружие на просторах ' +
        'долины.'
      ;
      cost: 500; weight: 160; ItemChar: '|'; ItemColor: Yellow;
      Frailty: 70;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 428; name: 'BFG 9000'; expa: 22;
      itemType: ITCell; InOboyma: 5; IsShooting: true;
      ShootsCount: 1; Effect: 50;
      help:
        'Никому достоверно не известно, откуда эта пушка. ' +
        'Поговаривают о том, что много лет назад к своему ' +
        'крайнему удивлению обнаружили нечто среди помех ' +
        'на частоте считавшегося давным-давно утерянного ' +
        'спутника Марса. Ровно через 16 часов в Землю на ' +
        'полной скорости врезалась спасательная капсула с ' +
        'эмблемой корпорации - создателя спутника. Все, ' +
        'что удалось найти внутри - комплект силовой брони ' +
        'и эту пушку. Пассажир исчез бесследно.'
      ;
      cost: 280; weight: 360; ItemChar: '|'; ItemColor: Green;
      Frailty: 95;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 429; name: 'Синяя ключ-карта'; expa: 0;
      itemType: ITKey; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 0;
      help:
        'Одноразовая ключ-карта, отпирающая запертую на ' +
        'синий магнитный замок дверь.'
      ;
      cost: 0; weight: 10; ItemChar: '\'; ItemColor: LightBlue;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 430; name: 'Зеленая ключ-карта'; expa: 0;
      itemType: ITKey; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 0;
      help:
        'Одноразовая ключ-карта, отпирающая запертую на ' +
        'зеленый магнитный замок дверь.'
      ;
      cost: 0; weight: 10; ItemChar: '\'; ItemColor: LightGreen;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 431; name: 'Красная ключ-карта'; expa: 0;
      itemType: ITKey; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 0;
      help:
        'Одноразовая ключ-карта, отпирающая запертую на ' +
        'красный магнитный замок дверь.'
      ;
      cost: 0; weight: 10; ItemChar: '\'; ItemColor: LightRed;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 432; name: 'Серая ключ-карта'; expa: 0;
      itemType: ITKey; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 0;
      help:
        'Одноразовая ключ-карта, отпирающая запертую на ' +
        'Серый магнитный замок дверь.'
      ;
      cost: 0; weight: 10; ItemChar: '\'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 433; name: 'Фиолетовая ключ-карта'; expa: 0;
      itemType: ITKey; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 0;
      help:
        'Одноразовая ключ-карта, отпирающая запертую на ' +
        'фиолетовый магнитный замок дверь.'
      ;
      cost: 0; weight: 10; ItemChar: '\'; ItemColor: LightMagenta;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 434; name: 'Ключ от уборной'; expa: 0;
      itemType: ITKey; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 0;
      help:
        'Ключ от кладовой гостиницы в Сойе. Похоже, потерян рассеянным уборщиком.'
      ;
      cost: 0; weight: 5; ItemChar: '\'; ItemColor: Yellow;
      Frailty: 1;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),

{-==[ Технобраслеты ]==-}

    (
      number: 615; name: ' силы'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Повышает силу на 10 единиц'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: StrengthRingWear; OnUnWear: StrengthRingUnWear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 616; name: ' удачи'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Повышает удачу на 10 единиц.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: LuckRingWear; OnUnWear: LuckRingUnWear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 617; name: ' интеллекта'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Повышает интеллект на 10 единиц.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: IntellectRingWear; OnUnWear: IntellectRingUnWear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 618; name: ' меткости'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Повышает меткость на 10 единиц.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: MetkostRingWear; OnUnWear: MetkostRingUnWear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 619; name: ' внимания'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Повышает внимание на 10 единиц.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: VnimanieRingWear; OnUnWear: VnimanieRingUnWear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 620; name: ' защиты'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Повышает базовую защиту на 10 единиц.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: ProtectRingWear; OnUnWear: ProtectRingUnWear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 621; name: ' защиты от огня'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Повышает защиту от огнестрельного оружия на 10 единиц.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: FireProtectRingWear; OnUnWear: FireProtectRingUnWear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 622; name: ' элекрозащиты'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Повышает защиту от электрического оружия на 10 единиц.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: ElectroProtectRingWear; OnUnWear: ElectroProtectRingUnWear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 623; name: ' телепортации'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'При надевании на руку телепортирует в случайное место на уровне.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: TeleportRingWear; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 624; name: ' сопротивления слепоте'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Повышает сопротивляемость к слепоте на 10 единиц.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: BlindProtectRingWear; OnUnWear: BlindProtectRingUnWear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 625; name: ' сопротивления страху'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Повышает сопротивляемость к страху на 10 единиц.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: FearProtectRingWear; OnUnWear: FearProtectRingUnWear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 626; name: ' сопротивления контузии'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Повышает сопротивляемость к контузии на 10 единиц.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: ContusionProtectRingWear; OnUnWear: ContusionProtectRingUnWear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 627; name: ' сопротивления параличу'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Повышает сопротивляемость к параличу на 10 единиц.'
      ;
      cost: 450; weight: 1; ItemChar: #15; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: PalseProtectRingWear; OnUnWear: PalseProtectRingUnWear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 628; name: ' сопротивления яду'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Повышает сопротивляемость к яду на 10 единиц.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: PoisonProtectRingWear; OnUnWear: PoisonProtectRingUnWear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 629; name: ' инфравидения'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Позволяет видеть невидимых врагов.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: InfraRingWear; OnUnWear: InfraRingUnWear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 630; name: ' слабости'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Понижает силу на 10 единиц.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: WeaknessRingWear; OnUnWear: WeaknessRingUnwear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 631; name: ' неудачи'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Понижает удачу на 10 единиц.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: LucknessRingWear; OnUnWear: LucknessRingUnwear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 632; name: ' глупости'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Понижает интеллект на 10 единиц.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: FoolishnessRingWear; OnUnWear: FoolishnessRingUnwear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 633; name: ' неточности'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Понижает меткость на 10 единиц.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: InexactnessRingWear; OnUnWear: InexactnessRingUnwear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 634; name: ' рассеянности'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Понижает внимание на 10 единиц.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: MindnessRingWear; OnUnWear: MindnessRingUnwear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 635; name: ' уязвимости'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Понижает защиту на 10 единиц.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: CriticalityRingWear; OnUnWear: CriticalityRingUnwear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 636; name: ' уязвимости огню'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Понижает защиту от огня на 10 единиц.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: FireCriticalityRingWear; OnUnWear: FireCriticalityRingUnwear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 637; name: ' уязвимости электричеству'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Понижает защиту от электричества на 10 единиц.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: ElectroCriticalityRingWear; OnUnWear: ElectroCriticalityRingUnwear;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 638; name: ' пси - уязвимости'; expa: 0; itemtype: ITTechno;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Понижает защиту от пси - воздействия на 10 единиц.'
      ;
      cost: 450; weight: 1; ItemChar: #176; ItemColor: LightMagenta;
      Frailty: 8;
      OnPickup: nil; OnDrop: nil; OnWear: PsiCriticalityRingWear; OnUnWear: PsiCriticalityRingUnwear;
      OnAttack: nil; OnUsing: nil;
    ),

{-==[ Нанопрограммы ]==-}

    (
      number: 641; name: ' телепортации'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Переносит в случайную точку.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: TeleportRingWear; Attrz: 1;
    ),
    (
      number: 642; name: ' переноса предмета'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Переносит на соседнюю клетку предмет с уровня.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: ItemTeleport; Attrz: 1;
    ),
    (
      number: 643; name: ' создания лестницы'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Пытается создать лестницу на уровень вниз.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: MakeStairs; Attrz: 1;
    ),
    (
      number: 644; name: ' случайного предмета'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Переносит на соседнюю клетку случайный предмет.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: ItemRandomTeleport; Attrz: 1;
    ),
    (
      number: 645; name: ' смертельной волны'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Уничтожает всех живых врагов на уровне.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: DeathWave; Attrz: 1;
    ),
    (
      number: 646; name: ' карты уровня'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Показывает всю карту данного уровня.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: AllMap; Attrz: 1;
    ),
    (
      number: 647; name: ' аннигиляции'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Уничтожает любой надетый предмет.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: AnnigilationProc; Attrz: 1;
    ),
    (
      number: 648; name: ' идентификации'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Опознает предмет.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: InitItem; Attrz: 1;
    ),
    (
      number: 649; name: ' малой телепортации'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'переносит на клетку в радиусе 10 клеток.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: SmallTeleport; Attrz: 1;
    ),
     (
      number: 650; name: ' поиска дверей'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Показывает все двери на уровне.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: FindDoors; Attrz: 1;
    ),
    (
      number: 651; name: ' поиска лестниц'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Показывает все лестницы на уровне.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: FindStairs; Attrz: 1;
    ),
    (
      number: 652; name: ' уничтожения'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Уничтожает всех неуникальных видимых врагов.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: Dissolution; Attrz: 1;
    ),
    (
      number: 653; name: ' городского портала'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Переносит из подземелья в город.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: TownPortal; Attrz: 1;
    ),
    (
      number: 654; name: ' разрушения'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Уничтожает стены в радиусе видимости.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: Destroying; Attrz: 1;
    ),
    (
      number: 655; name: ' землетрясения'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Уничтожает стены в радиусе 10 клеток.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: EarthQuake; Attrz: 1;
    ),
    (
      number: 656; name: ' глобального землетрясения'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Уничтожает все стены на уровне.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: GlobalEarthQuake; Attrz: 1;
    ),
    (
      number: 657; name: ' паралича'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Парализует пользователя.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: Palsy; Attrz: 1;
    ),
    (
      number: 658; name: ' контузии'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Контузит пользователя.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: Contusion; Attrz: 1;
    ),
    (
      number: 659; name: ' слепоты'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Ослепляет пользователя.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: Blind; Attrz: 1;
    ),
    (
      number: 660; name: ' глухоты'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Оглушает пользователя.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: Ed; Attrz: 1;
    ),
    (
      number: 661; name: ' страха'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Нагоняет страх на пользователя.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: Scare; Attrz: 1;
    ),
    (
      number: 662; name: ' галлюцинаций'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Затемняет разум пользователя.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: Gluks; Attrz: 1;
    ),
    (
      number: 663; name: ' исцеления монстров'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Исцеляет всех видимых монстров.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: MonsterHealthy; Attrz: 1;
    ),
    (
      number: 664; name: ' вызова монстра'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Вызывает монстра с данного уровня.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: SummonMonster; Attrz: 1;
    ),
    (
      number: 665; name: ' случайного вызова'; expa: 0; itemtype: ITFloppy;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Вызывает случайного монстра.'
      ;
      cost: 50; weight: 1; ItemChar: '_'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: SummonRandomMonster; Attrz: 1;
    ),

{-==[ Напитки aka нанороботы ]==-}

    (
      number: 666; name: ' лечения'; expa: 0; itemtype: ITNanoRobot;
      InOboyma: 0; IsShooting: false; Effect: 10;
      help:
        'Здоровье +10, кровотечение -1'
      ;
      cost: 30; weight: 1; ItemChar: '_'; ItemColor: LightCyan;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: NanoHealth; Attrz: 1;
    ),
    (
      number: 667; name: ' невидимости'; expa: 0; itemtype: ITNanoRobot;
      InOboyma: 0; IsShooting: false; Effect: 20;
      help:
        'Невидимость примерно на 20 ходов.'
      ;
      cost: 30; weight: 1; ItemChar: '_'; ItemColor: LightCyan;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: NanoInvisible; Attrz: 1;
    ),
    (
      number: 1514; name: 'Нано-разведчик'; expa: 0; itemtype: ITNanoRobot;
      InOboyma: 0; IsShooting: false; Effect: 20;
      help:
        'Тысячи нанороботов сканируют тело пользователя и создают его генетически ' +
        'точную копию, лишенную меж тем способности мыслить. Все команды ' +
        'нервной системы пользователя передаются клону, импульсы нервной ' +
        'системы клона - в мозг пользователя. Таким образом на какое-то время ' +
        'пользователь получает свою копию, которой может управлять либо до смерти ' +
        'копии, либо до того момента, как сам пошлет сигнал клону совершить ' +
        'самоубийство.'
      ;
      cost: 100; weight: 1; ItemChar: '_'; ItemColor: LightCyan;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: NanoRazvedka; Attrz: 1;
    ),
    (
      number: 1515; name: 'Инфракрасные очки'; expa: 0;
      itemType: ITLitter; InOboyma: 0; IsShooting: false;
      ShootsCount: 0; Effect: 0;
      help:
        'Инфракрасные очки. Способны явить на свет ' +
        'невидимых врагов.'
      ;
      cost: 100; weight: 10; ItemChar: '8'; ItemColor: Red;
      Frailty: 70;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),

{-==[ Барахло ]==-}

    (
      number: 1000; name: 'Ложка'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Старая поржавевшая, давным давно непригодная для' +
        ' использования по прямому назначению.'
      ;
      cost: 1; weight: 1; ItemChar: ','; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1001; name: 'CRT - Монитор'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Видавший виды монитор, экран треснут в нескольких ' +
        'местах. Он уже никогда не будет работать.'
      ;
      cost: 1; weight: 400; ItemChar: '['; ItemColor: DarkGray;
      Frailty: 98;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1002; name: 'Монитор'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Видавший виды монитор, экран треснут в нескольких ' +
        'местах. Он уже никогда не будет работать.'
      ;
      cost: 1; weight: 400; ItemChar: ']'; ItemColor: DarkGray;
      Frailty: 98;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1003; name: 'Кассовый аппарат'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Разбитый кассовый аппарат. К сожалению, внутри пусто.'
      ;
      cost: 1; weight: 600; ItemChar: ']'; ItemColor: LightGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1004; name: 'Офисное кресло'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Обивка порвана, на сидении видны следы крови.' +
        ' Довольно тяжелое.'
      ;
      cost: 1; weight: 250; ItemChar: #165; ItemColor: DarkGray;
      Frailty: 70;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1005; name: 'Доска'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Старая гнилая доска. С одной стороны испачкана в ' +
        'крови, с другой заметны следы... когтей?'
      ;
      cost: 1; weight: 10; ItemChar: '\'; ItemColor: Brown;
      Frailty: 10;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1006; name: 'Сдутая шина'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Ничего необычного, просто мусор.'
      ;
      cost: 1; weight: 5; ItemChar: '0'; ItemColor: LightGray;
      Frailty: 0;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1007; name: 'Покрышка'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Ничего необычного, просто мусор.'
      ;
      cost: 1; weight: 10; ItemChar: '0'; ItemColor: DarkGray;
      Frailty: 0;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1008; name: 'Масляная лампа'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Ни капли масла, похоже, ей уже нельзя воспользоваться.'
      ;
      cost: 1; weight: 4; ItemChar: '`'; ItemColor: Yellow;
      Frailty: 25;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1009; name: 'Мусорная корзина'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Внутри пусто. Не представляет практической ценности.'
      ;
      cost: 1; weight: 100; ItemChar: '0'; ItemColor: LightGray;
      Frailty: 20;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1010; name: 'Вешалка'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Как оружие не годится. Как любой другой полезный ' +
        'предмет - тоже.'
      ;
      cost: 1; weight: 10; ItemChar: '/'; ItemColor: Brown;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1011; name: 'Табуретка'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Ей можно кого-нибудь больно ударить. Для применения' +
        ' в других целях не подходит.'
      ;
      cost: 1; weight: 400; ItemChar: #165; ItemColor: Brown;
      Frailty: 50;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1012; name: 'Старый лейкопластырь'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'К клейкой стороне прилип мусор и засохшие мухи. ' +
        'Не пригоден для использования.'
      ;
      cost: 1; weight: 1; ItemChar: '~'; ItemColor: LightGray;
      Frailty: 0;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1013; name: 'Пустая бутылка'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Надломленное горлышко и едва заметная трещина на' +
        ' дне - обычный мусор, ничего особенного.'
      ;
      cost: 1; weight: 4; ItemChar: '!'; ItemColor: White;
      Frailty: 100;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),


{-==[ Драгоценные камни ]==-}


    (
      number: 1500; name: 'Малахит'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Мягкий для обработки камень характерного зеленого цвета.' +
        ' Этот цвет ему придают соединения меди.'
      ;
      cost: 50; weight: 1; ItemChar: ','; ItemColor: $00347437;
      Frailty: 10;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1501; name: 'Нефрит'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Красивый минерал зеленого цвета, состоящий из соединений кремнезема.'
      ;
      cost: 70; weight: 1; ItemChar: ','; ItemColor: $00377133;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1502; name: 'Жадеит'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Жадеит похож на нефрит, так же явлвется соединением кремнезема.' +
        'Изумрудный или светло-зеленый цвет полупрозрачному жадеиту ' +
        'придают примеси соединений хрома и железа. Хорошо поддается полировке.'
      ;
      cost: 90; weight: 1; ItemChar: ','; ItemColor: $00C2E2C0;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1503; name: 'Гематит'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Название этого твердого и тяжелого камня происходит от греческого' +
        'слова хайматос - «кровь». Гематит действительно имеет цвет запекшейся' +
        'крови, который ему придают оксиды железа.'
      ;
      cost: 80; weight: 1; ItemChar: ','; ItemColor: $003538A8;
      Frailty: 3;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1504; name: 'Циркон'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Свое название камень получил от персидского слова «zargun», ' +
        'что значит «золотой камень».'
      ;
      cost: 100; weight: 1; ItemChar: ','; ItemColor: $00427573;
      Frailty: 3;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1505; name: 'Топаз'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Фторсодержащий силикат алюминия. Согласно легенде, назавние камня' +
        ' происходит от санскритского тапаз - «огонь», «пламя», «тепло».' +
        ' Цвет камня определяется примесями титана, железа и хрома.'
      ;
      cost: 100; weight: 1; ItemChar: ','; ItemColor: $00427573;
      Frailty: 3;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1506; name: 'Гранат'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Отливающий желтым темно-красный кристалл, похожий на мерцающие' +
        ' угольки.'
      ;
      cost: 110; weight: 1; ItemChar: ','; ItemColor: $000000BB;
      Frailty: 3;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1507; name: 'Опал'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Свое название минерал получил от древнего слова "upala" — ' +
        '"драгоценный камень".'
      ;
      cost: 130; weight: 1; ItemChar: ','; ItemColor: $004280FF;
      Frailty: 3;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1508; name: 'Берилл'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Силикат алюминия и бериллия. Цвет камня во многом зависит от ' +
        'примесей соединений магния, железа, хрома, марганца.'
      ;
      cost: 125; weight: 1; ItemChar: ','; ItemColor: $003C01A9;
      Frailty: 1;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1509; name: 'Корунд'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'После алмаза корунды являются наиболее твердыми драгоценными ' +
        'камнями. С химической точки зрения корунд - обычная окись алюминия. ' +
        'Различные цвета придают ему примеси хрома, железа, ванадия и других' +
        ' соединений.'
      ;
      cost: 200; weight: 1; ItemChar: ','; ItemColor: $00A2025A;
      Frailty: 1;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1510; name: 'Рубин'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Окись алюминия. Название камень получил за ярко-красный цвет,' +
        ' придаваемый ему окисями хрома.'
      ;
      cost: 200; weight: 1; ItemChar: ','; ItemColor: $00000097;
      Frailty: 1;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1511; name: 'Изумруд'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Очень дорогой и редко встречающийся камень.'
      ;
      cost: 200; weight: 1; ItemChar: ','; ItemColor: $004A9133;
      Frailty: 1;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1512; name: 'Шпинель'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Напоминает рубин, является сложным окислом магния и алюминия.' +
        'Название камня корнями уходит в латынь, латинское слово "spinella", ' +
        'которое указывает на форму кристалов шпинели, имеющих форму октаэдров ' +
        'и додекаэдров.'
      ;
      cost: 222; weight: 1; ItemChar: ','; ItemColor: $00B34300;
      Frailty: 1;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 1513; name: 'Алмаз'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Природный кристалл углерода, сформировавшийся при сверхвысоком ' +
        'давлении и температуре. Фантастически дорогой камушек.'
      ;
      cost: 333; weight: 1; ItemChar: ','; ItemColor: $0043706F;
      Frailty: 0;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),



{-==[ Барахло в подземельях ]==-}

    (
      number: 2000; name: 'Скелет'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Скелет неизвестного существа, явно не человеческий.'
      ;
      cost: 1; weight: 10; ItemChar: #175; ItemColor: LightGray;
      Frailty: 10;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 2001; name: 'Осколок горшка'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Ничего необычного, просто мусор.'
      ;
      cost: 1; weight: 1; ItemChar: '`'; ItemColor: Brown;
      Frailty: 60;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 2002; name: 'Пустой сундук'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Крышка разбита, внутри пусто. Подойдет разве что для' +
        ' того, чтобы метнуть им в кого-нибудь.'
      ;
      cost: 1; weight: 10; ItemChar: '='; ItemColor: Brown;
      Frailty: 20;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 2003; name: 'Расколотый череп'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Похож на человеческий.'
      ;
      cost: 1; weight: 2; ItemChar: '`'; ItemColor: White;
      Frailty: 30;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 2004; name: 'Череп'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Смахивает на человеческий.'
      ;
      cost: 1; weight: 20; ItemChar: '`'; ItemColor: LightGray;
      Frailty: 30;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),
    (
      number: 2005; name: 'Кость'; expa: 0; itemtype: ITLitter;
      InOboyma: 0; IsShooting: false; Effect: 0;
      help:
        'Невозможно определить, кому она принадлежала, но у' +
        ' хозяина явно были большие неприятности при жизни.'
      ;
      cost: 1; weight: 1; ItemChar: '`'; ItemColor: DarkGray;
      Frailty: 5;
      OnPickup: nil; OnDrop: nil; OnWear: nil; OnUnWear: nil;
      OnAttack: nil; OnUsing: nil;
    ),

{-==[ Деньги и патроны ]==-}

    (
      number: AMMO_BOWS; name: 'Стрела'; expa: 0;
      itemType: ITAmmo; InOboyma: 0; IsShooting: false;
      Effect: 1;
      help:
        'Патрон для самострела.'
      ;
      cost: 1; weight: 1; itemchar: '|'; itemcolor: LightGray;
      Frailty: 5;
    ),
    (
      number: AMMO_FIRE; name: 'Универсальный 9мм патрон'; expa: 0;
      itemType: ITAmmo; InOboyma: 0; IsShooting: false;
      Effect: 1;
      help:
        'Универсальный патрон для пистолетов, автоматов и подобных им пушек.'
      ;
      cost: 1; weight: 1; itemchar: '|'; itemcolor: LightGray;
      Frailty: 5;
    ),
    (
      number: AMMO_SHELLS; name: 'Заряд дроби'; expa: 0;
      itemType: ITAmmo; InOboyma: 0; IsShooting: false;
      Effect: 3;
      help:
        'Универсальный патрон для дробовиков.'
      ;
      cost: 2; weight: 2; itemchar: '|'; itemcolor: LightRed;
      Frailty: 5;
    ),
    (
      number: AMMO_NAPALM; name: 'Напалм'; expa: 0;
      itemType: ITAmmo; InOboyma: 0; IsShooting: false;
      Effect: 2;
      help:
        'Топливо для огнеметов.'
      ;
      cost: 2; weight: 2; itemchar: '|'; itemcolor: Yellow;
      Frailty: 8;
    ),
    (
      number: AMMO_ELECTRICAL; name: 'Электрозаряд'; expa: 0;
      itemType: ITAmmo; InOboyma: 0; IsShooting: false;
      Effect: 3;
      help:
        'Небольшой заряд энергии на один выстрел электромета.'
      ;
      cost: 2; weight: 1; itemchar: '|'; itemcolor: LightBlue;
      Frailty: 5;
    ),
    (
      number: AMMO_ROCKETS; name: 'Ракета'; expa: 0;
      itemType: ITAmmo; InOboyma: 0; IsShooting: false;
      Effect: 5;
      help:
        'Маленькая смерть в железной упаковке.'
      ;
      cost: 5; weight: 10; itemchar: '|'; itemcolor: DarkGray;
      Frailty: 5;
    ),
    (
      number: AMMO_CELLCHARGE; name: 'Энергоячейка'; expa: 0;
      itemType: ITAmmo; InOboyma: 0; IsShooting: false;
      Effect: 3;
      help:
        'Сгусток плазмы для энергетического оружия.'
      ;
      cost: 3; weight: 2; itemchar: '|'; itemcolor: LightCyan;
      Frailty: 5;
    ),
    (
      number: AMMO_PSI; name: 'Пси-разряд'; expa: 0;
      itemType: ITAmmo; InOboyma: 0; IsShooting: false;
      Effect: 4;
      help:
        'Универсальный патрон для пистолетов, автоматов и подобных им пушек.'
      ;
      cost: 5; weight: 1; itemchar: '|'; itemcolor: Cyan;
      Frailty: 5;
    ),
    (
      number: MONEY_MIN; name: 'Несколько монет'; expa: 0;
      itemType: ITMoney; InOboyma: 0; IsShooting: false;
      Effect: 1;
      help:
        ''
      ;
      cost: 1; weight: 0; itemchar: '$'; itemcolor: Yellow;
      Frailty: 0;
    ),
    (
      number: MONEY_MIN + 1; name: 'Горстка монет'; expa: 0;
      itemType: ITMoney; InOboyma: 0; IsShooting: false;
      Effect: 1;
      help:
        ''
      ;
      cost: 1; weight: 0; itemchar: '$'; itemcolor: Yellow;
      Frailty: 0;
    ),
    (
      number: MONEY_MIN + 2; name: 'Кучка монет'; expa: 0;
      itemType: ITMoney; InOboyma: 0; IsShooting: false;
      Effect: 1;
      help:
        ''
      ;
      cost: 1; weight: 0; itemchar: '$'; itemcolor: Yellow;
      Frailty: 0;
    ),
    (
      number: MONEY_MIN + 3; name: 'Горка монет'; expa: 0;
      itemType: ITMoney; InOboyma: 0; IsShooting: false;
      Effect: 1;
      help:
        ''
      ;
      cost: 1; weight: 0; itemchar: '$'; itemcolor: Yellow;
      Frailty: 0;
    ),
    (
      number: MONEY_MIN + 4; name: 'Гора монет'; expa: 0;
      itemType: ITMoney; InOboyma: 0; IsShooting: false;
      Effect: 1;
      help:
        ''
      ;
      cost: 1; weight: 0; itemchar: '$'; itemcolor: Yellow;
      Frailty: 0;
    )
  );

{
                   ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
  Black(0)........-....................................................
  Blue(1).........-....................................................
  Green(2)........-.................X..............ХX.................X
  Cyan(3).........-.................X...............X..................
  Red(4)..........-....................................................
  Magenta(5)......-....................................................
  Brown(6)........-.X...............................X...X..............
  LightGray(7)....-..........................X.XX..ХX...X.....X.X.X...X
  DarkDray(8).....-..X..X.....................X.X.X.X...X.....X.X.....X
  LightBlue(9)....-...................................................X
  LightGreen(10)..-...........................................X........
  LightCyan(11)...-.................................X.........X........
  LightRed(12)....-....................................................
  LightMagenta(13)-.................................X..................
  Yellow(14)......-.................................X.........X........
  White(15).......-.............................X...X.........X.X.....X
}

  MonstersCount = 12;
  MonArr: array[1..MonstersCount] of TEnemy = (
    (
      Name: '[ Пустой монстр ]'; Montype: 0;
      Health: 0; Expa: 0;
      Strength: 0; Accuracy: 0;
      Character: #0; CharColor: Black;
      Protect_base: 0; Protect_fire: 0; Protect_electric: 0; Protect_psi: 0;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AIGrib; Death: DDeath;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0);
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 0
    ),
    (
      Name: 'Серый гриб'; Montype: 1;
      Health: 5; Expa: 5;
      Strength: 4; Accuracy: 20;
      Character: 'g'; CharColor: LightGray;
      Protect_base: 1; Protect_fire: 0; Protect_electric: 0; Protect_psi: 0;
      Chance_blood: 0; Chance_desease: 5;
      Intellect: AIGrib; Death: DDeath;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0);
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 22
    ),
    (*(
      Name: 'Дикая плесень'; Montype: 2;
      Health: 10; Expa: 7;
      Strength: 10; Accuracy: 20; Nyuh: 255; Sluh: 255;
      Character: 'g'; CharColor: Green;
      Protect_base: 3; Protect_fire: 0; Protect_electric: 0; Protect_psi: 255;
      Chance_blood: 0; Chance_desease: 10;
      Intellect: AIGrib; Death: DDeath;
      ZapahStrength: 0; VoiceStrength: 0;
      Sex: Female; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 22
    ),
    (
      Name: 'Муравей'; Montype: 3;
      Health: 10; Expa: 10;
      Strength: 10; Accuracy: 30; Nyuh: 100; Sluh: 4;
      Character: 'a'; CharColor: LightGray;
      Protect_base: 1; Protect_fire: 1; Protect_electric: 0; Protect_psi: 0;
      Chance_blood: 5; Chance_desease: 5;
      Intellect: AIHuman; Death: DDeath;
      ZapahStrength: 20; VoiceStrength: 3;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 18
    ),
    (
      Name: 'Летучая мышь'; Montype: 4;
      Health: 20; Expa: 25;
      Strength: 7; Accuracy: 25; Nyuh: 100; Sluh: 2;
      Character: 'v'; CharColor: DarkGray;
      Protect_base: 1; Protect_fire: 2; Protect_electric: 2; Protect_psi: 0;
      Chance_blood: 5; Chance_desease: 1;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 5; VoiceStrength: 10;
      Sex: Female; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 26
    ),
    (
      Name: 'Червь'; Montype: 5;
      Health: 10; Expa: 20;
      Strength: 12; Accuracy: 15; Nyuh: 5; Sluh: 255;
      Character: 'l'; CharColor: Brown;
      Protect_base: 2; Protect_fire: 2; Protect_electric: 25; Protect_psi: 255;
      Chance_blood: 5; Chance_desease: 15;
      Intellect: AIWorm; Death: DAllBloodDeath;
      ZapahStrength: 50; VoiceStrength: 15;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 26
    ),
    (
      Name: 'Пещерная крыса'; Montype: 6;
      Health: 12; Expa: 30;
      Strength: 8; Accuracy: 25; Nyuh: 5; Sluh: 20;
      Character: 'r'; CharColor: LightGray;
      Protect_base: 2; Protect_fire: 0; Protect_electric: 0; Protect_psi: 0;
      Chance_blood: 10; Chance_desease: 10;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 10; VoiceStrength: 10;
      Sex: Female; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 26
    ),
    (
      Name: 'Большой червь'; Montype: 7;
      Health: 15; Expa: 70;
      Strength: 12; Accuracy: 15; Nyuh: 10; Sluh: 10;
      Character: 'l'; CharColor: LightGray;
      Protect_base: 2; Protect_fire: 0; Protect_electric: 25; Protect_psi: 255;
      Chance_blood: 1; Chance_desease: 20;
      Intellect: AIWorm; Death: DAllBloodDeath;
      ZapahStrength: 20; VoiceStrength: 15;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 26
    ),
    (
      Name: 'Лабораторная крыса'; Montype: 8;
      Health: 22; Expa: 100;
      Strength: 13; Accuracy: 25; Nyuh: 5; Sluh: 5;
      Character: 'r'; CharColor: White;
      Protect_base: 2; Protect_fire: 3; Protect_electric: 25; Protect_psi: 100;
      Chance_blood: 10; Chance_desease: 1;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 10; VoiceStrength: 5;
      Sex: Female; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 26
    ),
    (
      Name: 'Скорпион'; Montype: 9;
      Health: 35; Expa: 150;
      Strength: 18; Accuracy: 3; Nyuh: 255; Sluh: 255;
      Character: 'c'; CharColor: LightGray;
      Protect_base: 6; Protect_fire: 5; Protect_electric: 5; Protect_psi: 100;
      Chance_blood: 20; Chance_desease: 1;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 25; VoiceStrength: 12;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 26
    ),
    (
      Name: 'Слепая собака'; Montype: 10;
      Health: 20; Expa: 100;
      Strength: 20; Accuracy: 2; Nyuh: 2; Sluh: 2;
      Character: 'd'; CharColor: Brown;
      Protect_base: 3; Protect_fire: 0; Protect_electric: 0; Protect_psi: 0;
      Chance_blood: 25; Chance_desease: 10;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 40; VoiceStrength: 15;
      Sex: Female; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 26
    ),
    (
      Name: 'Крысовожак'; Montype: 11;
      Health: 25; Expa: 170;
      Strength: 15; Accuracy: 2; Nyuh: 5; Sluh: 5;
      Character: 'r'; CharColor: DarkGray;
      Protect_base: 6; Protect_fire: 5; Protect_electric: 0; Protect_psi: 0;
      Chance_blood: 15; Chance_desease: 5;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 10; VoiceStrength: 5;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 26
    ),
    (
      Name: 'Гигантский червь'; Montype: 12;
      Health: 30; Expa: 190;
      Strength: 16; Accuracy: 3; Nyuh: 15; Sluh: 15;
      Character: 'l'; CharColor: DarkGray;
      Protect_base: 8; Protect_fire: 10; Protect_electric: 10; Protect_psi: 255;
      Chance_blood: 1; Chance_desease: 5;
      Intellect: AIWorm; Death: DBloodDeath;
      ZapahStrength: 50; VoiceStrength: 15;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 26
    ),
    (
      Name: 'Монах'; Montype: 13;
      Health: 18; Expa: 120;
      Strength: 16; Accuracy: 2; Nyuh: 255; Sluh: 15;
      Character: 'h'; CharColor: DarkGray;
      Protect_base: 4; Protect_fire: 2; Protect_electric: 0; Protect_psi: 0;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 40; VoiceStrength: 15;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 1; w1Max: 5; w2Min: 16; w2Max: 19;
      Attrz: 2043
    ),
    (
      Name: 'Дикий волк'; Montype: 14;
      Health: 35; Expa: 150;
      Strength: 14; Accuracy: 2; Nyuh: 30; Sluh: 5;
      Character: 'd'; CharColor: LightGray;
      Protect_base: 4; Protect_fire: 0; Protect_electric: 0; Protect_psi: 0;
      Chance_blood: 15; Chance_desease: 5;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 45; VoiceStrength: 10;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 410
    ),
    (
      Name: 'Бешеный волк'; Montype: 15;
      Health: 35; Expa: 150;
      Strength: 30; Accuracy: 2; Nyuh: 30; Sluh: 5;
      Character: 'd'; CharColor: DarkGray;
      Protect_base: 6; Protect_fire: 0; Protect_electric: 0; Protect_psi: 0;
      Chance_blood: 20; Chance_desease: 15;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 45; VoiceStrength: 14;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 410
    ),
    (
      Name: 'Старший монах'; Montype: 16;
      Health: 40; Expa: 200;
      Strength: 15; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 'h'; CharColor: LightGray;
      Protect_base: 8; Protect_fire: 7; Protect_electric: 6; Protect_psi: 0;
      Chance_blood: 5; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 40; VoiceStrength: 10;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 1; w1Max: 5; w2Min: 16; w2Max: 19;
      Attrz: 2043
    ),
    (
      Name: 'Дикий волк-вожак'; Montype: 17;
      Health: 50; Expa: 220;
      Strength: 18; Accuracy: 2; Nyuh: 10; Sluh: 10;
      Character: 'd'; CharColor: White;
      Protect_base: 9; Protect_fire: 9; Protect_electric: 9; Protect_psi: 0;
      Chance_blood: 20; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 40; VoiceStrength: 15;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 26
    ),
    (
      Name: 'Зомби'; Montype: 18;
      Health: 40; Expa: 120;
      Strength: 10; Accuracy: 3; Nyuh: 255; Sluh: 255;
      Character: 'z'; CharColor: LightGray;
      Protect_base: 5; Protect_fire: 0; Protect_electric: 0; Protect_psi: 255;
      Chance_blood: 0; Chance_desease: 5;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 100; VoiceStrength: 15;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 1; w1Max: 6; w2Min: 0; w2Max: 0;
      Attrz: 1848
    ),
    (
      Name: 'Зомби-врач'; Montype: 19;
      Health: 35; Expa: 100;
      Strength: 8; Accuracy: 3; Nyuh: 255; Sluh: 255;
      Character: 'z'; CharColor: White;
      Protect_base: 5; Protect_fire: 0; Protect_electric: 0; Protect_psi: 255;
      Chance_blood: 0; Chance_desease: 5;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 100; VoiceStrength: 15;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 6; w1Max: 9; w2Min: 0; w2Max: 0;
      Attrz: 1848
    ),
    (
      Name: 'Зомби-охранник'; Montype: 20;
      Health: 45; Expa: 160;
      Strength: 15; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 'z'; CharColor: LightBlue;
      Protect_base: 8; Protect_fire: 8; Protect_electric: 8; Protect_psi: 255;
      Chance_blood: 0; Chance_desease: 5;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 100; VoiceStrength: 15;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 20; w1Max: 23; w2Min: 26; w2Max: 28;
      Attrz: 1848
    ),
    (
      Name: 'Мутант'; Montype: 21;
      Health: 55; Expa: 200;
      Strength: 18; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 'm'; CharColor: LightGreen;
      Protect_base: 7; Protect_fire: 10; Protect_electric: 10; Protect_psi: 255;
      Chance_blood: 10; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 60; VoiceStrength: 16;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 4; w1Max: 13; w2Min: 20; w2Max: 24;
      Attrz: 2043
    ),
    (
      Name: 'Грабитель'; Montype: 22;
      Health: 60; Expa: 200;
      Strength: 15; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 'h'; CharColor: Brown;
      Protect_base: 7; Protect_fire: 4; Protect_electric: 25; Protect_psi: 0;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 50; VoiceStrength: 10;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 4; w1Max: 13; w2Min: 0; w2Max: 0;
      Attrz: 1979
    ),
    (
      Name: 'Рейдер'; Montype: 23;
      Health: 45; Expa: 160;
      Strength: 12; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 'h'; CharColor: Yellow;
      Protect_base: 2; Protect_fire: 0; Protect_electric: 0; Protect_psi: 0;
      Chance_blood: 15; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 75; VoiceStrength: 15;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 4; w1Max: 10; w2Min: 20; w2Max: 23;
      Attrz: 1979
    ),
    (
      Name: 'Монах-капитан'; Montype: 24;
      Health: 80; Expa: 230;
      Strength: 17; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 'h'; CharColor: White;
      Protect_base: 10; Protect_fire: 10; Protect_electric: 10; Protect_psi: 10;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 50; VoiceStrength: 10;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 16; w1Max: 19; w2Min: 0; w2Max: 0;
      Attrz: 2043
    ),
    (
      Name: 'Рейдер-капитан'; Montype: 25;
      Health: 80; Expa: 200;
      Strength: 15; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 'h'; CharColor: Green;
      Protect_base: 5; Protect_fire: 5; Protect_electric: 5; Protect_psi: 0;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 50; VoiceStrength: 15;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 20; w1Max: 24; w2Min: 26; w2Max: 28;
      Attrz: 1979
    ),
    (
      Name: 'Наемник'; Montype: 26;
      Health: 100; Expa: 250;
      Strength: 20; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 'h'; CharColor: Cyan;
      Protect_base: 11; Protect_fire: 10; Protect_electric: 15; Protect_psi: 15;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 50; VoiceStrength: 15;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 1; w1Max: 12; w2Min: 20; w2Max: 24;
      Attrz: 2043
    ),
    (
      Name: 'Старший наемник'; Montype: 27;
      Health: 120; Expa: 270;
      Strength: 22; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 'h'; CharColor: LightCyan;
      Protect_base: 12; Protect_fire: 8; Protect_electric: 10; Protect_psi: 10;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 50; VoiceStrength: 15;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 20; w1Max: 24; w2Min: 0; w2Max: 0;
      Attrz: 2043
    ),
    (
      Name: 'Мутант-бестия'; Montype: 28;
      Health: 150; Expa: 280;
      Strength: 25; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 'm'; CharColor: LightCyan;
      Protect_base: 10; Protect_fire: 10; Protect_electric: 10; Protect_psi: 0;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 50; VoiceStrength: 15;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 32; w1Max: 34; w2Min: 36; w2Max: 37;
      Attrz: 1979
    ),
    (
      Name: 'Зомби-военный'; Montype: 29;
      Health: 120; Expa: 220;
      Strength: 25; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 'z'; CharColor: Green;
      Protect_base: 7; Protect_fire: 5; Protect_electric: 3; Protect_psi: 1;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 50; VoiceStrength: 15;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 22; w1Max: 23; w2Min: 39; w2Max: 41;
      Attrz: 1816
    ),
    (
      Name: 'Зомби-спецназовец'; Montype: 30;
      Health: 150; Expa: 230;
      Strength: 25; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 'z'; CharColor: DarkGray;
      Protect_base: 8; Protect_fire: 6; Protect_electric: 4; Protect_psi: 2;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 50; VoiceStrength: 15;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 22; w1Max: 23; w2Min: 0; w2Max: 0;
      Attrz: 1816
    ),
    (
      Name: 'Турель МХ-1'; Montype: 31;
      Health: 250; Expa: 140;
      Strength: 10; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 't'; CharColor: White;
      Protect_base: 12; Protect_fire: 10; Protect_electric: 3; Protect_psi: 255;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AITurret; Death: DBloodDeath;
      ZapahStrength: 0; VoiceStrength: 0;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 25; w1Max: 25; w2Min: 0; w2Max: 0;
      Attrz: 528
    ),
    (
      Name: 'Турель МХ-2'; Montype: 32;
      Health: 250; Expa: 150;
      Strength: 15; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 't'; CharColor: LightGray;
      Protect_base: 13; Protect_fire: 11; Protect_electric: 10; Protect_psi: 255;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AITurret; Death: DBloodDeath;
      ZapahStrength: 0; VoiceStrength: 0;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 23; w1Max: 23; w2Min: 0; w2Max: 0;
      Attrz: 528
    ),
    (
      Name: 'Турель МХ-3'; Montype: 33;
      Health: 300; Expa: 160;
      Strength: 15; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 't'; CharColor: DarkGray;
      Protect_base: 15; Protect_fire: 13; Protect_electric: 15; Protect_psi: 255;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AITurret; Death: DBloodDeath;
      ZapahStrength: 0; VoiceStrength: 0;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 36; w1Max: 36; w2Min: 0; w2Max: 0;
      Attrz: 528
    ),
    (
      Name: 'Дрон-разведчик'; Montype: 34;
      Health: 20; Expa: 80;
      Strength: 10; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 'r'; CharColor: White;
      Protect_base: 10; Protect_fire: 10; Protect_electric: 5; Protect_psi: 255;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 0; VoiceStrength: 0;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 41; w1Max: 41; w2Min: 0; w2Max: 0;
      Attrz: 912
    ),
    (
      Name: 'Робот-шпион'; Montype: 35;
      Health: 70; Expa: 150;
      Strength: 15; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 'r'; CharColor: Yellow;
      Protect_base: 12; Protect_fire: 12; Protect_electric: 7; Protect_psi: 255;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 0; VoiceStrength: 5;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 21; w1Max: 21; w2Min: 0; w2Max: 0;
      Attrz: 1008
    ),
    (
      Name: 'Робот-страж'; Montype: 36;
      Health: 150; Expa: 200;
      Strength: 17; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 'r'; CharColor: LightCyan;
      Protect_base: 15; Protect_fire: 12; Protect_electric: 9; Protect_psi: 255;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 0; VoiceStrength: 25;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 22; w1Max: 23; w2Min: 0; w2Max: 0;
      Attrz: 1008
    ),
    (
      Name: 'Робот-страж'; Montype: 37;
      Health: 150; Expa: 200;
      Strength: 17; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 'r'; CharColor: LightCyan;
      Protect_base: 15; Protect_fire: 12; Protect_electric: 9; Protect_psi: 255;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 0; VoiceStrength: 25;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 24; w1Max: 24; w2Min: 26; w2Max: 28;
      Attrz: 1008
    ),
    (
      Name: 'Гризли'; Montype: 38;
      Health: 250; Expa: 290;
      Strength: 25; Accuracy: 2; Nyuh: 20; Sluh: 10;
      Character: 'B'; CharColor: Brown;
      Protect_base: 10; Protect_fire: 5; Protect_electric: 0; Protect_psi: 0;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 80; VoiceStrength: 25;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 442
    ),
    (
      Name: 'Наемник-капитан'; Montype: 39;
      Health: 250; Expa: 300;
      Strength: 25; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 'h'; CharColor: LightMagenta;
      Protect_base: 14; Protect_fire: 14; Protect_electric: 14; Protect_psi: 14;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 0; VoiceStrength: 10;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 22; w1Max: 23; w2Min: 32; w2Max: 35;
      Attrz: 2043
    ),
    (
      Name: 'Супермутант'; Montype: 40;
      Health: 300; Expa: 310;
      Strength: 30; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 'M'; CharColor: LightGreen;
      Protect_base: 10; Protect_fire: 10; Protect_electric: 10; Protect_psi: 255;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 100; VoiceStrength: 25;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 1; w1Max: 14; w2Min: 0; w2Max: 0;
      Attrz: 1979
    ),
    (
      Name: 'Элитный робостраж'; Montype: 41;
      Health: 250; Expa: 310;
      Strength: 18; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 'R'; CharColor: Green;
      Protect_base: 15; Protect_fire: 16; Protect_electric: 17; Protect_psi: 255;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 0; VoiceStrength: 25;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 32; w1Max: 35; w2Min: 39; w2Max: 42;
      Attrz: 1969
    ),
    (
      Name: 'Тяжелый робот'; Montype: 42;
      Health: 300; Expa: 350;
      Strength: 20; Accuracy: 2; Nyuh: 255; Sluh: 255;
      Character: 'R'; CharColor: Cyan;
      Protect_base: 17; Protect_fire: 18; Protect_electric: 19; Protect_psi: 255;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AIHuman; Death: DBloodDeath;
      ZapahStrength: 0; VoiceStrength: 25;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0); 0; Count: 0;
      w1Min: 36; w1Max: 38; w2Min: 0; w2Max: 0;
      Attrz: 1713
    ), *)

{50000 - 60000 отведено для боссов}


{Монстры, которые не будут генериться случайно}
    (
      {
        Просит милостыню, можно сколько - нить дать
        Находясь рядом, может попытаться стащить денег.
        Обнаружит ли это игрок, зависит от внимания.
        Если обнаружил, деньги не отнимаются.
      }
      Name: 'Грязный попрошайка'; Montype: 60002;
      Health: 5; Expa: 10;
      Strength: 2; Accuracy: 3;
      Character: 't'; CharColor: DarkGray;
      Protect_base: 1; Protect_fire: 0; Protect_electric: 0; Protect_psi: 0;
      Chance_blood: 1; Chance_desease: 20;
      Intellect: AIBomzh; Death: DBloodDeath;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0);
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 1050
    ),
    (
      {
        Убегает, если подойти к ней вплотную. Не атакует.
      }
      Name: 'Котенок'; Montype: 60003;
      Health: 3; Expa: 1;
      Strength: 0; Accuracy: 3;
      Character: 'f'; CharColor: DarkGray;
      Protect_base: 1; Protect_fire: 0; Protect_electric: 0; Protect_psi: 0;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AICat; Death: DBloodDeath;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0);
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 26
    ),
    (
      {
        Убегает, если подойти к ней вплотную. Не атакует.
      }
      Name: 'Кошка'; Montype: 60004;
      Health: 5; Expa: 1;
      Strength: 0; Accuracy: 3;
      Character: 'F'; CharColor: DarkGray;
      Protect_base: 1; Protect_fire: 0; Protect_electric: 0; Protect_psi: 0;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AICat; Death: DBloodDeath;
      Sex: Female; Item: (number: 0; count: 0; ammo: 0);
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 26
    ),
    (
      {
        Либо кусает, либо виляет хвостиком, зависит от
        кармы или очарования
      }
      Name: 'Дворняга'; Montype: 60005;
      Health: 10; Expa: 1;
      Strength: 2; Accuracy: 1;
      Character: 'C'; CharColor: DarkGray;
      Protect_base: 1; Protect_fire: 0; Protect_electric: 0; Protect_psi: 0;
      Chance_blood: 10; Chance_desease: 10;
      Intellect: AIDog; Death: DBloodDeath;
      Sex: Female; Item: (number: 0; count: 0; ammo: 0);
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 26
    ),
    (
      {
        Ходит в хаотичном порядке, говорит бред.
      }
      Name: 'Бормочущий идиот'; Montype: 60006;
      Health: 10; Expa: 1;
      Strength: 2; Accuracy: 3;
      Character: 'b'; CharColor: LightGray;
      Protect_base: 1; Protect_fire: 0; Protect_electric: 0; Protect_psi: 0;
      Chance_blood: 0; Chance_desease: 1;
      Intellect: AIIdiot; Death: DBloodDeath;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0);
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 27
    ),
    (
      {
        Обычный мирный персонаж, говорит как крестьянин.
      }
      Name: 'Крестьянин'; Montype: 60007;
      Health: 10; Expa: 1;
      Strength: 2; Accuracy: 2;
      Character: 'b'; CharColor: LightGreen;
      Protect_base: 1; Protect_fire: 0; Protect_electric: 0; Protect_psi: 0;
      Chance_blood: 0; Chance_desease: 1;
      Intellect: AIHuman; Death: DBloodDeath;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0);
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 1051
    ),
    (
      {
        Обычный мирный персонаж, говорит как горожанин.
      }
      Name: 'Горожанин'; Montype: 60008;
      Health: 10; Expa: 1;
      Strength: 2; Accuracy: 2;
      Character: 'b'; CharColor: LightGreen;
      Protect_base: 1; Protect_fire: 0; Protect_electric: 0; Protect_psi: 0;
      Chance_blood: 0; Chance_desease: 1;
      Intellect: AIHuman; Death: DBloodDeath;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0);
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 1051
    ),
    (
      {
        Если попытаться поговорить, попросит подаяния. Можно не давать,
        можно дать пару монет. На геймплей никак не влияет
      }
      Name: 'Нищий'; Montype: 60009;
      Health: 10; Expa: 1;
      Strength: 2; Accuracy: 2;
      Character: 'b'; CharColor: DarkGray;
      Protect_base: 1; Protect_fire: 0; Protect_electric: 0; Protect_psi: 0;
      Chance_blood: 0; Chance_desease: 1;
      Intellect: AIBeggar; Death: DBloodDeath;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0);
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 1051
    ),
    (
      {
        Если попытаться поговорить, попросит подаяния. Можно не давать,
        можно дать пару монет. На геймплей никак не влияет.
      }
      Name: 'Тестовый персонаж'; Montype: 60010;
      Health: 10; Expa: 1;
      Strength: 2; Accuracy: 2;
      Character: 't'; CharColor: LightGreen;
      Protect_base: 1; Protect_fire: 0; Protect_electric: 0; Protect_psi: 0;
      Chance_blood: 0; Chance_desease: 0;
      Intellect: AIKeyChar; Death: DBloodDeath;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0);
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 1051
    ),

{Ключевые персонажи}
    (
      Name: 'Seller'; Montype: 60001;
      Health: 15; Expa: 1;
      Strength: 20; Accuracy: 2;
      Character: 'S'; CharColor: LightGreen;
      Protect_base: 6; Protect_fire: 5; Protect_electric: 4; Protect_psi: 0;
      Chance_blood: 5; Chance_desease: 0;
      Intellect: AISeller; Death: DBloodDeath;
      Sex: Male; Item: (number: 0; count: 0; ammo: 0);
      w1Min: 0; w1Max: 0; w2Min: 0; w2Max: 0;
      Attrz: 26
    )
    {Тэги с 64000 и далее зарезервированы под терминалы}
    {64000 - 64000 уже задействованы}
  );
  TypesCount = 60;
  KletArr: array[1..TypesCount] of TKLetType = (
    (TypeName: '[Empty]'; Help: ''; c: #0; col: Black; attrz: 0),
    (TypeName: 'Wall'; Help: 'Стена'; c: '#'; col: white; attrz: 119),
    (TypeName: 'WallGround'; Help: 'Куча земли'; c: '#'; col: $00666666; attrz: 55),
    (TypeName: 'Land'; Help: 'Земля'; c: '#'; col: DarkGray; attrz: 39),
    (TypeName: 'Forest'; Help: 'Лес'; c: '&'; col: LightGreen; attrz: 4),
    (TypeName: 'Zabor'; Help: 'Забор'; c: '|'; col: Brown; attrz: 5),
    (TypeName: 'Zabor_horizontal'; Help: 'Забор'; c: '-'; col: Brown; attrz: 5),
    (TypeName: 'Fence'; Help: 'Сетчатая перегородка'; c: '|'; col: $00F3F3F3; attrz: 69),
    (TypeName: 'Fence_horizontal'; Help: 'Сетчатая перегородка'; c: '-'; col: $00F3F3F3; attrz: 69),
    (TypeName: 'Stolb'; Help: 'Столб'; c: '+'; col: $00F3F3F3; attrz: 69),
    (TypeName: 'Stolb_wood'; Help: 'Столб'; c: '+'; col: Brown; attrz: 5),
    (TypeName: 'Window'; Help: 'Окно'; c: '+'; col: white; attrz: 21),
    (TypeName: 'Window_crashed'; Help: 'Разбитое окно'; c: '\'; col: white; attrz: 21),
    (TypeName: 'Floor_ground'; Help: 'Земля'; c: '.'; col: $00627084; attrz: 20),
    (TypeName: 'PrisonDown'; Help: 'Лестница вниз'; c: '>'; col: white; attrz: 20),
    (TypeName: 'PrisonUp'; Help: 'Лестница вверх'; c: '<'; col: white; attrz: 20),
    (TypeName: 'Chest'; Help: 'Сундук'; c: '0'; col: lightgray; attrz: 1),
    (TypeName: 'Chest_open'; Help: 'Открытый сундук'; c: '0'; col: darkgray; attrz: 1),
    (TypeName: 'Tree'; Help: 'Дерево'; c: 'T'; col: lightgreen; attrz: 37),
    (TypeName: 'Floor'; Help: ''; c: '.'; col: white; attrz: 20),
    (TypeName: 'Grass'; Help: 'Трава'; c: ','; col: lightgreen; attrz: 20),
    (TypeName: 'Floor_water'; Help: 'Лужа воды'; c: '.'; col: LightBlue; attrz: 0),
    (TypeName: 'Floor_blood'; Help: 'Лужа крови'; c: '.'; col: Red; attrz: 0),
    (TypeName: 'Water'; Help: 'Вода'; c: '='; col: LightBlue; attrz: 5),
    (TypeName: 'Blood'; Help: 'Кровь'; c: '='; col: red; attrz: 5),
    (TypeName: 'Boloto'; Help: 'Болото'; c: '='; col: lightgreen; attrz: 5),
    (TypeName: 'Door'; Help: 'Дверь'; c: '*'; col: Brown; attrz: 38),
    (TypeName: 'Door_open'; Help: 'Открытая дверь'; c: '%'; col: Brown; attrz: 36),
    (TypeName: 'Mountain'; Help: 'Гора'; c: '^'; col: brown; attrz: 39),
    (TypeName: 'Box'; Help: 'Ящик'; c: '#'; col: brown; attrz: 43),
    (TypeName: 'Rock'; Help: 'Камень'; c: '#'; col: LightGray; attrz: 23),
    (TypeName: 'Corpse'; Help: 'Труп'; c: '&'; col: Red; attrz: 32),
    (TypeName: 'Corpse_examined'; Help: 'Труп'; c: '&'; col: LightRed; attrz: 32),
    (TypeName: 'Skeleton'; Help: 'Скелет'; c: '&'; col: LightGray; attrz: 32),
    (TypeName: 'Skeleton_examined'; Help: 'Скелет'; c: '&'; col: DarkGray; attrz: 32),
    (TypeName: 'Global_exit'; Help: 'Выход из локации'; c: '.'; col: LightMagenta; attrz: 0),
    (TypeName: 'Global_exit_fiction'; Help: 'Выход из локации'; c: '.'; col: Magenta; attrz: 3),
    (TypeName: 'Ground'; Help: 'Земля'; c: '.'; col: DarkGray; attrz: 16),
    (TypeName: 'Entrace'; Help: 'Вход в поселение'; c: '$'; col: red; attrz: 4),
    (TypeName: 'Readable'; Help: 'Дневник'; c: '='; col: white; attrz: 32),
    (TypeName: 'Barrel'; Help: 'Бочка'; c: '0'; col: green; attrz: 41),
    (TypeName: 'Litter_land'; Help: 'Куча мусора'; c: ':'; col: darkgray; attrz: 39),
    (TypeName: 'Litter'; Help: 'Куча мусора'; c: ':'; col: brown; attrz: 39),
    (TypeName: 'Richag'; Help: 'Рычаг'; c: '\'; col: brown; attrz: 4),
    (TypeName: 'Richag_2'; Help: 'Рычаг'; c: '/'; col: brown; attrz: 4),
    (TypeName: 'Teleportator'; Help: 'Телепортатор'; c: '0'; col: magenta; attrz: 4),
    (TypeName: 'CameraTerminal'; Help: 'Терминал камер охраны'; c: ']'; col: brown; attrz: 4),
    (TypeName: 'Terminal'; Help: 'Терминал'; c: '{'; col: brown; attrz: 4),
    (TypeName: 'Statue'; Help: 'Статуя'; c: '"'; col: LightGray; attrz: 21),
    (TypeName: 'WoodBridge'; Help: 'Деревянный мост'; c: '='; col: $002E639E; attrz: 20),
    (TypeName: 'WoodPlat'; Help: 'Деревянная платформа'; c: '='; col: $003169A8; attrz: 20),
    (TypeName: 'Sand'; Help: 'Песок'; c: '.'; col: $002CD3FE; attrz: 20),
    (TypeName: 'Road'; Help: 'Дорога'; c: '.'; col: $004992B4; attrz: 20),
    (TypeName: 'Empty'; Help: ' '; c: ' '; col: $00000000; attrz: 21),
    (TypeName: 'Poison'; Help: 'Неизвестная отрава'; c: '='; col: lightgreen; attrz: 5),
    (TypeName: 'Trap'; Help: 'Ловушка'; c: '^'; col: LightGray; attrz: 16),
    (TypeName: 'Asphalt'; Help: 'Асфальт'; c: '.'; col: $00727474; attrz: 20),
    (TypeName: 'Grave'; Help: 'Надгробная плита'; c: '+'; col: LightGray; attrz: 21),
    (TypeName: 'Bush'; Help: 'Куст(л)'; c: '*'; col: LightGreen; attrz: 20),
    (TypeName: 'Bush2'; Help: 'Куст'; c: '*'; col: Green; attrz: 20)
  );

  SpecLocsCount = 1;
  SpecLocs: array[1..SpecLocsCount] of TSpecLoc =
  (
    (locname: 'village'; level: 1; x: 12; y: 6; aType: 'shuttle'; anX: 0; anY: 0)
  );

  SpecialLocsArrLen = 1;
  SpecialLocsArr: array[1..SpecialLocsArrLen] of TSpecialLocation =
  (
    (location: 'map_from'; level: 0; res: 'map_to'; cx: 20; cy: 20)
  );

  PassArr: array[1..3] of string =
  (
    'God', 'Love', 'Sex'
  );

  CoordsCount = 2;
  CoordsArr: array[1..CoordsCount] of TLocation =
  (
    (
      LocName: 'main'; oldCoordX: 4; oldCoordY: 4;
      text: 'Деревушка на дороге'; locNext: 'soya';
      coordX: 99; coordY: 22
    ),
    (
      LocName: 'village'; oldCoordX: 77; oldCoordY: 3;
      text: 'Спуск в темноту'; locNext: 'gogo';
      coordX: 0; coordY: 0
    )
  );
  PrisonNamesCount = 1;
  PrisonNames: array[1..PrisonNamesCount] of TPrisonName =
  (
    (
      LocName: 'village'; x: 12; y: 6;
      PrisonName: 'Заброшенный подземный комплекс';
    )
  );
  MinFarmer = 1;
  MaxFarmer = 5;
  MinBomzh = 6;
  MaxBomzh = 10;
  RandomPhrases: array[1..10] of string =
  (
    'Приветствую в нашей деревне! Нечасто у бывают гости.',
    'Доброго пути, странник! Рады видеть вас здесь.',
    'Поговорите с Джеком, его дом на востоке деревни.',
    'Джек просто одержим своей идеей, с каждым годом он все больше думает об этом.',
    'Извините, я не прочь поболтать с вами, но сейчас у меня есть дела поважнее.',
    'Не верь Джеку, он просто сумасшедший, который живет только ради одной вещи!',
    'Ты дурак, если веришь этому сумасшедшему старосте.',
    'Посмотри на меня. Джек отправил меня в это подземелье, и я просто чудом унес    ноги оттуда.',
    'Я опустился до такого состояния только благодаря сумасшедшему старосте.',
    'У тебя не найдется чего - нибудь, чтобы промочить горло?'
  );

  StrIndexCount = 1;
  StrIndexArr: array[1..StrIndexCount] of string =
  (
    'Взрывоопасная бочка и пистолет с одним патроном...'
  );

implementation




end.
