misc/USEREDIT.PAS

{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Program Knocka_Edit;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Uses
  crt,dos,skaShit,configRt,textUnit,genTypes,subs1,subs2,genSubs;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Type
 uDataRec = record
            totalUsers     : word;
            currentUser    : word;
            currentBar     : byte;
            lastBar        : byte;
            end;
{$I .\ART\USERED.ART}{::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Const
 uVersion = '1.01 test 1';
 uRelease = '??/??/??';
 uPullBar : array[1..44] of char = (
 '/','A','B','C','D','E','F','G','H','I','J','K','L','M','^','[','N','O','P','Q','S',
 'T','U','V','W','X','Y','Z','$',']','0','1','2','3','4','5','6','7','8','9','!','@',
 '#','%');
 uPullPos : array[1..44,1..2] of byte = (
 (01,10),(01,11),(01,12),(01,13),(01,14),(01,15),(01,16),(01,17),(01,18),(01,19),(01,20),(01,21),(01,22),
 (01,23),(01,24),(35,10),(35,11),(35,12),(35,13),(35,14),(35,16),(35,17),(35,18),(35,19),(35,20),(35,21),
 (35,22),(35,23),(35,24),(59,10),(59,11),(59,12),(59,13),(59,14),(59,15),(59,16),(59,17),(59,18),(59,19),
 (59,20),(59,21),(59,22),(59,23),(59,24));
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Var
 uData : uDataRec;
 uInfo : userRec;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure uReadUser(uNum : word);
var uF : file of userRec;
 begin
 assign(uF,cfg.datadir+'USERS.');
 reset(uF);
 uData.totalUsers  := fileSize(uF)-1;
 uData.currentUser := uNum;
 seek(uF,uNum);
 read(uF,uInfo);
 close(uF);
 end;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure uDisplayInfo(scrn : byte);
 begin
 if (scrn=1) then
  begin
  gotoxy(15,10);skawrite('|03'+strr(uData.currentUser)+'|07/|03'+strr(uData.totalUsers));
  gotoxy(12,11);skawrite(uInfo.handle);
  gotoxy(14,12);skawrite(uInfo.realName);
  gotoxy(14,13);skawrite(uInfo.password);
  gotoxy(14,14);skawrite(uInfo.phoneNum);
  gotoxy(11,15);skawrite(uInfo.flags);
  gotoxy(15,16);skawrite(strr(uInfo.Level));
  gotoxy(14,17);skawrite(uInfo.sysopNote);
  gotoxy(14,18);skawrite(uInfo.privateNote);
  gotoxy(15,19);skawrite(uInfo.birthDate);
  gotoxy(12,20);skawrite(uInfo.skillz);
  gotoxy(12,21);skawrite(uInfo.aphilz);
  gotoxy(13,22);skawrite(uInfo.computer_type);
  gotoxy(12,23);
   if (length(uInfo.prompt)>23) then skawrite(copy(uInfo.prompt,1,23)+' |15>|03') else
                skawrite(uInfo.prompt);
  gotoxy(17,24);skawrite(strr(uInfo.numOn));
  gotoxy(47,11);skawrite(strr(uInfo.maxQwk));
  gotoxy(49,12);skawrite(strr(uInfo.dailyKBlimit));
  gotoxy(47,13);skawrite(strr(uInfo.lastOn));
  gotoxy(50,14);skawrite(strr(uInfo.timBank));
  gotoxy(50,16);skawrite(strr(uInfo.timeToday));
  gotoxy(47,17);skawrite(strr(uInfo.upLoads));
  gotoxy(49,18);skawrite(strr(uInfo.downLoads));
  gotoxy(49,19);skawrite(strr(uInfo.udLevel));
  gotoxy(50,20);skawrite(strr(uInfo.udPoints));
  gotoxy(48,21);skawrite(strr(uInfo.timePerDay));
  gotoxy(52,22);skawrite(strr(uInfo.displayLen));
  end;
 end;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure uInitProc;
begin
clrscr;
readCfg(false);
move(main,mem[$b800:0000],sizeof(main));
uReadUser(1);
uDisplayInfo(1);
end;

begin
uInitProc;
end.