{
infusion bbs user init file ..
}
Program UserInit;
uses skashit,configrt,gentypes,gensubs,crt,dos;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Const
newyes : string = '|B1|15 yups |08|B0 nope ';
newno : string = '|B0|08 yups |15|B1 nope ';
yesstr = '|09y|01upperz@!!';
nostr = '|09n|01opperz!@!';
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Var
uDoIt : boolean;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
function yesno(x,y : integer;vartocheck : boolean) : boolean;
var ak47 : char;ecsit : boolean;
begin
begin gotoxy(x,y);if (vartocheck = true) then skawrite(newyes)
else skawrite(newno);end;
repeat
ak47 := bioskey;
case ak47 of
#27 : ecsit := true;
#13 : ecsit := true;
#203..#205 : begin
if vartocheck = true then begin
gotoxy(x,y);
skawrite(newno);
vartocheck := false;
end else if vartocheck = false then begin
gotoxy(x,y);
skawrite(newyes);
vartocheck := true;
end;
end;
end;
until ecsit = true;
if vartocheck = true then begin gotoxy(x,y);skawrite(yesstr+'|B0 '); yesno := true end else
begin gotoxy(x,y);skawrite(nostr+'|B0 '); yesno := false;end;
end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure uExistCheck;
begin
skawrite('|08■ |07Infusion has detected that a current user base already exists...|CR');
skawrite('|08■ |07Please verify the creation of a new userbase .. all old users will be|CR');
skawrite('|08■ |07purged ... |CR|CR');
coolwrite('init_check','re-init userbase - ');
yesno(whereX,whereY,uDoIt);
end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure uMakeNew;
begin
end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure uTerminateProc;
begin
end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure uAbortShow;
begin
end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure uInitProc;
var x : byte;
begin
clrscr;
skawrite('|08-- |07Infusion Bulletin Board System - Users Datafile Initialization Utility|CR');
skawrite('|08-- |07(C)Copyright Grant Passmore / Infusion Development 1998|CR');
for x := 1 to 80 do skawrite('|08─');
readCfg(false);
if exist(cfg.datadir+'USERS') then uExistCheck else uDoIt := true;
if (uDoIt=true) then uMakeNew else uAbortShow;
end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
begin
uInitProc;
uTerminateProc;
end.