Results 1 to 2 of 2

Thread: [Runtime Error] : Exception: Cannot make a visible window modal in line 338 in script

  1. #1
    Join Date
    Jul 2008
    Posts
    79
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default [Runtime Error] : Exception: Cannot make a visible window modal in line 338 in script

    I used the 'DFM Parser v.25 by Ron' in Scripting Tools to code the Form I made, but there seems to be a problem. When it runs I see the form for a split second and then it vanishes and I get a 'Runtime Error'.

    Code:
    program New;
    var
      frmDesign : TForm;
      Label1 : TLabel;
      Label2 : TLabel;
      Label3 : TLabel;
      Label4 : TLabel;
      Label5 : TLabel;
      GroupBox1 : TGroupBox;
      GroupBox2 : TGroupBox;
      largesearch : TCheckBox;
      CheckBox6 : TCheckBox;
      fullsearch : TCheckBox;
      wait : TEdit;
      quit : TButton;
      Button1 : TButton;
      ComboBox1 : TComboBox;
      normalhealthpercent : TEdit;
      smahealthpercent : TEdit;
      gtfohealthpercent : TEdit;
      sma : TCheckBox;
      gtfo : TCheckBox;
      CheckBox1 : TCheckBox;
      smallsearch : TCheckBox;
      mediumsearch : TCheckBox;
      CheckBox4 : TCheckBox;
      GroupBox3 : TGroupBox;
      CheckBox2 : TCheckBox;
      CheckBox3 : TCheckBox;
      Edit1 : TEdit;
      CheckBox5 : TCheckBox;
      Memo1 : TMemo;
    
    procedure InitForm;
    begin
      frmDesign := CreateForm;
    frmDesign.Left := 292;
    frmDesign.Top := 272;
    frmDesign.BorderStyle := bsNone;
    frmDesign.Caption := 'Luminary Auto Hunter';
    frmDesign.ClientHeight := 480;
    frmDesign.ClientWidth := 696;
    frmDesign.Color := clBtnFace;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -16;
    frmDesign.Font.Name := 'Arial';
    frmDesign.Font.Style := [];
    frmDesign.Visible := True;
    frmDesign.PixelsPerInch := 96;
    Label1 := TLabel.Create(frmDesign);
    Label1.Parent := frmDesign;
    Label1.Left := 32;
    Label1.Top := 40;
    Label1.Width := 201;
    Label1.Height := 18;
    Label1.Caption := 'Health Percentage (normal):';
    Label2 := TLabel.Create(frmDesign);
    Label2.Parent := frmDesign;
    Label2.Left := 48;
    Label2.Top := 64;
    Label2.Width := 185;
    Label2.Height := 18;
    Label2.Caption := 'Health Percantage (SMA):';
    Label3 := TLabel.Create(frmDesign);
    Label3.Parent := frmDesign;
    Label3.Left := 40;
    Label3.Top := 88;
    Label3.Width := 193;
    Label3.Height := 18;
    Label3.Caption := 'Health Percentage (GTFO):';
    Label4 := TLabel.Create(frmDesign);
    Label4.Parent := frmDesign;
    Label4.Left := 205;
    Label4.Top := 152;
    Label4.Width := 240;
    Label4.Height := 18;
    Label4.Caption := 'Wait Time (e.g. 2000 = 2 seconds)';
    Label5 := TLabel.Create(frmDesign);
    Label5.Parent := frmDesign;
    Label5.Left := 8;
    Label5.Top := 448;
    Label5.Width := 368;
    Label5.Height := 16;
    Label5.Caption := 'Remeber! ALT + S to terminate program inside the client!!';
    Label5.Font.Color := clRed;
    Label5.Font.Height := -13;
    Label5.Font.Name := 'Arial';
    Label5.Font.Style := [fsBold, fsUnderline];
    Label5.ParentFont := False;
    GroupBox1 := TGroupBox.Create(frmDesign);
    GroupBox1.Parent := frmDesign;
    GroupBox1.Left := 16;
    GroupBox1.Top := 8;
    GroupBox1.Width := 665;
    GroupBox1.Height := 121;
    GroupBox1.Caption := 'Auto Pot Options';
    GroupBox1.TabOrder := 13;
    GroupBox2 := TGroupBox.Create(frmDesign);
    GroupBox2.Parent := frmDesign;
    GroupBox2.Left := 16;
    GroupBox2.Top := 136;
    GroupBox2.Width := 665;
    GroupBox2.Height := 113;
    GroupBox2.Caption := 'Hunt Options';
    GroupBox2.TabOrder := 12;
    largesearch := TCheckBox.Create(GroupBox2);
    largesearch.Parent := GroupBox2;
    largesearch.Left := 508;
    largesearch.Top := 62;
    largesearch.Width := 136;
    largesearch.Height := 17;
    largesearch.Caption := '200x200 Search';
    largesearch.Checked := True;
    largesearch.State := cbChecked;
    largesearch.TabOrder := 0;
    CheckBox6 := TCheckBox.Create(GroupBox2);
    CheckBox6.Parent := GroupBox2;
    CheckBox6.Left := 24;
    CheckBox6.Top := 96;
    CheckBox6.Width := 1;
    CheckBox6.Height := 1;
    CheckBox6.Caption := 'CheckBox6';
    CheckBox6.TabOrder := 1;
    fullsearch := TCheckBox.Create(GroupBox2);
    fullsearch.Parent := GroupBox2;
    fullsearch.Left := 508;
    fullsearch.Top := 84;
    fullsearch.Width := 152;
    fullsearch.Height := 17;
    fullsearch.Caption := 'Full Screen Search';
    fullsearch.TabOrder := 2;
    wait := TEdit.Create(GroupBox2);
    wait.Parent := GroupBox2;
    wait.Left := 189;
    wait.Top := 40;
    wait.Width := 121;
    wait.Height := 26;
    wait.TabOrder := 3;
    wait.Text := '2000';
    quit := TButton.Create(frmDesign);
    quit.Parent := frmDesign;
    quit.Left := 625;
    quit.Top := 440;
    quit.Width := 64;
    quit.Height := 33;
    quit.Caption := 'Exit';
    quit.Font.Color := clRed;
    quit.Font.Height := -19;
    quit.Font.Name := 'Arial Black';
    quit.Font.Style := [fsBold];
    quit.ParentFont := False;
    quit.TabOrder := 0;
    Button1 := TButton.Create(frmDesign);
    Button1.Parent := frmDesign;
    Button1.Left := 385;
    Button1.Top := 440;
    Button1.Width := 231;
    Button1.Height := 33;
    Button1.Caption := 'Begin Macro';
    Button1.Font.Color := clWindowText;
    Button1.Font.Height := -19;
    Button1.Font.Name := 'Arial Black';
    Button1.Font.Style := [fsBold];
    Button1.ParentFont := False;
    Button1.TabOrder := 1;
    ComboBox1 := TComboBox.Create(frmDesign);
    ComboBox1.Parent := frmDesign;
    ComboBox1.Left := 24;
    ComboBox1.Top := 160;
    ComboBox1.Width := 169;
    ComboBox1.Height := 26;
    ComboBox1.ItemHeight := 18;
    ComboBox1.TabOrder := 2;
    ComboBox1.Text := 'Profession';
    ComboBox1.Items.Add('Melee (Axe/Sword/Spear)');
    ComboBox1.Items.Add('Ranged (Bow/Gun)');
    ComboBox1.Items.Add('Magicain (Cane)');
    normalhealthpercent := TEdit.Create(frmDesign);
    normalhealthpercent.Parent := frmDesign;
    normalhealthpercent.Left := 251;
    normalhealthpercent.Top := 40;
    normalhealthpercent.Width := 113;
    normalhealthpercent.Height := 26;
    normalhealthpercent.TabOrder := 3;
    normalhealthpercent.Text := '0.80';
    smahealthpercent := TEdit.Create(frmDesign);
    smahealthpercent.Parent := frmDesign;
    smahealthpercent.Left := 251;
    smahealthpercent.Top := 64;
    smahealthpercent.Width := 113;
    smahealthpercent.Height := 26;
    smahealthpercent.TabOrder := 4;
    smahealthpercent.Text := '0.50';
    gtfohealthpercent := TEdit.Create(frmDesign);
    gtfohealthpercent.Parent := frmDesign;
    gtfohealthpercent.Left := 251;
    gtfohealthpercent.Top := 88;
    gtfohealthpercent.Width := 113;
    gtfohealthpercent.Height := 26;
    gtfohealthpercent.TabOrder := 5;
    gtfohealthpercent.Text := '0.15';
    sma := TCheckBox.Create(frmDesign);
    sma.Parent := frmDesign;
    sma.Left := 384;
    sma.Top := 64;
    sma.Width := 185;
    sma.Height := 17;
    sma.Caption := 'SMA';
    sma.Checked := True;
    sma.State := cbChecked;
    sma.TabOrder := 6;
    gtfo := TCheckBox.Create(frmDesign);
    gtfo.Parent := frmDesign;
    gtfo.Left := 384;
    gtfo.Top := 88;
    gtfo.Width := 105;
    gtfo.Height := 17;
    gtfo.Caption := 'GTFO';
    gtfo.Checked := True;
    gtfo.State := cbChecked;
    gtfo.TabOrder := 7;
    CheckBox1 := TCheckBox.Create(frmDesign);
    CheckBox1.Parent := frmDesign;
    CheckBox1.Left := 449;
    CheckBox1.Top := 220;
    CheckBox1.Width := 70;
    CheckBox1.Height := 17;
    CheckBox1.Caption := 'Roam';
    CheckBox1.Checked := True;
    CheckBox1.State := cbChecked;
    CheckBox1.TabOrder := 8;
    smallsearch := TCheckBox.Create(frmDesign);
    smallsearch.Parent := frmDesign;
    smallsearch.Left := 524;
    smallsearch.Top := 156;
    smallsearch.Width := 120;
    smallsearch.Height := 17;
    smallsearch.Caption := '50x50 Search';
    smallsearch.Checked := True;
    smallsearch.State := cbChecked;
    smallsearch.TabOrder := 9;
    mediumsearch := TCheckBox.Create(frmDesign);
    mediumsearch.Parent := frmDesign;
    mediumsearch.Left := 524;
    mediumsearch.Top := 174;
    mediumsearch.Width := 136;
    mediumsearch.Height := 23;
    mediumsearch.Caption := '100x100 Search';
    mediumsearch.Checked := True;
    mediumsearch.State := cbChecked;
    mediumsearch.TabOrder := 10;
    CheckBox4 := TCheckBox.Create(frmDesign);
    CheckBox4.Parent := frmDesign;
    CheckBox4.Left := 384;
    CheckBox4.Top := 36;
    CheckBox4.Width := 145;
    CheckBox4.Height := 23;
    CheckBox4.Caption := 'Auto Feed';
    CheckBox4.Checked := True;
    CheckBox4.State := cbChecked;
    CheckBox4.TabOrder := 11;
    GroupBox3 := TGroupBox.Create(frmDesign);
    GroupBox3.Parent := frmDesign;
    GroupBox3.Left := 16;
    GroupBox3.Top := 256;
    GroupBox3.Width := 665;
    GroupBox3.Height := 113;
    GroupBox3.Caption := 'Miscellaneous Options';
    GroupBox3.TabOrder := 14;
    CheckBox2 := TCheckBox.Create(GroupBox3);
    CheckBox2.Parent := GroupBox3;
    CheckBox2.Left := 8;
    CheckBox2.Top := 24;
    CheckBox2.Width := 121;
    CheckBox2.Height := 25;
    CheckBox2.Caption := 'Human Mouse';
    CheckBox2.TabOrder := 0;
    CheckBox3 := TCheckBox.Create(GroupBox3);
    CheckBox3.Parent := GroupBox3;
    CheckBox3.Left := 8;
    CheckBox3.Top := 48;
    CheckBox3.Width := 121;
    CheckBox3.Height := 25;
    CheckBox3.Caption := 'Auto TimeOut';
    CheckBox3.TabOrder := 1;
    Edit1 := TEdit.Create(GroupBox3);
    Edit1.Parent := GroupBox3;
    Edit1.Left := 136;
    Edit1.Top := 48;
    Edit1.Width := 177;
    Edit1.Height := 26;
    Edit1.TabOrder := 2;
    Edit1.Text := '300000';
    CheckBox5 := TCheckBox.Create(frmDesign);
    CheckBox5.Parent := frmDesign;
    CheckBox5.Left := 224;
    CheckBox5.Top := 440;
    CheckBox5.Width := 1;
    CheckBox5.Height := 1;
    CheckBox5.Caption := 'CheckBox5';
    CheckBox5.TabOrder := 15;
    Memo1 := TMemo.Create(frmDesign);
    Memo1.Parent := frmDesign;
    Memo1.Left := 16;
    Memo1.Top := 376;
    Memo1.Width := 665;
    Memo1.Height := 57;
    Memo1.Color := clCream;
    Memo1.Font.Color := clBlack;
    Memo1.Font.Height := -13;
    Memo1.Font.Name := 'Arial Narrow';
    Memo1.Font.Style := [];
    Memo1.Lines.Add('//Running Macro Information');
    Memo1.Lines.Add('//Remember to Terminate the macro BEFORE you leave the GoonZu cl' +
      'ient (ALT + S). You'#39've been warned');
    Memo1.ParentFont := False;
    Memo1.TabOrder := 16;
    end;
    
    procedure SafeInitForm;
    var
      V : TVariantArray;
    begin
      SetArrayLength(V, 0);
      ThreadSafeCall('InitForm', V);
    end;
    
    procedure ShowInitFormModal;
    begin
      frmDesign.ShowModal;
    end;
    
    procedure SafeShowInitFormModal;
    var
      V : TVariantArray;
    begin
      SetArrayLength(V, 0);
      ThreadSafeCall('ShowInitFormModal', V);
    end;
    
    procedure MainInitForm;
    begin
      SafeInitForm;
      SafeShowInitFormModal;
      FreeForm(frmDesign);
    end;
    
    begin
      ClearDebug;
      MainInitForm;
    end.
    [Runtime Error] : Exception: Cannot make a visible window modal in line 338 in script

  2. #2
    Join Date
    Jan 2009
    Posts
    103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You have to Change the Line
    SCAR Code:
    frmDesign.Visible:=True;
    To
    SCAR Code:
    frmDesign.Visible:=False;

    I used to have that problem alot to. That should fix it.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •