SRL Archive - First Scripts

This is my very first script its really a Beggar that annouys the hell out of people till they give you money or something :D


Also i would like to thank Dude Richard, Your Tut help me out alot


So leave me feedback and enjoy :f:

(im working on a auto walker but can find any tuts on how to put in a script if anyone has a link to one please post it thanks:D )

Try to use case in your talking procedure

Procedure Talk;

Var
  I: Integer;

Begin
  I := Random(5);
  Case I Of
    0:  TypeSend('blah blah blah 1');
    1:  TypeSend('blah blah blah 2');
    2:  TypeSend('blah blah blah 3');
    3:  TypeSend('blah blah blah 4');
    4:  TypeSend('blah blah blah 5');
  End;
End;
  

Make it so it accepts trade requests :)

Try this.

procedure TradeIn;  // Thanks MasterKill, Rikjess, and Hy71194!!!
begin
  repeat
    begin
      if (not (FindColorTolerance (x, y, 8388736, 23, 437, 294, 459, 5))) then
      begin
        exit;
      end;
      if (FindColorTolerance (x, y, 8388736, 23, 437, 294, 459, 5)) then
      begin
        MMouse(x,y,0,0);
        Wait(200+Random(300));
        if IsUpTextMultiCustom(['ccept', 'rade', 'Accept']) then
        Mouse(x, y, 1, 1, True);
        begin
          TradeTimeTicking := 0
          Wait(10000+Random(5000));
        end;
      end;
    end;
    if (not (FindColorTolerance (x, y, 3358280, 31, 34, 82, 50, 5))) then
    begin
      WriteLn('Trading: Error!');
      MFF(MMCX + Random(10), MMCY + Random(10), 7, 7); // MiniMap 'blind click' so just in case you get a trade somehow, you wont get a NoGameTab.
      Inc(TradesError);
      Inc(ReportVars[2]);
      SRLRandomsReport;
      exit;
    end;
    if (FindColorTolerance (x, y, 3358280, 31, 34, 82, 50, 5)) then
    begin
      WriteLn('Trading! Now wait for an Accept. Max Wait: 25 sec.');
      repeat
        if (FindColorTolerance (x, y, 16777215, 180, 296, 341, 317, 5)) then
        begin
          WriteLn('Other player accepted! Now we''ll accept too!');
          Mouse(256, 164, 6, 6, True);
          Wait(2000);
          if (FindColorTolerance (x, y, 4214871, 30, 65, 64, 73, 5)) then
          begin
            WriteLn('We made it to the seccond window!');
            WriteLn('Now wait for an second accept. Max Wait 20 sec.');
            Wait(1500);
            TradeTimeTicking := 0
            repeat
              if (FindColorTolerance (x, y, 16776960, 301, 38, 303, 42, 5)) then
              begin
                WriteLn('Accepted! all we need to do now is say thx :D');
                Mouse(223, 309, 3, 3, True);
                case random (5) of
                  0: TypeSend('ty');
                  1: TypeSend('thx');
                  2: TypeSend('thanks for your kindness');
                  3: TypeSend('thank you');
                  4: TypeSend('thanks');
                end;
                WriteLn('Trade sloved!');
                Inc(TradeWin);
                Inc(ReportVars[0]);
                SRLRandomsReport;
                Wait(100+Random(500));
                exit;
              end;
              if (not (FindColorTolerance (x, y, 4214871, 30, 65, 64, 73, 5))) then
              begin
                WriteLn('The noob is not giving anything ... Decline.');
                case random (5) of
                  0: TypeSend('hit accept pl0x');
                  1: TypeSend('give me stuff');
                  2: TypeSend('no thanks');
                  3: TypeSend('hit accept');
                  4: TypeSend('-.-');
                end;
                Inc(TradeBad);
                Inc(ReportVars[1]);
                SRLRandomsReport;
                exit;
              end;
              if (FindColorTolerance (x, y, 4214871, 30, 65, 64, 73, 5)) then
              begin
                Wait(1000);
                TradeTimeTicking := TradeTimeTicking + 1
              end;
              if ( TradeTimeTicking = 20 ) then
              begin
                WriteLn('Took to long... Now Decine.');
                Mouse(297, 310, 2, 2, True);
                case random (5) of
                  0: TypeSend('i dont have time for you');
                  1: TypeSend('no thanks');
                  2: TypeSend('-.-');
                  3: TypeSend('no thanks');
                  4: TypeSend('get lost');
                end;
                Inc(TradeBad);
                Inc(ReportVars[1]);
                SRLRandomsReport;
                exit;
              end;
            until(false);
          end;
        end;
        TradeTimeTicking := TradeTimeTicking + 1
        Wait(1000);
        if (not (FindColorTolerance (x, y, 3358280, 31, 34, 82, 50, 5))) then
        begin
          WriteLn('The noob is not giving anything ... Decline.');
          case random (5) of
            0: TypeSend('hit accept');
            1: TypeSend('accept');
            2: TypeSend('-.-');
            3: TypeSend('???');
            4: TypeSend('go away');
          end;
          Inc(TradeBad);
          Inc(ReportVars[1]);
          SRLRandomsReport;
          exit;
        end;
        if ( TradeTimeTicking = 25 ) then
        begin
          WriteLn('Took to long ... Decine');
          Mouse(258, 217, 5, 5, True);
          case random (5) of
            0: TypeSend('-.-');
            1: TypeSend('hit accept');
            2: TypeSend('nah');
            3: TypeSend('no thanks');
            4: TypeSend('get lost');
          end;
          Inc(TradeBad);
          Inc(ReportVars[1]);
          SRLRandomsReport;
          exit;
        end;
      until (false);
    end;
  until (false);
  Exit; // So the script doesn't "hang" for some reason.
end;

ok i will thanks :)

that's a pretty good idea I never saw a script like this anywhere before, I wouldn't have thought of something like this. Good job, I might try this later.

Thanks

Thanks for the credit from my tut :).

Just 2 things that I've noticed:

1: With your second const area you could just move it up to the top, makes it easier for the user to edit the text in one.

2: As you have made 2 talking procedures (well done), you will need to reset the number of times typed to 0, otherwise the second one just wont type (or it might type once). So you will need to add a line that looks something like this:

Typed := 0;

After the end of the first "until" statement.

So with that added in and the const edited, you should have something that looks like this:

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

var
Typed: Integer;

Const
Text = 'flash2:Hey! can i have money plz!!';//You can put your text if you want\\
Text2 = 'White:wave2:I wont leave you alone unless you do Plz plz plz';
Times = 10;////How many times you say each change to whatever number\\\\

procedure Talk;
begin
  Repeat
    TypeSend(Text);
    Typed := Typed + 1;
  Until(Typed >= Times);
  Typed := 0;
end;


 /////////////////////and your text here to if you want\\\\\\\\\\\\\\\\\\\\
//---------------------Don't touch anything else--------------------------\\
Procedure Talkagain;
begin
 Repeat
  TypeSend(Text2);
  Typed :=Typed + 1;
  Until(Typed >= Times);
  end;

begin
  SetupSRL;
  ActivateClient;
  Talk;
  Talkagain;

end.

keep getting a messed up error with it
Line 87: [Error] (12254:1): Unknown identifier 'SetMouseMode' in script C:\Program Files\SCAR 3.15\includes\SRL/SRL.scar

From: Bammersx
keep getting a messed up error with it
Line 87: [Error] (12254:1): Unknown identifier 'SetMouseMode' in script C:\Program Files\SCAR 3.15\includes\SRL/SRL.scar

Get SRL Revsision 15.
http://www.villavu.com/forum/showthread.php?t=28678

alright thanks for the tip Richard

Np, I'm happy to help :)

jsut want to say thanks for all the feedback and keep it coming :)

nice first try, but, damn i hate beggers, and useless now.. xD

still get 3k :spot:

epic lols!

why don't more people indent their scripts?
it makes them much easier to read

this is a nooby script. only real noobs use this script. no offence dude. it is kind of good for new acc's though.

hehe…its really supposed to be kinda a joke scripit you can use it as a auto talker or begger its up to who ever is using it..but onne taken:)