SRL Archive - General S.M.A.R.T.

Well im using a very basic fletcher

program New;
 {.include Smarty.scar}
{.include SRL\SRL.scar}
  var
  bows,asdf:Integer;
Procedure WithDrawz;
Begin
  OpenBank3;
  Wait(500+Random(100));
  DepositAll;
  Withdraw(7,1,14);
  SmartHoldKey(10)
  Wait(20)
  SmartReleaseKey(10)
  Wait(500+Random(100));
  Withdraw(8,1,14);
  SmartHoldKey(10)
  Wait(20)
  SmartReleaseKey(10)
  Wait(500+Random(100))
  CloseBank
End;

Procedure Strings;
Begin
  MouseItem(14,true)
  Wait(500+Random(100))
  MouseItem(15,true)
  Wait(500+Random(100))
  Mouse(262, 450,5,2,False);
  Wait(300+Random(500))
  ChooseOption('ll');
End;

begin
Smartz:=True
MarkTime(asdf)
SmartSetup('nl5', True, True);
  repeat
    wait(100);
  until(SmartReady);
SetTargetDC(SmartGetDC)
Setupsrl
Repeat
Withdrawz
Strings
Bows:=Bows+14
Repeat
Wait(4000+Random(500))
  Case Random(10) Of
  0:Begin End
  1: RandomMovement
  2:Begin End
  3:Begin End
  4:Begin End
  5:Begin End
  6:Begin End
  7:RandomMovement
  8:Begin End
  9:Begin End
  end;
Until(InvCount=14)
Writeln(IntToStr(Bows))
Writeln(IntToSTr(TimeFromMark(asdf)))
Writeln(  IntToSTr  ((TimeFromMark(asdf))/(Bows)))
Until(False)
end.

:p
And its running very smoothly on smart and minimized.
It averages a bow ever 2.3 seconds taking 38 minutes to make one thousand.
I had to add my own little enter at the end of withdraw hope its not detecatable.
As far as iv talekd with ben, only problem left is compass procedures which are built into SCAR so freddy needs to be talked to :P.
Hers a prog
ROFL
28 Bows
61719Ms of fletching
2204Ms To make a bow
Lawl

Dirtiest coder of the day award. :]

program New;

{.include Smarty.Scar}
{.include SRL\SRL.Scar}

var
  bows, asdf : integer;

procedure WithDrawz;
begin
  OpenBank3;
  Wait(500 + Random(100));
  DepositAll;
  Withdraw(7, 1, 14);
  SmartHoldKey(10);
  Wait(20);
  SmartReleaseKey(10);
  Wait(500 + Random(100));
  Withdraw(8, 1, 14);
  SmartHoldKey(10);
  Wait(20);
  SmartReleaseKey(10);
  Wait(500 + Random(100));
  CloseBank;
end;

procedure Strings;
begin
  MouseItem(14, true);
  Wait(500 + Random(100));
  MouseItem(15, true);
  Wait(500 + Random(100));
  Mouse(262, 450, 5, 2, False);
  Wait(300 + Random(500));
  ChooseOption('ll');
end;

begin
  Smartz := true;
  MarkTime(asdf);
  SmartSetup('nl5', True, True);
  while (not SmartReady) do
    Wait(100);
  SetTargetDC(SmartGetDC);
  SetupSRL;
  repeat
    Withdrawz;
    Strings;
    Bows := Bows + 14;
    repeat
      Wait(4000 + random(500));
      if (random(5) = 1) then
        RandomMovement;
    until(InvCount = 14)
    Writeln(IntToStr(Bows));
    Writeln(IntToSTr(TimeFromMark(asdf)));
    Writeln(IntToSTr((TimeFromMark(asdf))/(Bows)));
  until(false)
end.

Instead of that long case thingie. If you want a 20% chance of antiban just so if (random(5) = 1) then.

Could be a nice example / template thingie though. :p

Hey Hey Hey
I wasnt entering this into SBs competition thx u very much!
Your lucky your eyes got to see my beautiful coding!
So i forgot a FEW standards big deal!
This code is brilziliant!

Oh I was happy for awhile, till I realized it just cuts not stringz0rs…:p


EDIT: Actually, I forgot, they updated to make both simple clicking. Add cutting to :D. Also, dont' auto on a member ffs :p

smartz := true

Something to do with your smart include?

Yea i think i edited typesend and chooseoption or something.
Something wasnt working so i tweaked.