241137← ↑修正パッチ →241139


2004.07.11 (日) 00:02:43 <u*j*2*6*> サーバーによって自動的に追加された友達が、ログアウトのとき基準の共有数をみたしてなかったら、友達リストから削除されます。
2004.07.11 (日) 00:03:20 <u*j*2*6*> 自動追加・自動削除どちらも、いまのところwallopはとくに表示されません
2004.07.11 (日) 00:04:02 <u*j*2*6*> せっかく前回wallopSFriends変数をつくったのでそのうちオプションで表示できるようにしたいです

shuusei241138:自動追加した友達を自動削除するように変更(241137参照,idea by MuumiPeikko)

Everything is expanded.Everything is shortened.
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 
 
 
 
 
 
 
 
-
|
|
|
|
|
|
|
|
|
|
-
|
|
|
-
|
|
!
!
|
|
|
-
|
|
|
|
|
-
|
|
|
!
|
|
|
|
|
|
-
|
|
|
-
|
|
!
!
|
|
|
-
diff --dos -urN 241137/handler.pas 241138/handler.pas
--- 241137/handler.pas    Sat Jul 10 08:33:46 2004
+++ 241138/handler.pas    Sat Jul 10 23:55:16 2004
@@ -584,6 +584,7 @@
   User2: TLocalUser;
   Ch: TChannel;
   Str: string;
+  Friend: PFriendUser;
 begin
   try
     Tmp_Pos := 140;
@@ -668,6 +669,20 @@
       Tmp_Pos := 145;
       if B then
         RegisterUser(Usr.Data, 'server');
+
+      // サーバーフレンドがファイル数を満たしてなかったら自動削除
+      if Auto_FriendAdd and
+        (Usr.Data^.Shared < Share_Auto_FriendAdd_Minimum) then
+      begin
+        Friend := DB_Friends.FindUser(Usr.Nick);
+        if (Friend <> nil) and
+          (Copy(Friend^.LastSetBy, 1, 7) = 'server ') then
+        begin
+          DB_Friends.Delete(Usr.Nick);
+          // ここにwallopが入るかも?
+        end;
+      end;
+
       Tmp_Pos := 146;
       if Running and Log_Login then
       begin
@@ -751,6 +766,7 @@
   User2: TLocalUser;
   Ch: TChannel;
   Str: string;
+  Friend: PFriendUser;
 begin
   Tmp_Pos := 160;
   if User = nil then Exit;
@@ -800,6 +816,20 @@
   end;
   if B then
     RegisterUser(User, 'server');
+
+  // サーバーフレンドがファイル数を満たしてなかったら自動削除
+  if Auto_FriendAdd and
+    (User^.Shared < Share_Auto_FriendAdd_Minimum) then
+  begin
+    Friend := DB_Friends.FindUser(User^.UserName);
+    if (Friend <> nil) and
+      (Copy(Friend^.LastSetBy, 1, 7) = 'server ') then
+    begin
+      DB_Friends.Delete(User^.UserName);
+      // ここにwallopが入るかも?
+    end;
+  end;
+
   Tmp_Pos := 164;
   for I := 0 to DB_Local.Count - 1 do
   begin
241137← ↑修正パッチ →241139