ネットワーク版フシアナトラップ警告機能

diff --git a/Editor.pas b/Editor.pas
index 459898f..2cfdef3 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -195,6 +195,7 @@ type
                procedure ShowBoardInformation(ABoard: TBoard; AMemo: TMemo);
                function GetTitlePictureURL(body: TStringList; ABoard: TBoard): string;
                procedure ShowTitlePicture();
+                function GetFusianaName(body: TStringList; ABoard: TBoard): String;
        protected
                procedure CreateParams(var Params: TCreateParams); override;
        public
@@ -667,6 +668,9 @@ var
 //        RefeURL: string;
 //        RuleURL: String;
 //        RuleTxt: String;
+        Name: String;
+        SettingBody: TStringList;
+        tmpBoard: TBoard;
 begin
        FAbort := False;
        State := gdsError;
@@ -756,6 +760,32 @@ begin
                                        Exit;
                                end;
                        end;
+                        //\83t\83V\83A\83i\83g\83\89\83b\83v\8cx\8d\90(NetworkMode) by \92è\8aú\95Ö
+                        {try
+                                SettingBody := SettingBody.Create;
+                                SettingBody.LoadFromFile(tmpBoard.GetSETTINGTXTFileName);
+                        finally
+                                SettingBody.Free;
+                        end;                                             ;
+                        Name := GetFusianaName(settingBody, tmpBoard);
+                        if ( Name = 'fusianasan' ) or ( Name = '\8eR\8dè\8fÂ') then begin
+                               MsgResult := MsgBox(
+                                               Handle,
+                                       '\82±\82Ì\94Â\82Í\96¼\91O\97\93\82ð\93ü\97Í\82µ\82È\82¢\82Æ\83\8a\83\82\81[\83g\83z\83X\83g\82ª\95\\8e¦\82³\82ê\82Ü\82·\81B' + #13#10 +
+                                       '\82à\82µ\82à\8aÔ\88á\82Á\82Ä\82±\82Ì\95û\96@\82Å\83z\83X\83g\82ª\95\\8e¦\82³\82ê\82½\82Æ\82µ\82Ä\82à\81A\8e©\8cÈ\90Ó\94C\82È\82Ì\82Å\8dí\8f\9c\88Ë\97\8a\82É\82Í\89\9e\82¶\82Ü\82¹\82ñ\81B' + #13#10#13#10 +
+                                       '\90Ó\94C\82ð\95\89\82¤\82±\82Æ\82ð\8f³\91ø\82µ\82Ä\8f\91\82«\8d\9e\82Ý\82Ü\82·\82©\81H',
+                                       '\8fî\95ñ',
+                                       MB_YESNO or MB_ICONQUESTION);
+                               if MsgResult = IDNO  then begin
+                                       Board.SPID := '';
+                                       Board.PON := '';
+                                       FWork := false;
+                                       EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
+                                       DrawMenuBar(Handle);
+                                       Exit;
+                               end
+                        end;}
+
                        if ResultType = grtOK then begin
                                WriteSambaTime(FHost, Now());
                                State := gdsComplete;
@@ -1715,4 +1745,20 @@ begin
         TitlePictureBrowser.Navigate('about:blank');
        end;
 end;
+
+function TEditorForm.GetFusianaName(body: TStringList; ABoard: TBoard): String;
+var
+       i: Integer;
+       tmp: string;
+begin
+       for i := 0 to body.Count - 1 do begin
+               if (AnsiPos('BBS_NONAME_NAME=', body[i]) > 0) then begin
+                       tmp := body[i];
+                       Delete(tmp, 1, AnsiPos('=', tmp));
+                       Result := tmp;
+                       Exit;
+               end;
+       end;
+end;
+
 end.