{$I DIRECT.INC}
{
Infusion Bulletin Board Software, (c)Copyright Grant Passmore 1997-98
Record structures / development package
Note - I tried my best to comment these, if you need help
dont hesitate to contact me!
Support : skaboy101@mindless.com
}
unit GenTypes;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
interface
uses dos;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Const
No_Modem : boolean = false; { is nullmodem active }
VersionNum = '1.99a01'; { version number of release }
ReleaseDate = '10/04/2003'; { date build was released }
Platform = 'DOS'; { platform for release }
HeadBbs = 'pepto bismol'; { name of whq system }
HeadNumber = '281-565-XXXX'; { phone number of whq system }
Registered = true; { registration status (obselete)}
CoolVerNum = '1.99'; { version number for taglines }
Version = 'Infusion BBS'; { version name for taglines }
MaxMessageSize = 100; { max lines in 80xXXX message }
MaxLastCallers = 20; { max last callers before reset }
MaxTopics = 10; { max topics for voting on }
MaxCats = 10; { max catalogs for msgs }
MaxCatalogSize = 50; { max size for each msg catalog }
MaxGroupSize = 50; { max size for msg groups }
MaxSysLogDat = 125; { max entries in system logs }
MaxSysLogSize = 1000; { max size of system logs }
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
BreakOutChar = 0; { control break }
ChatChar = 60; { function key #1 }
SysopComChar = 59; { function key #2 }
VertChatChar = 61; { function key #3 }
LineChat = 62; { function key #4 }
SysNextChar = 65; { function key #7 }
TimeLockChar = 66; { function key #8 }
InLockChar = 67; { function key #9 }
OutLockChar = 68; { function key #10 }
PrinterEchoChar= 114; { control printscreen }
AvailToggleChar= 30; { alternate a }
BottomChar = 48; { alternate b }
GotoDosChar = 32; { alternate d }
TextTrapChar = 18; { alternate e }
HangUpChar = 35; { alternate h }
NoTimeChar = 37; { alternate k }
LessTimeChar = 38; { alternate l }
MoreTimeChar = 50; { alternate m }
TempSysopChar = 20; { alternate t }
LineNoiseChar = 44; { alternate z }
LeftArrow = 75; { left arrow for lightbars }
RightArrow = 77; { right arrow for lightbars }
UpArrow = 72; { up arrow for lightbars }
DownArrow = 80; { down arrow for lightbars }
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Type AnyStr = string[255]; { string length for max size }
Lstr = string[80]; { string length for large size }
Mstr = string[30]; { string length for mid size }
Sstr = string[15]; { string length for small size }
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
AutoSig = array[1..5] of lstr;{ definition for autosig lines }
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
AccessType = (bylevel, { check access by level }
keepout, { check access by block status }
letin, { check access by unblock status}
invalid); { check access by invalid status}
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
ConfigType = (lowercase, { use only lowercase entry }
eightycols, { display full 80 columns }
linefeeds, { send linefeeds with CR }
postprompts, { show prompts while reading msg}
moreprompts, { show prompt if row == 25 }
asciigraphics, { display only ascii graphics }
ansigraphics, { display ansi/ascii graphics }
udsysop, { is user upload/download sysop }
bulletinsysop, { is user msgbase sysop }
votingsysop, { is user voting sysop }
emailsysop, { is user email sysop }
doorssysop, { is user door sysop }
mainsysop, { is user main system sysop }
databasesysop, { is user database sysop }
wanted, { is user wanted for chat }
hotkeys, { does user use hotkeys }
showtime, { does user want timeleft shown }
vt52, { does user want vt52 emulation }
fseditor, { does user use fullscreen ed }
no_net, { does user block netmail }
no_udsec, { does user block up/dn sections}
no_msgsec, { does user block msg sections }
no_rumors, { does user block rumor sections}
no_email, { does user block email sections}
no_chat, { does user block chat sections }
no_ul, { does user block uploading }
no_dl, { does user block downloading }
usebars, { does user use f/m lightbars }
showrumors, { does user want to see rumors }
Avatar); { does user use avatar emulation}
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
GroupClass = (publicgroup, { can anyone join this group }
privategroup, { can no one join this group }
personalgroup); { is group by invitation only }
Voteset = Array [1..maxtopics] Of Byte;
BoardOrder = Array [0..255] of byte;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
{ note, the user database is
special note on the user system > stored with a null record as
> #1 (filepos 0-525), so always
posted by skaboy (Grant Passmore) > have total users = pred(total)
> and seek 1 record past 0 based
value for reading and writing.
}
Type UserRec = Record { record struct for user. file }
Handle : string[30]; { users handle / username }
Realname : string[40]; { users real name }
Password : string[30]; { users password }
Phonenum : string[15]; { users voice/data line }
SysOpNote : string[35]; { note the sysop sets for him }
PrivateNote : string[50]; { public note used in irc mode }
Prompt : Lstr; { users personal menu prompt }
MaxQwk : Integer; { total qwk before reset }
DailyKBLimit : Integer; { limit of kb download per 24h }
Laston : Longint; { how many days ago was last on }
Timbank : Integer; { total points in timebank }
Numon : Integer; { number of times called }
Timetoday : Integer; { time left today (dynamic) }
NUp : Integer;
Ndn : Integer;
Nbu : Integer;
Uploads : Integer; { number of uploads }
Downloads : Integer; { number of downloads }
Totaltime : Real; { total time on }
Voted : Voteset; { static link to voting struct }
UDLevel : Integer; { upload/download acs level }
UDPoints : Integer; { upload/download points }
Level : Integer; { main user acs level }
TimePerDay : Integer; { time per day allowed online }
EmailAnnounce : LongInt; { total # of emails announced }
Infoform : Array[1..5] of LongInt;
Color1 : Byte; { color #1 definition }
Color2 : Byte; { color #2 definition }
Color3 : Byte; { color #3 definition }
Color4 : Byte; { color #4 definition }
Color5 : Byte; { color #5 definition }
Color6 : Byte; { color #6 definition }
Color7 : Byte; { color #7 definition }
DisplayLen : Byte; { # of display lines (ie, 25) }
Graphics : Byte; { which theme does user utilize }
Config : Set of Configtype; { link to user config struct }
KUp : LongInt; { total # of Kbytes uploaded }
KDown : Longint; { total # of Kbytes downloaded }
UDKratio : Integer; { upload/download k ratio }
UDFratio : Integer; { upload/download file ratio }
Pcr : Integer; { post call ratio }
MsgLength : Integer; { msg lines required for credit }
HackAttempts : Integer; { total attempts at hacking sys }
ListType : Byte;
TimeLock : Boolean; { is time locked for user }
MsgHdr : Byte; { which msg header is used }
DefMsgConf : Byte; { default message conference }
DefFileConf : Byte; { default file conference }
Lastnummsgs : Integer; { # of posts last time on }
Lastnumfiles : Integer; { # of files last time on }
FileList : Array [1..9] of Boolean; { configurable file listing}
DefProto : Char; { default file tran protocol }
Flags : string[26]; { user acs flags }
KDownToday : Longint; { K downloaded today (dynamic) }
InternetName : string[8]; { 8 char idname for i-net email }
AutoSig : LongInt; { pos of autosig in autosig.dat }
Computer_type : string[20]; { type of computer user uses }
aphilz : string[20]; { group affiliations }
skillz : string[20]; { skills as in coding, art, etc }
BirthDate : string[8]; { date of birth (mm/dd/yy) }
End; { end of structure }
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
OneLinerRec = Record { oneliners record structure }
PostedString : string[70]; { the actual one liner }
PostedBy : string[2]; { user that posted it }
End; { end of structure }
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
MinuteRec = Record { system timing structure }
Started : Boolean; { has timer stared yet? }
StartedAt : Integer; { timer tick ID timer started }
Total : Real { total ticks (sec*18.2) }
End; { end of structure }
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
BBSRec = Record { online bbs lister data struct }
Name : string[30]; { system name / bbs name }
Leftby : string[30]; { user who added bbs }
Baud : string[4]; { system baud rate (div 100) }
Phone : string[12]; { system main node phone # }
Ware : string[15]; { system bbs software }
Extended : LongInt; { lines of extended info }
End; { end of structure }
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
UserSpecsRec = Record
Name : string[30];
MinLevel : integer;
MaxLevel : integer;
MinLaston : integer;
MaxLaston : integer;
MinPcr : real;
MaxPcr : real
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
MailPtrRec = Record
TextPtr : Longint;
Deleted : Boolean;
TotalLines : Integer;
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
BoardRec = Record
Boardname : string[30];
Sponsor : string[30];
Postflags : string[30];
Areaflags : string[30];
NetName : string[30];
Level : integer;
Plevel : integer;
Messages : integer;
Autodel : integer;
EchoType : Byte;
Echo : Boolean;
Shortname : sstr;
Address : sstr;
Fido_Dir : Lstr;
Priv : Boolean;
LastScan : Longint;
OriginLine : string[50];
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
BulRec = Record
Title : string[30];
Leftby : string[30];
Sentto : string[30];
Status : string[30];
Realname : string[30];
When : longint;
Line : longint;
Anon : boolean;
Recieved : boolean;
Inf_Net : boolean;
FidoNet : boolean;
Scanned : boolean;
Plevel : integer;
Repnumber : integer;
Origin1 : lstr;
Origin2 : lstr;
Replies : byte;
Id : word
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
MailRec = Record
Title : string[30];
Sentby : string[30];
When : longint;
Anon : boolean;
Read : boolean;
Return : boolean;
SentTo : integer;
FileIndex : integer;
Line : longint;
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
CataLogRec = Record
NumMail : integer;
Additional : integer;
Mail : Array [1..maxcatalogsize] of MailRec
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
GroupRec = Record
Name : string[30];
Class : groupClass;
Creator : integer;
NumMembers : integer;
Members : Array [1..maxgroupsize] of integer;
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Message = Record
Text : Array[1..MaxMessageSize] Of Lstr;
Title : string[30];
SendTo : string[30];
Note : lstr;
Anon : boolean;
NumLines : integer;
Add_AutoSig : boolean;
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
TopicRec = Record
TopicName : lstr;
NumVoted : integer;
AddLevel : integer;
Mandatory : boolean
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
ChoiceRec = Record
Choice : lstr;
NumVoted : integer
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
RumorRec = Record
Title : string[30];
Author : string[30];
Rumor : lstr;
When : longint;
Anon : boolean;
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
LastRec = Record
Name : string[30];
Callnum : Integer;
When : longint;
MinsOn : word;
Baud : Lstr;
AC : string[3]
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
BaseRec = Record
Numcats : integer;
Numents : integer;
Level : integer;
BaseName : string[30];
Catnames : string[255]
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
EntryRec = Record
Data : string[255];
When : longint;
AddedBy : integer
end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
ParsedEntry = Array [1..maxcats] of string[255];
BigDescrip = Array[1..20] Of string[48];
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
UDRec = Record
FileName : string[12];
Path : string[50];
When : longint;
WhenRated : longint;
FileSize : longint;
IndexPtr : word
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
UDIndexRec = Record
Sentby : string[30];
Password : string[30];
Sendto : string[30];
Points : integer;
Descrip : bigDescrip;
DownLoaded : integer;
Crash : boolean;
Newfile : boolean;
SpecialFile : boolean;
Return : Boolean;
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
AreaRec = record
Name : lstr;
XmodemDir : lstr;
Flag : string[30];
Upflag : string[30];
Downflag : string[30];
Sponsor : string[30];
Password : string[30];
Level : integer;
TotalUDs : integer;
Uploads : boolean;
Downloads : boolean;
Leech : boolean
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
WindowRec = Record
X1 : byte;
Y1 : byte;
X2 : byte;
Y2 : byte;
CX : byte;
CY : byte;
Color : byte
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Fib = TextRec;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
LogRec = Record
Menu : integer;
Subcommand : integer;
Param : string[41];
When : longint
end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
SysLogDatRec = record
Menu : integer;
Subcommand : integer;
Text : string[30]
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Newsrec = record
Level : integer;
MaxLevel : integer;
Location : longInt;
From : string[30];
When : longint;
Title : string[28];
Always : boolean;
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
ProtoRec = Record
Letter : char;
Desc : string[30];
ProgName : string[12];
CommFmt : string[60];
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
NuvRec = Record
Who : string[30];
Voters : Array[1..30] of string[30];
Comment : Array[1..30] of string[50];
Votes : Array[1..30] of Boolean;
TotalVoters : byte;
When : longint;
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Node_Rec = Record
Bul : BulRec;
NetIdNum : byte;
Name : sstr;
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
NewScanRec = Record
Name : string[30];
LastRead : Array[0..255] of Word;
NewScanConfig : set of byte;
Access1 : set of byte;
Access2 : set of byte;
FileNewScan : set of byte;
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
MultiNodeRec = Record
Name : string[30];
Status : string[30];
AC : string[3];
Baud : string[20];
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Node_Message = Record
Message : lstr;
Author : string[30];
Receiver : string[30];
When : longint;
NodeFrom : byte;
NukeNode : boolean;
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
ThemeRec = Record
Name : string[30];
TextDir : lstr;
AllowBars : boolean;
MinLevel : integer;
MaxLevel : integer;
E_Flags : string[26];
Identity : byte;
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
DataAreaRec = Record
Name : string[30];
ViewAcs : string[30];
AddAcs : string[30];
Prefix : string[8];
AddAnsi : string[12];
Sponsor : string[30];
AllowAnon : boolean;
DataFile : string[8];
MaxOptions : byte;
AutoDelete : boolean;
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
DataSubRec = Record
Option : sStr;
Length : byte;
DisplayMciCode : string[2];
EntryX : byte;
EntryY : byte;
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
BatchRec = Record
Filename : sstr;
Path : string[50];
By : string[30];
Points : integer;
Mins : real;
Size : longint;
WholeFileName : lstr;
Area : integer;
Filenum : integer;
Conf : byte;
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
BatchList = Array[1..1] of BatchRec;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
NoticeRec = Record
Date : string[8];
Time : string[8];
Note : string[80];
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
DszRec = Record
Code : char;
FileName : string[12];
Path : string[50];
CompleteByte : longint;
Size : longint;
Cps : string[4];
Errors : string[4];
Percent : real;
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
MenuRec = Record
HelpMenu : string[12];
Acs : string[30];
Title : string[20];
Password : sStr;
File_Name : string[8];
FallBack : string[8];
ForceHelpLevel : integer;
ClrScrBefore : boolean;
UsePrompt : boolean;
Prompt1 : lstr;
Prompt2 : lstr;
Mes_Conf : byte;
File_Conf : byte;
Force_HotKey : boolean;
UsePullBar : boolean;
UpKey : byte;
DownKey : byte;
RightKey : byte;
LeftKey : byte;
End;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
CommandRec = Record
IDNumber : byte;
Descrip : string[30];
Keys : sstr;
Command : lstr;
Acs : string[30];
Hidden : boolean;
BarLit : string[50];
BarUnLit : string[50];
BarX : byte;
BarY : byte;
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
CommandArray = Array[1..1] Of CommandRec;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
BaudRateType = (b110,
b300,
b1200,
b2400,
b4800,
b7200,
b9600,
b12000,
b14400,
b16800,
b19200,
b21600,
b24000,
b26400,
b28800,
b31200,
b33600,
b38400,
b57600,
b115200);
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
BaudSet = Set Of BaudRateType;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
const
stringNum = 256; {total # of strings}
BaudArray : Array [b300..b115200] of Word =
(3,
12,
24,
48,
72,
96,
120,
144,
168,
192,
216,
240,
264,
288,
312,
336,
384,
576,
1152);
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
FirstBaud = b300;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
LastBaud = b115200;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
FilesInBatch : Byte = 0;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Type
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
iStr = array[1..5] of string[30];
iInt = array[1..5] of integer;
iTime = array [1..100] of word;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
ConfigSetType = Record { main system configuration record }
TelnetNode : boolean; { is the current node telnet only? }
LongName : string[80]; { main system name, ie "Ray Earth" }
ShortName : string[80]; { system acronym, ie "Re" }
SysopName : string[80]; { sysop handle, ie "Skaboy101" }
InfusionDir : string[80]; { root infusion directory }
TextDir : string[80]; { path for .msg files }
UploadDir : string[80]; { path for ascii uploads (ie msgs) }
BoardDir : string[80]; { path for subboards }
BbsAddress : string[80]; { unused variable, use location }
TextFileDir : string[80]; { path for display files }
DoorDir : string[80]; { path where drop files are created }
DataDir : string[80]; { path for all system data files }
ExtractDir : string[80]; { path for archive extraction }
MenuDir : string[80]; { path for menuing system }
ModemSetupStr : string[80]; { modem initialization string }
ModemHangupStr : string[80]; { modem hangup string }
OffHookStr : string[80]; { modem offhook string }
DefBaudRate : longint; { modem default baudrate divided by 100 }
Boardphone : string[15]; { modem phone number }
UseCom : integer; { modem communications port }
AnonymousLevel : integer; { min level for anonymous posting }
NumWelcomes : integer; { total number of welcome screens }
NumStats : integer; { total number of user stat screens }
NumPrelogon : integer; { total number of prelogon screens }
MinTimeOut : integer; { minutes until user time-out }
SysopLevel : integer; { acs level to be called a "sysop" }
DefUdLevel : integer; { upload/download acslvl for newuser }
DefUdPoints : integer; { upload/download points for newuser }
DefLevel : integer; { acs level for new user }
DefUdRatio : integer; { upload/download ratio for newuser }
DefUdKRatio : integer; { upload/download k ratio for newuser }
DefPcr : integer; { post/call ratio for newuser }
DefMsgLength : integer; { required msg length for newuser }
DefDailyKbLimit: integer; { daily d/l k limit for newuser }
UploadFactor : integer; { upload factor for newuser }
DefFlags : string[26]; { acsflags for newuser }
Private : boolean; { are new users allowed to apply }
AutoLogin : boolean; { is sysop login forced on wfc }
UseConMode : boolean; { is the bios used for screen writes }
EscInMsgs : boolean; { can the user press esc instead of /X }
BkspInMsgs : boolean; { can the user backspace in fse }
MaxDosShell : boolean; { use swapping for dosshell }
UseEms : boolean; { use xms/ems for overlay relocation }
RequiredForms : string[15]; { which infoforms are required }
NuvForm : integer; { which infoform is used for nuv }
InfoFormStr : istr; { descriptions of the infoforms }
InfoFormLvl : iint; { level reqired to fillout infoform }
DotChar : char; { character displayed for password }
BarChar : string[2]; { characters displayed around barmenus }
RumChar : string[2]; { characters displayed around rumers }
SupportedRates : baudset; { supported logon bps rates }
DownLoadRates : baudset; { supported download bps rates }
AvailTime : string[15]; { the time sysop becomes available }
UnAvailTime : string[15]; { the time sysop becomes unavailable }
UserTime : itime; { daily time for acslvls 1..100 }
Level2nd : integer; { secondary user level }
UdLevel2nd : integer; { secondary user upload/download level }
LogonLevel : integer; { minimum level to logon }
AnonymousStr : string[30]; { string displayed when anon post=true }
SystemPassword : string[30]; { password to logon to system }
LowBaudPassword: string[30]; { password if bps isnt supported }
NewUserPassword: string[30]; { password to apply through nuv }
DosPassword : string[30]; { password to drop to dos }
RemoteDoors : boolean; { allow doors to be run remotely }
AllowDoors : boolean; { allow doors period }
eventtime,
eventbatch:sstr;
directvideomode,
checksnowmode : boolean;
defcolor1,
defcolor2,
defcolor3,
defcolor4,
defcolor5,
defcolor6,
defcolor7,
matrixtype:Byte;
ChangeNote : boolean;
DSZLOG:Lstr;
ExemptLevel,
KPerPoint,
MinFreeSpace:Integer;
PointCommision,
TimePercentBack,
PercentLocal : Byte;
UseBox,
FilterQuote,
UseNuv,
AutoADDNuv,
NUVKill,
NUVvalidate:Boolean;
BoxChar:Char;
BoxAbort:Sstr;
NetName:string[30];
NUVY,
NUVN,
NuvUseLevel,
NuvLevel,
NuvUDLevel,
NUVPoints:Integer;
CC:Array[1..8] of Byte; (* Rotating Chat Color *)
MaxMsgConf,
MaxFileConf:Byte;
HangUpOnNew,
UseAutoAnswer:Boolean;
FilePoint,
FilePoints,
AutoAnswerStr:string[30];
ChatCost : integer;
ScreenSave:Byte;
DefBottomline,
DefTopFive,
ExtractCost:Byte;
FidoOrigin:Lstr;
DefUserNote : string[30];
NodeNum : Byte;
TotalNodes : Byte;
NodeDir : Lstr;
Use_One_Liners : Boolean;
DefFidoAddress,
QWKName : SStr;
MaxQuotedLines : Byte;
MaxTimeBank :Integer;
ChatNoise:Boolean;
CDROM:string[26];
AmtMatrix:Byte;
Uploadedbycolor:byte;
ForceDiz:Boolean;
UseMove:Boolean;
iptype: Boolean;
ispphone : string[20];
ispusername : string[10];
isppassword : string[10];
ipaddress : string[16];
nameserver : string[16];
usekbpassword : boolean;
kbpassword : string[16];
regcode1,
regcode2 : string[12];
cosysopname,
location,
defaultwfc : lstr;
multinode,
usefossil,
usenetmodem,
launchnetmodem,
usedun,
redial,
useautoval : boolean;
netmodemdir,
ispsession,
ispdomain : lstr;
totalinfoforms : integer;
exitpassword,
kbunlockpassword,
yesstr,
nostr,
terminalfile : lstr;
yescolor,
nocolor : integer;
screensdir : lstr;
icldir : lstr;
useAnimatedPrompts : boolean;
totalAnimatedPrompts : byte;
modemSetupStr2 : lStr;
modemSetupStr3 : lStr;
genTitleXPos : byte;
genTitleYPos : byte;
genStartXPos : byte;
genCmndsPerLine : byte;
genKeyBoxColor : byte;
genCommandColor : byte;
getKeyBoxChars : array[1..2] of char;
startMenu : string[8];
maxOneliners : byte;
useGifMenus : boolean;
GifMenuDir : string[80];
genGenerate : boolean;
genHeaderFile : string[12];
genMiddleFile : string[12];
genFooterFile : string[12];
genKeyBoxCharz : string[2];
genDescriptionColor : byte;
genKeyColor : byte;
genStartYPos : byte;
genDescriptionPadding : byte;
End;
Type StringRec = Record
ConnectionStr,
LockedBaudStr,
ApplyAsNewStr,
GetNupStr,
ChatRequestStr,
LeaveFBStr,
QuoteMessageStr,
CopyOffCDRom,
Erase5MsgsStr,
ChangeBoardStr,
newscanboardstr,
hanguptransfer,
extra11,
PostOnBoardStr,
MsgTitleStr,
MsgToStr,
UploadMsgStr,
MsgAnonStr,
SlashStr,
QuoteTitle,
NewScanningStr,
ChangeFileAreaStr,
LogOffStr,
ChangeAutoMsgStr,
NewUserNameStr,
CreateAPassword,
Pausestring,
Whatsyouralias,
Whatsyourpw,
Sysopworkingstr,
Sysopindos,
SystemPasswordStr,
Defprompt,
Enterchat,
Exitchat,
QuoteStartLine,
QuoteEndLine,
SysOpIsIn,
SysOpIsOut,
HeaderStr,
Infoform_Prompt,
NewInfoForm_Prompt,
User_Not_Found,
Design_New_Prompt,
Your_Current_Prompt,
Want_HotKeys,
Want_Rumors,
Your_UserNum,
Welcome_NewUser,
Enter_Number_Header,
extra7,
Enter_Number,
Enter_UserNote,
CurFileArea,
Enter_RealName,
ReEnter_Password,
QuoteTop,
QuoteBottom,
Ask_One_Liner,
Enter_One_Liner,
NewScanDateStr,
AddBatchPrompt,
ListUsers,
ViewArchivePrompt,
AreaMsgNewScan,
GetInfoPrompt,
MsgNewScanPrompt,
TypeFilePrompt,
ConfPrompt,
FileListPrompt,
UploadFileStr,
DownloadStr,
ListRange,
ContinueStr,
ViewWhichForm,
Checking_PhoneNum,
Checking_User_Base,
Name_Already_Used,
Invalid_UserName,
Sys_PW_Is,
You_Are_Not_Validated,
You_Have_Mail,
Read_Mail_Now,
Delete_Notice,
There_Is_Feedback,
Read_Feedback,
Login_Now,
New_Users_Are_Waiting,
Vote_On_NewUsers,
AddBBS_Name, {yo baby}
AddBBS_Number,
AddBBS_Baud,
AddBBS_Type,
AddBBS_Upload,
View_Extended_BBS,
Joined_Msg_Conf,
Joined_File_Conf,
BBS_Added,
NUV_Voting_On,
NUV_Yes_Votes,
NUV_No_Votes,
NUV_Comment_Header,
Enter_NUV_Comment,
NUV_Vote_Prompt,
NUV_Yes_Cast,
NUV_No_Cast,
No_NUV_Pending,
Get_Rumor_Title,
Add_Rumor_Anon,
Level_To_See_Rumor,
Enter_Your_Rumor,
Rumor_Added,
Get_Rumor_List,
Carbon_Copy_To,
Mail_Notify,
Send_Mail_To_Who,
Announce_Prompt,
SysOp_Not_Here,
Chat_Request_Will_Cost,
Still_Wanna_Chat,
No_Chat_No_FP,
Use_C_to_Stop_Chat,
Use_C_To_Start_Chat,
Feedback_Sent,
U_Have_Read_Mail,
Delete_Mail_Now,
Current_Mail_None,
List_Current_Mail,
Pick_This_Header,
Show_Title_Or_Range,
No_More_Titles_To_List,
List_Messages_For_You,
Sub_No_Exist,
Msg_NewScan_Aborted,
Msg_NewScan_Prompt,
Msg_Reading_Prompt,
Current_Board_NewScan,
Jump_To_Msg_Number,
Thread_Which_Way,
Adding_Msg_Qwk,
Total_QWK_Sent,
Sending_QWK_Packet,
FileProcessing,
FileChecking,
LoggedOnNodeNum,
Show_Thread_Which_Way,
Auto_Validate_File,
Value_Of_File,
Granting_You_FP,
File_Does_Not_Exist,
Crashed_File,
Bad_Baud_Rate,
Unvalidated_File,
Special_File,
No_Downloads_Here,
Private_File,
Passworded_File,
Wrong_Password,
File_List_Prompt,
Bad_File_Selection,
Untagging_File,
File_NewScan_Prompt,
File_Extract_Prompt,
Bad_UD_Ratio,
Bad_UDK_Ratio,
Bad_K_Limit,
Giving_FP_Credit,
Good_Download,
Crash_Save_File,
Invalid_Upload_Name,
You_Already_Entered_FN,
File_Already_Online,
File_Description,
Extended_File_Setup,
ReEnter_Descrip,
Notify_Download,
Can_Only_Tag_50,
You_Cannot_Download,
File_Already_Marked,
Not_Enough_FP,
Enter_Area_Password,
Internet_yes_or_no,
No_Access_To_Conferences,
enter_new_user_info,
nup_required,
no_more_local_users,
default_sysop_note,
your_group_or_aphilz,
computer_type,
ask_sysop_for_access,
user_number,
access_to_low_to_login,
reenter_name_boolean,
no_system_password,
system_validation_header,
sending_matrix_email,
requesting_matrix_chat_header,
matrix_chat_disabled,
have_problems_send_feedback,
event_coming,
sysop_paging_you,
enter_menu_password,
incorrect_menu_password,
your_time_is_up,
user_in_blacklist,
incorrect_logon_password,
no_bbs_listed,
bbs_list_header,
user_didnt_add_bbs,
no_bbs_description_add_one_boolean,
add_a_bbs_first,
access_to_low_for_function,
do_you_want_screen_pauses,
unable_to_read_file,
list_bbs_how,
time_bank_prompt,
invalid_ammount,
remove_ammount,
add_time_bank,
current_ammount,
no_more_locals,
no_qwk_msgs,
qwk_info_not_exist,
icl_error,
icl_not_found,
icl_done,
invalid_nup,
enter_destination_node,
invalid_node,
user_sent_message2self,
no_user_logged_in,
message_sent,
dont_use_handle_as_password,
passwords_dont_match,
invalid_password,
ansi_required_for_color,
hack_attempt,
save_this_prompt,
no_ansi_in_uc_mode,
no_fse_without_ansi,
nuv_stats_header,
auto_val_on,
auto_val_off,
bad_add_dataarea_acs,
save_data_entry,
{:::::::::::::::::::}
save_to_what_file,
cant_save_to_that_file,
writing_to_file,
include_time_date_header,
file_succesfully_saved,
auto_sig_deleted,
no_auto_sig_to_delete,
auto_sig_information,
no_auto_sig,
users_auto_sig_is,
auto_sig_prompt,
enter_irc_channel,
filler_1,
filler_2,
filler_3 : string[200];
End;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
var ConnectStr : string[255];
BatchDown : ^BatchList;
mCommands : ^CommandArray;
matrix : string[255];
totalsent : longint;
totalrece : longint;
confilesa : word;
notvalida : boolean;
usedvmode : boolean;
crazychat : boolean;
inConfigMode : boolean;
noCr : boolean;
UseHeader : boolean;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
implementation
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
begin
mCommands := nil;
end.