GhostOverideAction implemented

diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas
index c1f47b5..ff79fc0 100755 (executable)
--- a/bottleclient/MainForm.pas
+++ b/bottleclient/MainForm.pas
@@ -1706,18 +1706,23 @@ begin
             LogNameList.Add(LogName);
           end;
         end;
+        if Action is TBottleChainOverrideGhostAction then begin
+          Dat['TargetGhost'] := (Action as TBottleChainOverrideGhostAction).TargetGhost;
+        end;
         if Action is TBottleChainQuitAction then Application.Terminate;
       end;
       if BreakFlag then Break;
     end;
+
     if Dat['Script'] <> '' then begin
       for i := 0 to LogNameList.Count-1 do
         frmLog.AddCurrentScriptLog(LogNameList[i], Dat['Script'], Sender, Dat['MID'], Dat['IfGhost']);
       if NoDispatch then begin
         frmLog.SetBottleStatusToOpened(Dat['MID']);
       end else begin
+        Ghost := Dat['TargetGhost']; // \83I\81[\83o\81[\83\89\83C\83h\82³\82ê\82Ä\82¢\82é\89Â\94\\90«\82ª\82 \82é
         CueID := DirectSstp.SstpSENDCue(Script, false, Opt, GhostNameToSetName(Ghost));
-        if Dat['IfGhost'] <> '' then Sender := Sender + '/' + Dat['IfGhost'];
+        if Dat['IfGhost'] <> '' then Sender := Sender + '/' + Ghost; // Dat['IfGhost'];
         FCueGhost.AddIdGhost(CueID, Ghost, Sender, Dat['MID']);
       end;
     end;