Unit DMAid_G;



interface

{***************************************************************************}

{***************************************************************************}

Uses

  SubProgs;



const

  WinFreqInit: WinArray = (33, 7, 52, 10, 1, 1);

  WinMenuInit: WinArray = (2, 22, 79, 23, 1, 1);

  WinMonInit:  WinArray = (2, 12, 79, 20, 1, 1);

  WinRealTimeInit: WinArray = (35, 4, 51, 5, 1, 1);

  WinRollInit: WinArray = (54, 4, 79, 10, 1, 1);

  WinTimeInit: WinArray = (2, 4, 30, 10, 1, 1);



type

  RandNum = record

              Mul: integer;

              Die: integer;

              Bas: integer;

            end;

  ModeType = (ModeMonster, ModePC);

  MonsterRec = record

                 MonName: string;

                 Num: RandNum;

                 THAC0: shortint;

                 HD: RandNum;

                 Damage: String;

                 XP: longint;

               end;

  MonsterFile = file of MonsterRec;



var

  Chance,

  Die: byte;

  Ink: byte;

  Mode: ModeType;

  TimeUnit: string;

  WinFreq,

  WinMenu,

  WinMon,

  WinPC,

  WinRoll,

  WinRealTime,

  WinTime: WinArray;

  Time_G: longint;

  TimeInk: longint;

  LastCheck: longint;

  OldSec: word;

  RealTime: boolean;



implementation

{***************************************************************************}

{***************************************************************************}



begin

end.