add stMobileOnline

Client/RealICQModel.pas

@@ -25,7 +25,8 @@ type
                         stLeave = 2,
                         stBusy = 3,
                         stMute = 4,
-                        stHidden = 5);
+                        stHidden = 5,
+                        stMobileOnline = 6);
 
   TRealICQSexType = (seMale = 0,
                      seFemale = 1,

Client/Services/UsersService.pas

@@ -309,8 +309,11 @@ begin
 //  begin
 //    SendGetUserInformation(RealICQUser.FLoginName, False);
 //  end;
-  
-  AUser.LoginState := ALoginState;
+  if not (ALoginState <> stMobileOnline) or (AUser.LoginState = stOffline) then
+    AUser.LoginState := ALoginState
+  else
+    Exit;
+
   AUser.LeaveMessage := ALeaveMessage;
 //  AUser.LoginAtWeb := ALoginAtWeb;
 //  AUser.LoginAsWaiter := ALoginAsWaiter;

Controls/RealICQClient/RealICQClient.pas

@@ -9051,6 +9051,8 @@ begin
   if SameText(ALoginName, Me.LoginName) then
   begin
     FIsAutoState := FNeedAutoState;
+    if ALoginState = stMobileOnline then
+      Exit;
     FCurrentLoginState := ALoginState;
     FCurrentLeaveMessage := ALeaveMessage;
   end;