//GOROD=========================================================================

const   maxw=300; //?
                 maxh=300; //?
//----------------------------------------------
type    TUr=record
                        spr:byte;     // Номер спрайта  png 32x32
                        com:byte;     // Команда
                        trp:boolean;  // Проходимость
                        pers:byte;    // Перснж
                        rad:byte;     // Радиация
                        cd1:byte;     // Зарезерв
                        cd2:byte;     // Зарезерв
                        cd3:byte;     // Зарезерв
                 end;
                 TGor=record
                        ur:array[1..5]of TUr;  // этаж, подвал
                 end;
                 TGorod=record
                        Name:string[20];  // Имя города
                        x:integer;       //  коор на карте мира
                        y:integer;       //  коор на карте мира
                        gor:array[1..maxw,1..maxh]of TGor;   // Город
                        zx:integer;      // здвиг
                        zy:integer;      // здвиг
                 end;
//----------------------------------------------
var     g:TGorod;

//PERSONAJ======================================================================

const   maxpers=50; //?
//------------------------------------
type
                 TPpr=record
                       typ:byte;
                       kol:word;
                 end;
                 Tp=record                      
                       typ:byte;
                       name:string[20];
                       str:array[1..3]of string[200]; // бла бла
                       sumk:array[1..7]of TPpr;        // барахло
                       jizn:word;
                       bron:byte;
                       oruj:byte;
                       sp1:byte;    // spr png 32x32 alfa
                       sp2:byte;    // spr png 32x32 alfa zdoh
                       cd1:byte;    // Зарезерв
                       cd2:byte;    // Зарезерв
                       cd3:byte;    // Зарезерв
                 end;
                 TPers=record
                       pers:array[1..maxpers]of Tp;
                 end;
//------------------------------------
var    p:TPers;

//PREDMET=======================================================================

const   maxprdm=50; //?
//------------------------------------
type
                 TPr=record
                       typ:byte;
                       sovm:byte;   // совместимость
                       name:string[40];
                       sum:word;    // $
                       sp1:byte;    // spr png 32x32
                       sp2:byte;    // spr png ?x? mapa
                       kol:byte;
                       cd1:byte;    // Зарезерв
                       cd2:byte;    // Зарезерв
                       cd3:byte;    // Зарезерв
                 end;
                 TPrdm=record
                       prdm:array[1..maxprdm]of TPr;
                 end;
//------------------------------------
var     prdm:TPrdm;

//MAGAZIN=======================================================================
const maxmag=20; //?
//------------------------------------
type
                 TTip=record
                       typ:byte;
                       kol:word;
                 end;
                 TMg=record
                       name:string[20];
                       typ:array[1..20]of TTip;  // предм
                       nacen:byte;               // наценка
                 end;
                 TMag=record
                       mg:array[1..maxmag]of TMg;
                 end;
//------------------------------------
var     m:TMag;
//SHKAF==============================================================================
const   maxsk=40; //?
//------------------------------------
type
                 TSpr=record
                      typ:byte;
                      kol:word;
                 end;
                 TSkp=record
                      spr1:byte;
                      spr2:byte;
                      ok:boolean;
                      zamok:byte;
                      prd:array[1..10]of TSpr;
                 end;
                 TSk=record
                      sk:array[1..maxsk]of TSkp;
                 end;

//------------------------------------
var     sk:TSk;
//GG==============================================================================
type
                 TPgr=record
                      typ:byte;
                      kol:word;
                 end;
                 TGg=record
                      sumk:array[1..20]of TPgr;        // барахло ?
                      jizn:word;
                      sila:byte;
                      gruz:byte;      // груз
                      ustrad:byte;    // уст радиац
                      ustjad:byte;    // уст яды
                      Horj:byte;      // холодное
                      Lorj:byte;      // легкое
                      Torj:byte;      // тяжелое
                      Eorj:byte;      // энерго
                      Morj:byte;      // метателн
                      Dokt:byte;      // лечение
                      Vzlm:byte;      // взлом
                      Torg:byte;      // торг
                      Rem:byte;       // ремонт
                      Sor1:byte;      // слот оружия
                      Sor2:byte;
                      Sor3:byte;
                      Sor4:byte;
                      Sor5:byte;
                      Spt1:byte;      // слот патронов
                      Spt2:byte;
                      Spt3:byte;
                      Spt4:byte;
                      Spt5:byte;
                      Sbrn:byte;      // броня
                      mani:word;      // ?
                      cd1:byte;       // Зарезерв
                      cd2:word;       // Зарезерв
                      cd3:integer;    // Зарезерв
                 end;
//------------------------------------
var     gg:TGg;