Results 1 to 3 of 3

Thread: help with my banker

  1. #1
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default help with my banker

    ok so heres my problem when i have my script run it works fine for one load then it will walk back to the mine then without mining at all it will walk back tot he bank any help heres my script

    Code:
    { ty to FrÕzÑ_§ÕµL for his auto responder ticky for her anti bans and all at srl for answering my questions
    
      setup
      
      1 fill in delcare palyers
      2 strat in the varrock east mine and hit play
      
      post proggies or else i wont be adding any more mines to this project of mine}
      
      
      
      
    {.include srl/srl.scar}
    {.include srl/srl/skill/mining.scar}
    
    
    
    var
     g, x, y, mines,loads,ores,i: Integer;
    
      const
      whichore= varrock_iron;//which ore
      minetime=3000;//average time it takes to mine ore
      pin=0000;//bank pin number
      
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    
    procedure DeclarePlayers;//add more if needed
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name       := 'killingnubs3';
      Players[0].Pass       := 'panic';
      Players[0].Nick       := 'nubs';
      Players[0].Active     := True;    // Use this account?
      Players[0].Integers[1]:= 1000; // How many Loads
      Players[0].Booleans[0] := false;//pick weilded????
      Players[0].strings[0] := 'veb'//which bank???
      {vwb = varrock west bank
       veb = varrock east bank
    
      {Players[1].Name       := '';
      Players[1].Pass       := '';
      Players[1].Nick       := '';
      Players[1].Active     := True;    // Use this account?
      Players[1].Integers[1] := 1000; // How many Loads
      Players[0].strings[0] :=' '}
    end;
    
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    procedure DontBanMeBro;
    begin
      If(not LoggedIn)then Exit;
      Case Random(12) of
        0:  MMouse(Random(MSX2),Random(MSY2),0,0);
        1:  HoverSkill('random',false);
        2:  PickupMouse;
        3:  GameTab(1+Random(12));
        4:  SleepAndMoveMouse(400+Random(1500));
        5:  if Random(2) = 1 then MMouse(1, 338, 515, 165);
        6:  if Random(2) = 1 then MMouse(515, 1, 250, 503);
        7:  RandomMovement;
     8..11:
    begin
      case Random(3) of
       0: begin
            KeyDown(VK_RIGHT);
            Wait(500+Random(2000));
            KeyUp(VK_RIGHT);
        end;
       1: begin
            KeyDown(VK_Left);
            Wait(500+Random(2000));
            KeyUp(VK_Left);
          end;
       2: begin
            case Random(2) of
              0: begin
                   KeyDown(VK_RIGHT);
                   Wait(500+Random(1400));
                   KeyUp(VK_RIGHT);
                 end;
              1: begin
                   KeyDown(VK_Left);
                   Wait(500+Random(1400));
                   KeyUp(VK_Left);
                end;
              end;
            end;
          end;
        end;
      end;
    end;
    
    
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    
    Function PosArray(SubStr : Array of String; S : String) : Boolean;//originally FrÕzÑ_§ÕµL for autoresponder
    Begin
      for i := 0 to GetArrayLength(SubStr) - 1 do
      Begin
        Result := Pos(SubStr[i], Lowercase(S)) > 0;
        if Result then
          Exit;
      end;
    end;
    
    
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    
    Procedure AutoRespond;//originally FrÕzÑ_§ÕµL updated to my needs
    var OldMessage, TextFound,Name: String;
    Begin
      GetLastChatText(TextFound);
      if OldMessage = TextFound then exit;
      OldMessage := TextFound;
      if Not(PosArray([ 'ning le', 'mining lv', 'lol', 'haha','hehe','lmao','rofl','hi ','hello',' hey',' yo ','bot ','macro ','auto ', 'u noob','u nub ','u loser',Lowercase(Capitalize(Players[CurrentPlayer].Name)), Left(Lowercase(Capitalize(Players[CurrentPlayer].Name)), 4), Right(Lowercase(Capitalize(Players[CurrentPlayer].Name)), 4), 'woot','woop', ' yay'], TextFound)) then exit;
      LastChatter(Name);
      if PosArray(['swing your pick', 'you managed'], Name) then exit;
      if Lowercase(Trim(Name)) = Lowercase(Players[CurrentPlayer].Name) then exit;
      FTWait(RandomRange(2, 6));
      if PosArray(['ning le', 'mining lv'], TextFound) then
      Begin
        While Players[CurrentPlayer].Integers[2] <= 0 do
          Players[CurrentPlayer].Integers[2] := GetSkillInfo('mining', False);
        Case Random(7) of
          0: TypeSend(IntToStr(Players[CurrentPlayer].integers[2]));
          1: TypeSend('me ' + IntToStr(Players[CurrentPlayer].integers[2]) + ' u?');
          2: TypeSend(IntToStr(Players[CurrentPlayer].integers[2]) + ' =p');
          3: TypeSend('I' + chr(39) + 'm ' + IntToStr(Players[CurrentPlayer].integers[2]));
          4: TypeSend(IntToStr(Players[CurrentPlayer].integers[2]) + '...');
          5: TypeSend(IntToStr(Players[CurrentPlayer].integers[2]) + ' =]');
          6: TypeSend(IntToStr(Players[CurrentPlayer].integers[2]) + 'X D');
        end;
        exit;
      end;
      if PosArray(['lol','haha','hehe','lmao','rofl'], TextFound) then
      Begin
        Case Random(10) of
          0: TypeSend('lol');
          1: TypeSend('lmao');
          2: TypeSend('rofl');
          3: TypeSend('?');
          4: TypeSend('...');
          5: TypeSend('haha');
          6: TypeSend('hehe');
          7: TypeSend('=]');
          8, 9: Exit;
        end;
        Exit;
      end;
      if PosArray(['hi ','hello',' hey','sup ',' yo '], TextFound) then
      Begin
        Case Random(11) of
          0: TypeSend('hi');
          1: TypeSend('hello');
          2: TypeSend('hey');
          3: TypeSend('yo');
          4: TypeSend('sup');
          5: TypeSend('wasup');
          6: TypeSend('g' + chr(39) + 'day');
          7: TypeSend('good mornin!');
          8: TypeSend('good aftanoon!');
          9: TypeSend('good evenin!');
        end;
        Exit;
      end;
      if PosArray(['bot ', 'macro ', 'auto '], TextFound) then
      Begin
        Case Random(13) of
          0: TypeSend('Wat r they?');
          1: TypeSend('wots the point in gettin sumthin else 2 play 4 u?');
          2: TypeSend('bots r stupid');
          3: TypeSend('i h8 bots');
          4: TypeSend('yay jagex killed al da botz!');
          5: TypeSend('?');
          6: TypeSend('grrr i h8 bots now we cant trade gud');
          7: TypeSend('stupid macros will destroy our economy');
          8: TypeSend('bots r so obvious');
          9: TypeSend('man it rox how theres no macros =]');
          10: TypeSend('maybe *you* r a bot?!');
          11: TypeSend('maybe *you* ar a macro?!');
          12: TypeSend('maybe *you* are a auto?!');
        end;
        Exit;
      end;
      if PosArray(['u noob','u nub ','u loser'], TextFound) then
      Begin
        Case Random(11) of
          0: TypeSend('shut the hell up');
          1: TypeSend('look in da mirror');
          2: TypeSend('lmao u r');
          3: TypeSend('...');
          4: TypeSend('omg...');
          5: TypeSend('get a life');
          6: TypeSend('gotta start sumwhea');
          7: TypeSend('shut up');
          8: TypeSend('hmph');
          9: TypeSend('=[');
          10: TypeSend('so wot');
        end;
        Exit;
      end;
      if PosArray([Lowercase(Capitalize(Players[CurrentPlayer].Name)), Left(Lowercase(Capitalize(Players[CurrentPlayer].Name)), 4), Right(Lowercase(Capitalize(Players[CurrentPlayer].Name)), 4)], TextFound) then
      Begin
        Case Random(9) of
          0: TypeSend('me?');
          1: TypeSend('wot u want');
          2: TypeSend('...');
          3: TypeSend('leave me alone!');
          4: TypeSend('I' + chr(39) + 'm not in the mood =[');
          5: TypeSend('ye?');
          6: TypeSend('yo?');
          7: TypeSend('uh?');
          8: TypeSend('shudup');
        end;
        Exit;
      end;
      if PosArray(['woot','woop', ' yay'], TextFound) then
      Begin
        Case Random(9) of
          0: TypeSend('gratz');
          1: TypeSend('grats');
          2: TypeSend('...');
          3: TypeSend('what?');
          4: TypeSend('huh?');
          5: TypeSend('wat?');
          6: TypeSend('wot?');
          7: TypeSend('uh whatd i miss?');
          8: Exit;
        end;
        talks:=talks + 1;
        Exit;
      end;
    end;
    
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    procedure Minethestuff;
    var minebmp :integer;
    begin
    minebmp:= BitmapFromString(54, 68, 'beNrN2kFvG0UUB/DmxIkDggOo' +
           'aRCqIlshKg0hRK2CUSqoghw1aW3Vli1SKkVwQKgSisSBAwe4cOQ7c' +
           'OLId8gXyEfIEUU5IXFreNu//c/ze2/Gs7YPtf6KlrLe+e3M7OzseJ' +
           '+sX15ePrz7ns6wtybpHzaZ7n6DOfxyNUx3r8HIV4adNaTX2WAGvU3' +
           'maLDFPB9shzn++t7V1VXv6UaInEd4Nf5oqsQLWWLIo1AyRahKryXU' +
           'vN7hBjPobJoSvdMIfTWGwgnV7nVME88mFMM///5XKCyqQCUMK9M0s' +
           'RaGvKPeZId8WoVCwS9cCCTyTfPWb59/KPHCy1cf4Wnhzz/9iGSEn7' +
           '371sknt+WY8nceoRzn8Z13cCjE1J4UDR6F5GWEckw5awplOyXEPhk' +
           'heFpokJWws4VIs2oehP1OU2KE4PHIRBqhrmeA2ZoS2d+cKZ2h0PPy' +
           'QiJZovyLFrJ0xLemPgi2/QWiK9DzMkIpDgd/+eqDEvdbtyXgaZvAw' +
           'qbs7zd5HNlheLAWCp89WZ8qNDwBoEJejj8XFxdSEISIrx/dlKhtEQ' +
           'KJiNAjIURSQuktqcuEvLOzM9YhwsohSWvRJyFEwFuUkHVy48bS+fn' +
           '56empbEiJWtjevol6xp66NSdGoXH6e01kIUJcpERKDu4vS0QlgZA2' +
           'dELZZmumhDwjPeZI0cP22gxCjiRyTPAoREw/xF/ZJ+RBGF5NEEpCH' +
           'oTSpUMhkJJQqK931Ay+yx0OW9c8PSqGvLpC3d/I00KOSAi/qE+hEo' +
           '6jK5zVziaeKszwTKVNTUqoO7au8NdKyD6j67xQaGaGixKiY2hheEM' +
           'pEZpvsddhWJCyliY/5cKJeUVrkULOAUD686+/dTJOLfTzt1DY/6Ip' +
           'SfG+7X4UCsmj6tff//j+h5Phdy+0MyMMJ28pXl0hzp289uOhpHd0L' +
           'DxEtkOk5uGG7idvKeHwYWkrc+AyFSjRTvnPUOhnRBopG/MLUYrve5' +
           'KT9p3jBytw7ux+5asRfc/MiDINLWNId7eBFArRA3UTM7/0Pq54q29' +
           '80NwQ5PbWjq5GGHhp6BkRb9nyf7utFf8ESmEKSaEcByOMaWLNQ3NL' +
           'BWohhxR9a8OMCLUKGxI+JlMYIiE0pWih8B61bu0sL4En/yJCbsue5' +
           'lGFtzYzdCNeqHkpoR64UASF0vcMj0L2QzOq4L5WyKvmUa1VXDIjpB' +
           'u9RWjGLlyPQErjGh6vbl+BHFL8vY93wIyQF7WpTy9En2c1ep4etP1' +
           '3ZaOW0A87zLNH6ykhBq5wzDH3FP2owr+h0Ez+awl1KWbgKrwv44LF' +
           'Rjh/ME/6BskxxwslrEM+EMlfc4TyuU04f5i6buMHRh3dymymkqlgo' +
           'TB82JeB0fRJMyoaYTg/X5QQIy2f9NkhjVB4gkwJw2eifDInonl6Ji' +
           'ann19IFHNGWJ6py5VeyNPPd8jUwFhXmCrFrCew46Wm3KmlzjmFqQd' +
           'zI9ePJxwewzWKkoGxljD1YK6XOvW2qUZzSfqb9UJamaXoNVU9pOTv' +
           '1OyT4XSCE1o6JXWFvPBx+wjl5XMJM2PUN5dCIX4kKmebZU+O0u3Nm' +
           'yahkMgSoezJMxWkT7569eS/qkMnRLr3ViS+6JSQJM0Ll+YkpPofBP' +
           'VcYjRC1hEaJFaWdEKeF+qEyIlhPCvMI7F+mFo4ZfJCIPMLUHWFRBY' +
           'Kw4TIWsKDT5eRlBDj4cxCRK/mZZAZXkqIMbxaad9vTPw+OysPl1h5' +
           'HdYQ7jWmplCYeer0XXfBwvDdhkiIoSBsayvMntFihA6Mq376dV1Ti' +
           'N9GR5l8Z2AGISLIcOHaL0fn9wmFYeoKgZzzeQeTsUJhEfv1E+oXmc' +
           'Krfh5kf6+JXwr4JgYzp9B02pmRGeEonYnMLJwNiV+iawnDFAolhbB' +
           'qqjD+oXwhQrwE6F8FDK/0Eh5+6Waw2inCwWDTZE5h2BNSbS0q2KrX' +
           'h1QF8tc0L3z/wZuSuwdv9webyIhdX6i7QfgogV56/YJTgRA8CIkcR' +
           'EFnKKxAE+5QNeX4HRImIySPQiAHWWTYh8uR1RuADomM3iH5H067rC' +
           'M=');
    disguise('mining')
      repeat
        if not (FindSymbol(x, y, 'mining site')) or FindBitmap(mineBmp,x,y) or  Not LoggedIn then
        begin
         if howmanyplayers = 1 then TerminateScript;
         if howmanyplayers > 1 then
          begin
           NextPlayer(Players[CurrentPlayer].Active);
           minethestuff;
          end;
        end;
        if FindObjRock(x, y, WhichOre)then
        begin
          Case (Random(3)) of
            0,2 : begin
                    Mouse(x, y, 2, 2, False);
                    Wait(Random(100));
                    ChooseOption('Mine');//otherwise it may Examine
                  end;
            1 :  Mouse(x, y, 2, 2, True);
          end;
          wait(minetime + random(300));
          Inc(mines);
          DontBanMeBro;
          autorespond;
        end;
      until(invfull)or(mines = 30)
    end;
    
    
    
    procedure ToBank;
    var
      x, y: Integer;
    begin
    SetRun(True)
    disguise('to the bank')
      If Not LoggedIn then
        begin
        if howmanyplayers = 1 then TerminateScript;
         if howmanyplayers > 1 then
         begin
          NextPlayer(Players[CurrentPlayer].Active);
          minethestuff;
         end;
        end;
      if Players[currentplayer].strings[0] = 'veb'  then
      begin
      FindVarrockRoadColor;
      RadialRoadWalk(FindVarrockRoadColor, 25, 50, 70, 1, 1);
      FFlag(10);
      wait(2000 + random(300));
      RadialRoadWalk(FindVarrockRoadColor, 10, 0, 65, 1, 1);
      fflag(10);
      wait(2000 + random(300));
      repeat
        If Not LoggedIn then
        begin
        if howmanyplayers = 1 then TerminateScript;
         if howmanyplayers > 1 then
         begin
          NextPlayer(Players[CurrentPlayer].Active);
          minethestuff;
          end;
        end;
        RadialRoadWalk(FindVarrockRoadColor, 240, 380, 65, 1, 1);
        fflag(10);
        wait(2000 + random(300));
      until (FindSymbol(x, y, 'bank')) or FindSymbol(x,y, 'training dummy');
      end;
     if Players[currentplayer].strings[0] = 'vwb' then
       begin
         RadialWalk(4416347,350, 280, 100, 1, 1);
         fflag(10);
         repeat
         wait(1000 + random(400));
         RadialWalk(4284501, 270, 360, 100, 1, 1);
         fflag(10);
         wait(1000 + random(400));
         RadialWalk(4284507, 270, 350, 100, 1, 1);
         fflag(10);
         wait(1000 + random(400));
         until (FindSymbol(x, y, 'quest')) or FindSymbol(x,y, 'cook');
         FindVarrockRoadColor;
      repeat
         RadialRoadWalk(FindVarrockRoadColor, 0, 90, 70, 1, 1);
         FFlag(10);
         wait(2000 + random(300));
       until (FindSymbol(x, y, 'bank'))
       end;
     end;
    
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    
    procedure ToMine;
    var
      x, y: Integer;
    begin
    SetRun(True)
    disguise('to the mine')
      If Not LoggedIn then
        begin
        if howmanyplayers = 1 then TerminateScript;
         if howmanyplayers > 1 then
         begin
          NextPlayer(Players[CurrentPlayer].Active);
          minethestuff;
         end;
        end;
      FindVarrockRoadColor;
      RadialRoadWalk(FindVarrockRoadColor, 0, 90, 70, 1, 1);
      FFlag(10);
      wait(2000 + random(300));
      RadialRoadWalk(FindVarrockRoadColor, 70, 90, 65, 1, 1);
      fflag(10);
      wait(2000 + random(300));
      repeat
        If Not LoggedIn then
        begin
        if howmanyplayers = 1 then TerminateScript;
         if howmanyplayers > 1 then
         begin
          NextPlayer(Players[CurrentPlayer].Active);
          minethestuff;
         end;
        end;
        RadialRoadWalk(FindVarrockRoadColor, 90, 190, 65, 1, 1);
        fflag(10);
        wait(2000 + random(300));
      until (FindSymbol(x, y, 'mining site'))
    end;
    
    procedure intomine;
    var minebmp:integer;
    begin
     minebmp:= BitmapFromString(54, 68, 'beNrN2kFvG0UUB/DmxIkDggOo' +
           'aRCqIlshKg0hRK2CUSqoghw1aW3Vli1SKkVwQKgSisSBAwe4cOQ7c' +
           'OLId8gXyEfIEUU5IXFreNu//c/ze2/Gs7YPtf6KlrLe+e3M7OzseJ' +
           '+sX15ePrz7ns6wtybpHzaZ7n6DOfxyNUx3r8HIV4adNaTX2WAGvU3' +
           'maLDFPB9shzn++t7V1VXv6UaInEd4Nf5oqsQLWWLIo1AyRahKryXU' +
           'vN7hBjPobJoSvdMIfTWGwgnV7nVME88mFMM///5XKCyqQCUMK9M0s' +
           'RaGvKPeZId8WoVCwS9cCCTyTfPWb59/KPHCy1cf4Wnhzz/9iGSEn7' +
           '371sknt+WY8nceoRzn8Z13cCjE1J4UDR6F5GWEckw5awplOyXEPhk' +
           'heFpokJWws4VIs2oehP1OU2KE4PHIRBqhrmeA2ZoS2d+cKZ2h0PPy' +
           'QiJZovyLFrJ0xLemPgi2/QWiK9DzMkIpDgd/+eqDEvdbtyXgaZvAw' +
           'qbs7zd5HNlheLAWCp89WZ8qNDwBoEJejj8XFxdSEISIrx/dlKhtEQ' +
           'KJiNAjIURSQuktqcuEvLOzM9YhwsohSWvRJyFEwFuUkHVy48bS+fn' +
           '56empbEiJWtjevol6xp66NSdGoXH6e01kIUJcpERKDu4vS0QlgZA2' +
           'dELZZmumhDwjPeZI0cP22gxCjiRyTPAoREw/xF/ZJ+RBGF5NEEpCH' +
           'oTSpUMhkJJQqK931Ay+yx0OW9c8PSqGvLpC3d/I00KOSAi/qE+hEo' +
           '6jK5zVziaeKszwTKVNTUqoO7au8NdKyD6j67xQaGaGixKiY2hheEM' +
           'pEZpvsddhWJCyliY/5cKJeUVrkULOAUD686+/dTJOLfTzt1DY/6Ip' +
           'SfG+7X4UCsmj6tff//j+h5Phdy+0MyMMJ28pXl0hzp289uOhpHd0L' +
           'DxEtkOk5uGG7idvKeHwYWkrc+AyFSjRTvnPUOhnRBopG/MLUYrve5' +
           'KT9p3jBytw7ux+5asRfc/MiDINLWNId7eBFArRA3UTM7/0Pq54q29' +
           '80NwQ5PbWjq5GGHhp6BkRb9nyf7utFf8ESmEKSaEcByOMaWLNQ3NL' +
           'BWohhxR9a8OMCLUKGxI+JlMYIiE0pWih8B61bu0sL4En/yJCbsue5' +
           'lGFtzYzdCNeqHkpoR64UASF0vcMj0L2QzOq4L5WyKvmUa1VXDIjpB' +
           'u9RWjGLlyPQErjGh6vbl+BHFL8vY93wIyQF7WpTy9En2c1ep4etP1' +
           '3ZaOW0A87zLNH6ykhBq5wzDH3FP2owr+h0Ez+awl1KWbgKrwv44LF' +
           'Rjh/ME/6BskxxwslrEM+EMlfc4TyuU04f5i6buMHRh3dymymkqlgo' +
           'TB82JeB0fRJMyoaYTg/X5QQIy2f9NkhjVB4gkwJw2eifDInonl6Ji' +
           'ann19IFHNGWJ6py5VeyNPPd8jUwFhXmCrFrCew46Wm3KmlzjmFqQd' +
           'zI9ePJxwewzWKkoGxljD1YK6XOvW2qUZzSfqb9UJamaXoNVU9pOTv' +
           '1OyT4XSCE1o6JXWFvPBx+wjl5XMJM2PUN5dCIX4kKmebZU+O0u3Nm' +
           'yahkMgSoezJMxWkT7569eS/qkMnRLr3ViS+6JSQJM0Ll+YkpPofBP' +
           'VcYjRC1hEaJFaWdEKeF+qEyIlhPCvMI7F+mFo4ZfJCIPMLUHWFRBY' +
           'Kw4TIWsKDT5eRlBDj4cxCRK/mZZAZXkqIMbxaad9vTPw+OysPl1h5' +
           'HdYQ7jWmplCYeer0XXfBwvDdhkiIoSBsayvMntFihA6Mq376dV1Ti' +
           'N9GR5l8Z2AGISLIcOHaL0fn9wmFYeoKgZzzeQeTsUJhEfv1E+oXmc' +
           'Krfh5kf6+JXwr4JgYzp9B02pmRGeEonYnMLJwNiV+iawnDFAolhbB' +
           'qqjD+oXwhQrwE6F8FDK/0Eh5+6Waw2inCwWDTZE5h2BNSbS0q2KrX' +
           'h1QF8tc0L3z/wZuSuwdv9webyIhdX6i7QfgogV56/YJTgRA8CIkcR' +
           'EFnKKxAE+5QNeX4HRImIySPQiAHWWTYh8uR1RuADomM3iH5H067rC' +
           'M=');
      If Not LoggedIn then
        begin
        if howmanyplayers = 1 then TerminateScript;
         if howmanyplayers > 1 then
         begin
          NextPlayer(Players[CurrentPlayer].Active);
          minethestuff;
         end;
        end;
      disguise('get in to mine')
      makecompass('n');
      if (FindSymbol(x, y, 'mining site')) then
      begin
      Mouse(x, y, 5, 5, True);
      Writeln('Found the mining symbol');
      fflag(10)
      end else
      if not (FindSymbol(x, y, 'mining site')) then
      FindBitmap(mineBmp,x,y);
      Mouse(x,y,5,5,true);
      if not FindBitmap(mineBmp,x,y)then
      begin
        if howmanyplayers = 1 then TerminateScript;
         if howmanyplayers > 1 then
         begin
          NextPlayer(Players[CurrentPlayer].Active);
          minethestuff;
         end;
     end;
    end;
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    procedure Setup;
    begin
      disguise('set up')
      ClearDebug;
      SetupSRL
      SetupMining;
    end;
    
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    procedure getinbank;
    var Bankers,x,y: Integer;
    begin
    If Not LoggedIn then
       begin
        if howmanyplayers = 1 then TerminateScript;
         if howmanyplayers > 1 then
         begin
          NextPlayer(Players[CurrentPlayer].Active);
          minethestuff;
         end;
        end;
    disguise('in to the bank')
        Bankers := DTMFromString('78DA636C666660B065640001560608D8B0A69' +
             '76119508811CA67AC06AA7187F098A1627FFE3031483220A96901CAB' +
             '81150D3039471C1AF060092960C0C');
        if DTMRotated(Bankers, x, y, MMX1, MMY1, MMX2, MMY2) then
        Mouse(X-2,Y+5, 0, 0, True);
        Flag;
        if not DTMRotated(Bankers, x, y, MMX1, MMY1, MMX2, MMY2) then
        radialRoadWalk(FindVarrockRoadColor, 180, 360, 50, 1, 1);
    end;
    
    procedure gembanking;
    var gemdtm: integer;
      begin
      If Not LoggedIn then
        begin
        if howmanyplayers = 1 then TerminateScript;
         if howmanyplayers > 1 then
         begin
          NextPlayer(Players[CurrentPlayer].Active);
          minethestuff;
         end;
        end;
          repeat;
       GemDTM := DTMFromString('78DA8DD2510E82300C06E06E814C144C500E0' +
           '3461F603199E869B83127C17F3324F3616BFBB026DB97656BAB46' +
           '4D6414C5715E2EB422FBDD0DA15E30EADFFC4EF71579862918F38' +
           '6A904C630E603734A9BC2670BD3A54DE9F324307DFE5FC10C304D' +
           'DA1CF67B8E02A31933E47B11CC4347D54A182B30BE3E1BE58D13B' +
           'C87998D60EE3057C6DC605A410D6BC68CF9BE7782F909E629308E' +
           '375FE5310F20');
      if not findDTM(GemDTM,x,y,MIX1,MIY1,MIX2,MIY2) then Exit;
      if  findDTM(GemDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
      Begin
        Mouse(x,y,2,2,False);
        wait(random(200));
        ChooseOption('Drop');
        wait(500 + random(100))
      end;
      Until not FindDTM(GemDTM,x,y,MIX1,MIY1,MIX2,MIY2);
    end;
    
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    function Banking: Boolean;
    begin
      If Not LoggedIn then
        begin
        if howmanyplayers = 1 then TerminateScript;
         if howmanyplayers > 1 then
         begin
          NextPlayer(Players[CurrentPlayer].Active);
          minethestuff;
         end;
        end;
        MakeCompass('N')
        Wait (300 + random(160));
        OpenBankQuiet('veb');
        if (PinScreen) then
        InPin('Pin');
          If Players[currentplayer].Booleans[0] = true Then
          begin
            Deposit(1, 28, True)
          end;
          If Players[currentplayer].Booleans[0] = false Then
          begin
          Deposit(2, 28, True);
            Mouse(RandomRange(483, 495), RandomRange(29, 41), 0, 0, True);
          End;
          Gembanking;
         CloseBank;
         Wait(150 + random (278));
    end;
    
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    procedure proggy;
    var mininglvl,exp:integer;
    begin
      cleardebug
      mininglvl:= getskillinfo('mining',false);
      exp:= XPtillnextlevel('mining');
    
      WriteLn('             _____  ______')
      WriteLn('            |     ||      \')
      WriteLn('            |     ||      |')
      WriteLn('            |     ||   ___/')
      WriteLn('           /_____/ |__|   ')
      writeLn('____________________________________________')
      writeln('Script has been running for ' +TimeRunning);
      WriteLn('Player '+ Players[CurrentPlayer].Nick);
      WriteLn('current mining lvl ' + IntToStr(mininglvl));
      WriteLn('Exp To Next Lvl ' + inttostr(exp));
      WriteLn('loads done '+ IntToStr(loads));
      WriteLn('amount of ores ' + IntToStr(ores));
      writeLn('plz post the proggie here http://www.villavu.com/forum/showthr...565#post542565');
    end;
    
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    begin
      ores:=0
      loads:=0
     setup;
     activateclient;
     DeclarePlayers;
      GraphicsSet := true;
      LoginPlayer;
      disguise('logging in')
      repeat
      repeat
      gettimerunning;
      proggy
     minethestuff;
     makecompass('n');
     tobank;
     getinbank;
     banking;
     inc(loads)
     if Players[CurrentPlayer].Booleans[0] = false then
       ores:= ores + 27;
     if Players[CurrentPlayer].Booleans[0] = true then
       ores:= ores + 28;
       tomine;
       intomine;
         Inc(g);
        until (g= (Players[CurrentPlayer].Integers[1])) or (not LoggedIn);
        NextPlayer(Players[CurrentPlayer].Active);
      until(AllPlayersInactive);
    end.

  2. #2
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    wow thats actually right ty i didnt realize that i wasnt resetting the mine value ty so much

  3. #3
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by J_Pizzle View Post
    ok so heres my problem when i have my script run it works fine for one load then it will walk back to the mine then without mining at all it will walk back tot he bank any help heres my script

    Code:
    { ty to FrÕzÑ_§ÕµL for his auto responder ticky for her anti bans and all at srl for answering my questions
    
      setup
      
      1 fill in delcare palyers
      2 strat in the varrock east mine and hit play
      
      post proggies or else i wont be adding any more mines to this project of mine}
      
      
      
      
    {.include srl/srl.scar}
    {.include srl/srl/skill/mining.scar}
    
    
    
    var
     g, x, y, mines,loads,ores,i: Integer;
    
      const
      whichore= varrock_iron;//which ore
      minetime=3000;//average time it takes to mine ore
      pin=0000;//bank pin number
      
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    
    procedure DeclarePlayers;//add more if needed
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name       := 'killingnubs3';
      Players[0].Pass       := 'panic';
      Players[0].Nick       := 'nubs';
      Players[0].Active     := True;    // Use this account?
      Players[0].Integers[1]:= 1000; // How many Loads
      Players[0].Booleans[0] := false;//pick weilded????
      Players[0].strings[0] := 'veb'//which bank???
      {vwb = varrock west bank
       veb = varrock east bank
    
      {Players[1].Name       := '';
      Players[1].Pass       := '';
      Players[1].Nick       := '';
      Players[1].Active     := True;    // Use this account?
      Players[1].Integers[1] := 1000; // How many Loads
      Players[0].strings[0] :=' '}
    end;
    
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    procedure DontBanMeBro;
    begin
      If(not LoggedIn)then Exit;
      Case Random(12) of
        0:  MMouse(Random(MSX2),Random(MSY2),0,0);
        1:  HoverSkill('random',false);
        2:  PickupMouse;
        3:  GameTab(1+Random(12));
        4:  SleepAndMoveMouse(400+Random(1500));
        5:  if Random(2) = 1 then MMouse(1, 338, 515, 165);
        6:  if Random(2) = 1 then MMouse(515, 1, 250, 503);
        7:  RandomMovement;
     8..11:
    begin
      case Random(3) of
       0: begin
            KeyDown(VK_RIGHT);
            Wait(500+Random(2000));
            KeyUp(VK_RIGHT);
        end;
       1: begin
            KeyDown(VK_Left);
            Wait(500+Random(2000));
            KeyUp(VK_Left);
          end;
       2: begin
            case Random(2) of
              0: begin
                   KeyDown(VK_RIGHT);
                   Wait(500+Random(1400));
                   KeyUp(VK_RIGHT);
                 end;
              1: begin
                   KeyDown(VK_Left);
                   Wait(500+Random(1400));
                   KeyUp(VK_Left);
                end;
              end;
            end;
          end;
        end;
      end;
    end;
    
    
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    
    Function PosArray(SubStr : Array of String; S : String) : Boolean;//originally FrÕzÑ_§ÕµL for autoresponder
    Begin
      for i := 0 to GetArrayLength(SubStr) - 1 do
      Begin
        Result := Pos(SubStr[i], Lowercase(S)) > 0;
        if Result then
          Exit;
      end;
    end;
    
    
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    
    Procedure AutoRespond;//originally FrÕzÑ_§ÕµL updated to my needs
    var OldMessage, TextFound,Name: String;
    Begin
      GetLastChatText(TextFound);
      if OldMessage = TextFound then exit;
      OldMessage := TextFound;
      if Not(PosArray([ 'ning le', 'mining lv', 'lol', 'haha','hehe','lmao','rofl','hi ','hello',' hey',' yo ','bot ','macro ','auto ', 'u noob','u nub ','u loser',Lowercase(Capitalize(Players[CurrentPlayer].Name)), Left(Lowercase(Capitalize(Players[CurrentPlayer].Name)), 4), Right(Lowercase(Capitalize(Players[CurrentPlayer].Name)), 4), 'woot','woop', ' yay'], TextFound)) then exit;
      LastChatter(Name);
      if PosArray(['swing your pick', 'you managed'], Name) then exit;
      if Lowercase(Trim(Name)) = Lowercase(Players[CurrentPlayer].Name) then exit;
      FTWait(RandomRange(2, 6));
      if PosArray(['ning le', 'mining lv'], TextFound) then
      Begin
        While Players[CurrentPlayer].Integers[2] <= 0 do
          Players[CurrentPlayer].Integers[2] := GetSkillInfo('mining', False);
        Case Random(7) of
          0: TypeSend(IntToStr(Players[CurrentPlayer].integers[2]));
          1: TypeSend('me ' + IntToStr(Players[CurrentPlayer].integers[2]) + ' u?');
          2: TypeSend(IntToStr(Players[CurrentPlayer].integers[2]) + ' =p');
          3: TypeSend('I' + chr(39) + 'm ' + IntToStr(Players[CurrentPlayer].integers[2]));
          4: TypeSend(IntToStr(Players[CurrentPlayer].integers[2]) + '...');
          5: TypeSend(IntToStr(Players[CurrentPlayer].integers[2]) + ' =]');
          6: TypeSend(IntToStr(Players[CurrentPlayer].integers[2]) + 'X D');
        end;
        exit;
      end;
      if PosArray(['lol','haha','hehe','lmao','rofl'], TextFound) then
      Begin
        Case Random(10) of
          0: TypeSend('lol');
          1: TypeSend('lmao');
          2: TypeSend('rofl');
          3: TypeSend('?');
          4: TypeSend('...');
          5: TypeSend('haha');
          6: TypeSend('hehe');
          7: TypeSend('=]');
          8, 9: Exit;
        end;
        Exit;
      end;
      if PosArray(['hi ','hello',' hey','sup ',' yo '], TextFound) then
      Begin
        Case Random(11) of
          0: TypeSend('hi');
          1: TypeSend('hello');
          2: TypeSend('hey');
          3: TypeSend('yo');
          4: TypeSend('sup');
          5: TypeSend('wasup');
          6: TypeSend('g' + chr(39) + 'day');
          7: TypeSend('good mornin!');
          8: TypeSend('good aftanoon!');
          9: TypeSend('good evenin!');
        end;
        Exit;
      end;
      if PosArray(['bot ', 'macro ', 'auto '], TextFound) then
      Begin
        Case Random(13) of
          0: TypeSend('Wat r they?');
          1: TypeSend('wots the point in gettin sumthin else 2 play 4 u?');
          2: TypeSend('bots r stupid');
          3: TypeSend('i h8 bots');
          4: TypeSend('yay jagex killed al da botz!');
          5: TypeSend('?');
          6: TypeSend('grrr i h8 bots now we cant trade gud');
          7: TypeSend('stupid macros will destroy our economy');
          8: TypeSend('bots r so obvious');
          9: TypeSend('man it rox how theres no macros =]');
          10: TypeSend('maybe *you* r a bot?!');
          11: TypeSend('maybe *you* ar a macro?!');
          12: TypeSend('maybe *you* are a auto?!');
        end;
        Exit;
      end;
      if PosArray(['u noob','u nub ','u loser'], TextFound) then
      Begin
        Case Random(11) of
          0: TypeSend('shut the hell up');
          1: TypeSend('look in da mirror');
          2: TypeSend('lmao u r');
          3: TypeSend('...');
          4: TypeSend('omg...');
          5: TypeSend('get a life');
          6: TypeSend('gotta start sumwhea');
          7: TypeSend('shut up');
          8: TypeSend('hmph');
          9: TypeSend('=[');
          10: TypeSend('so wot');
        end;
        Exit;
      end;
      if PosArray([Lowercase(Capitalize(Players[CurrentPlayer].Name)), Left(Lowercase(Capitalize(Players[CurrentPlayer].Name)), 4), Right(Lowercase(Capitalize(Players[CurrentPlayer].Name)), 4)], TextFound) then
      Begin
        Case Random(9) of
          0: TypeSend('me?');
          1: TypeSend('wot u want');
          2: TypeSend('...');
          3: TypeSend('leave me alone!');
          4: TypeSend('I' + chr(39) + 'm not in the mood =[');
          5: TypeSend('ye?');
          6: TypeSend('yo?');
          7: TypeSend('uh?');
          8: TypeSend('shudup');
        end;
        Exit;
      end;
      if PosArray(['woot','woop', ' yay'], TextFound) then
      Begin
        Case Random(9) of
          0: TypeSend('gratz');
          1: TypeSend('grats');
          2: TypeSend('...');
          3: TypeSend('what?');
          4: TypeSend('huh?');
          5: TypeSend('wat?');
          6: TypeSend('wot?');
          7: TypeSend('uh whatd i miss?');
          8: Exit;
        end;
        talks:=talks + 1;
        Exit;
      end;
    end;
    
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    procedure Minethestuff;
    var minebmp :integer;
    begin
    minebmp:= BitmapFromString(54, 68, 'beNrN2kFvG0UUB/DmxIkDggOo' +
           'aRCqIlshKg0hRK2CUSqoghw1aW3Vli1SKkVwQKgSisSBAwe4cOQ7c' +
           'OLId8gXyEfIEUU5IXFreNu//c/ze2/Gs7YPtf6KlrLe+e3M7OzseJ' +
           '+sX15ePrz7ns6wtybpHzaZ7n6DOfxyNUx3r8HIV4adNaTX2WAGvU3' +
           'maLDFPB9shzn++t7V1VXv6UaInEd4Nf5oqsQLWWLIo1AyRahKryXU' +
           'vN7hBjPobJoSvdMIfTWGwgnV7nVME88mFMM///5XKCyqQCUMK9M0s' +
           'RaGvKPeZId8WoVCwS9cCCTyTfPWb59/KPHCy1cf4Wnhzz/9iGSEn7' +
           '371sknt+WY8nceoRzn8Z13cCjE1J4UDR6F5GWEckw5awplOyXEPhk' +
           'heFpokJWws4VIs2oehP1OU2KE4PHIRBqhrmeA2ZoS2d+cKZ2h0PPy' +
           'QiJZovyLFrJ0xLemPgi2/QWiK9DzMkIpDgd/+eqDEvdbtyXgaZvAw' +
           'qbs7zd5HNlheLAWCp89WZ8qNDwBoEJejj8XFxdSEISIrx/dlKhtEQ' +
           'KJiNAjIURSQuktqcuEvLOzM9YhwsohSWvRJyFEwFuUkHVy48bS+fn' +
           '56empbEiJWtjevol6xp66NSdGoXH6e01kIUJcpERKDu4vS0QlgZA2' +
           'dELZZmumhDwjPeZI0cP22gxCjiRyTPAoREw/xF/ZJ+RBGF5NEEpCH' +
           'oTSpUMhkJJQqK931Ay+yx0OW9c8PSqGvLpC3d/I00KOSAi/qE+hEo' +
           '6jK5zVziaeKszwTKVNTUqoO7au8NdKyD6j67xQaGaGixKiY2hheEM' +
           'pEZpvsddhWJCyliY/5cKJeUVrkULOAUD686+/dTJOLfTzt1DY/6Ip' +
           'SfG+7X4UCsmj6tff//j+h5Phdy+0MyMMJ28pXl0hzp289uOhpHd0L' +
           'DxEtkOk5uGG7idvKeHwYWkrc+AyFSjRTvnPUOhnRBopG/MLUYrve5' +
           'KT9p3jBytw7ux+5asRfc/MiDINLWNId7eBFArRA3UTM7/0Pq54q29' +
           '80NwQ5PbWjq5GGHhp6BkRb9nyf7utFf8ESmEKSaEcByOMaWLNQ3NL' +
           'BWohhxR9a8OMCLUKGxI+JlMYIiE0pWih8B61bu0sL4En/yJCbsue5' +
           'lGFtzYzdCNeqHkpoR64UASF0vcMj0L2QzOq4L5WyKvmUa1VXDIjpB' +
           'u9RWjGLlyPQErjGh6vbl+BHFL8vY93wIyQF7WpTy9En2c1ep4etP1' +
           '3ZaOW0A87zLNH6ykhBq5wzDH3FP2owr+h0Ez+awl1KWbgKrwv44LF' +
           'Rjh/ME/6BskxxwslrEM+EMlfc4TyuU04f5i6buMHRh3dymymkqlgo' +
           'TB82JeB0fRJMyoaYTg/X5QQIy2f9NkhjVB4gkwJw2eifDInonl6Ji' +
           'ann19IFHNGWJ6py5VeyNPPd8jUwFhXmCrFrCew46Wm3KmlzjmFqQd' +
           'zI9ePJxwewzWKkoGxljD1YK6XOvW2qUZzSfqb9UJamaXoNVU9pOTv' +
           '1OyT4XSCE1o6JXWFvPBx+wjl5XMJM2PUN5dCIX4kKmebZU+O0u3Nm' +
           'yahkMgSoezJMxWkT7569eS/qkMnRLr3ViS+6JSQJM0Ll+YkpPofBP' +
           'VcYjRC1hEaJFaWdEKeF+qEyIlhPCvMI7F+mFo4ZfJCIPMLUHWFRBY' +
           'Kw4TIWsKDT5eRlBDj4cxCRK/mZZAZXkqIMbxaad9vTPw+OysPl1h5' +
           'HdYQ7jWmplCYeer0XXfBwvDdhkiIoSBsayvMntFihA6Mq376dV1Ti' +
           'N9GR5l8Z2AGISLIcOHaL0fn9wmFYeoKgZzzeQeTsUJhEfv1E+oXmc' +
           'Krfh5kf6+JXwr4JgYzp9B02pmRGeEonYnMLJwNiV+iawnDFAolhbB' +
           'qqjD+oXwhQrwE6F8FDK/0Eh5+6Waw2inCwWDTZE5h2BNSbS0q2KrX' +
           'h1QF8tc0L3z/wZuSuwdv9webyIhdX6i7QfgogV56/YJTgRA8CIkcR' +
           'EFnKKxAE+5QNeX4HRImIySPQiAHWWTYh8uR1RuADomM3iH5H067rC' +
           'M=');
    disguise('mining')
      repeat
        if not (FindSymbol(x, y, 'mining site')) or FindBitmap(mineBmp,x,y) or  Not LoggedIn then
        begin
         if howmanyplayers = 1 then TerminateScript;
         if howmanyplayers > 1 then
          begin
           NextPlayer(Players[CurrentPlayer].Active);
           minethestuff;
          end;
        end;
        if FindObjRock(x, y, WhichOre)then
        begin
          Case (Random(3)) of
            0,2 : begin
                    Mouse(x, y, 2, 2, False);
                    Wait(Random(100));
                    ChooseOption('Mine');//otherwise it may Examine
                  end;
            1 :  Mouse(x, y, 2, 2, True);
          end;
          wait(minetime + random(300));
          Inc(mines);
          DontBanMeBro;
          autorespond;
        end;
      until(invfull)or(mines = 30)
    end;
    
    
    
    procedure ToBank;
    var
      x, y: Integer;
    begin
    SetRun(True)
    disguise('to the bank')
      If Not LoggedIn then
        begin
        if howmanyplayers = 1 then TerminateScript;
         if howmanyplayers > 1 then
         begin
          NextPlayer(Players[CurrentPlayer].Active);
          minethestuff;
         end;
        end;
      if Players[currentplayer].strings[0] = 'veb'  then
      begin
      FindVarrockRoadColor;
      RadialRoadWalk(FindVarrockRoadColor, 25, 50, 70, 1, 1);
      FFlag(10);
      wait(2000 + random(300));
      RadialRoadWalk(FindVarrockRoadColor, 10, 0, 65, 1, 1);
      fflag(10);
      wait(2000 + random(300));
      repeat
        If Not LoggedIn then
        begin
        if howmanyplayers = 1 then TerminateScript;
         if howmanyplayers > 1 then
         begin
          NextPlayer(Players[CurrentPlayer].Active);
          minethestuff;
          end;
        end;
        RadialRoadWalk(FindVarrockRoadColor, 240, 380, 65, 1, 1);
        fflag(10);
        wait(2000 + random(300));
      until (FindSymbol(x, y, 'bank')) or FindSymbol(x,y, 'training dummy');
      end;
     if Players[currentplayer].strings[0] = 'vwb' then
       begin
         RadialWalk(4416347,350, 280, 100, 1, 1);
         fflag(10);
         repeat
         wait(1000 + random(400));
         RadialWalk(4284501, 270, 360, 100, 1, 1);
         fflag(10);
         wait(1000 + random(400));
         RadialWalk(4284507, 270, 350, 100, 1, 1);
         fflag(10);
         wait(1000 + random(400));
         until (FindSymbol(x, y, 'quest')) or FindSymbol(x,y, 'cook');
         FindVarrockRoadColor;
      repeat
         RadialRoadWalk(FindVarrockRoadColor, 0, 90, 70, 1, 1);
         FFlag(10);
         wait(2000 + random(300));
       until (FindSymbol(x, y, 'bank'))
       end;
     end;
    
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    
    procedure ToMine;
    var
      x, y: Integer;
    begin
    SetRun(True)
    disguise('to the mine')
      If Not LoggedIn then
        begin
        if howmanyplayers = 1 then TerminateScript;
         if howmanyplayers > 1 then
         begin
          NextPlayer(Players[CurrentPlayer].Active);
          minethestuff;
         end;
        end;
      FindVarrockRoadColor;
      RadialRoadWalk(FindVarrockRoadColor, 0, 90, 70, 1, 1);
      FFlag(10);
      wait(2000 + random(300));
      RadialRoadWalk(FindVarrockRoadColor, 70, 90, 65, 1, 1);
      fflag(10);
      wait(2000 + random(300));
      repeat
        If Not LoggedIn then
        begin
        if howmanyplayers = 1 then TerminateScript;
         if howmanyplayers > 1 then
         begin
          NextPlayer(Players[CurrentPlayer].Active);
          minethestuff;
         end;
        end;
        RadialRoadWalk(FindVarrockRoadColor, 90, 190, 65, 1, 1);
        fflag(10);
        wait(2000 + random(300));
      until (FindSymbol(x, y, 'mining site'))
    end;
    
    procedure intomine;
    var minebmp:integer;
    begin
     minebmp:= BitmapFromString(54, 68, 'beNrN2kFvG0UUB/DmxIkDggOo' +
           'aRCqIlshKg0hRK2CUSqoghw1aW3Vli1SKkVwQKgSisSBAwe4cOQ7c' +
           'OLId8gXyEfIEUU5IXFreNu//c/ze2/Gs7YPtf6KlrLe+e3M7OzseJ' +
           '+sX15ePrz7ns6wtybpHzaZ7n6DOfxyNUx3r8HIV4adNaTX2WAGvU3' +
           'maLDFPB9shzn++t7V1VXv6UaInEd4Nf5oqsQLWWLIo1AyRahKryXU' +
           'vN7hBjPobJoSvdMIfTWGwgnV7nVME88mFMM///5XKCyqQCUMK9M0s' +
           'RaGvKPeZId8WoVCwS9cCCTyTfPWb59/KPHCy1cf4Wnhzz/9iGSEn7' +
           '371sknt+WY8nceoRzn8Z13cCjE1J4UDR6F5GWEckw5awplOyXEPhk' +
           'heFpokJWws4VIs2oehP1OU2KE4PHIRBqhrmeA2ZoS2d+cKZ2h0PPy' +
           'QiJZovyLFrJ0xLemPgi2/QWiK9DzMkIpDgd/+eqDEvdbtyXgaZvAw' +
           'qbs7zd5HNlheLAWCp89WZ8qNDwBoEJejj8XFxdSEISIrx/dlKhtEQ' +
           'KJiNAjIURSQuktqcuEvLOzM9YhwsohSWvRJyFEwFuUkHVy48bS+fn' +
           '56empbEiJWtjevol6xp66NSdGoXH6e01kIUJcpERKDu4vS0QlgZA2' +
           'dELZZmumhDwjPeZI0cP22gxCjiRyTPAoREw/xF/ZJ+RBGF5NEEpCH' +
           'oTSpUMhkJJQqK931Ay+yx0OW9c8PSqGvLpC3d/I00KOSAi/qE+hEo' +
           '6jK5zVziaeKszwTKVNTUqoO7au8NdKyD6j67xQaGaGixKiY2hheEM' +
           'pEZpvsddhWJCyliY/5cKJeUVrkULOAUD686+/dTJOLfTzt1DY/6Ip' +
           'SfG+7X4UCsmj6tff//j+h5Phdy+0MyMMJ28pXl0hzp289uOhpHd0L' +
           'DxEtkOk5uGG7idvKeHwYWkrc+AyFSjRTvnPUOhnRBopG/MLUYrve5' +
           'KT9p3jBytw7ux+5asRfc/MiDINLWNId7eBFArRA3UTM7/0Pq54q29' +
           '80NwQ5PbWjq5GGHhp6BkRb9nyf7utFf8ESmEKSaEcByOMaWLNQ3NL' +
           'BWohhxR9a8OMCLUKGxI+JlMYIiE0pWih8B61bu0sL4En/yJCbsue5' +
           'lGFtzYzdCNeqHkpoR64UASF0vcMj0L2QzOq4L5WyKvmUa1VXDIjpB' +
           'u9RWjGLlyPQErjGh6vbl+BHFL8vY93wIyQF7WpTy9En2c1ep4etP1' +
           '3ZaOW0A87zLNH6ykhBq5wzDH3FP2owr+h0Ez+awl1KWbgKrwv44LF' +
           'Rjh/ME/6BskxxwslrEM+EMlfc4TyuU04f5i6buMHRh3dymymkqlgo' +
           'TB82JeB0fRJMyoaYTg/X5QQIy2f9NkhjVB4gkwJw2eifDInonl6Ji' +
           'ann19IFHNGWJ6py5VeyNPPd8jUwFhXmCrFrCew46Wm3KmlzjmFqQd' +
           'zI9ePJxwewzWKkoGxljD1YK6XOvW2qUZzSfqb9UJamaXoNVU9pOTv' +
           '1OyT4XSCE1o6JXWFvPBx+wjl5XMJM2PUN5dCIX4kKmebZU+O0u3Nm' +
           'yahkMgSoezJMxWkT7569eS/qkMnRLr3ViS+6JSQJM0Ll+YkpPofBP' +
           'VcYjRC1hEaJFaWdEKeF+qEyIlhPCvMI7F+mFo4ZfJCIPMLUHWFRBY' +
           'Kw4TIWsKDT5eRlBDj4cxCRK/mZZAZXkqIMbxaad9vTPw+OysPl1h5' +
           'HdYQ7jWmplCYeer0XXfBwvDdhkiIoSBsayvMntFihA6Mq376dV1Ti' +
           'N9GR5l8Z2AGISLIcOHaL0fn9wmFYeoKgZzzeQeTsUJhEfv1E+oXmc' +
           'Krfh5kf6+JXwr4JgYzp9B02pmRGeEonYnMLJwNiV+iawnDFAolhbB' +
           'qqjD+oXwhQrwE6F8FDK/0Eh5+6Waw2inCwWDTZE5h2BNSbS0q2KrX' +
           'h1QF8tc0L3z/wZuSuwdv9webyIhdX6i7QfgogV56/YJTgRA8CIkcR' +
           'EFnKKxAE+5QNeX4HRImIySPQiAHWWTYh8uR1RuADomM3iH5H067rC' +
           'M=');
      If Not LoggedIn then
        begin
        if howmanyplayers = 1 then TerminateScript;
         if howmanyplayers > 1 then
         begin
          NextPlayer(Players[CurrentPlayer].Active);
          minethestuff;
         end;
        end;
      disguise('get in to mine')
      makecompass('n');
      if (FindSymbol(x, y, 'mining site')) then
      begin
      Mouse(x, y, 5, 5, True);
      Writeln('Found the mining symbol');
      fflag(10)
      end else
      if not (FindSymbol(x, y, 'mining site')) then
      FindBitmap(mineBmp,x,y);
      Mouse(x,y,5,5,true);
      if not FindBitmap(mineBmp,x,y)then
      begin
        if howmanyplayers = 1 then TerminateScript;
         if howmanyplayers > 1 then
         begin
          NextPlayer(Players[CurrentPlayer].Active);
          minethestuff;
         end;
     end;
    end;
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    procedure Setup;
    begin
      disguise('set up')
      ClearDebug;
      SetupSRL
      SetupMining;
    end;
    
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    procedure getinbank;
    var Bankers,x,y: Integer;
    begin
    If Not LoggedIn then
       begin
        if howmanyplayers = 1 then TerminateScript;
         if howmanyplayers > 1 then
         begin
          NextPlayer(Players[CurrentPlayer].Active);
          minethestuff;
         end;
        end;
    disguise('in to the bank')
        Bankers := DTMFromString('78DA636C666660B065640001560608D8B0A69' +
             '76119508811CA67AC06AA7187F098A1627FFE3031483220A96901CAB' +
             '81150D3039471C1AF060092960C0C');
        if DTMRotated(Bankers, x, y, MMX1, MMY1, MMX2, MMY2) then
        Mouse(X-2,Y+5, 0, 0, True);
        Flag;
        if not DTMRotated(Bankers, x, y, MMX1, MMY1, MMX2, MMY2) then
        radialRoadWalk(FindVarrockRoadColor, 180, 360, 50, 1, 1);
    end;
    
    procedure gembanking;
    var gemdtm: integer;
      begin
      If Not LoggedIn then
        begin
        if howmanyplayers = 1 then TerminateScript;
         if howmanyplayers > 1 then
         begin
          NextPlayer(Players[CurrentPlayer].Active);
          minethestuff;
         end;
        end;
          repeat;
       GemDTM := DTMFromString('78DA8DD2510E82300C06E06E814C144C500E0' +
           '3461F603199E869B83127C17F3324F3616BFBB026DB97656BAB46' +
           '4D6414C5715E2EB422FBDD0DA15E30EADFFC4EF71579862918F38' +
           '6A904C630E603734A9BC2670BD3A54DE9F324307DFE5FC10C304D' +
           'DA1CF67B8E02A31933E47B11CC4347D54A182B30BE3E1BE58D13B' +
           'C87998D60EE3057C6DC605A410D6BC68CF9BE7782F909E629308E' +
           '375FE5310F20');
      if not findDTM(GemDTM,x,y,MIX1,MIY1,MIX2,MIY2) then Exit;
      if  findDTM(GemDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
      Begin
        Mouse(x,y,2,2,False);
        wait(random(200));
        ChooseOption('Drop');
        wait(500 + random(100))
      end;
      Until not FindDTM(GemDTM,x,y,MIX1,MIY1,MIX2,MIY2);
    end;
    
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    function Banking: Boolean;
    begin
      If Not LoggedIn then
        begin
        if howmanyplayers = 1 then TerminateScript;
         if howmanyplayers > 1 then
         begin
          NextPlayer(Players[CurrentPlayer].Active);
          minethestuff;
         end;
        end;
        MakeCompass('N')
        Wait (300 + random(160));
        OpenBankQuiet('veb');
        if (PinScreen) then
        InPin('Pin');
          If Players[currentplayer].Booleans[0] = true Then
          begin
            Deposit(1, 28, True)
          end;
          If Players[currentplayer].Booleans[0] = false Then
          begin
          Deposit(2, 28, True);
            Mouse(RandomRange(483, 495), RandomRange(29, 41), 0, 0, True);
          End;
          Gembanking;
         CloseBank;
         Wait(150 + random (278));
    end;
    
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    procedure proggy;
    var mininglvl,exp:integer;
    begin
      cleardebug
      mininglvl:= getskillinfo('mining',false);
      exp:= XPtillnextlevel('mining');
    
      WriteLn('             _____  ______')
      WriteLn('            |     ||      \')
      WriteLn('            |     ||      |')
      WriteLn('            |     ||   ___/')
      WriteLn('           /_____/ |__|   ')
      writeLn('____________________________________________')
      writeln('Script has been running for ' +TimeRunning);
      WriteLn('Player '+ Players[CurrentPlayer].Nick);
      WriteLn('current mining lvl ' + IntToStr(mininglvl));
      WriteLn('Exp To Next Lvl ' + inttostr(exp));
      WriteLn('loads done '+ IntToStr(loads));
      WriteLn('amount of ores ' + IntToStr(ores));
      writeLn('plz post the proggie here http://www.villavu.com/forum/showthr...565#post542565');
    end;
    
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    
    begin
      ores:=0
      loads:=0
     setup;
     activateclient;
     DeclarePlayers;
      GraphicsSet := true;
      LoginPlayer;
      disguise('logging in')
      repeat
      repeat
      gettimerunning;
      proggy
     minethestuff;
     makecompass('n');
     tobank;
     getinbank;
     banking;
     inc(loads)
     if Players[CurrentPlayer].Booleans[0] = false then
       ores:= ores + 27;
     if Players[CurrentPlayer].Booleans[0] = true then
       ores:= ores + 28;
       tomine;
       intomine;
         Inc(g);
        until (g= (Players[CurrentPlayer].Integers[1])) or (not LoggedIn);
        NextPlayer(Players[CurrentPlayer].Active);
      until(AllPlayersInactive);
    end.
    English please?
    ~Hermen

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
  •