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

PutUser and PutThisUser functions added

This commit is contained in:
mysticbbs 2012-06-30 16:08:32 -04:00
parent db3546092c
commit 074cc78def
3 changed files with 44 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mystic/mpl_common.pas
View File

@ -286,6 +286,8 @@ Begin
AddProc ({$IFDEF MPLPARSER} 'strmci', {$ENDIF} 's', iString); // 535 AddProc ({$IFDEF MPLPARSER} 'strmci', {$ENDIF} 's', iString); // 535
AddProc ({$IFDEF MPLPARSER} 'getcharxy', {$ENDIF} 'bb', iChar); // 536 AddProc ({$IFDEF MPLPARSER} 'getcharxy', {$ENDIF} 'bb', iChar); // 536
AddProc ({$IFDEF MPLPARSER} 'getattrxy', {$ENDIF} 'bb', iByte); // 537 AddProc ({$IFDEF MPLPARSER} 'getattrxy', {$ENDIF} 'bb', iByte); // 537
AddProc ({$IFDEF MPLPARSER} 'putthisuser' {$ENDIF} '', iNone); // 538
AddProc ({$IFDEF MPLPARSER} 'putuser', {$ENDIF} 'l', iNone); // 539
{ END OF PROCEDURE DEFINITIONS } { END OF PROCEDURE DEFINITIONS }

41
mystic/mpl_execute.pas
View File

@ -86,7 +86,10 @@ Type
Procedure FileWriteLine (Var F: File; Str: String); Procedure FileWriteLine (Var F: File; Str: String);
Procedure GetUserVars (Var U: RecUser); Procedure GetUserVars (Var U: RecUser);
Procedure PutUserVars (Var U: RecUser);
Function GetUserRecord (Num: LongInt) : Boolean; Function GetUserRecord (Num: LongInt) : Boolean;
Procedure PutUserRecord (Num: LongInt);
Procedure GetMBaseVars (Var M: RecMessageBase); Procedure GetMBaseVars (Var M: RecMessageBase);
Function GetMBaseRecord (Num: LongInt) : Boolean; Function GetMBaseRecord (Num: LongInt) : Boolean;
Procedure GetMGroupVars (Var G: RecGroup); Procedure GetMGroupVars (Var G: RecGroup);
@ -166,6 +169,22 @@ Begin
Move (U.Flags, VarData[IdxVarUser + 11]^.Data^, SizeOf(U.Flags)); Move (U.Flags, VarData[IdxVarUser + 11]^.Data^, SizeOf(U.Flags));
End; End;
Procedure TInterpEngine.PutUserVars (Var U: RecUser);
Begin
Move (VarData[IdxVarUser ]^.Data^, U.PermIdx, SizeOf(U.PermIdx));
Move (VarData[IdxVarUser + 1 ]^.Data^, U.RealName, SizeOf(U.RealName));
Move (VarData[IdxVarUser + 2 ]^.Data^, U.Handle, SizeOf(U.Handle));
Move (VarData[IdxVarUser + 3 ]^.Data^, U.Address, SizeOf(U.Address));
Move (VarData[IdxVarUser + 4 ]^.Data^, U.Security, SizeOf(U.Security));
Move (VarData[IdxVarUser + 5 ]^.Data^, U.Gender, SizeOf(U.Gender));
Move (VarData[IdxVarUser + 6 ]^.Data^, U.FirstOn, SizeOf(U.FirstOn));
Move (VarData[IdxVarUser + 7 ]^.Data^, U.LastOn, SizeOf(U.LastOn));
Move (VarData[IdxVarUser + 8 ]^.Data^, U.DateType, SizeOf(U.DateType));
Move (VarData[IdxVarUser + 9 ]^.Data^, U.Calls, SizeOf(U.Calls));
Move (VarData[IdxVarUser + 10]^.Data^, U.Password, SizeOf(U.Password));
Move (VarData[IdxVarUser + 11]^.Data^, U.Flags, SizeOf(U.Flags));
End;
Function TInterpEngine.GetUserRecord (Num: LongInt) : Boolean; Function TInterpEngine.GetUserRecord (Num: LongInt) : Boolean;
Var Var
F : File; F : File;
@ -184,6 +203,26 @@ Begin
Close (F); Close (F);
End; End;
Procedure TInterpEngine.PutUserRecord (Num: LongInt);
Var
F : File;
U : RecUser;
Begin
Assign (F, Config.DataPath + 'users.dat');
If Not ioReset(F, SizeOf(RecUser), fmRWDN) Then Exit;
PutUserVars(U);
If Not ioSeek(F, Pred(Num)) Then Begin
Close(F);
Exit;
End;
IoWrite (F, U);
Close (F);
End;
Procedure TInterpEngine.GetMBaseVars (Var M: RecMessageBase); Procedure TInterpEngine.GetMBaseVars (Var M: RecMessageBase);
Begin Begin
Move (M.Index, VarData[IdxVarMBase ]^.Data^, SizeOf(M.Index)); Move (M.Index, VarData[IdxVarMBase ]^.Data^, SizeOf(M.Index));
@ -1842,6 +1881,8 @@ Begin
Store (TempByte, 1); Store (TempByte, 1);
End; End;
538 : PutUserVars(Session.User.ThisUser);
539 : PutUserRecord(Param[1].L);
End; End;
End; End;

2
mystic/mpl_types.pas
View File

@ -77,7 +77,7 @@ Type
); );
Const Const
mplVer = '11@'; mplVer = '11&';
mplVersion = '[MPX ' + mplVer +']' + #26; mplVersion = '[MPX ' + mplVer +']' + #26;
mplVerLength = 10; mplVerLength = 10;
mplExtSource = '.mps'; mplExtSource = '.mps';