Results 1 to 5 of 5

Thread: AutoTalker Form Problems.

  1. #1
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    AutoTalker Form Problems.

    I am creating this AutoTalker and this is my first form script so i need some help. I keep getting this error:
    Line 64: [Error] (14745:1): 'BEGIN' expected in script C:\Documents and Settings\Identity Hidden\Desktop\autotalkermerchanterbuyerseller.scar

    Here is the script:
    SCAR Code:
    {==============================================================================}
    {                   Auto Talker - Merchanter - Buyer - Seller                  }
    {                           Created by IP-Drowner                              }
    {------------------------------------------------------------------------------}
    {                            Uses SRL 4 Functions                              }
    {    Instructions:                                                             }
    {                 1) Read Function Key Support below.                          }
    {                 2) Setup the Form and then press Submit                      }
    {                 3) End script by pressing F10.                               }
    {                                                                              }
    {    Function Key Support:                                                     }
    {                           F2 - Types First   Sentence                        }
    {                           F3 - Types Second  Sentence                        }
    {                           F4 - Types Third   Sentence                        }
    {                           F5 - Types Fourth  Sentence                        }
    {                           F6 - Types Fifth   Sentence                        }
    {                           F7 - Types Sixth   Sentence                        }
    {                           F8 - Types Seventh Sentence                        }
    {                           F10 - Stops running this script.                   }
    {------------------------------------------------------------------------------}

    program Auto_Talker_Merchanter_Buyer_Seller_Made_By_IPDrowner;

    {----Include Files----}
    {.include SRL\SRL.scar}

    var
      frmDesign : TForm;
      Label1 : TLabel;
      Label2 : TLabel;
      Label3 : TLabel;
      Label4 : TLabel;
      Label5 : TLabel;
      Label6 : TLabel;
      Edit2 : TEdit;
      ComboBox1 : TComboBox;
      ComboBox2 : TComboBox;
      Edit1 : TEdit;
      ComboBox3 : TComboBox;
      ComboBox4 : TComboBox;
      Edit3 : TEdit;
      Edit4 : TEdit;
      Edit5 : TEdit;
      Edit6 : TEdit;
      Edit7 : TEdit;
      ComboBox5 : TComboBox;
      ComboBox6 : TComboBox;
      ComboBox7 : TComboBox;
      ComboBox8 : TComboBox;
      ComboBox9 : TComboBox;
      ComboBox10 : TComboBox;
      ComboBox11 : TComboBox;
      ComboBox12 : TComboBox;
      ComboBox13 : TComboBox;
      ComboBox14 : TComboBox;
      CheckBox1 : TCheckBox;
      CheckBox2 : TCheckBox;
      CheckBox3 : TCheckBox;
      CheckBox4 : TCheckBox;
      CheckBox5 : TCheckBox;
      CheckBox6 : TCheckBox;
      CheckBox7 : TCheckBox;
      Button1 : TButton;
       : TLabel;
      SaveDialog1 : TSaveDialog;
      OpenDialog1 : TOpenDialog;

    procedure InitForm;
    begin
    frmDesign := CreateForm;
    frmDesign.Left := 250;
    frmDesign.Top := 114;
    frmDesign.Width := 671;
    frmDesign.Height := 357;
    frmDesign.Caption :=
    frmDesign.Color := clBtnFace;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -11;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [];
    frmDesign.Visible := False;
    frmDesign.PixelsPerInch := 96;
    Label1 := TLabel.Create(frmDesign);
    Label1.Parent := frmDesign;
    Label1.Left := 8;
    Label1.Top := 24;
    Label1.Width := 74;
    Label1.Height := 16;
    Label1.Caption := 'Sentence(s):';
    Label1.Font.Color := clWindowText;
    Label1.Font.Height := -13;
    Label1.Font.Name := 'Arial';
    Label1.Font.Style := [];
    Label1.ParentFont := False;
    Label2 := TLabel.Create(frmDesign);
    Label2.Parent := frmDesign;
    Label2.Left := 456;
    Label2.Top := 24;
    Label2.Width := 56;
    Label2.Height := 16;
    Label2.Caption := 'Colour(s):';
    Label2.Font.Color := clWindowText;
    Label2.Font.Height := -13;
    Label2.Font.Name := 'Arial';
    Label2.Font.Style := [];
    Label2.ParentFont := False;
    Label3 := TLabel.Create(frmDesign);
    Label3.Parent := frmDesign;
    Label3.Left := 552;
    Label3.Top := 24;
    Label3.Width := 52;
    Label3.Height := 16;
    Label3.Caption := 'Effect(s):';
    Label3.Font.Color := clWindowText;
    Label3.Font.Height := -13;
    Label3.Font.Name := 'Arial';
    Label3.Font.Style := [];
    Label3.ParentFont := False;
    Label4 := TLabel.Create(frmDesign);
    Label4.Parent := frmDesign;
    Label4.Left := 624;
    Label4.Top := 24;
    Label4.Width := 27;
    Label4.Height := 16;
    Label4.Caption := 'Use:';
    Label4.Font.Color := clWindowText;
    Label4.Font.Height := -13;
    Label4.Font.Name := 'Arial';
    Label4.Font.Style := [];
    Label4.ParentFont := False;
    Label5 := TLabel.Create(frmDesign);
    Label5.Parent := frmDesign;
    Label5.Left := 56;
    Label5.Top := 288;
    Label5.Width := 129;
    Label5.Height := 16;
    Label5.Caption := 'Save Custom Settings';
    Label5.Font.Color := clWindowText;
    Label5.Font.Height := -13;
    Label5.Font.Name := 'Arial';
    Label5.Font.Style := [];
    Label5.ParentFont := False;
    Label6 := TLabel.Create(frmDesign);
    Label6.Parent := frmDesign;
    Label6.Left := 248;
    Label6.Top := 288;
    Label6.Width := 122;
    Label6.Height := 16;
    Label6.Caption := 'Open Saved Settings';
    Label6.Font.Color := clWindowText;
    Label6.Font.Height := -13;
    Label6.Font.Name := 'Arial';
    Label6.Font.Style := [];
    Label6.ParentFont := False;
    Edit2 := TEdit.Create(frmDesign);
    Edit2.Parent := frmDesign;
    Edit2.Left := 8;
    Edit2.Top := 48;
    Edit2.Width := 441;
    Edit2.Height := 21;
    Edit2.TabOrder := 8;
    Edit2.Text := 'Selling 1k Iron. 90 ea. 90k for all. Trade Username';
    ComboBox1 := TComboBox.Create(frmDesign);
    ComboBox1.Parent := frmDesign;
    ComboBox1.Left := 456;
    ComboBox1.Top := 48;
    ComboBox1.Width := 89;
    ComboBox1.Height := 21;
    ComboBox1.ItemHeight := 13;
    ComboBox1.TabOrder := 9;
    ComboBox1.Text := 'ComboBox1';
    ComboBox1.Items.Add('Yellow (Normal Colour)');
    ComboBox1.Items.Add('Flash1');
    ComboBox1.Items.Add('Flash2');
    ComboBox1.Items.Add('Flash3');
    ComboBox1.Items.Add('Glow1');
    ComboBox1.Items.Add('Glow2');
    ComboBox1.Items.Add('Glow3');
    ComboBox1.Items.Add('Black');
    ComboBox1.Items.Add('Blue');
    ComboBox1.Items.Add('Cyan');
    ComboBox1.Items.Add('Dark red');
    ComboBox1.Items.Add('Green1');
    ComboBox1.Items.Add('Green2');
    ComboBox1.Items.Add('Green3');
    ComboBox1.Items.Add('Green');
    ComboBox1.Items.Add('Light Red');
    ComboBox1.Items.Add('Magenta');
    ComboBox1.Items.Add('Orange1');
    ComboBox1.Items.Add('Orange2');
    ComboBox1.Items.Add('Orange3');
    ComboBox1.Items.Add('Orange');
    ComboBox1.Items.Add('Random, flashing text');
    ComboBox1.Items.Add('Red');
    ComboBox1.Items.Add('White');
    ComboBox2 := TComboBox.Create(frmDesign);
    ComboBox2.Parent := frmDesign;
    ComboBox2.Left := 552;
    ComboBox2.Top := 48;
    ComboBox2.Width := 65;
    ComboBox2.Height := 21;
    ComboBox2.ItemHeight := 13;
    ComboBox2.TabOrder := 10;
    ComboBox2.Text := 'ComboBox2';
    ComboBox2.Items.Add('Wave');
    ComboBox2.Items.Add('Wave2');
    ComboBox2.Items.Add('Scroll');
    ComboBox2.Items.Add('Shake');
    Edit1 := TEdit.Create(frmDesign);
    Edit1.Parent := frmDesign;
    Edit1.Left := 8;
    Edit1.Top := 80;
    Edit1.Width := 441;
    Edit1.Height := 21;
    Edit1.TabOrder := 11;
    Edit1.Text := 'Selling 1k Iron. 90 ea. 90k for all. Trade Username';
    ComboBox3 := TComboBox.Create(frmDesign);
    ComboBox3.Parent := frmDesign;
    ComboBox3.Left := 456;
    ComboBox3.Top := 80;
    ComboBox3.Width := 89;
    ComboBox3.Height := 21;
    ComboBox3.ItemHeight := 13;
    ComboBox3.TabOrder := 12;
    ComboBox3.Text := 'ComboBox1';
    ComboBox3.Items.Add('Yellow (Normal Colour)');
    ComboBox3.Items.Add('Flash1');
    ComboBox3.Items.Add('Flash2');
    ComboBox3.Items.Add('Flash3');
    ComboBox3.Items.Add('Glow1');
    ComboBox3.Items.Add('Glow2');
    ComboBox3.Items.Add('Glow3');
    ComboBox3.Items.Add('Black');
    ComboBox3.Items.Add('Blue');
    ComboBox3.Items.Add('Cyan');
    ComboBox3.Items.Add('Dark red');
    ComboBox3.Items.Add('Green1');
    ComboBox3.Items.Add('Green2');
    ComboBox3.Items.Add('Green3');
    ComboBox3.Items.Add('Green');
    ComboBox3.Items.Add('Light Red');
    ComboBox3.Items.Add('Magenta');
    ComboBox3.Items.Add('Orange1');
    ComboBox3.Items.Add('Orange2');
    ComboBox3.Items.Add('Orange3');
    ComboBox3.Items.Add('Orange');
    ComboBox3.Items.Add('Random, flashing text');
    ComboBox3.Items.Add('Red');
    ComboBox3.Items.Add('White');
    ComboBox4 := TComboBox.Create(frmDesign);
    ComboBox4.Parent := frmDesign;
    ComboBox4.Left := 552;
    ComboBox4.Top := 80;
    ComboBox4.Width := 65;
    ComboBox4.Height := 21;
    ComboBox4.ItemHeight := 13;
    ComboBox4.TabOrder := 13;
    ComboBox4.Text := 'ComboBox2';
    ComboBox4.Items.Add('Wave');
    ComboBox4.Items.Add('Wave2');
    ComboBox4.Items.Add('Scroll');
    ComboBox4.Items.Add('Shake');
    Edit3 := TEdit.Create(frmDesign);
    Edit3.Parent := frmDesign;
    Edit3.Left := 8;
    Edit3.Top := 112;
    Edit3.Width := 441;
    Edit3.Height := 21;
    Edit3.TabOrder := 14;
    Edit3.Text := 'Selling 1k Iron. 90 ea. 90k for all. Trade Username';
    Edit4 := TEdit.Create(frmDesign);
    Edit4.Parent := frmDesign;
    Edit4.Left := 8;
    Edit4.Top := 144;
    Edit4.Width := 441;
    Edit4.Height := 21;
    Edit4.TabOrder := 15;
    Edit4.Text := 'Selling 1k Iron. 90 ea. 90k for all. Trade Username';
    Edit5 := TEdit.Create(frmDesign);
    Edit5.Parent := frmDesign;
    Edit5.Left := 8;
    Edit5.Top := 176;
    Edit5.Width := 441;
    Edit5.Height := 21;
    Edit5.TabOrder := 16;
    Edit5.Text := 'Selling 1k Iron. 90 ea. 90k for all. Trade Username';
    Edit6 := TEdit.Create(frmDesign);
    Edit6.Parent := frmDesign;
    Edit6.Left := 8;
    Edit6.Top := 208;
    Edit6.Width := 441;
    Edit6.Height := 21;
    Edit6.TabOrder := 17;
    Edit6.Text := 'Selling 1k Iron. 90 ea. 90k for all. Trade Username';
    Edit7 := TEdit.Create(frmDesign);
    Edit7.Parent := frmDesign;
    Edit7.Left := 8;
    Edit7.Top := 240;
    Edit7.Width := 441;
    Edit7.Height := 21;
    Edit7.TabOrder := 18;
    Edit7.Text := 'Selling 1k Iron. 90 ea. 90k for all. Trade Username';
    ComboBox5 := TComboBox.Create(frmDesign);
    ComboBox5.Parent := frmDesign;
    ComboBox5.Left := 456;
    ComboBox5.Top := 112;
    ComboBox5.Width := 89;
    ComboBox5.Height := 21;
    ComboBox5.ItemHeight := 13;
    ComboBox5.TabOrder := 19;
    ComboBox5.Text := 'ComboBox1';
    ComboBox5.Items.Add('Yellow (Normal Colour)');
    ComboBox5.Items.Add('Flash1');
    ComboBox5.Items.Add('Flash2');
    ComboBox5.Items.Add('Flash3');
    ComboBox5.Items.Add('Glow1');
    ComboBox5.Items.Add('Glow2');
    ComboBox5.Items.Add('Glow3');
    ComboBox5.Items.Add('Black');
    ComboBox5.Items.Add('Blue');
    ComboBox5.Items.Add('Cyan');
    ComboBox5.Items.Add('Dark red');
    ComboBox5.Items.Add('Green1');
    ComboBox5.Items.Add('Green2');
    ComboBox5.Items.Add('Green3');
    ComboBox5.Items.Add('Green');
    ComboBox5.Items.Add('Light Red');
    ComboBox5.Items.Add('Magenta');
    ComboBox5.Items.Add('Orange1');
    ComboBox5.Items.Add('Orange2');
    ComboBox5.Items.Add('Orange3');
    ComboBox5.Items.Add('Orange');
    ComboBox5.Items.Add('Random, flashing text');
    ComboBox5.Items.Add('Red');
    ComboBox5.Items.Add('White');
    ComboBox6 := TComboBox.Create(frmDesign);
    ComboBox6.Parent := frmDesign;
    ComboBox6.Left := 456;
    ComboBox6.Top := 176;
    ComboBox6.Width := 89;
    ComboBox6.Height := 21;
    ComboBox6.ItemHeight := 13;
    ComboBox6.TabOrder := 20;
    ComboBox6.Text := 'ComboBox1';
    ComboBox6.Items.Add('Yellow (Normal Colour)');
    ComboBox6.Items.Add('Flash1');
    ComboBox6.Items.Add('Flash2');
    ComboBox6.Items.Add('Flash3');
    ComboBox6.Items.Add('Glow1');
    ComboBox6.Items.Add('Glow2');
    ComboBox6.Items.Add('Glow3');
    ComboBox6.Items.Add('Black');
    ComboBox6.Items.Add('Blue');
    ComboBox6.Items.Add('Cyan');
    ComboBox6.Items.Add('Dark red');
    ComboBox6.Items.Add('Green1');
    ComboBox6.Items.Add('Green2');
    ComboBox6.Items.Add('Green3');
    ComboBox6.Items.Add('Green');
    ComboBox6.Items.Add('Light Red');
    ComboBox6.Items.Add('Magenta');
    ComboBox6.Items.Add('Orange1');
    ComboBox6.Items.Add('Orange2');
    ComboBox6.Items.Add('Orange3');
    ComboBox6.Items.Add('Orange');
    ComboBox6.Items.Add('Random, flashing text');
    ComboBox6.Items.Add('Red');
    ComboBox6.Items.Add('White');
    ComboBox7 := TComboBox.Create(frmDesign);
    ComboBox7.Parent := frmDesign;
    ComboBox7.Left := 456;
    ComboBox7.Top := 144;
    ComboBox7.Width := 89;
    ComboBox7.Height := 21;
    ComboBox7.ItemHeight := 13;
    ComboBox7.TabOrder := 21;
    ComboBox7.Text := 'ComboBox1';
    ComboBox7.Items.Add('Yellow (Normal Colour)');
    ComboBox7.Items.Add('Flash1');
    ComboBox7.Items.Add('Flash2');
    ComboBox7.Items.Add('Flash3');
    ComboBox7.Items.Add('Glow1');
    ComboBox7.Items.Add('Glow2');
    ComboBox7.Items.Add('Glow3');
    ComboBox7.Items.Add('Black');
    ComboBox7.Items.Add('Blue');
    ComboBox7.Items.Add('Cyan');
    ComboBox7.Items.Add('Dark red');
    ComboBox7.Items.Add('Green1');
    ComboBox7.Items.Add('Green2');
    ComboBox7.Items.Add('Green3');
    ComboBox7.Items.Add('Green');
    ComboBox7.Items.Add('Light Red');
    ComboBox7.Items.Add('Magenta');
    ComboBox7.Items.Add('Orange1');
    ComboBox7.Items.Add('Orange2');
    ComboBox7.Items.Add('Orange3');
    ComboBox7.Items.Add('Orange');
    ComboBox7.Items.Add('Random, flashing text');
    ComboBox7.Items.Add('Red');
    ComboBox7.Items.Add('White');
    ComboBox8 := TComboBox.Create(frmDesign);
    ComboBox8.Parent := frmDesign;
    ComboBox8.Left := 456;
    ComboBox8.Top := 240;
    ComboBox8.Width := 89;
    ComboBox8.Height := 21;
    ComboBox8.ItemHeight := 13;
    ComboBox8.TabOrder := 22;
    ComboBox8.Text := 'ComboBox1';
    ComboBox8.Items.Add('Yellow (Normal Colour)');
    ComboBox8.Items.Add('Flash1');
    ComboBox8.Items.Add('Flash2');
    ComboBox8.Items.Add('Flash3');
    ComboBox8.Items.Add('Glow1');
    ComboBox8.Items.Add('Glow2');
    ComboBox8.Items.Add('Glow3');
    ComboBox8.Items.Add('Black');
    ComboBox8.Items.Add('Blue');
    ComboBox8.Items.Add('Cyan');
    ComboBox8.Items.Add('Dark red');
    ComboBox8.Items.Add('Green1');
    ComboBox8.Items.Add('Green2');
    ComboBox8.Items.Add('Green3');
    ComboBox8.Items.Add('Green');
    ComboBox8.Items.Add('Light Red');
    ComboBox8.Items.Add('Magenta');
    ComboBox8.Items.Add('Orange1');
    ComboBox8.Items.Add('Orange2');
    ComboBox8.Items.Add('Orange3');
    ComboBox8.Items.Add('Orange');
    ComboBox8.Items.Add('Random, flashing text');
    ComboBox8.Items.Add('Red');
    ComboBox8.Items.Add('White');
    ComboBox9 := TComboBox.Create(frmDesign);
    ComboBox9.Parent := frmDesign;
    ComboBox9.Left := 456;
    ComboBox9.Top := 208;
    ComboBox9.Width := 89;
    ComboBox9.Height := 21;
    ComboBox9.ItemHeight := 13;
    ComboBox9.TabOrder := 23;
    ComboBox9.Text := 'ComboBox1';
    ComboBox9.Items.Add('Yellow (Normal Colour)');
    ComboBox9.Items.Add('Flash1');
    ComboBox9.Items.Add('Flash2');
    ComboBox9.Items.Add('Flash3');
    ComboBox9.Items.Add('Glow1');
    ComboBox9.Items.Add('Glow2');
    ComboBox9.Items.Add('Glow3');
    ComboBox9.Items.Add('Black');
    ComboBox9.Items.Add('Blue');
    ComboBox9.Items.Add('Cyan');
    ComboBox9.Items.Add('Dark red');
    ComboBox9.Items.Add('Green1');
    ComboBox9.Items.Add('Green2');
    ComboBox9.Items.Add('Green3');
    ComboBox9.Items.Add('Green');
    ComboBox9.Items.Add('Light Red');
    ComboBox9.Items.Add('Magenta');
    ComboBox9.Items.Add('Orange1');
    ComboBox9.Items.Add('Orange2');
    ComboBox9.Items.Add('Orange3');
    ComboBox9.Items.Add('Orange');
    ComboBox9.Items.Add('Random, flashing text');
    ComboBox9.Items.Add('Red');
    ComboBox9.Items.Add('White');
    ComboBox10 := TComboBox.Create(frmDesign);
    ComboBox10.Parent := frmDesign;
    ComboBox10.Left := 552;
    ComboBox10.Top := 240;
    ComboBox10.Width := 65;
    ComboBox10.Height := 21;
    ComboBox10.ItemHeight := 13;
    ComboBox10.TabOrder := 24;
    ComboBox10.Text := 'ComboBox2';
    ComboBox10.Items.Add('Wave');
    ComboBox10.Items.Add('Wave2');
    ComboBox10.Items.Add('Scroll');
    ComboBox10.Items.Add('Shake');
    ComboBox11 := TComboBox.Create(frmDesign);
    ComboBox11.Parent := frmDesign;
    ComboBox11.Left := 552;
    ComboBox11.Top := 208;
    ComboBox11.Width := 65;
    ComboBox11.Height := 21;
    ComboBox11.ItemHeight := 13;
    ComboBox11.TabOrder := 25;
    ComboBox11.Text := 'ComboBox2';
    ComboBox11.Items.Add('Wave');
    ComboBox11.Items.Add('Wave2');
    ComboBox11.Items.Add('Scroll');
    ComboBox11.Items.Add('Shake');
    ComboBox12 := TComboBox.Create(frmDesign);
    ComboBox12.Parent := frmDesign;
    ComboBox12.Left := 552;
    ComboBox12.Top := 176;
    ComboBox12.Width := 65;
    ComboBox12.Height := 21;
    ComboBox12.ItemHeight := 13;
    ComboBox12.TabOrder := 26;
    ComboBox12.Text := 'ComboBox2';
    ComboBox12.Items.Add('Wave');
    ComboBox12.Items.Add('Wave2');
    ComboBox12.Items.Add('Scroll');
    ComboBox12.Items.Add('Shake');
    ComboBox13 := TComboBox.Create(frmDesign);
    ComboBox13.Parent := frmDesign;
    ComboBox13.Left := 552;
    ComboBox13.Top := 144;
    ComboBox13.Width := 65;
    ComboBox13.Height := 21;
    ComboBox13.ItemHeight := 13;
    ComboBox13.TabOrder := 27;
    ComboBox13.Text := 'ComboBox2';
    ComboBox13.Items.Add('Wave');
    ComboBox13.Items.Add('Wave2');
    ComboBox13.Items.Add('Scroll');
    ComboBox13.Items.Add('Shake');
    ComboBox14 := TComboBox.Create(frmDesign);
    ComboBox14.Parent := frmDesign;
    ComboBox14.Left := 552;
    ComboBox14.Top := 112;
    ComboBox14.Width := 65;
    ComboBox14.Height := 21;
    ComboBox14.ItemHeight := 13;
    ComboBox14.TabOrder := 28;
    ComboBox14.Text := 'ComboBox2';
    ComboBox14.Items.Add('Wave');
    ComboBox14.Items.Add('Wave2');
    ComboBox14.Items.Add('Scroll');
    ComboBox14.Items.Add('Shake');
    CheckBox1 := TCheckBox.Create(frmDesign);
    CheckBox1.Parent := frmDesign;
    CheckBox1.Left := 632;
    CheckBox1.Top := 48;
    CheckBox1.Width := 17;
    CheckBox1.Height := 17;
    CheckBox1.TabOrder := 29;
    CheckBox2 := TCheckBox.Create(frmDesign);
    CheckBox2.Parent := frmDesign;
    CheckBox2.Left := 632;
    CheckBox2.Top := 80;
    CheckBox2.Width := 17;
    CheckBox2.Height := 17;
    CheckBox2.TabOrder := 30;
    CheckBox3 := TCheckBox.Create(frmDesign);
    CheckBox3.Parent := frmDesign;
    CheckBox3.Left := 632;
    CheckBox3.Top := 112;
    CheckBox3.Width := 17;
    CheckBox3.Height := 17;
    CheckBox3.TabOrder := 31;
    CheckBox4 := TCheckBox.Create(frmDesign);
    CheckBox4.Parent := frmDesign;
    CheckBox4.Left := 632;
    CheckBox4.Top := 144;
    CheckBox4.Width := 17;
    CheckBox4.Height := 17;
    CheckBox4.TabOrder := 32;
    CheckBox5 := TCheckBox.Create(frmDesign);
    CheckBox5.Parent := frmDesign;
    CheckBox5.Left := 632;
    CheckBox5.Top := 176;
    CheckBox5.Width := 17;
    CheckBox5.Height := 17;
    CheckBox5.TabOrder := 33;
    CheckBox6 := TCheckBox.Create(frmDesign);
    CheckBox6.Parent := frmDesign;
    CheckBox6.Left := 632;
    CheckBox6.Top := 208;
    CheckBox6.Width := 17;
    CheckBox6.Height := 17;
    CheckBox6.TabOrder := 34;
    CheckBox7 := TCheckBox.Create(frmDesign);
    CheckBox7.Parent := frmDesign;
    CheckBox7.Left := 632;
    CheckBox7.Top := 240;
    CheckBox7.Width := 17;
    CheckBox7.Height := 17;
    CheckBox7.TabOrder := 35;
    Button1 := TButton.Create(frmDesign);
    Button1.Parent := frmDesign;
    Button1.Left := 456;
    Button1.Top := 280;
    Button1.Width := 177;
    Button1.Height := 25;
    Button1.Caption := '&S&u&b&m&i&t Custom Settings';
    Button1.TabOrder := 36;
     := TLabel.Create(frmDesign);
    .Parent := frmDesign;
    .Left := 0;
    .Top := 0;
    .Width := 65;
    .Height := 17;
    SaveDialog1 := TSaveDialog.Create(frmDesign);
    SaveDialog1.Parent := frmDesign;
    SaveDialog1.Left := 16;
    SaveDialog1.Top := 280;
    OpenDialog1 := TOpenDialog.Create(frmDesign);
    OpenDialog1.Parent := frmDesign;
    OpenDialog1.Left := 208;
    OpenDialog1.Top := 280;
    end;

    procedure SafeInitForm;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('InitForm', v);
    end;

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

    procedure SafeShowFormModal;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('ShowFormModal', v);
    end;

    procedure TypeSendSettings;
    begin
     if(IsFKeyDown(2)) then
      begin
       TypeSend(Sen1);
      end;
     if(IsFKeyDown(3)) then
      begin
       TypeSend(Sen2);
      end;
     if(IsFKeyDown(4)) then
      begin
       TypeSend(Sen3);
      end;
     if(IsFKeyDown(5)) then
      begin
       TypeSend(Sen4);
      end;
     if(IsFKeyDown(6)) then
      begin
       TypeSend(Sen5);
      end;
     if(IsFKeyDown(7)) then
      begin
       TypeSend(Sen6);
      end;
     if(IsFKeyDown(8)) then
      begin
       TypeSend(Sen7);
      end;
    end;

    begin
     SafeInitForm;
     SafeShowFormModal;
      repeat
       TypeSendSettings;
      Until(IsFKeyDown(10))
    end.

    There is still more to add to the script like using colours properly.

    So please help me.

    If you want to add some suggestion's, you may do so. I used the form tutorial in SCAR by pressing F1 and scrolling right down to the bottom.

    Thanks!

  2. #2
    Join Date
    Aug 2007
    Posts
    429
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    .. Look in line 64.

    SCAR Code:
    CheckBox7 : TCheckBox; //62
      Button1 : TButton; //63
       : TLabel; //64
      SaveDialog1 : TSaveDialog; //65
    you have no variable there in line 64. actually you don't even need that line lol.

    also in line 74:
    SCAR Code:
    frmDesign.Height := 357;//73
    frmDesign.Caption := //74
    frmDesign.Color := clBtnFace; //75
    there is nothing entered for the caption. this will give you an error.

    EDIT:
    there were a still few things off that i found. i fixed some stuff and i hope this helps you a little =]
    SCAR Code:
    {==============================================================================}
    {                   Auto Talker - Merchanter - Buyer - Seller                  }
    {                           Created by IP-Drowner                              }
    {------------------------------------------------------------------------------}
    {                            Uses SRL 4 Functions                              }
    {    Instructions:                                                             }
    {                 1) Read Function Key Support below.                          }
    {                 2) Setup the Form and then press Submit                      }
    {                 3) End script by pressing F10.                               }
    {                                                                              }
    {    Function Key Support:                                                     }
    {                           F2 - Types First   Sentence                        }
    {                           F3 - Types Second  Sentence                        }
    {                           F4 - Types Third   Sentence                        }
    {                           F5 - Types Fourth  Sentence                        }
    {                           F6 - Types Fifth   Sentence                        }
    {                           F7 - Types Sixth   Sentence                        }
    {                           F8 - Types Seventh Sentence                        }
    {                           F10 - Stops running this script.                   }
    {------------------------------------------------------------------------------}

    program Auto_Talker_Merchanter_Buyer_Seller_Made_By_IPDrowner;

    {----Include Files----}
    {.include SRL\SRL.scar}

    var
      frmDesign : TForm;
      Label1 : TLabel;
      Label2 : TLabel;
      Label3 : TLabel;
      Label4 : TLabel;
      Label5 : TLabel;
      Label6 : TLabel;
      ComboBox1 : TComboBox;
      ComboBox2 : TComboBox;
      Edit : array [1..7] of TEdit;
      ComboBox3 : TComboBox;
      ComboBox4 : TComboBox;
      ComboBox5 : TComboBox;
      ComboBox6 : TComboBox;
      ComboBox7 : TComboBox;
      ComboBox8 : TComboBox;
      ComboBox9 : TComboBox;
      ComboBox10 : TComboBox;
      ComboBox11 : TComboBox;
      ComboBox12 : TComboBox;
      ComboBox13 : TComboBox;
      ComboBox14 : TComboBox;
      CheckBox1 : TCheckBox;
      CheckBox2 : TCheckBox;
      CheckBox3 : TCheckBox;
      CheckBox4 : TCheckBox;
      CheckBox5 : TCheckBox;
      CheckBox6 : TCheckBox;
      CheckBox7 : TCheckBox;
      Button1 : TButton;
      SaveDialog1 : TSaveDialog;
      OpenDialog1 : TOpenDialog;
      Sen : array [1..7] of string;
      i : integer;


    procedure OpenIt(Sender :TObject);
    begin
      OpenDialog1 := TOpenDialog.Create(frmDesign);
      OpenDialog1.Execute;
    end;

    procedure SaveIt(Sender: TObject);
    begin
      SaveDialog1 := TSaveDialog.Create(frmDesign);
      SaveDialog1.Execute;
    end;

    procedure InitForm;
    begin
    frmDesign := CreateForm;
    frmDesign.Left := 250;
    frmDesign.Top := 114;
    frmDesign.Width := 671;
    frmDesign.Height := 357;
    frmDesign.Caption := '';
    frmDesign.Color := clBtnFace;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -11;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [];
    frmDesign.Visible := False;
    frmDesign.PixelsPerInch := 96;
    Label1 := TLabel.Create(frmDesign);
    Label1.Parent := frmDesign;
    Label1.Left := 8;
    Label1.Top := 24;
    Label1.Width := 74;
    Label1.Height := 16;
    Label1.Caption := 'Sentence(s):';
    Label1.Font.Color := clWindowText;
    Label1.Font.Height := -13;
    Label1.Font.Name := 'Arial';
    Label1.Font.Style := [];
    Label1.ParentFont := False;
    Label2 := TLabel.Create(frmDesign);
    Label2.Parent := frmDesign;
    Label2.Left := 456;
    Label2.Top := 24;
    Label2.Width := 56;
    Label2.Height := 16;
    Label2.Caption := 'Colour(s):';
    Label2.Font.Color := clWindowText;
    Label2.Font.Height := -13;
    Label2.Font.Name := 'Arial';
    Label2.Font.Style := [];
    Label2.ParentFont := False;
    Label3 := TLabel.Create(frmDesign);
    Label3.Parent := frmDesign;
    Label3.Left := 552;
    Label3.Top := 24;
    Label3.Width := 52;
    Label3.Height := 16;
    Label3.Caption := 'Effect(s):';
    Label3.Font.Color := clWindowText;
    Label3.Font.Height := -13;
    Label3.Font.Name := 'Arial';
    Label3.Font.Style := [];
    Label3.ParentFont := False;
    Label4 := TLabel.Create(frmDesign);
    Label4.Parent := frmDesign;
    Label4.Left := 624;
    Label4.Top := 24;
    Label4.Width := 27;
    Label4.Height := 16;
    Label4.Caption := 'Use:';
    Label4.Font.Color := clWindowText;
    Label4.Font.Height := -13;
    Label4.Font.Name := 'Arial';
    Label4.Font.Style := [];
    Label4.ParentFont := False;
    Label5 := TLabel.Create(frmDesign);
    Label5.Parent := frmDesign;
    Label5.Left := 56;
    Label5.Top := 288;
    Label5.Width := 129;
    Label5.Height := 16;
    Label5.Caption := 'Save Custom Settings';
    Label5.Font.Color := clWindowText;
    Label5.Font.Height := -13;
    Label5.Font.Name := 'Arial';
    Label5.Font.Style := [];
    Label5.ParentFont := False;
    Label5.OnClick := @SaveIt;
    Label6 := TLabel.Create(frmDesign);
    Label6.Parent := frmDesign;
    Label6.Left := 248;
    Label6.Top := 288;
    Label6.Width := 122;
    Label6.Height := 16;
    Label6.Caption := 'Open Saved Settings';
    Label6.Font.Color := clWindowText;
    Label6.Font.Height := -13;
    Label6.Font.Name := 'Arial';
    Label6.Font.Style := [];
    Label6.ParentFont := False;
    Label6.OnClick := @OpenIt;
    Edit[2] := TEdit.Create(frmDesign);
    Edit[2].Parent := frmDesign;
    Edit[2].Left := 8;
    Edit[2].Top := 48;
    Edit[2].Width := 441;
    Edit[2].Height := 21;
    Edit[2].TabOrder := 8;
    Edit[2].Text := 'Selling 1k Iron. 90 ea. 90k for all. Trade Username';
    ComboBox1 := TComboBox.Create(frmDesign);
    ComboBox1.Parent := frmDesign;
    ComboBox1.Left := 456;
    ComboBox1.Top := 48;
    ComboBox1.Width := 89;
    ComboBox1.Height := 21;
    ComboBox1.ItemHeight := 13;
    ComboBox1.TabOrder := 9;
    ComboBox1.Text := 'ComboBox1';
    ComboBox1.Items.Add('Yellow (Normal Colour)');
    ComboBox1.Items.Add('Flash1');
    ComboBox1.Items.Add('Flash2');
    ComboBox1.Items.Add('Flash3');
    ComboBox1.Items.Add('Glow1');
    ComboBox1.Items.Add('Glow2');
    ComboBox1.Items.Add('Glow3');
    ComboBox1.Items.Add('Black');
    ComboBox1.Items.Add('Blue');
    ComboBox1.Items.Add('Cyan');
    ComboBox1.Items.Add('Dark red');
    ComboBox1.Items.Add('Green1');
    ComboBox1.Items.Add('Green2');
    ComboBox1.Items.Add('Green3');
    ComboBox1.Items.Add('Green');
    ComboBox1.Items.Add('Light Red');
    ComboBox1.Items.Add('Magenta');
    ComboBox1.Items.Add('Orange1');
    ComboBox1.Items.Add('Orange2');
    ComboBox1.Items.Add('Orange3');
    ComboBox1.Items.Add('Orange');
    ComboBox1.Items.Add('Random, flashing text');
    ComboBox1.Items.Add('Red');
    ComboBox1.Items.Add('White');
    ComboBox2 := TComboBox.Create(frmDesign);
    ComboBox2.Parent := frmDesign;
    ComboBox2.Left := 552;
    ComboBox2.Top := 48;
    ComboBox2.Width := 65;
    ComboBox2.Height := 21;
    ComboBox2.ItemHeight := 13;
    ComboBox2.TabOrder := 10;
    ComboBox2.Text := 'ComboBox2';
    ComboBox2.Items.Add('Wave');
    ComboBox2.Items.Add('Wave2');
    ComboBox2.Items.Add('Scroll');
    ComboBox2.Items.Add('Shake');
    Edit[1] := TEdit.Create(frmDesign);
    Edit[1].Parent := frmDesign;
    Edit[1].Left := 8;
    Edit[1].Top := 80;
    Edit[1].Width := 441;
    Edit[1].Height := 21;
    Edit[1].TabOrder := 11;
    Edit[1].Text := 'Selling 1k Iron. 90 ea. 90k for all. Trade Username';
    ComboBox3 := TComboBox.Create(frmDesign);
    ComboBox3.Parent := frmDesign;
    ComboBox3.Left := 456;
    ComboBox3.Top := 80;
    ComboBox3.Width := 89;
    ComboBox3.Height := 21;
    ComboBox3.ItemHeight := 13;
    ComboBox3.TabOrder := 12;
    ComboBox3.Text := 'ComboBox1';
    ComboBox3.Items.Add('Yellow (Normal Colour)');
    ComboBox3.Items.Add('Flash1');
    ComboBox3.Items.Add('Flash2');
    ComboBox3.Items.Add('Flash3');
    ComboBox3.Items.Add('Glow1');
    ComboBox3.Items.Add('Glow2');
    ComboBox3.Items.Add('Glow3');
    ComboBox3.Items.Add('Black');
    ComboBox3.Items.Add('Blue');
    ComboBox3.Items.Add('Cyan');
    ComboBox3.Items.Add('Dark red');
    ComboBox3.Items.Add('Green1');
    ComboBox3.Items.Add('Green2');
    ComboBox3.Items.Add('Green3');
    ComboBox3.Items.Add('Green');
    ComboBox3.Items.Add('Light Red');
    ComboBox3.Items.Add('Magenta');
    ComboBox3.Items.Add('Orange1');
    ComboBox3.Items.Add('Orange2');
    ComboBox3.Items.Add('Orange3');
    ComboBox3.Items.Add('Orange');
    ComboBox3.Items.Add('Random, flashing text');
    ComboBox3.Items.Add('Red');
    ComboBox3.Items.Add('White');
    ComboBox4 := TComboBox.Create(frmDesign);
    ComboBox4.Parent := frmDesign;
    ComboBox4.Left := 552;
    ComboBox4.Top := 80;
    ComboBox4.Width := 65;
    ComboBox4.Height := 21;
    ComboBox4.ItemHeight := 13;
    ComboBox4.TabOrder := 13;
    ComboBox4.Text := 'ComboBox2';
    ComboBox4.Items.Add('Wave');
    ComboBox4.Items.Add('Wave2');
    ComboBox4.Items.Add('Scroll');
    ComboBox4.Items.Add('Shake');
    Edit[3] := TEdit.Create(frmDesign);
    Edit[3].Parent := frmDesign;
    Edit[3].Left := 8;
    Edit[3].Top := 112;
    Edit[3].Width := 441;
    Edit[3].Height := 21;
    Edit[3].TabOrder := 14;
    Edit[3].Text := 'Selling 1k Iron. 90 ea. 90k for all. Trade Username';
    Edit[4] := TEdit.Create(frmDesign);
    Edit[4].Parent := frmDesign;
    Edit[4].Left := 8;
    Edit[4].Top := 144;
    Edit[4].Width := 441;
    Edit[4].Height := 21;
    Edit[4].TabOrder := 15;
    Edit[4].Text := 'Selling 1k Iron. 90 ea. 90k for all. Trade Username';
    Edit[5] := TEdit.Create(frmDesign);
    Edit[5].Parent := frmDesign;
    Edit[5].Left := 8;
    Edit[5].Top := 176;
    Edit[5].Width := 441;
    Edit[5].Height := 21;
    Edit[5].TabOrder := 16;
    Edit[5].Text := 'Selling 1k Iron. 90 ea. 90k for all. Trade Username';
    Edit[6] := TEdit.Create(frmDesign);
    Edit[6].Parent := frmDesign;
    Edit[6].Left := 8;
    Edit[6].Top := 208;
    Edit[6].Width := 441;
    Edit[6].Height := 21;
    Edit[6].TabOrder := 17;
    Edit[6].Text := 'Selling 1k Iron. 90 ea. 90k for all. Trade Username';
    Edit[7] := TEdit.Create(frmDesign);
    Edit[7].Parent := frmDesign;
    Edit[7].Left := 8;
    Edit[7].Top := 240;
    Edit[7].Width := 441;
    Edit[7].Height := 21;
    Edit[7].TabOrder := 18;
    Edit[7].Text := 'Selling 1k Iron. 90 ea. 90k for all. Trade Username';
    ComboBox5 := TComboBox.Create(frmDesign);
    ComboBox5.Parent := frmDesign;
    ComboBox5.Left := 456;
    ComboBox5.Top := 112;
    ComboBox5.Width := 89;
    ComboBox5.Height := 21;
    ComboBox5.ItemHeight := 13;
    ComboBox5.TabOrder := 19;
    ComboBox5.Text := 'ComboBox1';
    ComboBox5.Items.Add('Yellow (Normal Colour)');
    ComboBox5.Items.Add('Flash1');
    ComboBox5.Items.Add('Flash2');
    ComboBox5.Items.Add('Flash3');
    ComboBox5.Items.Add('Glow1');
    ComboBox5.Items.Add('Glow2');
    ComboBox5.Items.Add('Glow3');
    ComboBox5.Items.Add('Black');
    ComboBox5.Items.Add('Blue');
    ComboBox5.Items.Add('Cyan');
    ComboBox5.Items.Add('Dark red');
    ComboBox5.Items.Add('Green1');
    ComboBox5.Items.Add('Green2');
    ComboBox5.Items.Add('Green3');
    ComboBox5.Items.Add('Green');
    ComboBox5.Items.Add('Light Red');
    ComboBox5.Items.Add('Magenta');
    ComboBox5.Items.Add('Orange1');
    ComboBox5.Items.Add('Orange2');
    ComboBox5.Items.Add('Orange3');
    ComboBox5.Items.Add('Orange');
    ComboBox5.Items.Add('Random, flashing text');
    ComboBox5.Items.Add('Red');
    ComboBox5.Items.Add('White');
    ComboBox6 := TComboBox.Create(frmDesign);
    ComboBox6.Parent := frmDesign;
    ComboBox6.Left := 456;
    ComboBox6.Top := 176;
    ComboBox6.Width := 89;
    ComboBox6.Height := 21;
    ComboBox6.ItemHeight := 13;
    ComboBox6.TabOrder := 20;
    ComboBox6.Text := 'ComboBox1';
    ComboBox6.Items.Add('Yellow (Normal Colour)');
    ComboBox6.Items.Add('Flash1');
    ComboBox6.Items.Add('Flash2');
    ComboBox6.Items.Add('Flash3');
    ComboBox6.Items.Add('Glow1');
    ComboBox6.Items.Add('Glow2');
    ComboBox6.Items.Add('Glow3');
    ComboBox6.Items.Add('Black');
    ComboBox6.Items.Add('Blue');
    ComboBox6.Items.Add('Cyan');
    ComboBox6.Items.Add('Dark red');
    ComboBox6.Items.Add('Green1');
    ComboBox6.Items.Add('Green2');
    ComboBox6.Items.Add('Green3');
    ComboBox6.Items.Add('Green');
    ComboBox6.Items.Add('Light Red');
    ComboBox6.Items.Add('Magenta');
    ComboBox6.Items.Add('Orange1');
    ComboBox6.Items.Add('Orange2');
    ComboBox6.Items.Add('Orange3');
    ComboBox6.Items.Add('Orange');
    ComboBox6.Items.Add('Random, flashing text');
    ComboBox6.Items.Add('Red');
    ComboBox6.Items.Add('White');
    ComboBox7 := TComboBox.Create(frmDesign);
    ComboBox7.Parent := frmDesign;
    ComboBox7.Left := 456;
    ComboBox7.Top := 144;
    ComboBox7.Width := 89;
    ComboBox7.Height := 21;
    ComboBox7.ItemHeight := 13;
    ComboBox7.TabOrder := 21;
    ComboBox7.Text := 'ComboBox1';
    ComboBox7.Items.Add('Yellow (Normal Colour)');
    ComboBox7.Items.Add('Flash1');
    ComboBox7.Items.Add('Flash2');
    ComboBox7.Items.Add('Flash3');
    ComboBox7.Items.Add('Glow1');
    ComboBox7.Items.Add('Glow2');
    ComboBox7.Items.Add('Glow3');
    ComboBox7.Items.Add('Black');
    ComboBox7.Items.Add('Blue');
    ComboBox7.Items.Add('Cyan');
    ComboBox7.Items.Add('Dark red');
    ComboBox7.Items.Add('Green1');
    ComboBox7.Items.Add('Green2');
    ComboBox7.Items.Add('Green3');
    ComboBox7.Items.Add('Green');
    ComboBox7.Items.Add('Light Red');
    ComboBox7.Items.Add('Magenta');
    ComboBox7.Items.Add('Orange1');
    ComboBox7.Items.Add('Orange2');
    ComboBox7.Items.Add('Orange3');
    ComboBox7.Items.Add('Orange');
    ComboBox7.Items.Add('Random, flashing text');
    ComboBox7.Items.Add('Red');
    ComboBox7.Items.Add('White');
    ComboBox8 := TComboBox.Create(frmDesign);
    ComboBox8.Parent := frmDesign;
    ComboBox8.Left := 456;
    ComboBox8.Top := 240;
    ComboBox8.Width := 89;
    ComboBox8.Height := 21;
    ComboBox8.ItemHeight := 13;
    ComboBox8.TabOrder := 22;
    ComboBox8.Text := 'ComboBox1';
    ComboBox8.Items.Add('Yellow (Normal Colour)');
    ComboBox8.Items.Add('Flash1');
    ComboBox8.Items.Add('Flash2');
    ComboBox8.Items.Add('Flash3');
    ComboBox8.Items.Add('Glow1');
    ComboBox8.Items.Add('Glow2');
    ComboBox8.Items.Add('Glow3');
    ComboBox8.Items.Add('Black');
    ComboBox8.Items.Add('Blue');
    ComboBox8.Items.Add('Cyan');
    ComboBox8.Items.Add('Dark red');
    ComboBox8.Items.Add('Green1');
    ComboBox8.Items.Add('Green2');
    ComboBox8.Items.Add('Green3');
    ComboBox8.Items.Add('Green');
    ComboBox8.Items.Add('Light Red');
    ComboBox8.Items.Add('Magenta');
    ComboBox8.Items.Add('Orange1');
    ComboBox8.Items.Add('Orange2');
    ComboBox8.Items.Add('Orange3');
    ComboBox8.Items.Add('Orange');
    ComboBox8.Items.Add('Random, flashing text');
    ComboBox8.Items.Add('Red');
    ComboBox8.Items.Add('White');
    ComboBox9 := TComboBox.Create(frmDesign);
    ComboBox9.Parent := frmDesign;
    ComboBox9.Left := 456;
    ComboBox9.Top := 208;
    ComboBox9.Width := 89;
    ComboBox9.Height := 21;
    ComboBox9.ItemHeight := 13;
    ComboBox9.TabOrder := 23;
    ComboBox9.Text := 'ComboBox1';
    ComboBox9.Items.Add('Yellow (Normal Colour)');
    ComboBox9.Items.Add('Flash1');
    ComboBox9.Items.Add('Flash2');
    ComboBox9.Items.Add('Flash3');
    ComboBox9.Items.Add('Glow1');
    ComboBox9.Items.Add('Glow2');
    ComboBox9.Items.Add('Glow3');
    ComboBox9.Items.Add('Black');
    ComboBox9.Items.Add('Blue');
    ComboBox9.Items.Add('Cyan');
    ComboBox9.Items.Add('Dark red');
    ComboBox9.Items.Add('Green1');
    ComboBox9.Items.Add('Green2');
    ComboBox9.Items.Add('Green3');
    ComboBox9.Items.Add('Green');
    ComboBox9.Items.Add('Light Red');
    ComboBox9.Items.Add('Magenta');
    ComboBox9.Items.Add('Orange1');
    ComboBox9.Items.Add('Orange2');
    ComboBox9.Items.Add('Orange3');
    ComboBox9.Items.Add('Orange');
    ComboBox9.Items.Add('Random, flashing text');
    ComboBox9.Items.Add('Red');
    ComboBox9.Items.Add('White');
    ComboBox10 := TComboBox.Create(frmDesign);
    ComboBox10.Parent := frmDesign;
    ComboBox10.Left := 552;
    ComboBox10.Top := 240;
    ComboBox10.Width := 65;
    ComboBox10.Height := 21;
    ComboBox10.ItemHeight := 13;
    ComboBox10.TabOrder := 24;
    ComboBox10.Text := 'ComboBox2';
    ComboBox10.Items.Add('Wave');
    ComboBox10.Items.Add('Wave2');
    ComboBox10.Items.Add('Scroll');
    ComboBox10.Items.Add('Shake');
    ComboBox11 := TComboBox.Create(frmDesign);
    ComboBox11.Parent := frmDesign;
    ComboBox11.Left := 552;
    ComboBox11.Top := 208;
    ComboBox11.Width := 65;
    ComboBox11.Height := 21;
    ComboBox11.ItemHeight := 13;
    ComboBox11.TabOrder := 25;
    ComboBox11.Text := 'ComboBox2';
    ComboBox11.Items.Add('Wave');
    ComboBox11.Items.Add('Wave2');
    ComboBox11.Items.Add('Scroll');
    ComboBox11.Items.Add('Shake');
    ComboBox12 := TComboBox.Create(frmDesign);
    ComboBox12.Parent := frmDesign;
    ComboBox12.Left := 552;
    ComboBox12.Top := 176;
    ComboBox12.Width := 65;
    ComboBox12.Height := 21;
    ComboBox12.ItemHeight := 13;
    ComboBox12.TabOrder := 26;
    ComboBox12.Text := 'ComboBox2';
    ComboBox12.Items.Add('Wave');
    ComboBox12.Items.Add('Wave2');
    ComboBox12.Items.Add('Scroll');
    ComboBox12.Items.Add('Shake');
    ComboBox13 := TComboBox.Create(frmDesign);
    ComboBox13.Parent := frmDesign;
    ComboBox13.Left := 552;
    ComboBox13.Top := 144;
    ComboBox13.Width := 65;
    ComboBox13.Height := 21;
    ComboBox13.ItemHeight := 13;
    ComboBox13.TabOrder := 27;
    ComboBox13.Text := 'ComboBox2';
    ComboBox13.Items.Add('Wave');
    ComboBox13.Items.Add('Wave2');
    ComboBox13.Items.Add('Scroll');
    ComboBox13.Items.Add('Shake');
    ComboBox14 := TComboBox.Create(frmDesign);
    ComboBox14.Parent := frmDesign;
    ComboBox14.Left := 552;
    ComboBox14.Top := 112;
    ComboBox14.Width := 65;
    ComboBox14.Height := 21;
    ComboBox14.ItemHeight := 13;
    ComboBox14.TabOrder := 28;
    ComboBox14.Text := 'ComboBox2';
    ComboBox14.Items.Add('Wave');
    ComboBox14.Items.Add('Wave2');
    ComboBox14.Items.Add('Scroll');
    ComboBox14.Items.Add('Shake');
    CheckBox1 := TCheckBox.Create(frmDesign);
    CheckBox1.Parent := frmDesign;
    CheckBox1.Left := 632;
    CheckBox1.Top := 48;
    CheckBox1.Width := 17;
    CheckBox1.Height := 17;
    CheckBox1.TabOrder := 29;
    CheckBox2 := TCheckBox.Create(frmDesign);
    CheckBox2.Parent := frmDesign;
    CheckBox2.Left := 632;
    CheckBox2.Top := 80;
    CheckBox2.Width := 17;
    CheckBox2.Height := 17;
    CheckBox2.TabOrder := 30;
    CheckBox3 := TCheckBox.Create(frmDesign);
    CheckBox3.Parent := frmDesign;
    CheckBox3.Left := 632;
    CheckBox3.Top := 112;
    CheckBox3.Width := 17;
    CheckBox3.Height := 17;
    CheckBox3.TabOrder := 31;
    CheckBox4 := TCheckBox.Create(frmDesign);
    CheckBox4.Parent := frmDesign;
    CheckBox4.Left := 632;
    CheckBox4.Top := 144;
    CheckBox4.Width := 17;
    CheckBox4.Height := 17;
    CheckBox4.TabOrder := 32;
    CheckBox5 := TCheckBox.Create(frmDesign);
    CheckBox5.Parent := frmDesign;
    CheckBox5.Left := 632;
    CheckBox5.Top := 176;
    CheckBox5.Width := 17;
    CheckBox5.Height := 17;
    CheckBox5.TabOrder := 33;
    CheckBox6 := TCheckBox.Create(frmDesign);
    CheckBox6.Parent := frmDesign;
    CheckBox6.Left := 632;
    CheckBox6.Top := 208;
    CheckBox6.Width := 17;
    CheckBox6.Height := 17;
    CheckBox6.TabOrder := 34;
    CheckBox7 := TCheckBox.Create(frmDesign);
    CheckBox7.Parent := frmDesign;
    CheckBox7.Left := 632;
    CheckBox7.Top := 240;
    CheckBox7.Width := 17;
    CheckBox7.Height := 17;
    CheckBox7.TabOrder := 35;
    Button1 := TButton.Create(frmDesign);
    Button1.Parent := frmDesign;
    Button1.Left := 456;
    Button1.Top := 280;
    Button1.Width := 177;
    Button1.Height := 25;
    Button1.Caption := '&S&u&b&m&i&t Custom Settings';
    Button1.TabOrder := 36;
    Button1.ModalResult := 1;
    end;

    procedure SafeInitForm;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('InitForm', v);
    end;

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

    procedure SafeShowFormModal;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('ShowFormModal', v);
    end;

    procedure TypeSendSettings;
    begin
     if(IsFKeyDown(2)) then
      begin
       TypeSend(Sen[1]);
       repeat
         Wait(1)
       until not IsFKeyDown(2)
      end;
     if(IsFKeyDown(3)) then
      begin
       TypeSend(Sen[2]);
       repeat
         Wait(1)
       until not IsFKeyDown(3)
      end;
     if(IsFKeyDown(4)) then
      begin
       TypeSend(Sen[3]);
       repeat
         Wait(1)
       until not IsFKeyDown(4)
      end;
     if(IsFKeyDown(5)) then
      begin
       TypeSend(Sen[4]);
       repeat
         Wait(1)
       until not IsFKeyDown(5)
      end;
     if(IsFKeyDown(6)) then
      begin
       TypeSend(Sen[5]);
       repeat
         Wait(1)
       until not IsFKeyDown(6)
      end;
     if(IsFKeyDown(7)) then
      begin
       TypeSend(Sen[6]);
       repeat
         Wait(1)
       until not IsFKeyDown(7)
      end;
     if(IsFKeyDown(8)) then
      begin
       TypeSend(Sen[7]);
       repeat
         Wait(1)
       until not IsFKeyDown(8)
      end;
    end;

    begin
     SafeInitForm;
     SafeShowFormModal;
     for i := 1 to 7 do
       Sen[i] := Edit[i].Text;
     repeat
       TypeSendSettings;
     until(IsFKeyDown(10))
    end.

  3. #3
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    Default

    Thank you Derek. Also, how do i use the colours and the effect combo boxes properly to when i put in wave2 for effects and cyan for colours it will type purple:wave2: Selling 1k iron. 90 ea. 90k for all. Trade Username?

    Thanks!

  4. #4
    Join Date
    Nov 2007
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    its not working for me it comes up with errors =(

  5. #5
    Join Date
    Nov 2007
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it comes up with like c:/programs/scar2.03/sql doz not exsist.... got any advice any 1 plz????

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. help with AutoTalker with Form
    By thomis in forum OSR Help
    Replies: 3
    Last Post: 09-23-2007, 02:27 PM
  2. Negaal Autotalker(form)
    By Negaal in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 09-02-2007, 03:25 AM
  3. VitaminC Autotalker (With form!!)
    By vitaminc in forum First Scripts
    Replies: 5
    Last Post: 06-23-2007, 04:58 AM
  4. [ Endr1x] - AutoTalker with Form v0.1
    By endr1x in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 02-06-2007, 05:32 PM

Posting Permissions

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