- Added option to toggle animated tiles

- Added option to toggle the security question when performing area commands

Client/UfrmMain.pas

@@ -88,6 +88,9 @@ type
     lblY: TLabel;
     lbClients: TListBox;
     MainMenu1: TMainMenu;
+    mnuSecurityQuestion: TMenuItem;
+    mnuShowAnimations: TMenuItem;
+    mnuSettings: TMenuItem;
     mnuFlatShowHeight: TMenuItem;
     mnuGrabHue: TMenuItem;
     mnuGrabTileID: TMenuItem;
@@ -209,6 +212,7 @@ type
     procedure mnuGrabTileIDClick(Sender: TObject);
     procedure mnuLargeScaleCommandsClick(Sender: TObject);
     procedure mnuRegionControlClick(Sender: TObject);
+    procedure mnuShowAnimationsClick(Sender: TObject);
     procedure mnuShutdownClick(Sender: TObject);
     procedure oglGameWindowDblClick(Sender: TObject);
     procedure oglGameWindowKeyDown(Sender: TObject; var Key: Word;
@@ -274,6 +278,7 @@ type
       Column: TColumnIndex; const NewText: String);
     procedure vstLocationsSaveNode(Sender: TBaseVirtualTree;
       Node: PVirtualNode; Stream: TStream);
+    procedure XMLPropStorage1RestoreProperties(Sender: TObject);
   protected
     { Members }
     FAppDir: String;
@@ -468,6 +473,12 @@ begin
   frmRegionControl.Show;
 end;
 
+procedure TfrmMain.mnuShowAnimationsClick(Sender: TObject);
+begin
+  FTextureManager.UseAnims := mnuShowAnimations.Checked;
+  RebuildScreenBuffer;
+end;
+
 procedure TfrmMain.mnuShutdownClick(Sender: TObject);
 begin
   dmNetwork.Send(TQuitServerPacket.Create(''));
@@ -1691,6 +1702,11 @@ begin
   Stream.Write(locationInfo^.Name[1], stringLength);
 end;
 
+procedure TfrmMain.XMLPropStorage1RestoreProperties(Sender: TObject);
+begin
+  FTextureManager.UseAnims := mnuShowAnimations.Checked;
+end;
+
 procedure TfrmMain.SetX(const AValue: Integer);
 begin
   SetPos(AValue, FY);
@@ -2775,6 +2791,10 @@ begin
   begin
     Result := frmMoveSettings.ShowModal = mrYes;
   end else
+  if not mnuSecurityQuestion.Checked then
+  begin
+    Result := True;
+  end else
   begin
     frmConfirmation.Left := Mouse.CursorPos.x - frmConfirmation.btnYes.Left - frmConfirmation.btnYes.Width div 2;
     frmConfirmation.Top := Mouse.CursorPos.y - frmConfirmation.btnYes.Top - frmConfirmation.btnYes.Height div 2;