SRL Archive - First Scripts

program LeDonsThiever;
{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$I P07Include.Simba}
 const
 version = '0.41';

procedure AntiBan;
begin;
 case Random(80) of
 0:
  begin
   Writeln('AntiBan: Taking a break for 60 seconds')
   wait (RandomRange(54000, 66000))
  end;
 1:
  begin
   Writeln('AntiBan: Taking a break for 20 seconds')
   wait (RandomRange(16000, 24000))
  end;
 2:
  begin
   Writeln('AntiBan: Checking Thieving XP')
   P07_HoverSkill('thieving', 3000 );
  end;
 3:
  begin
   Writeln('AntiBan: Checking HP XP')
   P07_HoverSkill('hitpoints', 1000);
  end;
 4:
  begin
   Writeln('AntiBan: Waiting a random amount of time - between 1 and 3 seconds.')
   wait(1000 + random(3000));
  end;
 5:
  begin
   Writeln('AntiBan: Acting like a bored Human.')
   BoredHuman;
  end;
 6:
  begin
   Writeln('AntiBan: Pickup Mouse')
   PickUpMouse;
  end;
 7:
   begin
    Writeln('AntiBan: Randomly moving mouse')
    RandomMovement;
   end;
 8:
  begin
   Writeln('AntiBan: Randomly Right clicking')
   RandomRClick;
  end;
  end;
 end;
Procedure FindStun;
var X, Y, YouAreStunned, YouveBeenStunned, Stunned: Integer;
begin
Wait(100)
YouveBeenStunned := BitmapFromString(122, 11, 'meJyNl21rE0EUhec3FwSRfglmx' +
        'dhaTMUPUVqUkuBLW6oFCYoi4g/zZM/Oydl7dzcNw3B7986keebMmd' +
        'lSyqPlxZM3V8erdSlldnF9/O4zmgdj7en72+cfbjBqfvUNTXnFKEC' +
        'bXd4xZhnaYn2PHhmMRcw//ZEC9C8+fmd/8uUnHzHmQNU3m+0CrSbD' +
        'PAzYMJwzhIbhOent1c2v6QJv5/f/0PAD+SeC5d3v0tIG6kx7EPiOH' +
        'h+t1ugxhMydtsqQJ2RPcgkIgcOF1LEj44i84Z9nPYO8Unmg8vhGDG' +
        'kwvLL1mBOOcUYv4M2nH2Oc+QiVgTYypa9tMmQ/KGZKFwFWoZNuv4B' +
        'slZekWSzUbKQ9iCsTa+qKqIwq9SFjwzU5ae+Sh5RMbhhyUNvEq55N' +
        'kMGcAfqjxWtC3vWSNKRu8lafFR6AD/5J/gTOQATkQtOsSLWpliJ0T' +
        'UW9+5mb7dgkXinv4tYQH4r8gZbi5J/d/vFJujk3WzobDUQiB21oW6' +
        'oW7VI/oi2foYEE6cKclVQBfhGNnR9XuH47P3m/e55q9Hl8sZgcBF7' +
        'sQ9v3mSk5guL8EiS+UaOUZO9JZUIy5M9ax3759S9oH52unCrBMhBk' +
        'Acy01TwpQ1ag2K1DPBkoKWWKLQkIu2h7HAw/bJym3R3izNVhDa3ba' +
        'fty8HsdKddISxCSnvdgR/t0JW074UHaQefBPQRcVMOtoyTfKLav9d' +
        'TLPKmT1JN5jWQg+O2+HfZD2i3Azd7R7qMLDEWbbhYqm2o73f5qv1R' +
        'HLeJlazV8OkbbPYGPihm7F3gTba2C7+V8DgqXFDs4xG1EQ7SUWcny' +
        'ah5zYdU6qbcG0jGsMe8kU7St0u0iityWwM9W+fbs7aZzknpiummMC' +
        'X4MeLAUv4eQBo/LTHuQW7YFXyxahxdwF4TKvAVIo9N5y1DJk3oVpD' +
        '+4qwcZ5wM0aJu0S/+U7N1A7JTcH50t5JDEGuEcVDwo+yzLeX0bCjL' +
        '248+HZHkTaUknpi+T1/tF0af17/Lj0nFxQQdpT8g7JJ324/NLvuB0' +
        'fmJxdyFcrXnH3iftTsi3mHw/nNVXS2pbLzUO3CEHPWcxe9OhOV3Gi' +
        '8rBsrndq/MLzsQb6EOaTs//LEL25g==');


YouAreStunned := BitmapFromString(89, 11, 'meJyFVl1Lw0AQvN9cEET6UmzAqi' +
        '8qPkRpUUqC34iCFP1zTjrJdNy71LAcm83eJTM3u5eU0sHF8uh6Pa2' +
        'blNJs+TK9fYK5M2bHd28n96+YNV9/wBSXjwTYbPVOn2mwRfOJkdPh' +
        '89YfycF4+vDF8ez5h4/oc6Lyq3azgA3BsA4dGqZzBXw5RjlpSwV4y' +
        'KkostFB46O6wYgpRORUKA1xMuBB8iM26BOvWCVe/343fDbz6eQ05h' +
        'MV55QK09sNGYDvVEgVBMixKANuOhxQ1G/63wQCV1xiYLKwy1wtTkU' +
        'Op9rCd2jcX58yNt2JIo2iQqqYLK7IQDdKDBCJCUNjro3ARvGW5JAN' +
        'OmGnilQ4EEKuhkoRrmrgodvcdjPGhmf6yr0qHr9FBVQhPYiKNFyiQ' +
        'uXDugibjobAoB7R56XPkDAIXJe+Tfm8FRXwSQif+rICFd7lr/BW4y' +
        '8CD6QCQVAxOa8dMlHTEQPCmFMh4+IKcn22C/qiwgXgu58DkbadCsU' +
        'Dhy6tsFqHetCV1wW11K3TbsCDVOHwi1QEhYSiCEF11Bxj2LJAhWon' +
        'YFFr9QRxEghkJnY8LEXUPHGciq5ARqhwkfORNxNP8MxwGwQfmrwk4' +
        'R+fd9E8RwLbQ0UowLwdqUV0XWhbJuoVs5u2L5ChhXotjEllPxXFU4' +
        'Po2D+9J/iGFgukKBV1Ep+VH81jSmMDoX52VPh5YW1z10u3DIQgCEQ' +
        'JjEnF9yX8TRU1o7h+PLyIpOr5cCamkbbgWioKIwTpkIrDyxX/svoy' +
        'Mb8/W+uG/xK7oB2v7I35UTsbfj4JTQBlro2wg8XT1o1d9N80doN/0' +
        '2C/ZMO5pw==');
Stunned := BitmapFromString(51, 11, 'meJyFlP2KwkAMxPvqogunPoPgIZ' +
        'Y7/PhDQcrdy5l27I8h22oJJd0ms5NJdleH2/p4Xx1uy/316/sSvj5' +
        'l+HLivfl56L09/euXfCUSX9puHTYuJhw5skgXQtM08cYJPmFwk6/d' +
        'IwCGseJobgGieDl1UXUi60opkd524hM+xDwlPslyYjV4Gcj4RqrdU' +
        '+bSnbaKghiKkVJDOTGHFYEy9pRdysiqL7zt5rh5pCO/FPv981aKBg' +
        '+RepTO+mZQW/T0lzAiVXjSHEAfUd8oWIkYvXNYLyHB0gUnxnqqyGV' +
        'PaD2HUXPvoHTucUzwJBdQdDkhc0A8AIapHEWGGgkKDmWYMYihp8vl' +
        'UPVZqGM40W+IpVGpx5jR6qd3aKj2WuzO3vHUmslWTsrIBHpWffnMd' +
        'UFCJW3TqPs6F523G/059XPj5DpPipYW02yHuW6pusn7xE1n4WOYpu' +
        'hjWNgT1k9IVg==');

        If (FindBitmapToleranceIn(YouveBeenStunned, X, Y, 7, 445, 136, 458, 15)) or
        (FindBitmapToleranceIn(YouAreStunned, X, Y, 7, 445, 136, 458, 15)) or
        (FindBitmapToleranceIn(Stunned, X, Y, 7, 445, 136, 458, 15)) Then
        Writeln('Stunned! Waiting!');
        Wait(RandomRange(3700, 4300));
        FreeBitmap(YouveBeenStunned);
        FreeBitmap(YouAreStunned);
        FreeBitmap(Stunned);

end;

procedure FindWoman;
var Pickpocket, x, y: Integer;
begin
wait (RandomRange(100,200))
 Writeln('Looking for a Woman')
  SRL_EnableNavBar;
   if P07_FindObj(x, y, 'Att', 4409492, 15) then
   Writeln('We found a Woman');
   begin
   wait(RandomRange(200, 300));
      Writeln('right clicking!')
      Mouse(x, y, 3, 3, false);
        Pickpocket := BitmapFromString(73, 17, 'meJztk0sOwCAIRL2dF+i29z+G3R' +
        'HiOBSrJCXRsLB+pjwc6nXXEzmjqfHhYlxKu3RKKbOCcjEIzalspK1' +
        '1puh+hTY8jGhOzERoMpFjeo4tyZzMmte/PqXMZLstZOn+JYNd1J9M' +
        'IU65ezu2Jevs0Y2CMHvb83Vlp1f9CTSwxy40VEbqODRmj3U0j3XX0' +
        'exm143Javva1K/KKI4PinTYgMN1rBjOWW2Zgl8ZTw5zQ4pdYdgjex' +
        'y0pBHteU88bNQVcw==');
        If (FindBitmap(Pickpocket, X, Y)) Then
         Writeln('Found Pickpocketing option using Bitmap')
         Else
         Writeln('Could not find pickpocketing option');
         End;
         Mouse(x, y, 3, 3, true);
         FreeBitmap(Pickpocket);
         AntiBan;
end;

procedure FindMan;
var Pickpocket, x, y: Integer;
begin
wait (RandomRange(100,200))
 Writeln('Looking for a Man')
  SRL_EnableNavBar;
   if P07_FindObj(x, y, 'Att', 1455970, 15) then
   Writeln('We found a Man');
   begin
   wait(RandomRange(200, 300));
      Writeln('right clicking!')
      Mouse(x, y, 3, 3, false);
        Pickpocket := BitmapFromString(73, 17, 'meJztk0sOwCAIRL2dF+i29z+G3R' +
        'HiOBSrJCXRsLB+pjwc6nXXEzmjqfHhYlxKu3RKKbOCcjEIzalspK1' +
        '1puh+hTY8jGhOzERoMpFjeo4tyZzMmte/PqXMZLstZOn+JYNd1J9M' +
        'IU65ezu2Jevs0Y2CMHvb83Vlp1f9CTSwxy40VEbqODRmj3U0j3XX0' +
        'exm143Javva1K/KKI4PinTYgMN1rBjOWW2Zgl8ZTw5zQ4pdYdgjex' +
        'y0pBHteU88bNQVcw==');
        If (FindBitmap(Pickpocket, X, Y)) Then
         Writeln('Found Pickpocketing option using Bitmap')
         Else
         Writeln('Could not find pickpocketing option');
         End;
         Mouse(x, y, 3, 3, true);
         FreeBitmap(Pickpocket);
         AntiBan;
end;

Begin
SetupP07Include;
SetupSRL;
ActivateClient;
repeat
FindStun;
case random(2) of
0:FindWoman;
1:FindMan;
end;
until(false);
end.

What do you think?!

Script added!

Good job on first script. :)

Memory management needs improving.. Call on DTM/bmp at start, use if DTM/bmp Exist in freeing procedure and then AddOnTerminate your freeing DTM/bmp procedure.
See this thread > http://villavu.com/forum/showthread.php?t=78418

With a 1 in 40 chance of minibreaks in your anti-ban procedure I can see the character just standing around doing nothing most of the time. Have you tested it out? I just think the probability of that should be a lot less.

Standards need fixing, too and it needs more failsafes. Time-outs if nothing happens for a while etc.. and logging in player. Progress report would be nice to see, too since it's one of the easiest things to add to a script.

I'll be adding failsafes soon, I think you were right about the minibreaks so I made it one chance of a break of anywhere between 20 and 60 seconds.

This is for 2007 right? you can use P07_ChooseOptionMuilti(['Theiv']) instead of bitmaps but not bad for first script

From: rjj95
This is for 2007 right? you can use P07_ChooseOptionMuilti(['Theiv']) instead of bitmaps but not bad for first script

Yeah, Thanks for that.

I'll add that when I finish my Alkharid smelter, which is almost finished.. Not sure whether to publish..