●がないと巡回できない仕様を変更(３分ごとに制限)

[gikonavigoeson/gikonavi.git] / Round.pas

diff --git a/Round.pas b/Round.pas
index 6396492..5e5021d 100644 (file)
--- a/Round.pas
+++ b/Round.pas
@@ -4,7 +4,7 @@ interface
 
 uses
        Windows, Classes, Controls, Forms, StdCtrls, ComCtrls, Menus,
-       SysUtils, ImgList, ExtCtrls, GikoSystem, GikoUtil;
+       SysUtils, ImgList, ExtCtrls, GikoSystem, GikoUtil, Dialogs;
 
 type
        TRoundDialog = class(TForm)
@@ -70,32 +70,14 @@ var
        ThreadItem: TThreadItem;
        RoundItem: TRoundItem;
 begin
-//     if CompareTime(GikoForm.LastRoundTime, Now, 5) then begin
-//             msg := '\88ê\93x\8f\84\89ñ\82·\82é\82Æ\82T\95ª\8aÔ\8f\84\89ñ\82Í\8fo\97\88\82Ü\82¹\82ñ';
-//             GikoSys.MsgBox(msg, '\83G\83\89\81[', MB_OK or MB_ICONSTOP);
-//             Exit;
-//     end;
-{$IF Defined(FRCRND) }
-    Giko.GikoForm.LoginAction.Checked := true; // \93®\8dì\8e\8e\8c±\97p\93r
-{$IFEND}
-
-       if not Giko.GikoForm.LoginAction.Checked then begin 
-               if GikoSys.Setting.UserID <> '' then begin 
-                       msg := '\83\8d\83O\83C\83\93\82µ\82È\82¢\82Æ\8f\84\89ñ\82Í\8fo\97\88\82Ü\82¹\82ñ' + #13#10 
-                               + '\8d¡\83\8d\83O\83C\83\93\82µ\82Ü\82·\82©'; 
-                       if MsgBox(Handle, msg, '\8am\94F', MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES then begin 
-                               Exit; 
-                       end; 
-                       Giko.GikoForm.LoginAction.Execute; 
-               end; 
-       end;
-
-       if not Giko.GikoForm.LoginAction.Checked then begin
-               msg := '\83\8d\83O\83C\83\93\82µ\82È\82¢\82Æ\8f\84\89ñ\82Í\8fo\97\88\82Ü\82¹\82ñ';// + #13#10
-//                              + '\95ª\82©\82ç\82È\82¢\90l\82Í\83M\83R\83i\83r\83X\83\8c\83b\83h\82Å\95·\82¢\82Ä\82­\82¾\82³\82¢';
+       if CompareTime(GikoForm.LastRoundTime, Now, 3) then begin
+               msg := '\88ê\93x\8f\84\89ñ\82·\82é\82Æ\82R\95ª\8aÔ\8f\84\89ñ\82Í\8fo\97\88\82Ü\82¹\82ñ\81B';
                MsgBox(Handle, msg, '\83G\83\89\81[', MB_OK or MB_ICONSTOP);
                Exit;
        end;
+//{$IF Defined(FRCRND) }
+//    Giko.GikoForm.LoginAction.Checked := true; // \93®\8dì\8e\8e\8c±\97p\93r
+//{$IFEND}
 
        cnt := GetRoundCount;
        if cnt = 0 then begin
@@ -121,7 +103,7 @@ begin
        for i := 0 to RoundList.Count[grtItem] - 1 do begin
                RoundItem := RoundList.Items[i, grtItem];
                if not RoundItem.BoolData then Continue;
-               if not Giko.GikoForm.LoginAction.Checked then Exit;
+//             if not Giko.GikoForm.LoginAction.Checked then Exit;
     if RoundItem.RoundType = grtItem then begin
        //ThreadItem := TThreadItem( RoundItem.Item );
         ThreadItem := BBSsFindThreadFromURL(RoundItem.URL);
@@ -131,7 +113,7 @@ begin
                        end;
                end;
        end;
-//     GikoForm.LastRoundTime := Now;
+       GikoForm.LastRoundTime := Now;
        Close;
 end;