home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / CEL141.ZIP / CEL141C.ZIP / TOOLKIT.ZIP / SETUP.PAS < prev    next >
Pascal/Delphi Source File  |  1992-08-14  |  12KB  |  381 lines
  1.  
  2. type
  3.   setuptype=record
  4.     {Tracking Info}
  5.     Version: word;         {version code: format = 138}
  6.  
  7.     DummyLong1: longint;
  8.     DummyByte1: byte;
  9.  
  10.  
  11.     SerialNum: string[5];
  12.  
  13.         {System Info}
  14.         sysop_name,             {sysop's handle * UNUSED AS OF 1.40 * }
  15.     longname,              {full BBS name}
  16.     shortname: string[80]; {short BBS name}
  17.     acronym: string[3];    {3-letter acronym}
  18.     bbscity,               {city of BBS}
  19.     BbsState,              {state / province / country}
  20.     telenumber,            {Phone #}
  21.     sys2name,              {Name for System 2}
  22.     sys3name: string[30];  {Name for System 3}
  23.  
  24.         {System Options}
  25.  
  26.         { systemtoggles : Word; Checkbox}
  27.             allowdoors,         {1}
  28.             allowfat,           {2}
  29.             StrictPhone,        {4}
  30.             SyslogProtect,      {128}
  31.             usevoice,           {8}
  32.             soundblaster,       {16}
  33.             autologin: boolean; {32}
  34.             
  35.  
  36.         SupportedRates : Word; {Checkbox}
  37.  
  38.         systemtype : Word;  {Radiobuttons}
  39.         { BBS       = 0
  40.             CAE       = 1
  41.             CAE/TAC   = 2
  42.             Alacrity  = 3}
  43.         systemspeed : Word;  {Radiobuttons}
  44.         { 80486 =0
  45.             80386 =1
  46.             80286 =2
  47.              8086 =3}
  48.  
  49.  
  50.         bbsnode : integer; {NumInputline}
  51.         mintimeout : integer; {NumInputline}
  52.  
  53.         {==Look and Feel==}
  54.         {LookToggles: word;}
  55.         UserTopTenDisable,
  56.         UseTopTen,
  57.         UseRumor,
  58.         KeyFlash,
  59.         FreeDownloads: boolean;
  60.  
  61.         WaitText: string[80];
  62.         PromptForm: string[80];
  63.         AnonymousStr: string[30];
  64.     DotChar: string[1];
  65.         DefHelpLevel: integer;
  66.  
  67.         {Serial Port }
  68.         uart16550: boolean;
  69.         PortDelay,          {Compensate for slow I/O cards}
  70.     ComPortSelect,      {Radio Button com port select...}
  71.         UseCom,                            {Com Port}
  72.         ComInt,                            {Com Interrupt}
  73.         IRQ,
  74.         InBuffer,
  75.         OutBuffer: Integer;
  76.         BaseAddr: string[10];
  77.     LockedDTERate: word;
  78.  
  79.         {Modem Setup}
  80.         {OffhookToggles : Word; Checkbox}
  81.         LockDTERate,                {Lock the DTE rate}
  82.         OffHookSysop: boolean;            {pick up line when sysop goes local}
  83.         ModemSetupStr,                            {Inputline}
  84.         ModemHangupStr,                             {Inputline}
  85.         ModemDialPrefix,                        {Inputline}
  86.         ModemDialSuffix :String[80];{Inputline}
  87.         {modemlist : TListboxRec;  Listbox}
  88.         ModemType,                    {*** Was HSTTYPE  }
  89.         NumRings,                                        {Answer on Ring Number}
  90.         ConnectDelay : integer;       {Delay Before connecting}
  91.  
  92.         {Video Options}
  93.         Monochrome,                  {Mono system}
  94.         UseEGA,                                    {25 or 43/50 line}
  95.         CelerityAnsi,                        {Use internal ansi filter}
  96.         ScreenSaver: boolean;        {Use the WFC screen saver}
  97.  
  98.         {Xfer Options}
  99.         UploadFactor,
  100.         PointVal,
  101.         Maxloan,
  102.         Commission,
  103.         ULpercent: Integer;
  104.         {Deleted var for New Point Value}
  105.  
  106.     DownLoadRates: word;    {bit map of what baud rates allow dl.}
  107.  
  108.         UserDLcost,                            {can users decide dl cost?}
  109.         UseFPS,                 {Use the file point system?}
  110.         AutoValidate,                        {Should new files be autovalidated}
  111.         Process,                                {Should comment.bat run to process zips?}
  112.         UseBackupDir,                        {Should there be backup dirs in xfer?}
  113.         AllowRequest,                        {Allow user requests for Offline files?}
  114.         FilePW,                                    {Can users attach file passwords to u/ls?}
  115.  
  116.         PickyDesc,                            {Use picky file descriptions?}
  117.         Files_Progname,                    {Use program name in file listing?}
  118.         Files_OfWhat,                        {Use disk numbers in files listing?}
  119.         Files_Descript: boolean;{Use file descriptions??}
  120.  
  121.     {Conferences}
  122.     UseConf: boolean;        {use conferences?}
  123.     ConfNames: array[1..5] of string[30];
  124.     XferConfNames: array[1..5] of string[30];
  125.  
  126.  
  127.         {Passwords}
  128.         sysoppass,                                             {Sysop Password}
  129.         pagepass: String[10];                     {Emergency Chat Password}
  130.         systempassword,                                 {Login p/w for system1}
  131.         system2password,                                {Login p/w for system2}
  132.         system3password,                                {Login p/w for system3}
  133.         newuserpass,                                         {Application p/w for new users}
  134.         lockoutpass : String[30];             {Restricted Baud Lockout p/w}
  135.  
  136.         {Chat Options}
  137.         AvailStr,
  138.         NotAvailStr,
  139.         Appear,
  140.         DisAppear: String[80];
  141.         ObnoxChat: boolean;                {Use the Obnoxious Chat??}
  142.  
  143.       {Login Shell}
  144.     LoginString: String[80];    {Text to be displayed if not Connent at xxx}
  145.     UseTermDetect: boolean;        {Use Ansi/Avatar/VT100 terminal detection}
  146.     ShellType:word;                        {1=No Shell, 2= Menu, 4=Dos Emulator,}
  147.                                                         {8=Unix Emulator, 16=Lightbar, 32=External}
  148.  
  149.  
  150.         {Pathnames}
  151.         BBSdir,                    {path to bbs files}
  152.         XferDir,                {path to temp xfer area}
  153.         NodeDir,                {path to node specific files}
  154.         NodeChatPath,        {common internode directory}
  155.         TextDir,                {paht to message base files}
  156.         BoardDir,                {path to subboard data, xfer section files}
  157.         TextFileDir,        {path for infoforms, etc...}
  158.         NetDir,                    {path for all network files}
  159.         DoorDir,                {path for Door batch files}
  160.         SoundDir,                {path for SoundBlaster files}
  161.         NewUserUploadDir: String[127];        {path for new user uploads }
  162.  
  163.         editor,                                    {full pathname of text editor}
  164.         AnsiEditor: string[80];    {full pathname of ansi editor}
  165.  
  166.     {Network Options}
  167.         {netToggles : Word; Checkbox}
  168.     UseNet,                        {Use Celerity Net}
  169.     NetHost,                    {Is the system the Celerity Net HOST?}
  170.     NetHub:boolean;        {Is the system the Celerity Net HUB?}
  171.  
  172.         netnode : String[6];     {Network Node Code}
  173.         netpass : String[80];     {Network Password}
  174.         hubnum : longint;             {Hub ID code}
  175.         netbegin : String[8];     {*** Change to packtime? Net call start time}
  176.         netend : String[8];         {*** Change to packtime? Net call end time}
  177.         hostphone : String[30]; {Network HOST/HUB phone number}
  178.         extender : String[80];  {Dialing Extender, Calling card, etc..}
  179.         originline : String[80];{Network origin line}
  180.  
  181.         {netfeatures : Word; Checkbox}
  182.         FeatureA,
  183.         FeatureB,
  184.         FeatureC,
  185.         FeatureD,
  186.         FeatureE,
  187.         FeatureF,
  188.         FeatureG,
  189.         FeatureH,
  190.         FeatureI,
  191.         FeatureJ: boolean;
  192.  
  193.  
  194.         {Timed Events}
  195.         {*** These types may (will) change.  Perhaps packtime...}
  196.     {*** They used to be sstr.  }
  197.         TimeRestStart,                         {Time for restricted hours to begin}
  198.         TimeRestEnd,                             {Time for restricted hours to end}
  199.         AvailTime,                                 {What time is the sysop available for chat}
  200.         UnavailTime,                             {What time will the sysop not be available}
  201.         EventTime,                       {time to run even batch file}
  202.         EventBatch,                  {name of event batch file to run}
  203.         BackTime: String[8];             {time to run backup.bat}
  204.  
  205.     {Login Commands}
  206.     ShellCom: array[1..9] of string[10]; {Various Shell Commands}
  207.  
  208.     {Infoforms}
  209.     Infoname:array[1..5] of String[30]; {Names of infoforms 1-5}
  210.     ForceForm:Array[1..5] of boolean;        {Force user to fillin form x?}
  211.     InfoLvl:array[1..5] of integer;            {Min user level to access form}
  212.     InfoMax:array[1..5] of Integer;            {Max user level to access form}
  213.  
  214.     {New User Options}
  215.     private,                            {Refuse all new users?}
  216.     HangNewUsers,                    {Hang up after a new user applies?}
  217.     RequireUpload,                {Require new user ul a program with application?}
  218.         CopyNewUserUpload,    {Save actual new user upload?}
  219.         RequireFeedback,      {Make new users leave feedback??}
  220.         UseAddress: Boolean;  {Will prompt user for address.}
  221.  
  222.     NewUserLvl,                        {Level for new users}
  223.     DefUDLevel,                        {File Xfer level for new users}
  224.     DefUDPoint:integer;        {File Xfer points for new users}
  225.  
  226.     NewUserNote: string[30]; {User note for new users.}
  227.  
  228.     {New User Voting}
  229.     NewUserVoting,                {Enable new user voting system}
  230.     AutoNUV: boolean;            {Auto Validate/Delete new user base on vote?}
  231.  
  232.     YesVote,                            {Number of Yes vote to validate}
  233.     NoVote,                                {Number of NO votes to delete user}
  234.     NuvLvl,                                {Level required to access NUV system.}
  235.     Forcevote: integer;        {Users above this level will be forced to do NUV}
  236.  
  237.  
  238.     {Local Users}
  239.     LocalLockout: boolean;{Use the Local user lockout?}
  240.     LocalPercent: Integer;{What percent of local uses will be allowed?}
  241.     LocalMSG: string[80]; {LUL rejection message.}
  242.  
  243.     {QuickValidate}
  244.     QvalLvl,                            {Level to assign quick validated user}
  245.     QvalXfer,                            {Xfer Level to assign quick validated user}
  246.     QvalXP: integer;            {Xfer Points to assign quick validated user}
  247.  
  248.     QvalNote: string[30];    {User Note to assign quick validated user}
  249.  
  250.         QvalMsgCon,
  251.         QvalXferCon,
  252.         BasicMsgCon,
  253.         BasicXferCon: array[1..5] of boolean; {Allow QVAL for conference X}
  254.  
  255.  
  256.     {Access Levels}
  257.     LogonLvl: integer;        {Level required to enter BBS}
  258.  
  259.     UserTime: array[1..10] of integer; {User time/day/level}
  260.  
  261.     SysopLevel,                        {Level required for cosysop activities}
  262.     AnonymousLevel,                {Level to post anonymous}
  263.     PostLevel,                        {Level to post a bulletin}
  264.     AutoMsgLvl,                        {Level to leave automessage}
  265.     TimeRestLvl,                    {Level required to log on during restrict hours}
  266.     ReadAnonLvl,                    {Level need to see name of anon poster}
  267.     ListUserLvl,                    {Level to get a userlist}
  268.     ListLastLvl,                    {Level to see list of recent callers}
  269.     ListXferLvl,                    {Level to see list of xfer activity}
  270.     SyStatLvl,                        {Level to see system status}
  271.     SysHistLvl,                        {Level to see system history}
  272.     TopTenExempt,                    {Level for exclusion from Top Ten}
  273.     LoanLev:integer;            {Level needed to make a file point loan}
  274.  
  275.     {User Ratios}
  276.     XferPcr,                    {Default pcr needed for xfer}
  277.     PCRExempt,                {Level to exempt from PCR}
  278.     UDRatio,                    {Default UD ration needed to download}
  279.     UDExempt,                    {Level to exempt from UD ratio}
  280.     GenRatio,                    {Required average of UDR and PCR}
  281.     GenExempt:integer;{Level to exempt for General Ratio}
  282.  
  283.     {Colors}
  284.     Color1,
  285.     Color2,
  286.     Color3,
  287.     Color4,
  288.     Color5,
  289.     Color6,
  290.     Color7,
  291.         Color8,                                {Attribute type....  Various color settings}
  292.         SysopToolColor,                {Color for sysop tools}
  293.         StatLineColor,             {Color of status Line}    {End of 1.38 record}
  294.  
  295.         SysopToolHigh,
  296.  
  297.         WFC_Back,                            {Wait for call colors}
  298.         WFC_Text1,
  299.         WFC_Text2,
  300.         WFC_Panel1,
  301.         WFC_Panel2,
  302.         WFC_Border,
  303.  
  304.         PopupColor,
  305.         LightBarColor: byte;
  306.  
  307.         {pathnames}
  308.         ArtDir,                   {Ansi Art Gallery directory}
  309.         MenuDir:    String[127];    {Directory for menus ONLY}
  310.  
  311.         {Network Options}
  312.         netbegin2,                         {2nd Net call start time}
  313.         netend2 : String[8];     {2nd Net call end time}
  314.  
  315.         {Look and Feel}
  316.         AlacrityMenus,                 {Use Alacrity-style menus}
  317.         AllowMasterFile,                {Allow creation of a master file creation}
  318.         SoundEffects: boolean;  {Use sound effects.  }
  319.  
  320.         {Misc}
  321.         BozoFilter: byte;  {unused}
  322.  
  323.         {New Path item}
  324.         FileMailDir    : String[127];    {path for Email uploads}
  325.  
  326.         {FidoNet Data}
  327.  
  328.         fidoLocalAttribute,
  329.         fidoDelSentMsg,
  330.         fidoDelTossedMsg,
  331.         fidoSetCrash,
  332.         fidoSetPrivate,
  333.         fidoSetHold,
  334.         fidoSetLocal,
  335.         fidoFlag8    :    boolean;
  336.  
  337.         fidoAddress    :    string[15];    {Zone:Net/Node/Point Address}
  338.         fidoOrigin    : string[80];    {Fidonet origin line}
  339.  
  340.         {Addition Modem Connect Stings}
  341.         connectStr : array[1..13] of string[15];
  342.  
  343.         {More Look and Feel}
  344.         UserNoteEdit,
  345.         AllowHandles,
  346.         UseNuaVmb    : boolean;
  347.  
  348.         {New Login Shell Command Prompt}
  349.         ShellPrompt    : string[80];
  350.  
  351.         {Standard DSZ Protocol}
  352.         DSZexe: string[12];
  353.  
  354.         {Shell Upload Pass}
  355.         ShellUploadPass: string[10];
  356.  
  357.         Sequence: array[1..20] of Record
  358.             order: byte;
  359.             name: string[12];
  360.             options: byte;
  361.             end;
  362.  
  363.     {More access levels}
  364.     ArtGalleryLvl,          { Level to upload Art to Art Gallery }
  365.     QwkAccessLvl,           { Level needed to enter QWK section }
  366.         SLevExpired,                  { SLevel to change an expired account to}
  367.         XLevExpired: integer;   { XLevel to change an expired account to}
  368.  
  369.     {More look and feel}
  370.     HeaderFormat,           { Radio buttons for header format }
  371.     UnusedLF,               { free for future expansion }
  372.         UnusedLF2:Word;
  373.         PauseString: String[80];
  374.  
  375.  
  376.         {New Password Entry}
  377.         LowSpeedNewUserPass : string[10];
  378.  
  379.     end; {Setup Record}
  380.  
  381.