From 9c24333e0f22d08c714063a69f2ee9d81c0b518e Mon Sep 17 00:00:00 2001
From: E01 <e01@users.sourceforge.jp>
Date: Thu, 18 Mar 2004 02:31:05 +0000
Subject: [PATCH] =?utf8?q?=E5=8D=98=E4=BD=93=E3=82=A2=E3=82=AF=E3=82=B7?=
 =?utf8?q?=E3=83=A7=E3=83=B3=E3=82=92=E8=BF=BD=E5=8A=A0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 bottleclient/LogForm.pas | 25 ++++++++++++++++++++++---
 1 file changed, 22 insertions(+), 3 deletions(-)

diff --git a/bottleclient/LogForm.pas b/bottleclient/LogForm.pas
index 910598f..3917c86 100755
--- a/bottleclient/LogForm.pas
+++ b/bottleclient/LogForm.pas
@@ -382,7 +382,14 @@ begin
   if Log = nil then Exit;
   if Log.LogType <> ltBottle then
     Exit;
-  Script := frmSender.ScriptTransForSSTP(Log.Script, ErrorMes);
+  //’P‘̃AƒNƒVƒ‡ƒ“‚ª—LŒø‚Å‚ ‚ê‚΃XƒNƒŠƒvƒg‚Ì•ÏŠ·‚µ‚È‚¢
+  if NOT Pref.LogOneAction then
+    Script := frmSender.ScriptTransForSSTP(Log.Script, ErrorMes)
+  else
+  begin
+    Script :=  Log.Script;
+    ErrorMes := '';
+  end;
   if ErrorMes <> '' then
   begin
     Res := MessageDlg('–â‘è‚Ì‚ ‚éƒXƒNƒŠƒvƒg‚Å‚·BÄ¶‚Å‚«‚Ü‚¹‚ñB'#13#10+
@@ -396,8 +403,20 @@ begin
 
   CueItem := TLogItem.Create(Log);
   try
-    CueItem.Script := Script;
-    frmSender.BottleSstp.Unshift(CueItem);
+    //ƒAƒNƒVƒ‡ƒ“‚ª—LŒø‚Å‚ ‚ê‚Βʏ폈—È—ª
+    if not Pref.LogOneAction then begin
+      CueItem.Script := Script;
+      frmSender.BottleSstp.Unshift(CueItem);
+    end else begin
+      //Œ^•ÏŠ·‚ÆŽóM
+      frmSender.BottleCnv(CueItem.MID
+                         ,CueItem.Channel
+                         ,CueItem.Ghost
+                         ,Script
+                         ,CueItem.Votes
+                         ,CueItem.Agrees
+                         ,CueItem.LogTime);
+    end;
   except
     CueItem.Free;
   end;
-- 
2.11.0