Results 1 to 15 of 15

Thread: Converting my script to work with 3.12?

  1. #1
    Join Date
    Jul 2007
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Converting my script to work with 3.12?

    I'm getting tons of errors, I already had to get rid of like half my antiban, and now theres no OpenBank3; .. and i'm banking in seers bank so I can't use any other bank procedures, anyone have any ideas on how to bank?

    Heres my script btw.

    SCAR Code:
    ////////////////////\\\\\\\\\\\\\\\\\\\\\
                  /////////Zeta's Maple Masher v0.2\\\\\\\\\\\
                 //Big thanks to : Kevin Wolf, Town, and SantaClause\\
                 /////////////////////\\\\\\\\\\\\\\\\\\\\\\\\
                 

    program ZetasMapleMasher;

    {.include SRL\SRL.scar}
    {.include SRL\SRL\Skill\Woodcutting.SCAR}

    const
      Maple = 19058; //the colors of the maples
      Maple2 = 16760;
      Maple3 = 9548;
      Tol = 10; //tolerance to find the maple
      AntiBanAmount= 40; //Set this for the chance of Antiban to do something.
      //40 is default, lower for more antiban, higher for less.
     
    var
    Loads:Integer;


    procedure DeclarePlayers;
    begin
      HowManyPlayers := 2; //Number of players to use
      NumberOfPlayers(HowManyPlayers); //Don't Touch
      CurrentPlayer := 0;  //Player to start with
     
      Players[0].Name := ''; //Players username
      Players[0].Pass := ''; //Players password
      Players[0].Nick := ''; //3-4 characters from players username(Lowercase and no spaces)
      Players[0].Active := True;     //Are you using this player
      Players[0].Integers[0] := 2;//Loads For Player
     

      Players[1].Name := ''; //Players username
      Players[1].Pass := ''; //Players password
      Players[1].Nick := ''; //3-4 characters from players username(Lowercase and no spaces)
      Players[1].Active := True;     //Are you using this player?
      Players[1].Integers[0] := 2;//Loads For Player
     
      Players[2].Name := ''; //Players username
      Players[2].Pass := ''; //Players password
      Players[2].Nick := ''; //3-4 characters from players username(Lowercase and no spaces)
      Players[2].Active := True;     //Are you using this player?
      Players[2].Integers[0] := 2;//Loads For Player
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;


    function RadialToleranceWalk(TheColor: Integer; StartRadial, EndRadial: Integer;
      Radius: Integer; Xmod, Ymod, Tol: Integer): Boolean; // By Wizzup? and WT-Fakawi.
    var
      i, X1, Y1, x, y: Integer;
    begin
      if (RoadColorChecker) then
        if (DebugRadialRoad) then
          WriteLn(' THROUGH RADIALROADWALK=  ---> ' + IntToStr(RoadColor));
      if (StartRadial = EndRadial) then
      begin
        WriteLn('Using LinearRoadWalk, equal values.')
          if LinearRoadWalk(TheColor, StartRadial, Radius, Xmod, Ymod) then
          Result := True;
      end
      else if (StartRadial < EndRadial) then
      begin
        repeat
          for i := StartRadial to EndRadial do
          begin
            x1 := Round(Radius * Sine(i)) + 646;
            y1 := Round(-Radius * Cose(i)) + 84;
            if Not LoggedIn then Exit;
            if (FindColorTolerance(x, y, TheColor, X1, Y1, X1 + 1, Y1 + 1, Tol)) then
            begin
              MouseFindNoFlag(X,Y,Xmod,Ymod);
              Result := True;
              CountFlag(10);
              Exit;
            end;
          end;
          Radius := Radius - 4;
        until (Radius <= 1);
      end else
        if (StartRadial > EndRadial) then
        begin
          repeat
            for i := StartRadial downto EndRadial do
            begin
              x1 := Round(Radius * Sine(i)) + 646;
              y1 := Round(-Radius * Cose(i)) + 84;
              if Not LoggedIn then Exit;
              if (FindColorTolerance(x, y, TheColor, X1, Y1, X1 + 1, Y1 + 1, Tol)) then
              begin
                MouseFindNoFlag(X,Y,Xmod,Ymod);
                Result := True;
                CountFlag(10);
                Exit;
              end;
            end;
            Radius := Radius - 4;
          until (Radius <= 1);
        end
    end;


    procedure SetupClient;
    begin
      if (not(LoggedIn)) then Exit;
      SetChat('on', 1);
      SetChat('off', 2);
      SetChat('on', 3);
      SetChat('on', 4);
      Setrun(true);
    end;

    Function FindFastRandoms: Boolean;    // By WT-Fakawi.
    Var
      i: Integer;
    Begin
    if not LoggedIn then Exit;
      For I := 1 To 10 Do
      Begin
        Case I Of
           1:  If FindDead Then
                 Result := True;
           2:  If FindMime Then
                 Result := True;
           3:  If FindMaze Then
                 Result := True;
           4:  If FindQuiz Then
                 Result := True;
           5:  If FindDemon Then
                 Result := True;
           6: Begin
                 If NoGameTab Then
                 Begin
                   Result := True;
                   Players[CurrentPlayer].loc := 'No GameTab';
                   Players[CurrentPlayer].Active := False;
                   Logout;
                   Exit;
                 End;
               End;
           7 : If RC Then
                  Result:=True;
           8 : If FindFight Then
                    Result := True;
           9 : If FindTalk Then
                 Result := True;
           10: If FindCerter Then
                 Result := True;
        End;
        Wait(1);
      End;
    End;

    procedure AntiRandoms;
    begin
        FindTalk;
        FindNormalRandoms;
        FindFastRandoms;
        FindLamp('Woodcutting');
        SolvePinball;
      if (FindFight) then
      begin
        MakeCompass('N');
        RunTo('W', True);
        Wait(8000 +Random(6423));
        RunBack;
      end;
    end;



    Procedure AntiBan1;
    begin
      if(not(LoggedIn))then Exit;
     
      case Random(AntiBanAmount) of
        1: begin
             HoverSkill('Woodcutting',false);
             wait(2364+Random(413));
             GameTab(4);
           end;
        2: PickUpMouse;
        3: begin
             MakeCompass('N');
             wait(10+random(5));
             MakeCompass('S');
             wait(10+random(5));
             MakeCompass('N');
           end;
        5: begin
             LowestAngle;
             wait(10+random(74));
             HighestAngle;
           end;
        6: SleepAndMoveMouse(5000+random(3000));
        8: GameTab(1 + Random(12));
        9: begin
             MakeCompass('N');
             wait(10+random(5));
             MakeCompass('S');
             wait(10+random(5));
             MakeCompass('N');
        end;
      end;
    end;


    Procedure Antiban2;
    begin
      if(not(LoggedIn))then Exit;
       case Random(AntiBanAmount) of
       0: PickUpMouse;
       1: FindNormalRandoms;
       3: HoverSkill('Random', False);
       5: DoEmote(1 + Random(20));
       7: GameTab(1 + Random(12));

       end;
    end;



    procedure WalkToMaples;
    begin
    MakeCompass('N');
      HighestAngle;
      Antiban1;
      RadialToleranceWalk(98061, 330, 384, 65, 10, 12, 18)
    Flag;
    end;

    procedure ChopMaples;
    var
      x, y, ChopMark: Integer;
    begin
      if (not (LoggedIn)) then Exit;
      repeat
        if FindObjCustom(x, y, ['aple tree'], [Maple, Maple2, Maple3], Tol) then
        begin
          Writeln('Found a maple... chopping');
          GetMousePos(X, Y);
          Antiban1;
          Wait(500 + Random(102));
          Mouse(X, Y, 0, 0, True);
          AntiRandoms;
          MarkTime(ChopMark);
          repeat
            Wait(500 + Random(250));
            AntiRandoms;
            if Random(AntiBanAmount div 2) = 0 then AntiBan2
          until(TimeFromMark(ChopMark) >= (10000 + Random(5000))) or (InvFull) or (not (LoggedIn));

        end;
      until (InvFull);
    end;

    procedure WalkToBank;
    var
    x,y: integer;
    begin
      if (not(LoggedIn)) then
        Exit;
        SymbolAccuracy:= 0.1;
        Makecompass('N');
        HighestAngle;
      begin
        if (FindSymbol(x, y, 'bank')) then
        begin
          Mouse(x, y, 2, 2, true);
          Antiban1;
          AntiRandoms;
          Flag;
        end;
      end;
    end;

    procedure Bank;

    begin
       OpenBank3;
      if (BankScreen) then
       FixBank;
       Deposit(2,28,2);
       Closebank;
       Loads:=Loads+1;
    end;

    procedure NextPlayer;
    begin
      If(LoggedIn) and (Loads >= Players[CurrentPlayer].Integer[0])then
      begin
      Logout;
      end;
    end;


    procedure MainLoop;
    begin
      ActivateClient;
      SetUpSRL;
      DeclarePlayers;
      LoginPlayer;
      SetupClient;
      repeat
        if not LoggedIn then NextPlayer(false);
         WalkToMaples;
         ChopMaples;
         WalkToBank;
         Bank;
         NextPlayer;
        if (not (LoggedIn)) then NextPlayer;;
      until(false)
    end;

    begin
    MainLoop;
    end.





  2. #2
    Join Date
    Jan 2007
    Location
    Tennessee
    Posts
    642
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Im having that same problem...
    This is kinda making me mad that stuff had to change so much.

  3. #3
    Join Date
    Jul 2007
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah.. <.<





  4. #4
    Join Date
    Jun 2007
    Location
    NSW, Australia.
    Posts
    541
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    There are heaps of banking procedures that you could use, jusxt look at the include.
    Quote Originally Posted by RAM View Post
    I sam sofa king wee todd did ! ~RAM
    My SRL Army Blog.


  5. #5
    Join Date
    Jul 2007
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    that's my problem, the only one that worked that was in the include as OpenBank3; and it got deleted..





  6. #6
    Join Date
    Sep 2007
    Location
    Sweden
    Posts
    91
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    try to use search if u get errors tuns of ppl that help u whit it

  7. #7
    Join Date
    Jul 2007
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i tried searching and couldnt find anything.. thats why i posted





  8. #8
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Browse through this file: includes/SRL/SRL/Core/Bank.scar

    Keep reading through until you find one that suits you. That way you also learn about what SRL has got to offer. Sometimes, I just open SCAR and read a little bit in some SRL-files. Good practise, and good for future scripting.

    -Knives

  9. #9
    Join Date
    Jul 2007
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i already said that the only thing in bank.scar that worked for me was openbank3; .. and its not there anymore so...





  10. #10
    Join Date
    Sep 2006
    Location
    West U.S.
    Posts
    2,172
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Quote Originally Posted by Zeta View Post
    i already said that the only thing in bank.scar that worked for me was openbank3; .. and its not there anymore so...
    make you own?

    They are sisters...
    Runescape Classic

  11. #11
    Join Date
    Jul 2007
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    okay thanks, i just stole the function from old srl core and added it in my script. hopefully it works now, i had to remove and rename ALOT of stuff though now and i dont have a membs account to test on.. anyone want to test it?





  12. #12
    Join Date
    Aug 2007
    Posts
    429
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    i know and

    MMX1, MMY1, MMX2, MMY2
    MMCX, MMCY
    MSX1, MSY1, MSX2, MSY2
    MSCX, MSCY

    were all removed!!!!


    EDIT:

    they're not in my Globals.scar....

  13. #13
    Join Date
    Jul 2007
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    that's why my mousebox antiban wasnt working o_O





  14. #14
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    -Derek, why can I find all those you just described?
    They're in Globals.scar:
    SCAR Code:
    const
      MMX1 = 570;
      MMY1 = 5;
      MMX2 = 715;
      MMY2 = 160;
     
    { const MMCX, MMCY;
      Description: MiniMap Centre Point. }

    const
      MMCX = 643;
      MMCY = 84;

    { const MSX1, MSY1, MSX2, MSY2;
      Description: Main Screen EdgePoints. }

    const
      MSX1 = 1;
      MSY1 = 1;
      MSX2 = 516;
      MSY2 = 338;

    { const MSCX, MSCY;
      Description: Main Screen Centre Points. }

    const
      MSCX = 259;
      MSCY = 170;

    { const MIX1, MIY1, MIX2, MIY2;
      Description: Inventory EdgePoints. }

    const
      MIX1 = 547;
      MIY1 = 202;
      MIX2 = 737;
      MIY2 = 466;

    { const MICX, MICY;
      Description: Inventory Centre Points. }

    const
      MICX = 642;
      MICY = 334;

    { const MCX1, MCY1, MCX2, MCY2;
      Description: Chat Screen EdgePoints. }

    const
      MCX1 = 4;
      MCY1 = 342;
      MCX2 = 496;
      MCY2 = 460;

    { const MCCX, MCCY;
      Description: Chat Screen Centre Points. }

    const
      MCCX = 250;
      MCCY = 401;

    -Knives

  15. #15
    Join Date
    Dec 2006
    Location
    .̿̂̔͋͗̎̆ͥ̍̒ͤ͂̾̌̀̅
    Posts
    3,012
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by King of Knives View Post
    -Derek, why can I find all those you just described?
    Maybe you have a diff. version of SRL?

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Help With Converting Your Script To SRL 4!
    By YoHoJo in forum Outdated Tutorials
    Replies: 24
    Last Post: 08-24-2007, 05:58 AM
  2. Converting XP UI into Vista UI
    By botmaster in forum Computer Help and Tutorials
    Replies: 7
    Last Post: 11-18-2006, 06:07 PM

Posting Permissions

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