Page 12 of 13 FirstFirst ... 210111213 LastLast
Results 276 to 300 of 302

Thread: [Alotic] Spotify's AIO Thiever

  1. #276
    Join Date
    Aug 2013
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Got everything working again except 1 problem that has made me stop using the script.
    Everything is fine, in fact everything works perfect, until you get stunned. Once you are stunned, this makes the script go retarded and causes pickpocketing of any NPC to slow down like 500%. This script will run fine on all NPC's until it's stunned, at which point you either have to restart the script or just shut it down which pretty much defeats the purpose of botting.
    I tried to do what I can but i'm afraid I'm just not good enough at scripting to solve the problem. This didnt start happening until the other day. I dont know, but someone else who's better at scripting will have to fix this script. I dont think Spotify is bothering much with Simba or RS/RSPS'S anymore.

  2. #277
    Join Date
    Dec 2014
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Omg i was dumb founded when I came across this, I made some really basic scripts on alotic too for agility and killing, havent worked out how to find the wizard at home for teleporting, going to test this out right now!

  3. #278
    Join Date
    Mar 2015
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Doesn't know which pally to choose in ardy if more than 1 is alive
    Last edited by applesauce12; 03-06-2015 at 07:52 AM.

  4. #279
    Join Date
    Mar 2015
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    How do I input the npc etc...

    (InputQuery('Which Npc would you like to thief from?', 'Choices are (Man, Guard, GemStall, Hero, Paladin, Rogue, and Farmer)', Farmer));

    is this correct ?

  5. #280
    Join Date
    Jun 2014
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by Beast Coast View Post
    How do I input the npc etc...

    (InputQuery('Which Npc would you like to thief from?', 'Choices are (Man, Guard, GemStall, Hero, Paladin, Rogue, and Farmer)', Farmer));

    is this correct ?

    Im not good with simba but... hope this give you idea how this works (if you asked for it)
    Simba Code:
    program my;
    var
    Farmer: String;

    Procedure Run;
    begin
    if lowercase(Farmer) = 'man' then
      begin
      // function to thiev man
      end;

    end;

    begin
    (InputQuery('Which Npc would you like to thief from?','Choices are (Man, Guard, GemStall, Hero, Paladin, Rogue, and Farmer', Farmer));
    Repeat
    Run;
    wait(100);
    Until(false or IsKeyDown(123)); // F12
    end.

  6. #281
    Join Date
    Mar 2015
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Quote Originally Posted by villaa View Post
    Im not good with simba but... hope this give you idea how this works (if you asked for it)
    Simba Code:
    program my;
    var
    Farmer: String;

    Procedure Run;
    begin
    if lowercase(Farmer) = 'man' then
      begin
      // function to thiev man
      end;

    end;

    begin
    (InputQuery('Which Npc would you like to thief from?','Choices are (Man, Guard, GemStall, Hero, Paladin, Rogue, and Farmer', Farmer));
    Repeat
    Run;
    wait(100);
    Until(false or IsKeyDown(123)); // F12
    end.
    I always get:
    Error: Duplicate declaration "status" at line 6

    Q7jNQHZ.png

    What is wrong?

  7. #282
    Join Date
    Mar 2015
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Damn I don't get this how do I need to fill in my name, password and the npc to thief I always get;
    Error: Found unexpected token "Identifier" at line 6

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

    Default

    I have all the stuff downloaded, I just dont know where to input info in code to make bot work. please help me

  9. #284
    Join Date
    Apr 2015
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i keep getting this error.

    Error: File "srl-osr/srl.simba" not found at line 2
    Compiling failed.

  10. #285
    Join Date
    Dec 2014
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    someone pls help trying to fix this for hours Invalid number of parameters at line 123
    Compiling failed.

  11. #286
    Join Date
    Sep 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    It's giving me the issue
    Error: Duplicate declaration "status" at line 6
    But I looked through the script and it is declared no where else.
    I think it is the srl-osr thing, should I be using a different version of srl-osr?
    If I should be, can someone help me get a link to it?

  12. #287
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    Quote Originally Posted by DrowsySaturn View Post
    It's giving me the issue
    Error: Duplicate declaration "status" at line 6
    But I looked through the script and it is declared no where else.
    I think it is the srl-osr thing, should I be using a different version of srl-osr?
    If I should be, can someone help me get a link to it?
    Try this:

    Simba Code:
    program Alotic_PickPocketer;
    {$i srl-osr/srl.simba}

    var
      x, y, pickpocketbmp, loginscreenbmp, steals, xpgained, TimesStunned, relogs, Is_Relogger, Gems, bankbmp:Integer;
      state, NpcString, username, password:string;

    Function ReloggingInfo:Boolean;
    Begin
      Is_Relogger := MessageBox('Would you like to use the auto relogger?', 'Relogger', 4);
        if (Is_Relogger = 6) then
          Begin
        Result := true;
        InputQuery('Relogger', 'Username?', username);
        InputQuery('Relogger', 'Password?', password);
          End;

        if (Is_Relogger = 7) then
          Exit;
    End;

    Procedure NpcInput;
    Begin
      (InputQuery('Which Npc would you like to thief from?', 'Choices are (Man, Guard, GemStall, Hero, Paladin, Rogue, and Farmer)', NpcString));
      ReloggingInfo;
    End;

    Procedure Loadthings;
    Begin
      PickPocketBMP := BitmapFromString(60, 7, 'meJyTUdeWUdeeuuMYEMlgsLEiggr' +
            'IRiSZjEcxRApZFs7FKo5pFEFxUk3GoxGTjccNeHQRwybDZFxhjlUN' +
            'nkAjj02eyeS5mVrhTIzJuBIYSTFIeXogw2RcCJc38XsKT1AQFCcys' +
            'uAIADSz1FM=');

      LoginScreenBMP := BitmapFromString(51, 6, 'meJyNUkEOwjAM64dAA7oV/r7H7L5' +
            'PYGTiJilMmyLUBjtxnK7bXkq5za+pLuu2M3Ce5ieiZ3CtDcGzwZrH' +
            'KPODGzO+SAfUdn0sHkNh1FPsIxG/vLKpiMoTJhbOwHCEwDVhHpkBn' +
            'Lo2JSXs6xUjDkiYL+59+FzNPf31jxtYscLYEcIQ1El5NKfELxUMYm' +
            'zR3e04u+eq+CjMWyphemnIjNw8qe3LZ7KGQe2BY6kjjdIqEZf7PK6' +
            'D46eOfE4H7U6t0iqgmn/8b0QEW+E=');

      BankBmp := BitmapFromString(77, 8, 'meJybuuOYjLo2EE3dcWwqjE0qIqi' +
            'X4f9/ICLPcAqNhaiBuBDTnVjFkQUxxfH4F497kKUw2XCEqQVTCpd6' +
            'iMMwY4Q8Np44hVuNy220ZmN1Nq6II+hNYlIXjbyJK5bxeJN2sUk7b' +
            '5IRm2SzicmbA+VNgkUQ2d7H9CnW8gFPYiM+cRJjzrBHAE5Kh+4=');
    End;

    Function XpBarCheck:Boolean;
    var
      x, y:Integer;
    Begin
      if FindColorTolerance(x, y, 4293300, 423, 53, 505, 76, 5) then
        Result := true;
    End;

    Procedure Freethings;
    Begin
      FreeBitmap(PickPocketbmp);
      FreeBitmap(LoginScreenbmp);
      FreeBitmap(BankBMP);
    End;

    Function FindXp:Boolean;
    Begin
      if FindColorTolerance(x, y, 26316, 447, 73, 515, 79, 5) then
        Result := true;
    End;

    Procedure ClickPickPocket;
    Begin

      if (Not (FindBitmap(PickPocketBMP, x, y))) then
        mmouse(345, 78, 30, 30);

      if FindBitmap(PickPocketBMP, x, y) then
        Begin
          Mouse(x + 50, y, 1, 1, true);
        End;
    End;

    Procedure Proggy;
    var
      Stealsperhour, xpperhour, XpRate:Integer;
     Begin

        if Lowercase(NpcString) = 'guard' then
        XpRate:=558;

        if Lowercase(NpcString) = 'guard' then
        XpRate:=516;

        if Lowercase(NpcString) = 'farmer' then
        XpRate:=516;

        if Lowercase(NpcString) = 'hero' then
        XpRate:=3279;

        if Lowercase(NpcString) = 'hero' then
        XpRate:=438;

        if Lowercase(NpcString) = 'paladin' then
        Xprate:=1821;

        if Lowercase(NpcString) = 'gemstall' then
        Xprate:=1200;

     ClearDebug;
     xpgained := ((steals) * (XpRate));
     StealsPerHour := round((steals)/(gettimerunning/3600000.0));
     XpPerHour := round((xpgained)/(gettimerunning/3600000.0));
    Writeln('****************Spotifys AIO Thiever*****************')
    Writeln('-----------------------------------------------------')
    writeln('               Time Running: '+ MsToTime(GetTimeRunning,3))
    Writeln('-----------------------------------------------------')
    writeln('             Total Steals: ' + inttostr(steals) + ' (' + inttostr(stealsperhour) + '/hour)')
    Writeln('-----------------------------------------------------')
    writeln('          Total Xp Gained: ' + inttostr(xpgained) + ' (' + inttostr(xpperhour) + '/hour)')
    Writeln('-----------------------------------------------------')
    writeln('            We have been stunned ' + inttostr(timesstunned) + ' time(s)')
    Writeln('-----------------------------------------------------')
    writeln('                   Status: ' + (state))
    Writeln('-----------------------------------------------------')
    if (Is_Relogger = 6) then
      Begin
    writeln('           We have had to relog ' + inttostr(Relogs) + ' time(s)')
    Writeln('-----------------------------------------------------')
      End;
    writeln('               Thieving From: ' + (NpcString))
    Writeln('-----------------------------------------------------')
    Writeln('*****************************************************')

    End;

    Procedure ProggyGemStall;
    var
      Stealsperhour, xpperhour, gemsperhour:Integer;
     Begin
     ClearDebug;
     GemsPerHour := round((Gems)/(gettimerunning/3600000.0));
     stealsperhour:= round((steals)/(gettimerunning/3600000.0));
     xpperhour := round((xpgained)/(gettimerunning/3600000.0));
    Writeln('****************Spotifys AIO Thiever*****************')
    Writeln('-----------------------------------------------------')
    writeln('               Time Running: '+ MsToTime(GetTimeRunning,3))
    Writeln('-----------------------------------------------------')
    writeln('              Gems Thieved: ' + inttostr(Gems) + ' (' + inttostr(GemsPerHour) + '/hour)')
    Writeln('-----------------------------------------------------')
    writeln('          Total Xp Gained: ' + inttostr(xpgained) + ' (' + inttostr(xpperhour) + '/hour)')
    Writeln('-----------------------------------------------------')
    writeln('                   Status: ' + (state))
    Writeln('-----------------------------------------------------')
    if (Is_Relogger = 6) then
      Begin
    writeln('           We have had to relog ' + inttostr(Relogs) + ' time(s)')
    Writeln('-----------------------------------------------------')
      End;
    writeln('               Thieving From: ' + (NpcString))
    Writeln('-----------------------------------------------------')
    Writeln('*****************************************************')
    End;

    Function Is_Moving: Boolean;
      var
        PBox: TBox;
      begin
        PBox := IntToBox(245, 130, 285, 195);
        if (AveragePixelShift(PBox, 250, 500) > 1000) then
          result := true;
      end;

    Function Not_Moving: Boolean;
      var
        PBox: TBox;
      begin
        PBox := IntToBox(245, 130, 285, 195);
        if (AveragePixelShift(PBox, 250, 500) < 1000) then
          result := true;
      end;
    Function IsInvFull:Boolean;
    Begin
      if FindColorTolerance(x, y, 131072, 690, 435, 721, 462, 5) then
        Result := true;
    End;

    Function BankInSight:Boolean;
    var
      x, y:Integer;
    Begin
      if FindColorTolerance(x, y, 8040172, msx1, msy1, msx2, msy2, 5) then
        Result := true;
    End;

    Procedure ClickMiniMapBanking;
    var
      x, y:Integer;
    Begin
      if FindColorTolerance(x, y, 61937, 542, 17, 705, 165, 5) then
        Begin
          Mouse(X, y, 1, 1, true);
          Status := 'Running to bank';
          ProggyGemStall;
          Wait(1000);
          WaitFunc(@Not_Moving, 100, 8000);
        End;
    End;

    Function IsBankOpen:Boolean;
    var
      x, y:Integer;
    Begin
      if FindColorTolerance(X, y, 4106994, 253, 31, 293, 42, 3) then
        Result :=true;
    End;

    Procedure DepositGems;
    Begin
      Status := 'Depositing gems';
      ProggyGemstall;
      Mouse(400, 308, 3, 3, true);
      Mouse(490, 34, 0, 0, true);
    End;

    Procedure ToGemStall;
    var
      x, y, WalkTime:integer;
    Begin
      Mouse(544, 24, 0, 0, true);
      KeyDown(38);
    Begin
      if FindColorTolerance(x, y, 7039987, 542, 17, 705, 165, 5) then
        Begin
          Mouse(x, y, 0, 0, true);
          Wait(1500);
          KeyUp(38);
          Status := 'Back to gem stall';
          ProggyGemStall;
          MarkTime(WalkTime);
            Repeat
              Wait(100);
            until((not (Is_Moving)) or (TimeFromMark(WalkTime) > 8000));
        End;
    End;
    End;

    Procedure GemBankingRepeat;
    var
      x, y, c, d:Integer;
    Begin
      if (IsInvFull) then
      Begin
        ClickMinimapBanking;
            if FindColorTolerance(x, y, 6590146, msx1, msy1, msx2, msy2, 15) then
              Begin
                MoveMouse(x, y);
                Wait(25);
                  if IsUpText('alk-') then
                    Begin
                      ClickMouse(x, y, 0);
                      Wait(100);
                    if FindBitMap(BankBMP, c, d) then
                      Begin
                        Mouse(x + 20, y, 0, 0, true);
                        WaitFunc(@IsBankOpen, 250, 5000);
                        DepositGems;
                        ToGemStall;
                        Exit;
                      End;
                    End;
              End;
          End;
      End;

    Procedure RightClickBank;
    var
      x, y:Integer;
    Begin
      if FindBitMap(BankBMP, x, y) then
        Begin
          Mouse(x + 20, y, 0, 0, true);
          WaitFunc(@IsBankOpen, 250, 5000);
          DepositGems;
          ToGemStall;
          Exit;
        End;

      if (Not (FindBitMap(BankBMP, x, y))) then
        Begin
          mmouse(77, 77, 30, 30);
          GemBankingRepeat;
          Exit;
        End;

    End;



    Procedure GemBanking;
    var
      a, b, Looktime:Integer;
    Begin
      if (IsInvFull) then
      Begin
        ClickMinimapBanking;
        Status := 'Looking for banker';
        ProggyGemstall;
        MarkTime(LookTime);
      Repeat
        KeyDown(37);
      Until((FindColorTolerance(a, b, 8040172, msx1, msy1, msx2, msy2, 10)) or (TimeFromMark(LookTime) > 7500));
        KeyUp(37);
            if FindColorTolerance(a, b, 8040172, msx1, msy1, msx2, msy2, 10) then
              Begin
                MoveMouse(a, b);
                Wait(50);
                  if IsUpText('alk-') then
                    Begin
                      Status := 'Opening bank';
                      ProggyGemstall;
                      ClickMouse(a, b, 0);
                      Wait(100);
                        RightclickBank;
                    End;

                  if (Not (IsUpText('alk-'))) then
                    GemBanking;
              End;
          End;
      End;

    Procedure ThiefGemStall;
    Begin
      if FindObjCustom(x, y, ['5Ieal', 'from', 'eal-'], [3476363], 5) then
        Begin
          Status := 'Thieving';
          ProggyGemStall;
          Mouse(x, y, 3, 3, true);
          WaitFunc(@FindXp, 25, 6000);

          if (IsInvfull) then
          Begin
          Status := 'Banking';
          ProggyGemStall;
            Repeat
              Wait(10);
            Until(FindColorTolerance(x, y, 61937, 542, 17, 705, 165, 5));
                GemBanking;
          End;

          if (FindXp) then
            Begin
              IncEx(Gems, 1);
              IncEx(XpGained, 1200);
              ProggyGemStall;
            End;

        End;
    End;

    Procedure PickPocketMan;
    var
      x, y:Integer;
    Begin
    Mouse(615, 21, 3, 3, true);
    KeyDown(38);
    Wait(1500);
    KeyUp(38);
      if FindColorSpiralTolerance(X, y, 1258082, msx1, msy1, msx2, msy2, 5) or
         FindColorSpiralTolerance(X, y, 5718851, msx1, msy1, msx2, msy2, 5) then
        Begin
          Mmouse(x, y, 0, 0);
          Wait(100);
            if FindColor(x, y, 65535, 1, 1, 103, 32) then
          Begin
            ClickMouse(x, y, 0);
            Wait(200);
            ClickPickPocket;
            ProggyGemStall;
            Wait(1100);
          End;
        End;
    End;

    Procedure Stunned;
    Begin
      if FindChatBoxText(')ou Dave', 8, clBlack) or
         FindChatBoxText('You', 8, clBlack) or
         FindChatBoxText('stunne', 8, clBlack) or
         FindChatBoxText(')ou are', 8, clBlack) then
      Begin
        Status := 'Stunned!';
        IncEx(TimesStunned, 1);
        Proggy;
        Wait(5000);
      End;
    End;

    Function Is_Logged_Out:Boolean;
    Begin
      if (FindBitmap(Loginscreenbmp, x, y)) then
        Result := true;
    End;

    Procedure LogBackIn;
      Begin
        if (Is_Logged_Out) then
          Begin
          Wait(1000);
            Mouse(333, 187, 0, 0, true);
              Wait(250);
            TypeSend(Username);
            Mouse(339, 235, 0, 0, true);
              Wait(250);
            TypeSend(Password);
            Mouse(382, 276, 0, 0, true);
            Wait(10000);
              KeyDown(38);
              Wait(1500);
              KeyUp(38);
              IncEx(Relogs, 1);
                if (Not (XpBarCheck)) then
                  Mouse(533, 60, 0, 0, true);
          End;
      End;

    Procedure PickPocketNPC;
    var
      x, y, colorcode, colorcode2:Integer;
    Begin

        if Lowercase(NpcString) = 'guard' then
        ColorCode:=2447139;

        if Lowercase(NpcString) = 'hero' then
        ColorCode:=12293239;

        if Lowercase(NpcString) = 'paladin' then
        ColorCode:=16312824;

        if Lowercase(NpcString) = 'rogue' then
        ColorCode:=8039915;

        if Lowercase(NpcString) = 'man' then
        ColorCode :=1125462;
        ColorCode2 :=5390143;

    Mouse(541, 24, 3, 3, true);
    KeyDown(38);
    Wait(1500);
    KeyUp(38);
    repeat
    repeat
      KeyDown(37);
     if (Is_Relogger = 6) then
      LogBackIn;
    until(FindColorTolerance(X, y, Colorcode , msx1, msy1, msx2, msy2, 5));

    Begin
      KeyUp(37);
      if FindObjEx(X, y, ['AIIack', 'AII', 'ack'], [ColorCode], 5, 50, 84, 71, 447, 291) then
        Begin
          MoveMouse(X, y);
          Wait(10);
          ClickMouse(X, y, 0);
          Wait(100);
          ClickPickPocket;
          WaitFunc(@FindXp, 50, 3500);
          Stunned;

            if FindXp then
              Begin
                IncEx(Steals, 1);
                Wait(100);
              End;


          Status := 'Thieving';
          Proggy;
        End;
    End;
    until(Iskeydown(113));
    End;

    Procedure PickPocketFarmer;
    var
      x, y:Integer;
    Begin
    Mouse(541, 24, 3, 3, true);
    KeyDown(38);
    Wait(1500);
    KeyUp(38);
    repeat
    repeat
      KeyDown(37);
     if (Is_Relogger = 6) then
      LogBackIn;
    until(FindColorTolerance(X, y, 4280125 , msx1, msy1, msx2, msy2, 5));

    Begin
      KeyUp(37);
      if FindObjEx(X, y, ['pickpocke', 'ickpoc', 'pocke'], [4280125, 2897193], 5, 50, 96, 67, 488, 273) then
        Begin
          MoveMouse(X, y);
          Wait(10);
          ClickMouse(X, y, 1);
          WaitFunc(@FindXp, 50, 3000);
          Stunned;
          Status := 'Thieving';
            if FindXp then
            IncEx(Steals, 1);
          Proggy;
        End;
    End;
    until(Iskeydown(113));
    End;

    Procedure NpcToPickpocket;

    Begin

        if Lowercase(NpcString) = 'man' then
        PickPocketMan;

        if Lowercase(NpcString) = 'guard' then
        PickPocketNPC;

        if Lowercase(NpcString) = 'hero' then
        PickPocketNPC;

        if Lowercase(NpcString) = 'paladin' then
        PickPocketNPC;

        if Lowercase(NpcString) = 'rogue' then
        PickPocketNPC;

        if Lowercase(NpcString) = 'gemstall' then
        ThiefGemStall;

        if Lowercase(NpcString) = 'farmer' then
        PickPocketFarmer;

    End;

    begin
    MouseSpeed := 15;
    LoadThings;
    Addonterminate('Freethings');
    Cleardebug;
      MessageBox('Hello! Welcome to Spotifys AIO Alotic Thiever, please fill out the required information in the boxes that pop up. Post any bugs or suggestions on the thread, thank you and enjoy!', 'Spotifys AIO Alotic Thiever', 1);
    NpcInput
      if (Not (XpBarCheck)) then
        Mouse(533, 60, 0, 0, true);
    Proggy;
    Repeat
      NpcToPickpocket
    until(iskeydown(113));
    end.

  13. #288
    Join Date
    Sep 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Thanks for your help!
    Unfortunately I get another error.

    Error: Invalid evaluation at line 123

    It looks fine to me,
    But this line errors:

    if (Is_Relogger = 6) then

    Edit:
    I figured out the issue, the proggies thing doesn't have statement separators,
    and I had to rename the rest of the 'Status' variables to 'State'

    Thanks so much for your help!
    Last edited by DrowsySaturn; 05-02-2015 at 08:25 PM.

  14. #289
    Join Date
    May 2015
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Share code please!

  15. #290
    Join Date
    May 2015
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by DrowsySaturn View Post
    Thanks for your help!
    Unfortunately I get another error.

    Error: Invalid evaluation at line 123

    It looks fine to me,
    But this line errors:

    if (Is_Relogger = 6) then

    Edit:
    I figured out the issue, the proggies thing doesn't have statement separators,
    and I had to rename the rest of the 'Status' variables to 'State'

    Thanks so much for your help!
    Share the code please!

  16. #291
    Join Date
    Sep 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by clackork View Post
    Share the code please!
    Code:
    program Alotic_PickPocketer;
    {$i srl-osr/srl.simba}
    
    var
      x, y, pickpocketbmp, loginscreenbmp, steals, xpgained, TimesStunned, relogs, Is_Relogger, Gems, bankbmp:Integer;
      state, NpcString, username, password:string;
    
    Function ReloggingInfo:Boolean;
    Begin
      Is_Relogger := MessageBox('Would you like to use the auto relogger?', 'Relogger', 4);
        if (Is_Relogger = 6) then
          Begin
        Result := true;
        InputQuery('Relogger', 'Username?', username);
        InputQuery('Relogger', 'Password?', password);
          End;
    
        if (Is_Relogger = 7) then
          Exit;
    End;
    
    Procedure NpcInput;
    Begin
      (InputQuery('Which Npc would you like to thief from?', 'Choices are (Man, Guard, GemStall, Hero, Paladin, Rogue, and Farmer)', NpcString));
      ReloggingInfo;
    End;
    
    Procedure Loadthings;
    Begin
      PickPocketBMP := BitmapFromString(60, 7, 'meJyTUdeWUdeeuuMYEMlgsLEiggr' +
            'IRiSZjEcxRApZFs7FKo5pFEFxUk3GoxGTjccNeHQRwybDZFxhjlUN' +
            'nkAjj02eyeS5mVrhTIzJuBIYSTFIeXogw2RcCJc38XsKT1AQFCcys' +
            'uAIADSz1FM=');
    
      LoginScreenBMP := BitmapFromString(51, 6, 'meJyNUkEOwjAM64dAA7oV/r7H7L5' +
            'PYGTiJilMmyLUBjtxnK7bXkq5za+pLuu2M3Ce5ieiZ3CtDcGzwZrH' +
            'KPODGzO+SAfUdn0sHkNh1FPsIxG/vLKpiMoTJhbOwHCEwDVhHpkBn' +
            'Lo2JSXs6xUjDkiYL+59+FzNPf31jxtYscLYEcIQ1El5NKfELxUMYm' +
            'zR3e04u+eq+CjMWyphemnIjNw8qe3LZ7KGQe2BY6kjjdIqEZf7PK6' +
            'D46eOfE4H7U6t0iqgmn/8b0QEW+E=');
    
      BankBmp := BitmapFromString(77, 8, 'meJybuuOYjLo2EE3dcWwqjE0qIqi' +
            'X4f9/ICLPcAqNhaiBuBDTnVjFkQUxxfH4F497kKUw2XCEqQVTCpd6' +
            'iMMwY4Q8Np44hVuNy220ZmN1Nq6II+hNYlIXjbyJK5bxeJN2sUk7b' +
            '5IRm2SzicmbA+VNgkUQ2d7H9CnW8gFPYiM+cRJjzrBHAE5Kh+4=');
    End;
    
    Function XpBarCheck:Boolean;
    var
      x, y:Integer;
    Begin
      if FindColorTolerance(x, y, 4293300, 423, 53, 505, 76, 5) then
        Result := true;
    End;
    
    Procedure Freethings;
    Begin
      FreeBitmap(PickPocketbmp);
      FreeBitmap(LoginScreenbmp);
      FreeBitmap(BankBMP);
    End;
    
    Function FindXp:Boolean;
    Begin
      if FindColorTolerance(x, y, 26316, 447, 73, 515, 79, 5) then
        Result := true;
    End;
    
    Procedure ClickPickPocket;
    Begin
      if (Not (FindBitmap(PickPocketBMP, x, y))) then
        mmouse(345, 78, 30, 30);
    
      if FindBitmap(PickPocketBMP, x, y) then
        Begin
          Mouse(x + 50, y, 1, 1, true);
        End;
    End;
    
    Procedure Proggy;
    var
      Stealsperhour, xpperhour, XpRate:Integer;
     Begin
    
        if Lowercase(NpcString) = 'guard' then
        XpRate:=558;
    
        if Lowercase(NpcString) = 'guard' then
        XpRate:=516;
    
        if Lowercase(NpcString) = 'farmer' then
        XpRate:=516;
    
        if Lowercase(NpcString) = 'hero' then
        XpRate:=3279;
    
        if Lowercase(NpcString) = 'hero' then
        XpRate:=438;
    
        if Lowercase(NpcString) = 'paladin' then
        Xprate:=1821;
    
        if Lowercase(NpcString) = 'gemstall' then
        Xprate:=1200;
    
     ClearDebug;
     xpgained := ((steals) * (XpRate));
     StealsPerHour := round((steals)/(gettimerunning/3600000.0));
     XpPerHour := round((xpgained)/(gettimerunning/3600000.0));
    Writeln('****************Spotifys AIO Thiever*****************');
    Writeln('-----------------------------------------------------');
    writeln('               Time Running: '+ MsToTime(GetTimeRunning,3));
    Writeln('-----------------------------------------------------');
    writeln('             Total Steals: ' + inttostr(steals) + ' (' + inttostr(stealsperhour) + '/hour)');
    Writeln('-----------------------------------------------------');
    writeln('          Total Xp Gained: ' + inttostr(xpgained) + ' (' + inttostr(xpperhour) + '/hour)');
    Writeln('-----------------------------------------------------');
    writeln('            We have been stunned ' + inttostr(timesstunned) + ' time(s)');
    Writeln('-----------------------------------------------------');
    writeln('                   Status: ' + (state));
    Writeln('-----------------------------------------------------');
    if (Is_Relogger = 6) then
      Begin
    writeln('           We have had to relog ' + inttostr(Relogs) + ' time(s)');
    Writeln('-----------------------------------------------------');
      End;
    writeln('               Thieving From: ' + (NpcString));
    Writeln('-----------------------------------------------------');
    Writeln('*****************************************************');
    
    End;
    
    Procedure ProggyGemStall;
    var
      Stealsperhour, xpperhour, gemsperhour:Integer;
     Begin
     ClearDebug;
     GemsPerHour := round((Gems)/(gettimerunning/3600000.0));
     stealsperhour:= round((steals)/(gettimerunning/3600000.0));
     xpperhour := round((xpgained)/(gettimerunning/3600000.0));
    Writeln('****************Spotifys AIO Thiever*****************');
    Writeln('-----------------------------------------------------');
    writeln('               Time Running: '+ MsToTime(GetTimeRunning,3));
    Writeln('-----------------------------------------------------');
    writeln('              Gems Thieved: ' + inttostr(Gems) + ' (' + inttostr(GemsPerHour) + '/hour)');
    Writeln('-----------------------------------------------------');
    writeln('          Total Xp Gained: ' + inttostr(xpgained) + ' (' + inttostr(xpperhour) + '/hour)');
    Writeln('-----------------------------------------------------');
    writeln('                   Status: ' + (state));
    Writeln('-----------------------------------------------------');
    if (Is_Relogger = 6) then
      Begin
    writeln('           We have had to relog ' + inttostr(Relogs) + ' time(s)');
    Writeln('-----------------------------------------------------');
      End;
    writeln('               Thieving From: ' + (NpcString));
    Writeln('-----------------------------------------------------');
    Writeln('*****************************************************');
    End;
    
    Function Is_Moving: Boolean;
      var
        PBox: TBox;
      begin
        PBox := IntToBox(245, 130, 285, 195);
        if (AveragePixelShift(PBox, 250, 500) > 1000) then
          result := true;
      end;
    
    Function Not_Moving: Boolean;
      var
        PBox: TBox;
      begin
        PBox := IntToBox(245, 130, 285, 195);
        if (AveragePixelShift(PBox, 250, 500) < 1000) then
          result := true;
      end;
    Function IsInvFull:Boolean;
    Begin
      if FindColorTolerance(x, y, 131072, 690, 435, 721, 462, 5) then
        Result := true;
    End;
    
    Function BankInSight:Boolean;
    var
      x, y:Integer;
    Begin
      if FindColorTolerance(x, y, 8040172, msx1, msy1, msx2, msy2, 5) then
        Result := true;
    End;
    
    Procedure ClickMiniMapBanking;
    var
      x, y:Integer;
    Begin
      if FindColorTolerance(x, y, 61937, 542, 17, 705, 165, 5) then
        Begin
          Mouse(X, y, 1, 1, true);
          State := 'Running to bank';
          ProggyGemStall;
          Wait(1000);
          WaitFunc(@Not_Moving, 100, 8000);
        End;
    End;
    
    Function IsBankOpen:Boolean;
    var
      x, y:Integer;
    Begin
      if FindColorTolerance(X, y, 4106994, 253, 31, 293, 42, 3) then
        Result :=true;
    End;
    
    Procedure DepositGems;
    Begin
      State := 'Depositing gems';
      ProggyGemstall;
      Mouse(400, 308, 3, 3, true);
      Mouse(490, 34, 0, 0, true);
    End;
    
    Procedure ToGemStall;
    var
      x, y, WalkTime:integer;
    Begin
      Mouse(544, 24, 0, 0, true);
      KeyDown(38);
    Begin
      if FindColorTolerance(x, y, 7039987, 542, 17, 705, 165, 5) then
        Begin
          Mouse(x, y, 0, 0, true);
          Wait(1500);
          KeyUp(38);
          State := 'Back to gem stall';
          ProggyGemStall;
          MarkTime(WalkTime);
            Repeat
              Wait(100);
            until((not (Is_Moving)) or (TimeFromMark(WalkTime) > 8000));
        End;
    End;
    End;
    
    Procedure GemBankingRepeat;
    var
      x, y, c, d:Integer;
    Begin
      if (IsInvFull) then
      Begin
        ClickMinimapBanking;
            if FindColorTolerance(x, y, 6590146, msx1, msy1, msx2, msy2, 15) then
              Begin
                MoveMouse(x, y);
                Wait(25);
                  if IsUpText('alk-') then
                    Begin
                      ClickMouse(x, y, 0);
                      Wait(100);
                    if FindBitMap(BankBMP, c, d) then
                      Begin
                        Mouse(x + 20, y, 0, 0, true);
                        WaitFunc(@IsBankOpen, 250, 5000);
                        DepositGems;
                        ToGemStall;
                        Exit;
                      End;
                    End;
              End;
          End;
      End;
    
    Procedure RightClickBank;
    var
      x, y:Integer;
    Begin
      if FindBitMap(BankBMP, x, y) then
        Begin
          Mouse(x + 20, y, 0, 0, true);
          WaitFunc(@IsBankOpen, 250, 5000);
          DepositGems;
          ToGemStall;
          Exit;
        End;
    
      if (Not (FindBitMap(BankBMP, x, y))) then
        Begin
          mmouse(77, 77, 30, 30);
          GemBankingRepeat;
          Exit;
        End;
    
    End;
    
    
    
    Procedure GemBanking;
    var
      a, b, Looktime:Integer;
    Begin
      if (IsInvFull) then
      Begin
        ClickMinimapBanking;
        State := 'Looking for banker';
        ProggyGemstall;
        MarkTime(LookTime);
      Repeat
        KeyDown(37);
      Until((FindColorTolerance(a, b, 8040172, msx1, msy1, msx2, msy2, 10)) or (TimeFromMark(LookTime) > 7500));
        KeyUp(37);
            if FindColorTolerance(a, b, 8040172, msx1, msy1, msx2, msy2, 10) then
              Begin
                MoveMouse(a, b);
                Wait(50);
                  if IsUpText('alk-') then
                    Begin
                      State := 'Opening bank';
                      ProggyGemstall;
                      ClickMouse(a, b, 0);
                      Wait(100);
                        RightclickBank;
                    End;
    
                  if (Not (IsUpText('alk-'))) then
                    GemBanking;
              End;
          End;
      End;
    
    Procedure ThiefGemStall;
    Begin
      if FindObjCustom(x, y, ['5Ieal', 'from', 'eal-'], [3476363], 5) then
        Begin
          State := 'Thieving';
          ProggyGemStall;
          Mouse(x, y, 3, 3, true);
          WaitFunc(@FindXp, 25, 6000);
    
          if (IsInvfull) then
          Begin
          State := 'Banking';
          ProggyGemStall;
            Repeat
              Wait(10);
            Until(FindColorTolerance(x, y, 61937, 542, 17, 705, 165, 5));
                GemBanking;
          End;
    
          if (FindXp) then
            Begin
              IncEx(Gems, 1);
              IncEx(XpGained, 1200);
              ProggyGemStall;
            End;
    
        End;
    End;
    
    Procedure PickPocketMan;
    var
      x, y:Integer;
    Begin
    Mouse(615, 21, 3, 3, true);
    KeyDown(38);
    Wait(1500);
    KeyUp(38);
      if FindColorSpiralTolerance(X, y, 1258082, msx1, msy1, msx2, msy2, 5) or
         FindColorSpiralTolerance(X, y, 5718851, msx1, msy1, msx2, msy2, 5) then
        Begin
          Mmouse(x, y, 0, 0);
          Wait(100);
            if FindColor(x, y, 65535, 1, 1, 103, 32) then
          Begin
            ClickMouse(x, y, 0);
            Wait(200);
            ClickPickPocket;
            ProggyGemStall;
            Wait(1100);
          End;
        End;
    End;
    
    Procedure Stunned;
    Begin
      if FindChatBoxText(')ou Dave', 8, clBlack) or
         FindChatBoxText('You', 8, clBlack) or
         FindChatBoxText('stunne', 8, clBlack) or
         FindChatBoxText(')ou are', 8, clBlack) then
      Begin
        State := 'Stunned!';
        IncEx(TimesStunned, 1);
        Proggy;
        Wait(5000);
      End;
    End;
    
    Function Is_Logged_Out:Boolean;
    Begin
      if (FindBitmap(Loginscreenbmp, x, y)) then
        Result := true;
    End;
    
    Procedure LogBackIn;
      Begin
        if (Is_Logged_Out) then
          Begin
          Wait(1000);
            Mouse(333, 187, 0, 0, true);
              Wait(250);
            TypeSend(Username);
            Mouse(339, 235, 0, 0, true);
              Wait(250);
            TypeSend(Password);
            Mouse(382, 276, 0, 0, true);
            Wait(10000);
              KeyDown(38);
              Wait(1500);
              KeyUp(38);
              IncEx(Relogs, 1);
                if (Not (XpBarCheck)) then
                  Mouse(533, 60, 0, 0, true);
          End;
      End;
    
    Procedure PickPocketNPC;
    var
      x, y, colorcode, colorcode2:Integer;
    Begin
    
        if Lowercase(NpcString) = 'guard' then
        ColorCode:= 734006; {2447139;}
    
        if Lowercase(NpcString) = 'hero' then
        ColorCode:=12293239;
    
        if Lowercase(NpcString) = 'paladin' then
        ColorCode:=16312824;
    
        if Lowercase(NpcString) = 'rogue' then
        ColorCode:=8039915;
    
        if Lowercase(NpcString) = 'man' then
        ColorCode :=1125462;
        ColorCode2 :=5390143;
    
    Mouse(541, 24, 3, 3, true);
    KeyDown(38);
    Wait(1500);
    KeyUp(38);
    repeat
    repeat
      KeyDown(37);
     if (Is_Relogger = 6) then
      LogBackIn;
    until(FindColorTolerance(X, y, Colorcode , msx1, msy1, msx2, msy2, 5));
    
    Begin
      KeyUp(37);
      if FindObjEx(X, y, ['AIIack', 'AII', 'ack'], [ColorCode], 5, 50, 84, 71, 447, 291) then
        Begin
          MoveMouse(X, y);
          Wait(10);
          ClickMouse(X, y, 0);
          Wait(100);
          ClickPickPocket;
          WaitFunc(@FindXp, 50, 3500);
          Stunned;
    
            if FindXp then
              Begin
                IncEx(Steals, 1);
                Wait(100);
              End;
    
    
          State := 'Thieving';
          Proggy;
        End;
    End;
    until(Iskeydown(113));
    End;
    
    Procedure PickPocketFarmer;
    var
      x, y:Integer;
    Begin
    Mouse(541, 24, 3, 3, true);
    KeyDown(38);
    Wait(1500);
    KeyUp(38);
    repeat
    repeat
      KeyDown(37);
     if (Is_Relogger = 6) then
      LogBackIn;
    until(FindColorTolerance(X, y, 4280125 , msx1, msy1, msx2, msy2, 5));
    
    Begin
      KeyUp(37);
      if FindObjEx(X, y, ['pickpocke', 'ickpoc', 'pocke'], [4280125, 2897193], 5, 50, 96, 67, 488, 273) then
        Begin
          MoveMouse(X, y);
          Wait(10);
          ClickMouse(X, y, 1);
          WaitFunc(@FindXp, 50, 3000);
          Stunned;
          State := 'Thieving';
            if FindXp then
            IncEx(Steals, 1);
          Proggy;
        End;
    End;
    until(Iskeydown(113));
    End;
    
    Procedure NpcToPickpocket;
    
    Begin
    
        if Lowercase(NpcString) = 'man' then
        PickPocketMan;
    
        if Lowercase(NpcString) = 'guard' then
        PickPocketNPC;
    
        if Lowercase(NpcString) = 'hero' then
        PickPocketNPC;
    
        if Lowercase(NpcString) = 'paladin' then
        PickPocketNPC;
    
        if Lowercase(NpcString) = 'rogue' then
        PickPocketNPC;
    
        if Lowercase(NpcString) = 'gemstall' then
        ThiefGemStall;
    
        if Lowercase(NpcString) = 'farmer' then
        PickPocketFarmer;
    
    End;
    
    begin
    MouseSpeed := 15;
    LoadThings;
    Addonterminate('Freethings');
    Cleardebug;
      MessageBox('Hello! Welcome to Spotifys AIO Alotic Thiever, please fill out the required information in the boxes that pop up. Post any bugs or suggestions on the thread, thank you and enjoy!', 'Spotifys AIO Alotic Thiever', 1);
    NpcInput
      if (Not (XpBarCheck)) then
        Mouse(533, 60, 0, 0, true);
    Proggy;
    Repeat
      NpcToPickpocket
    until(iskeydown(113));
    end.

  17. #292
    Join Date
    May 2015
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    okay for some reason after I get the script running it the mouse just goes to the top of the screen and clicks a millions times not on the pally. I switched to the client and am even standing right next to the pally... help?
    Last edited by badapple100; 05-14-2015 at 06:04 AM.

  18. #293
    Join Date
    May 2015
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Does anyone know what to do with this issue? I don't get it. "if (Is_Relogger = 6) then" , the if and then are in thick letters or whatever it's called, the bar turns red/orange whenever I try to run the script. Btw the line is line 123, as I see practically the same at line 11, but my error notificates line 123. Any help/suggestions is much appreciated
    Last edited by noodles kill; 05-17-2015 at 01:54 PM.

  19. #294
    Join Date
    May 2012
    Posts
    59
    Mentioned
    0 Post(s)
    Quoted
    22 Post(s)

    Default

    this script is fantastic thanks bro

  20. #295
    Join Date
    May 2015
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Error: File "srl-osr/srl.simba" not found at line 2
    Compiling failed.
    Error: File "srl-osr/srl.simba" not found at line 2
    Compiling failed.
    Error: Duplicate declaration "status" at line 6
    Compiling failed.

  21. #296
    Join Date
    Jun 2015
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I got the same problem, keep spining left, I have marked it, any help?

  22. #297
    Join Date
    Jun 2014
    Posts
    144
    Mentioned
    0 Post(s)
    Quoted
    61 Post(s)

    Default

    This script was done over a year ago and not updated in almost that time, sorry guys but I won't be updating it to the current Alotic as I don't play it anymore.

    Quote Originally Posted by rmcommando View Post
    Error: File "srl-osr/srl.simba" not found at line 2
    Compiling failed.
    Error: File "srl-osr/srl.simba" not found at line 2
    Compiling failed.
    Error: Duplicate declaration "status" at line 6
    Compiling failed.
    Download the SRL-OSR include, it's used for most of the text reading.


    Quote Originally Posted by badapple100 View Post
    okay for some reason after I get the script running it the mouse just goes to the top of the screen and clicks a millions times not on the pally. I switched to the client and am even standing right next to the pally... help?
    It means it's finding the paladins color at the wrong point or Alotic's client has been updated so the parameters changed. Try grabbing your own color for the paladin and maybe setting new parameters for the FindColor function.

  23. #298
    Join Date
    Oct 2016
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    I did EVERYTHING To make this Work and i KEEP GETTING THIS

    Error: File "srl-osr/srl.simba" not found at line 2
    Compiling failed.

    Any Help please?!
    and thanks!

  24. #299
    Join Date
    Sep 2014
    Location
    C:\Simba\
    Posts
    565
    Mentioned
    9 Post(s)
    Quoted
    71 Post(s)

    Default

    Quote Originally Posted by Huawei View Post
    EVERYTHING
    Does EVERYTHING include step #1 ?

    Hint: that's the answer!
    Feel free to ask me any questions, I will do my best to answer them!

    Previously known as YouPee.

  25. #300
    Join Date
    Oct 2016
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by Joopi View Post
    Does EVERYTHING include step #1 ?

    Hint: that's the answer!
    Yes i did STEP 1

    I keep getting this!!

    Error: Duplicate declaration "status" at line 6
    Compiling failed.

Page 12 of 13 FirstFirst ... 210111213 LastLast

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
  •