SRL Archive - Research & Development Lounge

Alas!!!(I know it's lame but it brings you in you have to admit) I have compiled a [large(soon)] amount of functions and procedures. Here's how it's supposed to be included:

{.include CutIncludes/CutEmIncludes2.scar}

This means all you have to do is download the file I'll bring up, make a folder named CutIncludes and place the folder with the file in it directly in your includes folder.

This has:

• procedure BankWithdraw by IP-Drowner
• function TimeOverIt by cut em2 it
• function Find And Use by Dumpin
• function RandomClick by Dumpin
• function FindSymbolCustomColorIn by fORCE_wORKS
• function SuperTradeScreen by Rasta Magician

Cut em2 it

P.S. PM me if you want your function/procedure in my include.

Yea thats pretty good.

Could use some anti ban:p :

procedure Search;
Var f, e : integer;
begin
  mouse(645, -15, 1, 1, true)
    wait(800 + Random(200))
  begin
    case Random(7) of
      1: SendText('Macro?')
        2: SendText('Mining')
        7: SendKeys ('-')
    end;
    MMouse(727, -9, 1, 1)
      e := 5 + Random(6);   //Of Almost Logout credits to Yakman :)
    for f := 0 to e do
    begin
      case Random(3) of
        0, 1: MMouse(727 + Random(10), -9 + Random(10), 0, 0);
        2: IdleTime(300 + Random(300), 500, 0.5);
      end;
      FTwait(2 + Random(1));
    end;
  end;
end;

I'll put that in here.

KK no problem pm me if you need any more functions/ procedures :p

unction FindAndUse by Dumpin

yeh yeh thanks for asking :o

Np use it ;P but next time ask it plz :D

EDIT: just noticed you did in my topic, didn't saw it soz.

EDIT2:

http://www.villavu.com/forum/showthread.php?t=20556

http://www.villavu.com/forum/showthread.php?t=21058

use it if you want.

I will be gathering more

@Dumpin,

Thanks, I used one of those.

Cut em2 it

Ive got another for you.:

Called ToBankers. Will walk to bankers.

Only works for fally

procedure TryAgain;             // Cool procedure :p
var
  Banker:integer;
  Walked:Boolean;

begin

  Banker := DTMFromString('78DA63BCC5C4C0F0870105FCF9C3C4F01F483' +
            '302F17F2060BC0D54F30B55CDBF7F7C609A11CA67BC0354F39701' +
            '0D30A2AA01D9F58F809A9B4035BFD1ED124651030006FB1455');

  if (not(FlagPresent)) then
  begin
    MakeCompass('W')
    if FindDTM(Banker,x,y,597, 26,634, 90) then
    begin
      Mouse(X+15,Y-1,3-2,0+1,True)
      Walked:=True
      FFlag(0);
    end;
  end;

  FreeDTM(Banker)
end;

Thanks, and two things

Edit:Figured it out :D
2) Good job on getting members :D

Do not forget to update my BankWithdraw procedure. It now deposits.

Thx cut em

here:
SuperTradeScreen - RM

you can add that, it's 100% sure to get you the right answer. :)

I will post next revision now.