SRL Archive - First Scripts

hi i made this script winch works pretty flawless but i have 2 lil problems.
1: antiban dont work
2: idk why it doesnt logout when find blkmessage 'ressource cap'

if u have eny idea how to fix it, PLZ tell me =)

THIS SCRIPT WAS MADE WITH A TIER 1 CITADEL, IDK IF IT WORKS FOR OTHER TIER

program ogyCitadel;
{$i srl/srl.simba}


Procedure DeclarePlayers;

begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active:=True;
 end;

 var
x, y, CitadelTab: Integer;
 aFound:extended ;


 procedure MSI_RandomFKey;
var
  i, randInt, randKey, currTab: Integer;
  keys: array[0..4] of Word;
begin
  currTab := GetCurrentTab();

  keys[0] := VK_F1;
  keys[1] := VK_F2;
  keys[2] := VK_F3;
  keys[3] := VK_F4;
  keys[4] := VK_F5;

  randInt := Random(6);

  case randInt of
    0..4:
      begin
        KeyDown(keys[randInt]);
        wait(35+random(85));
        KeyUp(keys[randInt]);
      end;

    else
      for i := 1 to 3 do
      begin
        randKey := Random(5);
        KeyDown(keys[randKey]);
        wait(35+random(85));
        KeyUp(keys[randKey]);
      end;
  end;
  wait(75+random(100));
  GameTab(currTab);
end;


 procedure AntiBan;
begin
  writeln('Pick random');
  case random(4) of



      0 : begin
          writeln('Random movement selected');
          RandomMovement;
          end;
        1 : begin
            writeln('Hover skill Woodcut');
            HoverSkill(skill_Woodcutting,false);
            end;
         2 : begin
              writeln('Game Tab stats selected');
              GameTab(23);
              end;
            3 : begin
                writeln('Random wait selected');
                Wait(randomrange(1000,2000));
                end;

                4 : begin
                    writeln('Citadel Tab Selected');
                    CitadelTab := DTMFromString('m6wAAAHic42ZgYJBgYmBQAGJhIBYAYkUoXxDKB7GlgVgMiJ8xMjDcg+InUPwCit+i4X3rehlqZUXB+MaRRQxOTlYM3h6ODE8ub2V49+oMw4pF04G2M4KxEZDkJxIzkoCRAACRZhoW');
                    if FindDTMRotated(CitadelTab, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
                      begin
                      Mouse(x, y, 3, 3, True);
                       end;
                        FreeDTM(CitadelTab);
                     end;
  end;
  wait(randomrange(500,1000));
end;

procedure ChopRoots;

var
x, y, root1,root2,root3,root4,root5: Integer;
 aFound:extended ;


  begin
   root1 := DTMFromString('mVAEAAHicpcxLCoJgFIbh0wpsN6G2D0HKQZO8kWiJIQgNRChQiqJoq458f/kb2NQDD+fywVmKyAUVajS44oYWd3R44ImX9sEbX5xRosAJOTIcdU9wQKp7hBi+tnNWsnfNUbCxJPLWE79MzSpX1B5u7fHW88OYYTHTfw1GEyHO');
      if FindDTMRotated(root1, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
        begin
         Mouse(x, y, 4, 4, False);
          ChooseOption('hop');
          wait(5000+random(250));
           end;
           FreeDTM(root1);

   begin
  root2:= DTMFromString('mpAIAAHicxc7dikFRFMDxPU/gFTzGEGMeY5JEkiRNkztNIUoupCgXSo2iMMYcJl/jGPNcrvzXbp0bNy7PqV/ra++1T9AYs8AX5hql/tT4jSVWcPCDNTaaS9xr3OKAHX617+KIP5y0/4+zzmZ696C1q3NH3xdTNcEYI3xgiAH6qocuOmijhSYaqKOCGqp4V2UUkhGTi4dszCfCNi+morYWr+kn23vLxEz25dHWMpdaSC1K2Wd77jbKGdkru7xc7ns7LvxDwEcPPrv3XQG4c03K');
       if FindDTMRotated(root2, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
        begin

         Mouse(x, y, 4, 4, False);
          ChooseOption('hop');
          wait(5000+random(200));

           end;
           FreeDTM(root2);
           end;

  begin
   root3 := DTMFromString('m4wIAAHiczc49agJhEMbx9QQewkuI+HENC5GIpBAJYmUTJGiRJqUoQkBRiYKiCIIeQCTgVxIlrCAohOAdrPzPMq9saenCj5l595l312dZ1hY7tVcHHPGHf5zwjQ2+tJe6Ugv8wMavK2sr+cZSz+eYYa17n5iqBpr4QAdd9DDAECNM0ELblem73o9RwzsqqKKMEup4U68o4AVF5PGscnh6CFnpePBK5kwi7FTTp2KB61k2GXF6qe6MzCZn7jK9ZB6jfmcW0ptdIXuSO/M/3jvhuSM3PBcXNVm9');
     if FindDTMRotated(root3, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
        begin

         Mouse(x, y, 4, 4, False);
          ChooseOption('hop');
          wait(5000+random(235));

           end;
           FreeDTM(root3);
           end;




          begin
   root4 := DTMFromString('mOwIAAHicvc29CsIwFIbhVBBExQ6OXoWDi/h3A04uDlJaaq21VCkKTl6uDg4OgoOi6JtylHRxbODhIx8nJy2lVMlSqowKqqjDRtPoa2hI9+LNG0/ccRNXccHZcBJHxEiwRood9jhghSUCg56NRCy5wByhQd89uPCl23iDTOL2s0z9odoGo1ynU4tm3VyadBc7vZ9vPx23lTPpZHsf/GcXxCrQn/MBusY4Og==');
     if FindDTMRotated(root4, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
        begin

         Mouse(x, y, 4, 4, False);
          ChooseOption('hop');
          wait(5000+random(150));

           end;
           FreeDTM(root4);
           end;


  begin
   root5  := DTMFromString('mJgIAAHicvc1fC8FQGAbwd27Iv+XWZ6AQaZptyZpIo+XC0iJJkiRfWpHccGE3nnfeuXO7U7/OeZ7znk6ZiNIKURZyUBSq5AzkoSAdKwk+K5CCkL5e8IQH3OEGV7iACTpo0IYm1KXvQR8cGMIYJuDBHAyZiWdtsCTzu4FkvjutTdoHeuSw7NJu0aGtr0X5vLGinWe453vOx5Xx62M8yz3vgdci323Q1KnSbFQj167QG3+pCVAS8n99AN9oLL8=');
      if FindDTMRotated(root5, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
        begin

         Mouse(x, y, 4, 4, False);
          ChooseOption('hop');
          wait(5000+random(250));

           end;
           FreeDTM(root5);
           end;

           end;

Procedure BackToStart;
var
x, y, Map: Integer;
 aFound:extended ;
begin
Map := DTMFromString('mPwEAAHicpcuxDsFgAMTx4wXqFSRK4gGEiKbS9lM+BtJELG0i0pGhhjKZzAajJzX5pxKDkUt+ueXOkbSvSxdsUWCNK1a44YAcJ2xwR4AHEv4pMhwxxQx99NDAECOUOCPHDmO/q9i0ZUJXdt6Rjd+SpfexsIOqg6glM3Hl+c1q++Tv/Kj2h6+8ABBqGMc=');
if FindDTMRotated(Map, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
begin
Mouse(x, y, 3, 3, True);
 FFlag(6);
  Wait(1500 + Random(250));
  end;
  FreeDTM(Map);
  end;


 begin
  Smart_Server := 86;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;

  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;


 repeat

   ChopRoots;

   BackToStart;

   if FindBlackChatMessage('ressource cap') then
   begin
  Logout;
  end;

  until FindBlackChatMessage('ressource cap')


end.
  

Antiban doesn't work because you don't call it in the loop ;)

o.O good point lol

doesn't resource have just one s? plus try just part of the word, like 4 characters of it

alright, it should work now =)

thnx guys