Results 1 to 5 of 5

Thread: Ogy Citadel Chopper

  1. #1
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default Ogy Citadel Chopper

    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

    Simba Code:
    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.

  2. #2
    Join Date
    Nov 2011
    Location
    MA
    Posts
    545
    Mentioned
    3 Post(s)
    Quoted
    10 Post(s)

    Default

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

  3. #3
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    o.O good point lol

  4. #4
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

    Default

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

  5. #5
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    alright, it should work now =)

    thnx guys

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •