Results 1 to 4 of 4

Thread: AlkharidTanner

  1. #1
    Join Date
    Dec 2011
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default AlkharidTanner

    Simba Code:
    program AlkharidTanner;
    {$I SRL/SRL/misc/SMART.SCAR}
    {$loadlib sps}
    {$I SRL/SRL.scar}
    {$i sps/sps.simba}
    type
    BoxName = record
        name: String;
        x1: Integer;
        y1: Integer;
        x2: Integer;
        y2: Integer;
      end;

     const
           CharName = '';
           CharPas = '';
           Loads2Do = 999;//how many loads to do
           HideType = 2;  // valids are  [0]SoftLeather,[1]HardLeather, [2]GreenDhide
           BreakFor = 0;
           BreakEvery= 0;
          // BankerCol = ([000,000,000,000]);
     //Smart Setup
           SmartWorld = 16;
           Members = True;
           SignedClient = True;
           HighDetail = False;

     var
     tic,FailedTan,start,DidBreak,Made,x,y:integer;
     WhatHide: Array [0..8]of BoxName;
     Location:string;
     Bnk2Tan:TPointArray;

    procedure SetupPlayers;
    begin
       HowManyPlayers := 1;
       NumberOfPlayers(HowManyPlayers);
       CurrentPlayer:= 0;
       Players[0].Name :=CharName;
       Players[0].Pass :=CharPas;
       Players[0].Pin  :='';
       Players[0].Active:=True;
    end;

    procedure DoBreak;
    begin
        writeln('breaking');
        inc(DidBreak);
        ExitToLobby;
        Wait(BreakFor*60000+RandomRange(60000,300000));
        LoginPlayer;
        writeln('Finished Break');
        MarkTime(Start);
    end;

    procedure AntiBan;
    begin
      if not(LoggedIn) then Exit;
      case RandomRange(1,76) of
       1: RandomMovement;
    //   2: HoverSkill('Magic',false);
       3: RandomMovement;
       4: PickupMouse;
       5: FindNormalRandoms;
       6: MakeCompass('e');
      end;
    end;
    Procedure EnergyChecker;
    Begin
      If FindColorSpiralTolerance(X, Y, 255, 736, 104, 761, 121, 10)then
      Begin
        Wait(Randomrange(300, 321));
        RestUntil(RandomRange(80,90));
      End;
    End;
    procedure DoWalking;
    begin
        SPS_Setup(RUNESCAPE_SURFACE, ['12_9']);
        SPS_Continue := false;
      if Location = 'Bank'then
      begin
        Bnk2Tan := [Point(4916, 3995),
    Point(4936, 3977),
    Point(4953, 3941),
    Point(4935, 3898)];
      if SPS_WalkPath(Bnk2Tan) then
      begin
        Location:='Tan';
        Wait(RandomRange(500,600));
       end else
        Writeln('we got lost... Please post where you got lost');
        exit;
      end;
      if Location = 'Tan'then
      begin
        InvertTPA(Bnk2Tan);
       if SPS_WalkPath(Bnk2Tan) then
       begin
        Location:='Bank';
        Wait(RandomRange(500,600));
       end else
        Writeln('we got lost... Please post where you got lost');
        exit;
      end;
    end;
    procedure FindTanner;
    begin
      repeat
      while IsMoving do
      begin
        wait(0);
      end;
       if FindObjCustom(x,y,['ll','is'],[15590380,5929419],15)then
        Mouse(x,y,2,2,false);
        inc(tic);
      until(ChooseOption('de '))or (tic>=10);
    end;
    procedure DoTanning;
    begin
        WhatHide[0].name:='SoftLeather';//SoftLeather
        WhatHide[0].x1:=66;
        WhatHide[0].y1:=70;
        WhatHide[0].x2:=113;
        WhatHide[0].y2:=122;

        WhatHide[1].name:='HardLeather';//HardLeather
        WhatHide[1].x1:=176;
        WhatHide[1].y1:=70;
        WhatHide[1].x2:=223;
        WhatHide[1].y2:=122;

        WhatHide[2].name:='GreenDhide';//GreenDhide
        WhatHide[2].x1:=63;
        WhatHide[2].y1:=201;
        WhatHide[2].x2:=109;
        WhatHide[2].y2:=251;
        FindTanner;
        tic:=0;
      repeat
        Wait(RandomRange(1000,1200));
        inc(tic);
      until(FindColorTolerance(x,y,1006349,MSX1,MSY1,MSX2,MSY2,15))or (tic>=10)
      if tic>=10 then
      begin
        tic:=0;
        exit;
      end;
        MouseBox(WhatHide[HideType].x1,WhatHide[HideType].y1,WhatHide[HideType].x2,WhatHide[HideType].y2,2);
      if ChooseOption('ll')then
      begin
        Made:=Made+28;
      end else
        writeln('failed tannin');
        inc(FailedTan);
    end;

    // Edited OpenBankNPC;
    function OpenBankNPC_Booth: Boolean;
    var
      bx, by, Speed, ColFace, ColFace2, BankBooth, BankBooth2, t: Integer;
    begin
      Result := (LoggedIn) and (BankScreen or PinScreen);
      if (Result) then exit;

      Speed := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      ColFace := 1979203; // Face Color
      ColFace := 3892356; // Grey Color [ Clothes ]
      BankBooth := 4080456; // Blue Color [ Clothes ]
      BankBooth2 := 4080456; // Orange Hair [wyn10]
      if (FindObjThroughMM(bx, by, 'npc', [ColFace, ColFace, BankBooth, BankBooth2], [1, 1, 1, 1],
        ['anke', 'to B', 'Bank', 'nk','booth'], 10, 10)) then
      begin
        Mouse(bx, by, 0, 0, False);
        if (WaitOptionMulti(['ank B','-qui', 'Bank Banker', 'ank', 'nker'], 750)) then
        begin
          t := (GetSystemTime + 5000);
          repeat
            if (BankScreen) or (PinScreen) then
            begin
              Result := true;
              Break;
            end;
            Wait(50);
          until(GetSystemTime > t);
          if (Length(Players) > 0) then
            if ((PinScreen) and (Players[CurrentPlayer].Pin <> '')) then
              InPin(Players[CurrentPlayer].Pin);
          Result := (BankScreen) or (PinScreen);
        end;
      end;
      ColorToleranceSpeed(Speed);
    end;

    procedure Bnk;
    var tri,i1,w:integer;
    begin
      if not(LoggedIn) then Exit;
        w:= RandomRange(200,400);
      while IsMoving do
      begin
        wait(0);
      end;
      if OpenBankNPC_Booth then
        if not OpenBankNPC_Booth then
          if not OpenBankNPC_Booth then
            if not OpenBankNPC_Booth then
            begin
              writeln('failed banking please set colors Terminating');
              LogOut;
              TerminateScript;
            end;
        i1:=0;
      repeat
        Wait(0);
      Until(BankScreen);
        MouseBox(355,317,384,299, 1);
        MouseSpeed:= RandomRange(14,19);
        Withdraw(0,0,28);
        tri:=6;
       begin
          EnergyChecker;
       end;
    end;

    procedure proggy;
    begin              //+IntToStr(WhatHide[HideType].name)
      cleardebug;
      writeln('||----------------------------------------||');
      writeln('||-----------  Owner5 AlkharidTanner  ----------||');
      writeln('       Ran for '+TimeRunning+'');
      writeln('||---'+WhatHide[HideType].name+'--'+'Hides Tanned : '+IntToStr(Made)+'-----------------||');
    //  writeln('||----- '+IntToStr((FailedTan))+'------------------||');
      WriteLn(PadR('[   ' + FloatToStr(Round((Made * 3600) / (GetTimeRunning / 1000))) + ' Hides/Hr', 50) + ']');
      writeln('||----------------------------------------||');
    end;

    Procedure  main;
    var
    ii:integer;
    begin
      repeat
        inc(ii);
        Bnk;
        DoWalking;
        DoTanning;
        proggy;
        DoWalking;
        EnergyChecker;
      until(ii>= Loads2Do)
    end;

    begin
        Smart_Server := SmartWorld;
        Smart_Members := Members;
        Smart_Signed := SignedClient;
        Smart_SuperDetail := HighDetail;;
        SetupSRL;
        SetupPlayers;
        ActivateClient;
        MarkTime(Start);
        MouseSpeed:=RandomRange(25,30);
        Location:= 'Bank';
        wait(RandomRange(1000,1500));
      if not LoggedIn then LogInPlayer;
        main;
    end.

    Please help me with some bugs, also feel free to use.

  2. #2
    Join Date
    Dec 2006
    Location
    Georgia
    Posts
    84
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Welllll.. SPS walking doesnt work right now..
    Future SRL Member.

  3. #3
    Join Date
    Nov 2011
    Posts
    1,532
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    @OP

    E: Did you copy off this guy? http://villavu.com/forum/showthread.php?t=68684
    Last edited by Er1k; 01-08-2012 at 04:08 AM.

  4. #4
    Join Date
    Dec 2011
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by nosaj.421 View Post
    @OP

    E: Did you copy off this guy? http://villavu.com/forum/showthread.php?t=68684
    Ye he didn't updated, i added / changed some stuff to let it work again

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
  •