Results 1 to 6 of 6

Thread: Diamondhero6's First SRL Auto-Talker

  1. #1
    Join Date
    Mar 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Diamondhero6's First SRL Auto-Talker

    Ok here is my 1st script...a Auto-Talker!

    SCAR Code:
    //directions
    //put what you want to say in lines  9-12
    //press play to start
    //press F11 to stop
    program New;
    {.include SRL\SRL.Scar}

    const
    ms1='cyan:wave2:selling full rune-your rs name here';//put ur rs name after the -
    ms2='white:wave2:selling full rune-your rs name here';
    ms3='flash2:wave2:selling full rune-your rs name here';
    ms4='green:wave2:selling full rune-your rs name here';

    var

      frmDesign : TForm;
      Label1 : TLabel;
      Label2 : TLabel;
      Image1 : TImage;
      Image2 : TImage;
      Memo1 : TMemo;
      Memo2 : TMemo;
      Memo3 : TMemo;
      START : TButton;
      ComboBox1 : TComboBox;
      ComboBox2 : TComboBox;
      ComboBox3 : TComboBox;
      ComboBox4 : TComboBox;
      ComboBox5 : TComboBox;
      StartScript: Boolean;

    procedure buttonclick(sender: TObject);
    begin
      Writeln('Button pressed!');
      frmDesign.Caption:= frmDesign.Caption + '.';
      frmDesign.ModalResult:= mrOk;
      StartScript := True;
    end;

    procedure InitForm;
    begin
    frmDesign := CreateForm;
    frmDesign.Left := 278;
    frmDesign.Top := 122;
    frmDesign.Width := 314;
    frmDesign.Height := 379;
    frmDesign.Caption := 'Auto-talker by diamondhero6';
    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 := 153;
    Label1.Top := 226;
    Label1.Width := 32;
    Label1.Height := 13;
    Label1.Caption := 'Label1';
    Label2 := TLabel.Create(frmDesign);
    Label2.Parent := frmDesign;
    Label2.Left := 129;
    Label2.Top := 222;
    Label2.Width := 32;
    Label2.Height := 13;
    Label2.Caption := 'Label2';
    Image1 := TImage.Create(frmDesign);
    Image1.Parent := frmDesign;
    Image1.Left := 140;
    Image1.Top := 178;
    Image1.Width := 105;
    Image1.Height := 105;
    Image2 := TImage.Create(frmDesign);
    Image2.Parent := frmDesign;
    Image2.Left := 134;
    Image2.Top := 133;
    Image2.Width := 105;
    Image2.Height := 105;
    Memo1 := TMemo.Create(frmDesign);
    Memo1.Parent := frmDesign;
    Memo1.Left := 0;
    Memo1.Top := 0;
    Memo1.Width := 305;
    Memo1.Height := 344;
    Memo1.Color := clHighlight;
    Memo1.Lines.Add('Memo1');
    Memo1.TabOrder := 8;
    Memo2 := TMemo.Create(frmDesign);
    Memo2.Parent := frmDesign;
    Memo2.Left := 16;
    Memo2.Top := 16;
    Memo2.Width := 271;
    Memo2.Height := 307;
    Memo2.Color := clWindowText;
    Memo2.Lines.Add('Memo2');
    Memo2.TabOrder := 9;
    Memo3 := TMemo.Create(frmDesign);
    Memo3.Parent := frmDesign;
    Memo3.Left := 62;
    Memo3.Top := 60;
    Memo3.Width := 185;
    Memo3.Height := 223;
    Memo3.Color := clInactiveCaption;
    Memo3.Lines.Add('Memo3');
    Memo3.TabOrder := 10;
    START := TButton.Create(frmDesign);
    START.OnClick:= @buttonclick;
    START.Parent := frmDesign;
    START.Left := 120;
    START.Top := 250;
    START.Width := 75;
    START.Height := 25;
    START.Caption := 'START';
    START.TabOrder := 11;
    ComboBox1 := TComboBox.Create(frmDesign);
    ComboBox1.Parent := frmDesign;
    ComboBox1.Left := 83;
    ComboBox1.Top := 84;
    ComboBox1.Width := 145;
    ComboBox1.Height := 21;
    ComboBox1.Enabled := False;
    ComboBox1.ItemHeight := 13;
    ComboBox1.TabOrder := 12;
    ComboBox1.Text := '                PRESS';
    ComboBox2 := TComboBox.Create(frmDesign);
    ComboBox2.Parent := frmDesign;
    ComboBox2.Left := 83;
    ComboBox2.Top := 118;
    ComboBox2.Width := 145;
    ComboBox2.Height := 21;
    ComboBox2.Enabled := False;
    ComboBox2.ItemHeight := 13;
    ComboBox2.TabOrder := 13;
    ComboBox2.Text := '                START';
    ComboBox3 := TComboBox.Create(frmDesign);
    ComboBox3.Parent := frmDesign;
    ComboBox3.Left := 84;
    ComboBox3.Top := 149;
    ComboBox3.Width := 145;
    ComboBox3.Height := 21;
    ComboBox3.Enabled := False;
    ComboBox3.ItemHeight := 13;
    ComboBox3.TabOrder := 14;
    ComboBox3.Text := '                   TO';
    ComboBox4 := TComboBox.Create(frmDesign);
    ComboBox4.Parent := frmDesign;
    ComboBox4.Left := 84;
    ComboBox4.Top := 182;
    ComboBox4.Width := 145;
    ComboBox4.Height := 21;
    ComboBox4.Enabled := False;
    ComboBox4.ItemHeight := 13;
    ComboBox4.TabOrder := 15;
    ComboBox4.Text := '                START';
    ComboBox5 := TComboBox.Create(frmDesign);
    ComboBox5.Parent := frmDesign;
    ComboBox5.Left := 84;
    ComboBox5.Top := 214;
    ComboBox5.Width := 145;
    ComboBox5.Height := 21;
    ComboBox5.Enabled := False;
    ComboBox5.ItemHeight := 13;
    ComboBox5.TabOrder := 16;
    ComboBox5.Text := '               SCRIPT';
    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 namechange(wstatus :String);
    begin
    status(wstatus);
    GetApplication.Title:=wstatus;
    GetSelf.Caption:=wstatus;
    end;

    procedure change;
    begin
    namechange('Auto-Talker by Diamondhero6')
    wait(50);
    end;

    procedure ThankYou;
    begin
    writeln('-------Auto-Talker-------')
    writeln('-----by Diamondhero6-----')
    writeln('- I know u will like it -')
    writeln('@@##$$  Thank you  $$##@@')
    writeln('         ENJOY           ')
    end;

    procedure send;
    begin
    case random(4) of
    0:TypeSend(ms1)
    1:typesend(ms2)
    2:typesend(ms3)
    3:typesend(ms4)
    end;
    end;

    BEGIN
    try
        SafeInitForm;
        SafeShowFormModal;
      finally
        FreeForm(frmDesign);
      except
        Writeln('Error in InitForm!');
      end;

    If not(StartScript) then TerminateScript;


    BEGIN
    SetupSrl
    cleardebug
    Thankyou
    change
    SafeInitForm

    repeat
    send
    wait(1000)
    until(isfkeydown(11))
    end;
    end.

  2. #2
    Join Date
    Sep 2006
    Location
    West U.S.
    Posts
    2,172
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    will test!

    i thought you were the same person who got banned from here

    FYI: diamondhero5?

    They are sisters...
    Runescape Classic

  3. #3
    Join Date
    Mar 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    theres a diamondhero5?
    how weird
    i made my account on here after my rs one
    diamondhero6

  4. #4
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

  5. #5
    Join Date
    Mar 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what a meany
    lol

  6. #6
    Join Date
    Mar 2007
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    omg he is diamondhero5! proof:


    Diamondhero5 said this. Note the words in red.
    i know some about scripting i just still dont understand the x,y thing for using them with cordinates
    Also when u r useing sendkeys it wont type it will just blurt it out.
    check out mine.ScarScript: By Drunkenoldma

    //Directions
    //Set what u would like it to say(lines 9-12)
    //Set how long until says next message(line 47)
    //hit play
    //press F12 to stop
    program AutoTalk;

    const
    message1='cyan:selling full rune';
    message2='white:selling full rune';
    message3='Green:selling fulll rune';
    message4='red:selling full rune';

    procedure SendText(text: string);
    var i: Integer;
    begin
    for i := 1 to Length(Text) do
    begin
    SendKeys(Text[i]);
    Wait(50+random(50));
    end;
    SendKeys(Chr(13));
    end;

    procedure namechange(wstatus :String);
    begin
    status(wstatus);
    GetApplication.Title:=wstatus;
    GetSelf.Caption:=wstatus;
    end;


    procedure nc4(wstatus:String; time:Integer);
    begin
    namechange(wstatus);
    wait(time);
    end;

    procedure Talk;
    begin
    case random(4) of
    0:SendText(message1);
    1:SendText(message2);
    2:SendText(message3);
    3:SendText(message4);
    end;
    wait(2124+random(241));
    end;
    procedure nc(wstatus:String);
    begin
    nc4(wstatus, 250);
    end;

    procedure flashx;
    begin
    nc4('Auto-Talker',200);
    nc4('By Diamondhero5',200);
    nc4('Auto-Talker',200);
    nc4('By Diamondhero5',200);
    nc4('Auto-Talker',200);
    nc4('By Diamondhero5',200);
    nc4('Auto-Talker',200);
    nc4('By Diamondhero5',200);
    nc4('Auto-Talker',200);
    nc4('By Diamondhero5',200);
    end;

    procedure Animate;
    begin
    nc(' ');
    nc('A');
    nc('Au');
    nc('Aut');
    nc('Auto');
    nc('Auto- ');
    nc('Auto-T');
    nc('Auto-Ta');
    nc('Auto-Tal');
    nc('Auto-Talk');
    nc('Auto-Talke');
    nc('Auto-Talker');
    nc('--------------');
    nc('Auto-Talker');
    nc('--------------');
    nc('By Diamondhero5');
    flashx;
    nc4('Auto-Talker - By Diamondhero5',5);
    end;


    procedure ThankYou;
    begin
    writeln('-------Auto-Talker-------')
    writeln('-----by Diamondhero5-----')
    writeln('- I know u will like it -')
    writeln('@@##$$ Thank you $$##@@')
    writeln(' ENJOY ')

    end;

    begin
    Animate
    ActivateClient
    Thankyou
    repeat
    Talk;
    until(IsFKeyDown(12))
    end.

    What Diamondhero6 said:
    Read the red
    //directions
    //put what you want to say in lines 9-12
    //press play to start
    //press F11 to stop
    program New;
    {.include SRL\SRL.Scar}

    const
    ms1='cyan:wave2:selling full rune-your rs name here';//put ur rs name after the -
    ms2='white:wave2:selling full rune-your rs name here';
    ms3='flash2:wave2:selling full rune-your rs name here';
    ms4='green:wave2:selling full rune-your rs name here';

    var

    frmDesign : TForm;
    Label1 : TLabel;
    Label2 : TLabel;
    Image1 : TImage;
    Image2 : TImage;
    Memo1 : TMemo;
    Memo2 : TMemo;
    Memo3 : TMemo;
    START : TButton;
    ComboBox1 : TComboBox;
    ComboBox2 : TComboBox;
    ComboBox3 : TComboBox;
    ComboBox4 : TComboBox;
    ComboBox5 : TComboBox;
    StartScript: Boolean;

    procedure buttonclick(sender: TObject);
    begin
    Writeln('Button pressed!');
    frmDesign.Caption:= frmDesign.Caption + '.';
    frmDesign.ModalResult:= mrOk;
    StartScript := True;
    end;

    procedure InitForm;
    begin
    frmDesign := CreateForm;
    frmDesign.Left := 278;
    frmDesign.Top := 122;
    frmDesign.Width := 314;
    frmDesign.Height := 379;
    frmDesign.Caption := 'Auto-talker by diamondhero6';
    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 := 153;
    Label1.Top := 226;
    Label1.Width := 32;
    Label1.Height := 13;
    Label1.Caption := 'Label1';
    Label2 := TLabel.Create(frmDesign);
    Label2.Parent := frmDesign;
    Label2.Left := 129;
    Label2.Top := 222;
    Label2.Width := 32;
    Label2.Height := 13;
    Label2.Caption := 'Label2';
    Image1 := TImage.Create(frmDesign);
    Image1.Parent := frmDesign;
    Image1.Left := 140;
    Image1.Top := 178;
    Image1.Width := 105;
    Image1.Height := 105;
    Image2 := TImage.Create(frmDesign);
    Image2.Parent := frmDesign;
    Image2.Left := 134;
    Image2.Top := 133;
    Image2.Width := 105;
    Image2.Height := 105;
    Memo1 := TMemo.Create(frmDesign);
    Memo1.Parent := frmDesign;
    Memo1.Left := 0;
    Memo1.Top := 0;
    Memo1.Width := 305;
    Memo1.Height := 344;
    Memo1.Color := clHighlight;
    Memo1.Lines.Add('Memo1');
    Memo1.TabOrder := 8;
    Memo2 := TMemo.Create(frmDesign);
    Memo2.Parent := frmDesign;
    Memo2.Left := 16;
    Memo2.Top := 16;
    Memo2.Width := 271;
    Memo2.Height := 307;
    Memo2.Color := clWindowText;
    Memo2.Lines.Add('Memo2');
    Memo2.TabOrder := 9;
    Memo3 := TMemo.Create(frmDesign);
    Memo3.Parent := frmDesign;
    Memo3.Left := 62;
    Memo3.Top := 60;
    Memo3.Width := 185;
    Memo3.Height := 223;
    Memo3.Color := clInactiveCaption;
    Memo3.Lines.Add('Memo3');
    Memo3.TabOrder := 10;
    START := TButton.Create(frmDesign);
    START.OnClick:= @buttonclick;
    START.Parent := frmDesign;
    START.Left := 120;
    START.Top := 250;
    START.Width := 75;
    START.Height := 25;
    START.Caption := 'START';
    START.TabOrder := 11;
    ComboBox1 := TComboBox.Create(frmDesign);
    ComboBox1.Parent := frmDesign;
    ComboBox1.Left := 83;
    ComboBox1.Top := 84;
    ComboBox1.Width := 145;
    ComboBox1.Height := 21;
    ComboBox1.Enabled := False;
    ComboBox1.ItemHeight := 13;
    ComboBox1.TabOrder := 12;
    ComboBox1.Text := ' PRESS';
    ComboBox2 := TComboBox.Create(frmDesign);
    ComboBox2.Parent := frmDesign;
    ComboBox2.Left := 83;
    ComboBox2.Top := 118;
    ComboBox2.Width := 145;
    ComboBox2.Height := 21;
    ComboBox2.Enabled := False;
    ComboBox2.ItemHeight := 13;
    ComboBox2.TabOrder := 13;
    ComboBox2.Text := ' START';
    ComboBox3 := TComboBox.Create(frmDesign);
    ComboBox3.Parent := frmDesign;
    ComboBox3.Left := 84;
    ComboBox3.Top := 149;
    ComboBox3.Width := 145;
    ComboBox3.Height := 21;
    ComboBox3.Enabled := False;
    ComboBox3.ItemHeight := 13;
    ComboBox3.TabOrder := 14;
    ComboBox3.Text := ' TO';
    ComboBox4 := TComboBox.Create(frmDesign);
    ComboBox4.Parent := frmDesign;
    ComboBox4.Left := 84;
    ComboBox4.Top := 182;
    ComboBox4.Width := 145;
    ComboBox4.Height := 21;
    ComboBox4.Enabled := False;
    ComboBox4.ItemHeight := 13;
    ComboBox4.TabOrder := 15;
    ComboBox4.Text := ' START';
    ComboBox5 := TComboBox.Create(frmDesign);
    ComboBox5.Parent := frmDesign;
    ComboBox5.Left := 84;
    ComboBox5.Top := 214;
    ComboBox5.Width := 145;
    ComboBox5.Height := 21;
    ComboBox5.Enabled := False;
    ComboBox5.ItemHeight := 13;
    ComboBox5.TabOrder := 16;
    ComboBox5.Text := ' SCRIPT';
    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 namechange(wstatus :String);
    begin
    status(wstatus);
    GetApplication.Title:=wstatus;
    GetSelf.Caption:=wstatus;
    end;

    procedure change;
    begin
    namechange('Auto-Talker by Diamondhero6')
    wait(50);
    end;

    procedure ThankYou;
    begin
    writeln('-------Auto-Talker-------')
    writeln('-----by Diamondhero6-----')
    writeln('- I know u will like it -')
    writeln('@@##$$ Thank you $$##@@')
    writeln(' ENJOY ')
    end;


    procedure send;
    begin
    case random(4) of
    0:TypeSend(ms1)
    1:typesend(ms2)
    2:typesend(ms3)
    3:typesend(ms4)
    end;
    end;

    BEGIN
    try
    SafeInitForm;
    SafeShowFormModal;
    finally
    FreeForm(frmDesign);
    except
    Writeln('Error in InitForm!');
    end;

    If not(StartScript) then TerminateScript;


    BEGIN
    SetupSrl
    cleardebug
    Thankyou
    change
    SafeInitForm

    repeat
    send
    wait(1000)
    until(isfkeydown(11))
    end;
    end.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. My First Auto Talker
    By jacka scar MASTER in forum First Scripts
    Replies: 5
    Last Post: 05-08-2008, 10:59 PM
  2. Replies: 5
    Last Post: 11-23-2007, 08:45 PM
  3. Help with auto trade/ auto talker script
    By logik in forum OSR Help
    Replies: 5
    Last Post: 03-16-2007, 11:16 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
  •