SRL Archive - Test corner

hi guys,

well i was lookign at some new ways to inrpove out antiban and human procedures and came up with this. I must say this turned out to eb quite frustrating for what it is but i beleive well worth it. I spent quite a while experimenting and writing stuff down to bring this to you so please post comments.

What this peice of code does is randomly move the mosue across the screen (much like boredhuman;) it will sometimes move the arrow or say some random words but what it is really soing is searching for a player on-screen. If found it will retreive the player name and associate it will a sentence, e.g. hello, hi, mininf lvl ect ect….

Here Are some small reports of it in action -



aalso these are some of the tests i ran to get the best cords i could -

program PlayerName;
{.include SRL/SRL.scar}

var Rtext:integer;
    Tresult : string;

procedure randomspeeach;
begin
   Rtext:= random(10)
   
      Case Rtext of
           0: Tresult:= ('hello');
           1: Tresult:= ('hi');
           2: Tresult:= ('mining lvl');
           3: Tresult:= ('fishing lvl');
           4: Tresult:= ('total lvl');
           5: Tresult:= ('whats up');
           6: Tresult:= ('how old are you');
           7: Tresult:= ('cool stuff');
           8: Tresult:= ('whats up')
           9: Tresult:= ('how are you')
      end;
end;


function GetName:boolean;
var Name : string;
    UpConfirm : integer;
    c, gx, gy : integer;
begin

  UpConfirm := BitmapFromString(4, 6, 'z78DA3330000117731753675' +
       '75C24588981B319109AB858BA9839BB41D806C87A2D80E2AE4051' +
       '53247113671782E240730C2D0C4D0DA0760100699A2142');

     Case Random(8) of
        0: SendArrowSilentWait( ((Random(2) * 2) + 1), 1000 + Random(200) );
        1: SendArrowSilentWait( ((Random(2) * 2)), 1000 + Random(200) );
        2: SendArrowSilentWait( ((Random(2) * 2) + 1), 200 + Random(200) );
        3: SendArrowSilentWait( ((Random(2) * 2)), 200 + Random(200) );
        4: SendArrowSilentWait( ((Random(2) * 2) + 1), 20 + Random(20) );
        5: SendArrowSilentWait( ((Random(2) * 2)), 20 + Random(20) );
        6: wait(25+random(25+random(25)))
        7: RandomChat;
      end;

      repeat
      
       MMouse(Random(MSX2), Random(MSY2), 10, 9);
       if(FindBitmapspiralTolerance(UpConfirm, gx, gy, 225, 5, 300, 25, 50)) then
            begin
                 writeln('Player Found')
                 result:= true;
               end;
         c:= c+1;
         wait(25+random(25+random(25)))
    until(c=20)or(result)
      
    if result then
        begin
             Name:= GetTextAtEx(72,7,100,UpChars,True,True,0,2,-1,10,False,tr_AllChars)
             if(not(name=''))then typesend(name+' '+Tresult)
             writeln('Talked to '+(name)+'And said: '+Tresult)
          end;
    freebitmap(UpConfirm)
end;



begin
setupSRL;
repeat
       
randomspeeach;
getname;
          
until(false)
end.

Nice work, but I would say it's a bit risky starting a conversation with someone, but I suppose that could be solved by responding to their responce :p. And only 9 differnt things to say, maybe add more? :).

Cool. :cool:

From: Spky
Nice work, but I would say it's a bit risky starting a conversation with someone, but I suppose that could be solved by responding to their responce :p. And only 9 differnt things to say, maybe add more? :).

Definatly add more yes, this is why i asked it to be tested out :)….as far as having a conversation yes we could either make somehting that responds but more than likely i will addapt teh questions to be dead-end-questions so that the otehr user will not exspect a prolonged chat.

Thx wizzup :)

Me understands :). Good job.

Very nice! But yea definately more phrases. If you need help coming up with them, I'll be here.:)

very nice i must say

Nice, good job Solemn.

I suggest to scramble the message randomly to not sound un-human to players
also possible doa regex compare instead of bulky scrting compares to anylze word by word in a tree stcructure

I made somethign similar that i ended up giving up on because i realised it would take far too much boring thinking of phrases. Mine just used the "potatoe responder" and the variables are all in tere already. It already gets name etc all you had to do was make the phrases.

From: Pyro
I made somethign similar that i ended up giving up on because i realised it would take far too much boring thinking of phrases. Mine just used the "potatoe responder" and the variables are all in tere already. It already gets name etc all you had to do was make the phrases.

yes thats very true but mine is more of a conversation starter not carryone-er, mine searches for people yet the potatoe responder identifys the person name at the bottom of the text box and uses it. In many ways mine is faster and im adapting it know to carry on the conversation and i have allready surpassed my exspectations for this script , but more inportantly the more functions and procedures we have the more the undetectableness:)

p.s. ill release the new version maybe tonight.

To solve the friends chatting back problem, you could simple turn off the chat for about 15 minutes then turn it back on. ;)

From: Bebemycat2
To solve the friends chatting back problem, you could simple turn off the chat for about 15 minutes then turn it back on. ;)

;) if it be only that simple, ye old runescape cheating standards would abide by what you said. TO bad we have overcome that :cool:

I think this is awesome!

I was goign to make something very similiar, but then I realized I didn't have the scripting skills. :p

Good job solemn!!

We should just work as a community to make one big auto talker, and be able to implement it easily into any script when its done…

Nice work Solemn.

In reference to DB, I agree. Maybe once it's finished, package it with SRL as a function and just let people do a include for it when it's needed. :P