Results 1 to 7 of 7

Thread: Ashur2good's AutoTalker

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

    Default Ashur2good's AutoTalker

    well here is my autotalker

    Hope you enjoy





    Version 1:First Release
    Version 1.5: Little change, but a big change.


    thanks-ashur

  2. #2
    Join Date
    Mar 2007
    Posts
    937
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    VERSION 1.5 RELEASED




    lol..sorry for releasing so fast...but one little change can make a big diffrence

  3. #3
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    first post w000t!!!!!!
    anyways, thx fer script, i edited it so that i can say 5 things.
    Originally Posted by YoHoJo
    I like hentai.

  4. #4
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sry fer duble posting, but ur antirandoms will not work, u need to have the loadbmps from the name

    P.S just for the purpose of anti-leeching, i made one small error. its soooooo easy fer a scripter to spot.

    SCAR Code:
    program AutoTalker;
    {.include SRL/SRL.scar}

    const
    WhatToSay1='selin full dharoks 3.2m';Put what you want to say
    WhatToSay2='selin 5kbs 180ea!';Put what you want to say next
    WhatToSay3='buying full veracs';yet another one
    WhatToSay4='selling rune trimed pl8';need i say it?

    procedure DeclarePlayers;
    begin
    HowManyPlayers := 1; //Number of players
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer:= 0;

    Players[0].Name :='';//Name Goes Here
    Players[0].Pass :='';//Password Goes Here
    Players[0].Nick :='';//3-4 LowerCase Letters Of Your Name
    Players[0].Active:=True;//True If Using, False If Not


    End;


    procedure LoggingIn;

    begin
    SetUpSRL;
    DeclarePlayers;
    LoginPlayer;
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;


    procedure DoAntiRandoms;
    begin
    FindTalk;
    FindNormalRandoms;
    if (FindFight = true) then
    begin
    RunAwayDirection('E');
    Wait(10000 + random(2000));
    RunBack;
    Writeln('Found a random!')
    end;
    end;


    procedure AmostLogout;
    var e,f,TempMouseSpeed:integer;
    begin
    GameTab(10);
    TempMouseSpeed:=MouseSpeed;
    MouseSpeed:=MouseSpeed + 20;
    e:=5+random(6);
    for f:=0 to e do
     begin
      case random(3) of
       0,1:MMouse(583+random(120),361+random(20),0,0);
       2:IdleTime(300+random(300),500,0.5);
      end
     wait(500+random(1000));
     end
    MouseSpeed:=TempMouseSpeed;
    GameTab(4);
    end;


    procedure Talk1;
    begin
    Wait(1000+random(200));
    TypeSend(WhatToSay1 +chr(13));
    Wait(1000+random(200));
    DoAntiRandoms;
    end;


    procedure Talk2;
    begin
    Wait(1000+random(200));
    TypeSend(WhatToSay2 +chr(13));
    Wait(1000+random(200));
    DoAntiRandoms;
    end;

    procedure Talk3;
    begin
    Wait(1000+random(200));
    TypeSend(WhatToSay1 +chr(13));
    Wait(1000+random(200));
    DoAntiRandoms;
    end;

    procedure Talk4;
    begin
    Wait(1000+random(200));
    TypeSend(WhatToSay1 +chr(13));
    Wait(1000+random(200));
    DoAntiRandoms;
    end;

    begin
    SetupSRL;
    repeat
    DeclarePlayers;
    LoginPlayer;
    DoAntiRandoms;
    Talk1;
    DoAntiRandoms;
    Talk2;
    DoAntiRandoms;
    Talk3;
    DoAntiRandoms;
    Talk4;
    AmostLogout;
    until(false)
    end.
    Originally Posted by YoHoJo
    I like hentai.

  5. #5
    Join Date
    Jun 2007
    Location
    I'm not sure...
    Posts
    581
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Just for the purpose of not screwing people over

    SCAR Code:
    program AutoTalker;
    {.include SRL/SRL.scar}
     
    const
    WhatToSay1='selin full dharoks 3.2m';//Put what you want to say
    WhatToSay2='selin 5kbs 180ea!';//Put what you want to say next
    WhatToSay3='buying full veracs';//yet another one
    WhatToSay4='selling rune trimed pl8';//need i say it?
     
    procedure DeclarePlayers;
    begin
    HowManyPlayers := 1; //Number of players
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer:= 0;
     
    Players[0].Name :='';//Name Goes Here
    Players[0].Pass :='';//Password Goes Here
    Players[0].Nick :='';//3-4 LowerCase Letters Of Your Name
    Players[0].Active:=True;//True If Using, False If Not
     
     
    End;
     
     
    procedure LoggingIn;
     
    begin
    SetUpSRL;
    DeclarePlayers;
    LoginPlayer;
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;
     
     
    procedure DoAntiRandoms;
    begin
    FindTalk;
    FindNormalRandoms;
    if (FindFight = true) then
    begin
    RunAwayDirection('E');
    Wait(10000 + random(2000));
    RunBack;
    Writeln('Found a random!')
    end;
    end;
     
     
    procedure AmostLogout;
    var e,f,TempMouseSpeed:integer;
    begin
    GameTab(10);
    TempMouseSpeed:=MouseSpeed;
    MouseSpeed:=MouseSpeed + 20;
    e:=5+random(6);
    for f:=0 to e do
     begin
      case random(3) of
       0,1:MMouse(583+random(120),361+random(20),0,0);
       2:IdleTime(300+random(300),500,0.5);
      end
     wait(500+random(1000));
     end
    MouseSpeed:=TempMouseSpeed;
    GameTab(4);
    end;
     
     
    procedure Talk1;
    begin
    Wait(1000+random(200));
    TypeSend(WhatToSay1 +chr(13));
    Wait(1000+random(200));
    DoAntiRandoms;
    end;
     
     
    procedure Talk2;
    begin
    Wait(1000+random(200));
    TypeSend(WhatToSay2 +chr(13));
    Wait(1000+random(200));
    DoAntiRandoms;
    end;
     
    procedure Talk3;
    begin
    Wait(1000+random(200));
    TypeSend(WhatToSay1 +chr(13));
    Wait(1000+random(200));
    DoAntiRandoms;
    end;
     
    procedure Talk4;
    begin
    Wait(1000+random(200));
    TypeSend(WhatToSay1 +chr(13));
    Wait(1000+random(200));
    DoAntiRandoms;
    end;
     
    begin
    SetupSRL;
    repeat
    DeclarePlayers;
    LoginPlayer;
    DoAntiRandoms;
    Talk1;
    DoAntiRandoms;
    Talk2;
    DoAntiRandoms;
    Talk3;
    DoAntiRandoms;
    Talk4;
    AmostLogout;
    until(false)
    end.
    ---------------------------------------------------------


    Pm me if you need any math functions made. Me = l0ving t3h mathz

    ---------------------------------------------------------

  6. #6
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    rot, i ment to screw leechers over -.-
    Originally Posted by YoHoJo
    I like hentai.

  7. #7
    Join Date
    Mar 2007
    Posts
    937
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Dw, i hope you enjoy those posts added to you're post count, and bumping my thread...

    P.S: There's an edit button

    -Ashur
    Exam period.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Ashur2Good's AutoPwner
    By Ashur2Good in forum RS3 Outdated / Broken Scripts
    Replies: 163
    Last Post: 06-16-2009, 06:56 PM
  2. Ashur2Good's AutoFletcher
    By Ashur2Good in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 03-30-2009, 08:09 AM
  3. Ashur2good's PowerMiner
    By Ashur2Good in forum RS3 Outdated / Broken Scripts
    Replies: 16
    Last Post: 11-09-2008, 05:57 PM
  4. Ashur2good's CoinPicker
    By Ashur2Good in forum RS3 Outdated / Broken Scripts
    Replies: 14
    Last Post: 07-10-2007, 08:04 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
  •