eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added additional User variables

This commit is contained in:
mysticbbs 2012-07-24 21:31:54 -04:00
parent c3f58451a3
commit f18c1efef5
2 changed files with 36 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mystic/mpl_common.pas
View File

@ -327,6 +327,10 @@ Begin
AddVar ({$IFDEF MPLPARSER} 'usercalls', {$ENDIF} iLongInt); AddVar ({$IFDEF MPLPARSER} 'usercalls', {$ENDIF} iLongInt);
AddStr ({$IFDEF MPLPARSER} 'userpassword', {$ENDIF} iString, 15); AddStr ({$IFDEF MPLPARSER} 'userpassword', {$ENDIF} iString, 15);
AddVar ({$IFDEF MPLPARSER} 'userflags', {$ENDIF} iLongInt); AddVar ({$IFDEF MPLPARSER} 'userflags', {$ENDIF} iLongInt);
AddVar ({$IFDEF MPLPARSER} 'userfbase', {$ENDIF} iLongInt);
AddVar ({$IFDEF MPLPARSER} 'userfgroup', {$ENDIF} iLongInt);
AddVar ({$IFDEF MPLPARSER} 'usermbase', {$ENDIF} iLongInt);
AddVar ({$IFDEF MPLPARSER} 'usermgroup', {$ENDIF} iLongInt);
End; End;
2 : Begin 2 : Begin
AddPointer ({$IFDEF MPLPARSER} 'cfgsyspath', {$ENDIF} iString, mysMaxPathSize, {$IFNDEF MPLPARSER} @Config.SystemPath {$ELSE} NIL {$ENDIF}); AddPointer ({$IFDEF MPLPARSER} 'cfgsyspath', {$ENDIF} iString, mysMaxPathSize, {$IFNDEF MPLPARSER} @Config.SystemPath {$ELSE} NIL {$ENDIF});

8
mystic/mpl_execute.pas
View File

@ -167,6 +167,10 @@ Begin
Move (U.Calls, VarData[IdxVarUser + 9 ]^.Data^, SizeOf(U.Calls)); Move (U.Calls, VarData[IdxVarUser + 9 ]^.Data^, SizeOf(U.Calls));
Move (U.Password, VarData[IdxVarUser + 10]^.Data^, SizeOf(U.Password)); Move (U.Password, VarData[IdxVarUser + 10]^.Data^, SizeOf(U.Password));
Move (U.Flags, VarData[IdxVarUser + 11]^.Data^, SizeOf(U.Flags)); Move (U.Flags, VarData[IdxVarUser + 11]^.Data^, SizeOf(U.Flags));
Move (U.LastFBase, VarData[IdxVarUser + 12]^.Data^, SizeOf(U.LastFBase));
Move (U.LastFGroup, VarData[IdxVarUser + 13]^.Data^, SizeOf(U.LastFGroup));
Move (U.LastMBase, VarData[IdxVarUser + 14]^.Data^, SizeOf(U.LastMBase));
Move (U.LastMGroup, VarData[IdxVarUser + 15]^.Data^, SizeOf(U.LastMGroup));
End; End;
Procedure TInterpEngine.PutUserVars (Var U: RecUser); Procedure TInterpEngine.PutUserVars (Var U: RecUser);
@ -183,6 +187,10 @@ Begin
Move (VarData[IdxVarUser + 9 ]^.Data^, U.Calls, SizeOf(U.Calls)); Move (VarData[IdxVarUser + 9 ]^.Data^, U.Calls, SizeOf(U.Calls));
Move (VarData[IdxVarUser + 10]^.Data^, U.Password, SizeOf(U.Password)); Move (VarData[IdxVarUser + 10]^.Data^, U.Password, SizeOf(U.Password));
Move (VarData[IdxVarUser + 11]^.Data^, U.Flags, SizeOf(U.Flags)); Move (VarData[IdxVarUser + 11]^.Data^, U.Flags, SizeOf(U.Flags));
Move (VarData[IdxVarUser + 12]^.Data^, U.LastFBase, SizeOf(U.LastFBase));
Move (VarData[IdxVarUser + 13]^.Data^, U.LastFGroup, SizeOf(U.LastFGroup));
Move (VarData[IdxVarUser + 14]^.Data^, U.LastMBase, SizeOf(U.LastMBase));
Move (VarData[IdxVarUser + 15]^.Data^, U.LastMGroup, SizeOf(U.LastMGroup));
End; End;
Function TInterpEngine.GetUserRecord (Num: LongInt) : Boolean; Function TInterpEngine.GetUserRecord (Num: LongInt) : Boolean;