SRL Archive - First Scripts

well this is my first script if anyone could post feedback and stuff that would be great, also soz for any poor standards

heres my proggy( to prove it works :) )
———–REPORT—————–
——–PROGRESS REPORT——–
Total time Running: 1 Hours, 45 Minutes and 5 Seconds
Loads Done: 78
Logs Cut: 2106
——–PROGRESS REPORT——–

{ty to jad and who cares and anyone elses tut's that i used to make this}


program YewLogCutter;

{.include SRL\SRL.scar}

var yew1,xx,yy:integer;
    knife,xxx,yyy:integer;
    loads:integer;
    Tries: Integer;
    yew : Integer;
    all,x2,y2:integer;
    x1,y1:integer;
    tim :integer;


procedure declarePlayers;
begin
            HowManyPlayers :=1;
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer:=0;

     Players[0].Name :='';
     Players[0].Pass :='';
     Players[0].Nick :='';
     Players[0].Active:=True;
     Players[0].String1 := '' //Bank pin

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

Function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  for i:=1 to 8 do
  begin
    case I of
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7: begin
           if NoGameTab then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'No GameTab';
             Logout;
             Exit;
           end;
         end;
    end;
    wait(1);
  end;
end;

{procedure AntiBan;
begin
  if(not(LoggedIn))then
  Exit;
  case Random(10) of

    0: RandomRClickEvery(3 + Random(3));

    1: begin
         HoverSkill('Fishing', false);
         wait(2000+random(1000));
         GameTab(4);
       end;

    2: begin
         HoverSkill('Cooking', false);
         wait(2000+random(1000));
         GameTab(4);
       end;


    3: RandomChatEvery(4 + Random(4));

    4: LeaveScreenEvery(10 + Random(4));

    5: PickUpMouse;

    6: BoredEvery(10 + Random(5));

    7: begin
         GameTab(1 + Random(12));
         wait(1000+random(1000));
         GameTab(4);
       end;


    8: MouseBox(MSX1,MMY1,MMX2,MMY2,3);

    9: AntiBan;

    10: SleepAndMoveMouse(600000+random(300000));

  end;
end;}

procedure openBank1;
  begin
    MakeCompass('N');
    OpenBankQuiet('db');
    Flag;
    wait(500 + random(500));
    FixBank;


end;

procedure deposit1;
begin
  MoveMouseSmoothEx(628,227,20,40,45,25,20);
  wait(100+random(200));
  ClickMouseBox(620, 216, 638, 234, false);
  wait(100+random(200));
      begin
    if(FindBitmap(all, x2, y2))then
       begin
     MoveMouseSmoothEx(x2, y2,20,40,45,25,20);
     wait(1000+random(100));
      ClickMouse(x2, y2, True);
end;

end;
end;

procedure withdraw1;
begin
  MoveMouseSmoothEx(94,76,20,40,45,25,20);
  wait(100+random(200));
  ClickMouseBox(90, 73, 110, 86, false);
  wait(100+random(200));
      begin
    if(FindBitmap(all, x1, y1))then
       begin
     MoveMouseSmoothEx(x1, y1,20,40,45,25,20);
     wait(200+random(100));
      ClickMouse(x1, y1, True);
end;
    FreeBitmap(all)
end;
end;

procedure SelectKnifeLogs;
begin
////////////////////////////////////////////////////////////////////////////
{------------------------select logs---------------------------------------}
////////////////////////////////////////////////////////////////////////////
  wait(2000+random(100));
  yew1 := DTMFromString('78DA63F4606260E062644006BE569C0C3A402' +
       '190E87F20607402AA114555039285A901F36C816A9808A8F102AA' +
       'F9CF805F4D38500D2F0173FC806A0409A8B104AAE1C7548320813' +
       '4C85F0C04D48402D570E0570300FF1109AA');
if FindDTM(yew1,xx, yy,563, 209, 736, 248) then
begin
  wait(1000+random(100));
   MoveMouseSmoothEx(xx,yy,20,40,45,25,20);
   wait(100+random(100));
  ClickMouse(xx+random(5), yy+random(5),true);

 end else
  begin
    Writeln('did not find yew in inventory');
  end;
////////////////////////////////////////////////////////////////////////////
{------------------------select knife---------------------------------------}
////////////////////////////////////////////////////////////////////////////
  wait(200+random(100));
  begin
  knife := DTMFromString('78DA637467626078C68002CA7273187418191' +
       '88088E13F1030FA01D55C6340038C7035609E1350CD2B026AEC81' +
       '6A3E1350E30D54F384809A00A09A5BF8D50000A7C60D7F');
if FindDTM(knife,xxx, yyy,563, 209, 736, 248) then
begin
  wait(1000+random(100));
  MoveMouseSmoothEx(585+random(5), 227+random(5),20,40,45,25,20);
  wait(100+random(100));
  ClickMouse(585+random(5), 227+random(5),true);
  wait(300+random(100));
 end else
  begin
    Writeln('did not find knife in inventory');
  end;
end;
end;

procedure rightselect;
begin
MoveMouseSmoothEx(248+random(5), 415+random(5),20,40,45,25,20);
wait(300+random(100));
ClickMouseBox(238, 387, 283, 421, false);
end;


Procedure LoadBitmaps;
  begin
  yew := BitmapFromString2(False, 'aD36FB78DAED56490EC3200CFC' +
       '924520C0B10BFCFF49C5E90529C232C6216A850F2334215E069B0' +
       '400206E05C0BA027B4C055DD8711D4C41132C32EE85980F1E6908' +
       '1071FDC4B77CF2051F06D75B02F776D6FA850BB5305736B2472BD' +
       '69CEA7A33A9F7C361B23D5AB1AE53A98ED89B493E19FDF4B7546A' +
       '5551E7205389B6FF5349963987E1E4D01B8B5F9DD6198DA8F4E56' +
       'B3FFCE9A66BE7777EAF67592FE94E81AC976855E933D5BA75AF9B' +
       'B8912F05BFF764B33672EB8EF4A4AE4ABD3C6736A16177FD09CC9' +
       'CB816CFF73C53A5F35D2DDB03A471FC70785947F5465CB870E15D' +
       'F801805');

all := BitmapFromString2(False, 'a0DA3D78DAED934B0AC0200C05' +
       'AF946AE2676DF5FE476AD28214A49222B51BDF629067C88020004' +
       '0B40C40621066610E9526A09C29098B633A23E3CE6F4C6F522552' +
       '64DA0CB413A25FBCB334D14C6A7ABD17CEF4F7B4F3FD5EEF7DDA3' +
       '6C73E6219B1F7F3B51D9ACCB7FFF5F2CB3ED37EB1FDE99ADBB7FD' +
       'E2BF3C0007B');
end;

Procedure click;
begin
    if(FindBitmap(yew, x, y))then
    begin
     MoveMouseSmoothEx(x, y,20,40,45,25,20);
     wait(200+random(100));
     ClickMouse(x+3, y+3, True);
    end;
    FreeBitmap(yew)
end;
procedure select;
begin
  LoadBitmaps;
  click;
end;
procedure sendnos;
begin
  wait(1000+random(200));
  SendKeysWait('27',500,500);
  wait(500+random(200));
  SendKeysWait(chr(13),500,500);
  wait(48000+random(2000));
loads:=loads +1;
end;
procedure ProgressReport;
begin
    Writeln('-----------REPORT-----------------');
    writeln('--------PROGRESS REPORT--------');
    Writeln('Total time Running: ' + TimeRunning);
    Writeln('Loads Done: ' + inttostr(loads));
    Writeln('Logs Cut: ' + inttostr(loads*27));
    Writeln('--------PROGRESS REPORT--------');
  SRLRandomsReport;
end;
procedure setup;
begin
  clearDebug;
  LoadBitmaps;
  declarePlayers;
  NextPlayer(True);
  loads:= 0;
end;

begin
  setup;
  repeat;
  openBank1;
  deposit1;
  withdraw1;
  CloseBank;
  selectKnifeLogs;
  rightselect;
  select;
  sendnos;
  clearDebug;
  ProgressReport;
  until(false);
end.

DAMN man i cant cut yew longbows yet but when i can im using this for money……curenttly working on WC 39

Hey mate, looks like a nice first script.
But… instead of using sendkeys, you should use TypeSend -its more undetectable. And maybe learn some more srl functions.
Looks nice for first though (h)

don't use MoveMouseEx.. or clickmouse.
use Mouse(x, y, 5, 5, True);//<– much less detectable. and Mouse moves the mouse for you.