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'.
[Runtime Error] : Exception: Cannot make a visible window modal in line 338 in scriptCode: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.


Reply With Quote
