home *** CD-ROM | disk | FTP | other *** search
/ synchro.net / synchro.net.tar / synchro.net / main / BBS / FDFP_092.ZIP / freedoor.inc < prev    next >
Encoding:
Text File  |  2000-07-24  |  2.2 KB  |  67 lines
  1. const
  2.   isLocal : Boolean = False;         { Are we running Local Only? }
  3.   isStats : Boolean = True;          { Is the status bar dislplayed? }
  4.   FirstTime : Boolean = True;        { Has the status bar been drawn yet? }
  5.  
  6.   isExtended : Boolean = False;      { Is the current input char Extended }
  7.  
  8.   DropType : Byte = 0;               { 0 = local
  9.                                        1 = door.sys
  10.                                        2 = door32.sys }
  11.  
  12.   StatFore  : Byte = $0F;
  13.   StatBack  : Byte = $01;
  14.   PAUSE_STRING  : String = '`0A<PAUSE>'; {Modify this!}
  15.  
  16.   ASCII_GRAPH   : Integer = 0;
  17.   ANSI_GRAPH    : Integer = 1;
  18.   AVT_GRAPH     : Integer = 2;
  19.   RIP_GRAPH     : Integer = 3;
  20.   MAX_GRAPH     : Integer = 4;
  21.  
  22. { User record, this is where info from dropfiles is stored }
  23.  
  24. Type TUserInfo = Record
  25.   RealName  : String;
  26.   Handle    : String;
  27.   CityState : String;
  28.   ACS       : LongInt;
  29.   TimeLeft  : LongInt;
  30.   TotalTime : LongInt;
  31.   ComPort   : LongInt;
  32.   ConnType  : Byte;                {0 = local, 1 = modem, 2 = telnet}
  33.   Baud      : LongInt;
  34.   Node      : String[3];
  35.   GraphMode : Byte;
  36.   DropFile  : String;
  37.   DropType  : Byte;
  38.   {Available only when DOOR32.SYS is used}
  39.   BBSID     : String;              {BBS name and version, ie: "Mystic 1.07"}
  40.   RecPos    : LongInt;             {User record position in BBS data file}
  41. end;
  42.  
  43. (* Not used yet *)
  44. Type TMenu = Record
  45.   Title     : String[20];                 { Title of menu }
  46.   HiFore    : Byte;                       { Highlight Colours }
  47.   HiBack    : Byte;
  48.   MnuFore   : Byte;                       { Menu Colours }
  49.   MnuBack   : Byte;
  50.   NumOpts   : Integer;
  51.   DfltOpt   : Integer;                    { Number of Default Option }
  52.   Options   : Array[1..20] of String[20]; { Max 20 Options }
  53. end;
  54.  
  55. Type TTime = Record
  56.   Hours : word;
  57.   Minutes : word;
  58.   Sec : word;
  59.   MSec : word;
  60. end;
  61.  
  62. Var
  63.   DoorStartTime : LongInt;              { Store Time in seconds when door started }
  64.   LastTime      : LongInt;              { Used for UpdateStatBar }
  65.   UserInfo      : TUserInfo;            { User info variable }
  66.   STime         : TTime;                { Door system variables }
  67.