program New;

var
  // MainWindow variables.
  frmDesign : TForm;
  Label1, Label2 : TLabel;
  MelleSet, MageSet, RelogSet, TalkSet, DefColors, RunBtn, SaveBtn, HealSet, OtherSet : TButton;

// This form was parsed using DFM Form Parser v.26c Beta by Ron.
// Generated from Simple.dfm.

 var
  // ColorDef variables.
  ColorDef : TForm;
  PotsBtn, DropsBtn, MageBtn, RelogLockBtn,
  SmallBtn, CancelBtn, OkBtn, HPBtn : TButton;

// This form was parsed using DFM Form Parser v.26c Beta by Ron.
// Generated from Define Colors.dfm.

var
  // RelogSet variables.
  RelogSettings : TForm;
  UsernameLabel, PasswordLabel : TLabel;
  Username, Password : TEdit;
  Characterbox1, Characterbox3, Characterbox2 : TCheckBox;

// This form was parsed using DFM Form Parser v.26c Beta by Ron.
// Generated from Relog Settings.dfm.
procedure RelogSetings;
begin
  RelogSettings := CreateForm;
  with RelogSettings do
  begin
    Position := poScreenCenter;
    BorderStyle := bsSingle;
    BorderIcons := [biMinimize,biSystemMenu];
    Width := 305;
    Height := 218;
    Caption := 'Relog Settings';
    Color := clMaroon;
    Font.Color := clWindowText;
    Font.Height := -11;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    PixelsPerInch := 96;
  end;
  UsernameLabel := TLabel.Create(RelogSettings);
  with UsernameLabel do
  begin
    Parent := RelogSettings;
    Left := 104;
    Top := 0;
    Width := 88;
    Height := 26;
    Caption := 'Username';
    Font.Color := clWindowText;
    Font.Height := -21;
    Font.Name := 'Impact';
    Font.Style := [];
  end;
  PasswordLabel := TLabel.Create(RelogSettings);
  with PasswordLabel do
  begin
    Parent := RelogSettings;
    Left := 104;
    Top := 72;
    Width := 85;
    Height := 26;
    Caption := 'Password';
    Font.Color := clWindowText;
    Font.Height := -21;
    Font.Name := 'Impact';
    Font.Style := [];
  end;
  Username := TEdit.Create(RelogSettings);
  with Username do
  begin
    Parent := RelogSettings;
    Left := 8;
    Top := 32;
    Width := 281;
    Height := 21;
    TabOrder := 8;
  end;
  Password := TEdit.Create(RelogSettings);
  with Password do
  begin
    Parent := RelogSettings;
    Left := 8;
    Top := 104;
    Width := 281;
    Height := 21;
    TabOrder := 9;
  end;
  Characterbox1 := TCheckBox.Create(RelogSettings);
  with Characterbox1 do
  begin
    Parent := RelogSettings;
    Left := 24;
    Top := 128;
    Width := 97;
    Height := 25;
    Caption := 'Character One';
    TabOrder := 10;
  end;
  Characterbox3 := TCheckBox.Create(RelogSettings);
  with Characterbox3 do
  begin
    Parent := RelogSettings;
    Left := 96;
    Top := 160;
    Width := 97;
    Height := 25;
    Caption := 'Character Three';
    TabOrder := 11;
  end;
  Characterbox2 := TCheckBox.Create(RelogSettings);
  with Characterbox2 do
  begin
    Parent := RelogSettings;
    Left := 168;
    Top := 128;
    Width := 97;
    Height := 25;
    Caption := 'Character Two';
    TabOrder := 12;
  end;
end;

procedure SafeRelogSet;
var
  v : TVariantArray;
begin
  SetArrayLength(v, 0);
  ThreadSafeCall('RelogSetings', v);
end;

procedure ShowRelogSetModal;
begin
  RelogSettings.ShowModal;
end;

procedure SafeShowRelogSetModal;
var
  v : TVariantArray;
begin
  SetArrayLength(v, 0);
  ThreadSafeCall('ShowRelogSetModal', v);
end;

procedure MainRelogSet;
begin
  SafeRelogSet;
  SafeShowRelogSetModal;
  FreeForm(RelogSettings);
end;

procedure ColorDefine;
begin
  ColorDef := CreateForm;
  with ColorDef do
  begin
    Position := poScreenCenter;
    BorderStyle := bsSingle;
    BorderIcons := [biMinimize,biSystemMenu];
    Width := 466;
    Height := 242;
    Caption := 'Define Colors';
    Color := clMaroon;
    Font.Color := clWindowText;
    Font.Height := -11;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    PixelsPerInch := 96;
  end;
  PotsBtn := TButton.Create(ColorDef);
  with PotsBtn do
  begin
    Parent := ColorDef;
    Left := 312;
    Top := 8;
    Width := 137;
    Height := 57;
    Caption := 'Pots';
    TabOrder := 8;
  end;
  DropsBtn := TButton.Create(ColorDef);
  with DropsBtn do
  begin
    Parent := ColorDef;
    Left := 160;
    Top := 72;
    Width := 137;
    Height := 57;
    Caption := 'Drops';
    TabOrder := 9;
  end;
  MageBtn := TButton.Create(ColorDef);
  with MageBtn do
  begin
    Parent := ColorDef;
    Left := 160;
    Top := 8;
    Width := 137;
    Height := 57;
    Caption := 'Mage';
    TabOrder := 10;
  end;
  RelogLockBtn := TButton.Create(ColorDef);
  with RelogLockBtn do
  begin
    Parent := ColorDef;
    Left := 8;
    Top := 72;
    Width := 137;
    Height := 57;
    Caption := 'Relog Lock';
    TabOrder := 11;
  end;
  SmallBtn := TButton.Create(ColorDef);
  with SmallBtn do
  begin
    Parent := ColorDef;
    Left := 312;
    Top := 72;
    Width := 137;
    Height := 57;
    Caption := 'Small Pots';
    TabOrder := 12;
  end;
  CancelBtn := TButton.Create(ColorDef);
  with CancelBtn do
  begin
    Parent := ColorDef;
    Left := 8;
    Top := 136;
    Width := 137;
    Height := 57;
    Caption := 'Cancel';
    TabOrder := 13;
  end;
  OkBtn := TButton.Create(ColorDef);
  with OkBtn do
  begin
    Parent := ColorDef;
    Left := 312;
    Top := 136;
    Width := 137;
    Height := 57;
    Caption := 'Ok';
    TabOrder := 14;
  end;
  HPBtn := TButton.Create(ColorDef);
  with HPBtn do
  begin
    Parent := ColorDef;
    Left := 8;
    Top := 8;
    Width := 137;
    Height := 57;
    Caption := 'HP';
    TabOrder := 15;
  end;
end;

procedure SafeColorDef;
var
  v : TVariantArray;
begin
  SetArrayLength(v, 0);
  ThreadSafeCall('ColorDefine', v);
end;

procedure ShowColorDefModal;
begin
  ColorDef.ShowModal;
end;

procedure SafeShowColorDefModal;
var
  vv : TVariantArray;
begin
  SetArrayLength(vv, 0);
  ThreadSafeCall('ShowColorDefModal', vv);
end;

procedure MainColorDef;
begin
  SafeColorDef;
  SafeShowColorDefModal;

end;

procedure Click(sender:TObject);
begin
Wait(50);                   //MelleSet, MageSet, RelogSet, TalkSet, DefColors, RunBtn, SaveBtn, HealSet, OtherSet
Case Sender of
DefColors: MainColorDef; {Define Colors Button, Run Define Colors Window}
MelleSet: Wait(10); {Melle Settings Button, Opens Melle Setings Window}
MageSet: Wait(10); {Mage Settings Button, Opens Mage Settings Window}
RelogSet: MainRelogSet; {Relog Settings Button, Opens the Relog Settings Window}
TalkSet: Wait(10); {Talk Settings Button, Opens the Talk Settings Window}
RunBtn: Wait(10); {Run Button, Runs The Bot}
SaveBtn: Wait(10); {Save Button, Saves The Settings}
HealSet: Wait(10); {Heal Settings Button, Opens the Heal Settings Window}
OtherSet: Wait(10); {Other Settings Button, Opens the Other Settings Window}
end;
Wait(50);
end;




procedure MainWindow;
begin
  frmDesign := CreateForm;
  with frmDesign do
  begin
    Position := poScreenCenter;
    BorderStyle := bsSingle;
    BorderIcons := [biMinimize,biSystemMenu];
    Width := 325;
    Height := 329;
    Caption := 'Simple Auto';
    Color := clMaroon;
    Font.Color := clWindowText;
    Font.Height := -11;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    PixelsPerInch := 96;
  end;
  Label1 := TLabel.Create(frmDesign);
  with Label1 do
  begin
    Parent := frmDesign;
    Left := 8;
    Top := 8;
    Width := 300;
    Height := 16;
    Caption := 'Simple Auto Version 2.0';
    Font.Color := clWindowText;
    Font.Height := -16;
    Font.Name := 'Terminal';
    Font.Style := [fsBold];
  end;
  Label2 := TLabel.Create(frmDesign);
  with Label2 do
  begin
    Parent := frmDesign;
    Left := 104;
    Top := 32;
    Width := 82;
    Height := 12;
    Caption := 'By Digitx';
    Font.Color := clWindowText;
    Font.Height := -12;
    Font.Name := 'Terminal';
    Font.Style := [fsBold];
  end;
  MelleSet := TButton.Create(frmDesign);
  with MelleSet do
  begin
  OnClick:=@Click;
    Parent := frmDesign;
    Left := 8;
    Top := 56;
    Width := 81;
    Height := 25;
    Caption := 'Melle Settings';
    TabOrder := 8;
  end;
  MageSet := TButton.Create(frmDesign);
  with MageSet do
  begin
  OnClick:=@Click;
    Parent := frmDesign;
    Left := 224;
    Top := 56;
    Width := 81;
    Height := 25;
    Caption := 'Mage Settings';
    TabOrder := 9;
  end;
  RelogSet := TButton.Create(frmDesign);
  with RelogSet do
  begin
  OnClick:=@Click;
    Parent := frmDesign;
    Left := 8;
    Top := 104;
    Width := 81;
    Height := 25;
    Caption := 'Relog Settings';
    TabOrder := 10;
  end;
  TalkSet := TButton.Create(frmDesign);
  with TalkSet do
  begin
  OnClick:=@Click;
    Parent := frmDesign;
    Left := 224;
    Top := 104;
    Width := 81;
    Height := 25;
    Caption := 'Talk Settings';
    TabOrder := 11;
  end;
  DefColors := TButton.Create(frmDesign);
  with DefColors do
  begin
    OnClick:=@Click;
    Parent := frmDesign;
    Left := 56;
    Top := 152;
    Width := 201;
    Height := 41;
    Caption := 'Define Colors.';
    Font.Color := clWindowText;
    Font.Height := -19;
    Font.Name := 'Impact';
    Font.Style := [];
    TabOrder := 12;
  end;
  RunBtn := TButton.Create(frmDesign);
  with RunBtn do
  begin
  OnClick:=@Click;
    Parent := frmDesign;
    Left := 56;
    Top := 248;
    Width := 201;
    Height := 41;
    Caption := 'Run Bot';
    Font.Color := clWindowText;
    Font.Height := -19;
    Font.Name := 'Impact';
    Font.Style := [];
    TabOrder := 13;
  end;
  SaveBtn := TButton.Create(frmDesign);
  with SaveBtn do
  begin
  OnClick:=@Click;
    Parent := frmDesign;
    Left := 56;
    Top := 200;
    Width := 201;
    Height := 41;
    Caption := 'Save';
    Font.Color := clWindowText;
    Font.Height := -19;
    Font.Name := 'Impact';
    Font.Style := [];
    TabOrder := 14;
  end;
  HealSet := TButton.Create(frmDesign);
  with HealSet do
  begin
  OnClick:=@Click;
    Parent := frmDesign;
    Left := 112;
    Top := 56;
    Width := 89;
    Height := 25;
    Caption := 'Heal Settings';
    TabOrder := 15;
  end;
  OtherSet := TButton.Create(frmDesign);
  with OtherSet do
  begin
  OnClick:=@Click;
    Parent := frmDesign;
    Left := 112;
    Top := 104;
    Width := 89;
    Height := 25;
    Caption := 'Other Settings';
    TabOrder := 16;
  end;
end;

procedure SafeMainWindow;
var
  v : TVariantArray;
begin
  SetArrayLength(v, 0);
  ThreadSafeCall('MainWindow', v);
end;

procedure ShowMainWindowModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowMainWindowModal;
var
  v : TVariantArray;
begin
  SetArrayLength(v, 0);
  ThreadSafeCall('ShowMainWindowModal', v);
end;

procedure MainMainWindow;
begin
  SafeMainWindow;
  SafeShowMainWindowModal;
  FreeForm(frmDesign);
end;



begin
  ClearDebug;
  MainMainWindow;
end.