Results 1 to 12 of 12

Thread: Hasn't solved sandwich or frog

  1. #1
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default Hasn't solved sandwich or frog

    Can anyone see why this script hardly solves any randoms, and don't say "did you set your nick right?" because the answer to that question is YES

    SCAR Code:
    //////////////////////////////////////////////////////////
    /////////////////////////////////////////////////////////
    //                     V.E.M                          //
    //                    RK STYLE                       //
    //                  BY RKROXPUNK                    //
    //                                                 //
    ////////////////////////////////////////////////////
    ///////////////////////////////////////////////////
    //HERE IS A NICE BIG FAT TUTORIAL ON HOW TO USE THIS SCRIPT!
    //Well first off we scroll down a little tiny bit until we find the word in bold "const"
    //Now go down to loadz and set how many loads you want each player to do by replacing the number only.
    //For example. If you put 3 it will (hopefully) mine and bank 3 loads. an example of how the line should looks is "Loadz = 3;" without the ""
    //Below Loadz is the word "UseAntiBan" now leave this on true. this will mean it will do random mouse movements and xp checks etc.
    //Below that we have "AntiBanAmount" the number determins how often it does the AntiBan. 1 will do it a lot and 5 won't do it much at all. a good number is 3.
    //Next we have WaitTime. This is used as a backup. say you set it to 7000. if it doesn't find Manage in the chatbox after 7000 milliseconds AKA 7 seconds....
    //.....It will click on the rock again.
    //Then we have RunDirec. this simply means the Direction ur character will run when it is in a fight. N = North S = South E = East and W = West. Make sure....
    //.....You have the ' ' around ur letter or else it won't work. if your letter isn't pink then you did it wrong.
    //Now the next thing we got is SetChatz. If you set this to true it will put public chat on Hide. this will mean it will find the text 'Manage' in the chatbox....
    //...Quicker and will click on the next ore faster but it won't respond to someone asking what ur mining lvl is etc. Use this if you're in a busy world. Setting it to False......
    //.....will leave ur chat settings the same as it is when it logs in.
    //Then we have another const heading in bold. under this we have different ores and their colours. If this is the first time you've run the script or first time in a few.....
    //Days then you should set them again manually. you can do this by finding the ore and then click on thing that looks like an eyedropper at the top of scar.....
    //Your screen should freeze and now move the mouse to the rock and click on it. Now in the rectangle box at the bottom of the screen (debug Box) you should see......
    //Something like this Color Picked: 15720334 at (412, 35) (your numbers will be different) ignore the 2 numbers in brackets and copy the big long number.......
    //Now go to the 2nd const heading and find the ore that you picked the colour of. e.g. if you clicked on an iron ore after u clicked on the eye dropper you would......
    //Go down to IronColor = and replace the big long number with the one you just copied in the bottom of SCAR.
    //Scroll down a little bit until you find this heading "procedure DeclarePlayers;"now below the begin you should see HowManyPlayers := with a number next to it......
    //....Replace that number with how many players you are using .
    //If you are using 2 players then find the things that look like this Players[0] and your highest number inside the [] should be 1. So there should be 2 Player Setup.....
    //....Bits. One should look like Players[0] and the other should look like Players[1]. If there is another one left over that is higher than 1 then delete that whole player setup...
    // for example if you found Players[2 (or higher than 2)] you should delete them.
    //On the Contrary if your HowManyPlayers was 4 for example and you only found 3 player setups all you would simply have to do is copy a player setup and paste it. then change......
    //....The Players[0] number in the one you just pasted to [3]. How to setup your players has been made Clear enough below.
    //So once you have done all that drag the crosshair at the top of SCAR onto the Runescape gamescreen and a Box should shrink onto the Runescape game window. then hit play.....
    //Your script should now be running. If you need any more help PM me at srl-forums.com my name is rkroxpunk with ur problem and I will be happy to help
    //Don't forget you can't put this script anywhere else without my permission and post all progress reports and tell me what it does wrong
    //-RK
    //If you have problems like it won't mine it just sits there then redo the ore color


    //I'd like to thank everyone at SRL. I had a million and one questions and they were all answered
    //special thanks to Pentti and Boreas with help with a lot of errors.

    program VEMRKSTYLE;
    {.include SRL/SRL.scar}
    {.include srl\srl\skill\Mining.scar}
    {.include SRL\SRL\Misc\Trade.scar}

    ////////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////////
    //                  LOGIN AND SETUP                     //
    /////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////
    var
    Loads: Integer;
    Loads2: Integer;
    PickEquip: Boolean;
    OreMined: Integer;
    OreDTM: integer;
    GasAvoided: Integer;
    Stuff: Integer;
    Talked: Integer;
    MineMax: Integer;
    Ax,Ay: Integer;
    RockBMP: Integer;
    GemDTM: Integer;

    const
    VersionNumber = '2'; //Leave this
    Loadz = 6; //How Many Loads.
    UseAntiBan = True; //AntiBan will be used if set to true.
    AntiBanAmount = 3; //0 is lots of antiban, 1 less, 2 even more less, etc.
    WaitTime = 20000; //How long before it clicks again
    RunDirec = 'N'; //Direction you want to run in if find smoking rock
    SetChatz = False; //If set to True it will put pub chat on Hide. This will mean it will know if it's mined the ore better(continued next line)
    //but it won't respond if someone asks mineing lvl etc. I suggest set this to true if you're in a crowded world with lots of talking.

    //If the mouse does nothing when it gets up to Mining set these manually
    const
    CopperColor = 3231083;
    TinColor = 8553100;
    ClayColor = 4553880;
    IronColor = 2305614;
    SilverColor = 12434885;
    CoalColor = 2834753;
    GoldColor = 1881051;
    MithrilColor = 7359564;
    AdamantColor = 6322272;
    RuniteColor = 0;

    //Names of Ores you can use in String1:
    //copper
    //tin
    //clay
    //iron
    //silver
    //coal
    //gold
    //mithril
    //adamant
    //runite

    procedure DeclarePlayers;

    begin
    HowManyPlayers := 3; // Set Number of Players here.
    NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
    CurrentPlayer := 0;
    EquipPick := Players[CurrentPlayer].Boolean1;

    Players[0].Name := ''; //Username
    Players[0].Pass := ''; //Password
    Players[0].Nick := ''; //3 letters of your user name. e.g. udhskjs could be hsk or kjs. If the letter is the first letter of a word or after a space make it capital.
    Players[0].String1 := 'Tin'; //What ore you want to mine. there is a list of names above. starting from about line 44
    Players[0].Loc := 'Loc1';
    Players[0].Skill := 'Mining'; //What skill you want the genie to give you xp on if you get a lamp
    Players[0].Boolean1 := False; // Is your pick equipped. true = yes, false =  no
    Players[0].Active := True;

    Players[1].Name := ''; //Username
    Players[1].Pass := ''; //Password
    Players[1].Nick := ''; //3 letters of your user name. e.g. udhskjs could be hsk or kjs. If the letter is the first letter of a word or after a space make it capital.
    Players[1].String1 := 'Tin'; //What ore you want to mine. there is a list of names above. starting from about line 44
    Players[1].Loc := 'Loc1';
    Players[1].Skill := 'Mining'; //What skill you want the genie to give you xp on if you get a lamp
    Players[1].Boolean1 := False; // Is your pick equipped. true = yes, false =  no
    Players[1].Active := True;

    Players[2].Name := ''; //Username
    Players[2].Pass := ''; //Password
    Players[2].Nick := ''; //3 letters of your user name. e.g. udhskjs could be hsk or kjs. If the letter is the first letter of a word or after a space make it capital.
    Players[2].String1 := 'Copper'; //What ore you want to mine. there is a list of names above. starting from about line 44
    Players[2].Loc := 'Loc1';
    Players[2].Skill := 'Mining'; //What skill you want the genie to give you xp on if you get a lamp
    Players[2].Boolean1 := False; // Is your pick equipped. true = yes, false =  no
    Players[2].Active := True;

    writeln(inttostr(HowManyPlayers) + ' Players');
    end;

    ////////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////////
    //                     SIG!                             //
    /////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////

    procedure Sig;
    begin
    Writeln('[]----------M-I-N-I-N-G P-O-W-E-R!----------[]');
    Writeln('[]------------------BY----------------------[]');
    Writeln('[]------------------RK----------------------[]');
    Writeln('           ___           ___                  ');
    Writeln('          /  /\         /__/|                 ');
    Writeln('         /  /::\       |  |:|                 ');
    Writeln('        /  /:/\:\      |  |:|                 ');
    Writeln('       /  /:/~/:/    __|  |:|                 ');
    Writeln('      /__/:/ /:/___ /__/\_|:|____             ');
    Writeln('      \  \:\/:::::/ \  \:\/:::::/             ');
    Writeln('       \  \::/~~~~   \  \::/~~~~              ');
    Writeln('        \  \:\        \  \:\                  ');
    Writeln('         \  \:\        \  \:\                 ');
    Writeln('          \__\/         \__\/                 ');
    Writeln('[]----------M-I-N-I-N-G P-O-W-E-R!----------[]');
    Writeln('[]------------------BY----------------------[]');
    Writeln('[]------------------RK----------------------[]');
    end;

    ////////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////////
    //                  PROGGY!                             //
    /////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////

    procedure Report;
    begin
    ClearDebug;
    Writeln('[]----------THE NOOBIEST PROGGY!----------[]');
    Writeln('[]------------------By RK-----------------[]');
    Writeln('           Worked For : ' + ScriptTime2(2))
    Writeln('             Mined :' + IntToStr(Loads2) + ' Loads');
    WriteLn('       Ores Mined: ' + IntToStr(OreMined));
    WriteLn('        Gasses Avoided : ' + IntToStr(GasAvoided));
    WriteLn('            Talked : ' + IntToStr(talked));
    Writeln('[]------------------By RK-----------------[]');
    Writeln('[]----------THE NOOBIEST PROGGY!----------[]');
    end;

    /////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////
    //                                                       //
    //              RANDOMS AND ANTIBAN                     //
    //                                                     //
    ////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////

    procedure AntiRandoms;
    begin
    FindTalk;
    begin
      if ( not ( LoggedIn )) then Exit;
      RC;
      if ( not ( UseBoxSolver )) then
        if FindNewBox and
         not ( GambleNewBox ) then
         begin
           Players[CurrentPlayer].loc := 'NewBox';
           Logout;
           Exit;
         end;
      if InBlack then
      begin
        Players[CurrentPlayer].loc := 'InBlack';
        Logout;
        Exit;
      end;
      Wait(1);
      if NoGameTab then
      begin
        Players[CurrentPlayer].loc := 'GameTab';
        Logout;
        Exit;
      end;
      FindNormalRandoms;
      Wait(1);
    end;
    if (FindFight = true) then
    begin
    RunAwayDirection(RunDirec);
    Wait(10000 + random(2000));
    RunBack;
    end;
    SRLRandomsReport;
    end;

    Function FindFastRandoms: Boolean;//WT-FAKAWI
    var
      i: Integer;
    begin
      for i:=1 to 8 do
      begin
        case I of
         1:  If FindDead then
               Result := True;
         2:  If FindMod then
               Result := True;
         3:  If FindMime then
               Result := True;
         4:  If FindMaze then
               Result := True;
         5:  If FindQuiz then
               Result := True;
         6:  If FindDemon then
               Result := True;
         7: begin
               if NoGameTab then
               begin
                 Result := True;
                 Players[CurrentPlayer].loc := 'No GameTab';
                 Logout;
                 Exit;
               end;
             end;
         8: begin
               if InBlack then
               begin
                 Result := True;
                 Players[CurrentPlayer].loc := 'InBlack';
                 Logout;
                 Exit;
               end;
             end;
           8: RC;
        end;
        wait(1);
      end;
    end;

    procedure HandleGas; //thx Sumillion
    var
    TempMouseSpeed, GasTime: Integer;
    begin
    Writeln('Gas found!');
    TempMouseSpeed := MouseSpeed;
    MouseSpeed := 5;
    Mouse(MMCX, MMCY, 5, 5, true);
    MarkTime(GasTime);
    MouseSpeed := TempMouseSpeed;
    while(TimeFromMark(GasTime) < 35000)do
    if(Random(20) > 15)then
      IdleTime(500, 500, 0.4)
    else
      Wait(1000);
    MarkTime(MineMax);
    GasAvoided := GasAvoided + 1;
    ReportVars[3] := ReportVars[3] + 1;
    end;

    procedure MouseAntiBan; //From Yakman.
    begin
    if not (LoggedIn) then Exit;
    case Random(6) of
    0: IdleTime(1000 + Random(350), 500, 1.0);
    1: IdleTime(1000 + Random(350), 1000, 1.0);
    2: IdleTime(1000 + Random(350), 750, 0.5);
    3: SleepAndMoveMouse(2500 + Random(2500));
    4: SleepAndMoveMouse(1500 + Random(1500));
    5: SleepAndMoveMouse(500 + Random(500));
    end
    end;

    procedure MyAntiBan; //From Yakman
    var
    DItem, DBanMe, AntiBanRatio: Integer;
    begin
    if not (LoggedIn) then Exit;
    AntiBanRatio := 25 + (25 * AntiBanAmount);
    DBanMe := Random(AntiBanRatio);
    case DBanMe of
    0: MMouse(Random(MSX2), Random(MSY2), 0, 0);
    1: RandomRClickEvery(2 + Random(13));
    2: HoverSkill('mining', False);
    3: HoverSkill('smithing', False);
    4: RotateEvery(20 + random(10));
    5: LeaveScreenEvery(5 + random(5));
    6: HoverEvery(15 + random(5), 'random');
    7: HoverEvery(15 + random(5), players[currentplayer].skill);
    8: MouseAntiBan;
    9: begin
        DItem := 1 + random(14);
        if (ExistsItem(DItem)) then
          DragItem(DItem, 15 + random(10));
      end
      10: begin
        GameTab(1 + random(12));
        wait(1500 + random(500));
        GameTab(4);
      end;
    end;
    end;

    procedure Reply;
    begin
    if (InChat('ning lv')) or
    (inChat('ning lev')) or
    (InChat('ine lv')) or
    (InChat('ine lev')) or
    (InChat('M lv')) or
    (InChat('M lev')) then
    begin
    TypeSend(IntToStr(GetSkillLevel('mining')))
      Talked := Talked + 1;
    end;
    if (InChat('elt lv') or
    InChat('elt lev') or
    InChat('lting lv') or
    InChat('lting lev')) then
    begin
    TypeSend(IntToStr(GetSkillLevel('Smelting')))
      Talked := Talked + 1;
    end;
    end;

    /////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////
    //                                                       //
    //                   BMP+DTM                            //
    //                                                     //
    ////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////
    procedure LoadBMPDTM;
    begin
    RockBMP := BitmapFromString(3, 2, '3A48413A48413A4841243229' +
       '243229243229');

    OreDTM := DTMFromString('78DA634C636060706740038C48249006A9F12' +
        '3A0261F487813A12688809A1C201141847BA209A84902123104D4' +
        'C4028944026AA2893007E4DE28026A828930071436A104D484128' +
        'E0B0047CA0967');

    GemDTM := DTMFromString('78DA63BCCFC4C0B0989101190889CD03D3305' +
           '1C6CB40358B50D5C064E16AEE02D5CC20A0E60150CD5A026A9E01' +
           'D52C20A0E63950CD72026AAE02D5AC24A006E4AFB904D43C26EC6' +
           '60067070E87');
    end;

    /////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////
    //                                                       //
    //                   BANK FINDING                       //
    //                                                     //
    ////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////

    procedure FindDummy;
    begin
    if not (LoggedIn) then Exit;
    if findsymbol(x, y, 'Training Dummy') then
    begin
    mouse(x, y, 5, 5, true);
    fflag(0);
    if FindSymbol(x, y, 'Bank') then
      Mouse(x, y, 5, 5, true)
        FFlag(0);
    Exit;
    if (not findsymbol(x, y, 'Bank')) then
      Logout;
    ActivateClient;
    NextPlayer(False);
    LoginPlayer;
    Loads := 0
      Exit;
    end else ;
    if (not findsymbol(x, y, 'Training Dummy')) then
    begin
    if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
    RadialRoadWalk(RoadColor, 405, 336, 20, 0, 0);
    end;
    if FindSymbol(x, y, 'bank') then
    begin
    Mouse(x, y, 5, 5, true)
      FFlag(0);
    Exit;
    end else ;
    if (not findsymbol(x, y, 'bank')) then
    begin
    if findsymbol(x, y, 'Training Dummy') then
      Mouse(x, y, 5, 5, true)
        fflag(0);
    if FindSymbol(x, y, 'bank') then
    begin
      Mouse(x, y, 5, 5, true)
        FFlag(0);
      Exit;
    end else
      if (not findsymbol(x, y, 'bank')) then
        Logout;
    ActivateClient;
    NextPlayer(False);
    LoginPlayer;
    Loads := 0
      Exit;
    end;
    end;

    function SymbolFinder(var gx, gy: integer; symbol: string): boolean;
    var bankfindtries, logouttries: integer;
    begin
    if not (LoggedIn) then Exit;
    if (FindSymbol(gx, gy, symbol)) then result := true;
    Mouse(gx, gy, 0, 0, true)
    FFlag(0);
    logouttries := 0;
    Exit;
    if not (FindSymbol(gx, gy, symbol)) then
    begin
    repeat
      bankfindtries := 0;
      repeat
        if (not (FindSymbol(gx, gy, symbol))) then
        begin
          KeyDown(VK_Left)
            Wait(100 + Random(50));
          KeyUp(VK_Left)
            bankfindtries := bankfindtries + 1;
          wait(10);
        end;
      until ((FindSymbol(gx, gy, symbol)) or (bankfindtries > 10));
      if bankfindtries > 10 then
      begin
        logout;
        wait(1000 + random(1000));
        loginplayer;
        logouttries := logouttries + 1;
        repeat
          wait(10);
        until (loggedin);
        mouse(519 + random(31), 214 + random(40), 0, 0, true);
      end;
      FindSymbol(gx, gy, symbol);
      if (logouttries > 3) then
      begin
        FindDummy;
        Exit;
      end;
    until (FindSymbol(gx, gy, symbol));
    if (FindSymbol(gx, gy, symbol)) then result := true;
    Mouse(gx, gy, 0, 0, true)
      FFlag(0);
     Exit;
    end;
    end;



    /////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////
    //                                                       //
    //                   WALKING                            //
    //                                                     //
    ////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////

    procedure BankToMine;
    var TempMouse: integer;
    begin
    activateclient;
    wait(1000 + random(300));
    if not (LoggedIn) then Exit;
    TempMouse := MouseSpeed
    mousespeed := 7 + random(3)
    makecompass('N');
    HighestAngle;
    wait(500 + random(750))
    Setrun(false);
    gametab(4);
    MouseSpeed := TempMouse;
    AntiRandoms;
    FindFastRandoms;
    Roadcolor := FindRoadColor;
    wait(500 + random(200));
    if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
    Roadcolor := FindRoadColor;
    if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
    RadialRoadWalk(RoadColor, 39, 72, 70, 0, 0);
    fflag(0);
    if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
    RadialRoadWalk(RoadColor, 78, 100, 66, 0, 0);
    fflag(0);
    if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
    RadialRoadWalk(RoadColor, 168, 131, 62, 0, 0);
    if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
    RadialRoadWalk(RoadColor, 195, 145, 58, 0, 0);
    if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
    RadialRoadWalk(RoadColor, 191, 157, 62, 0, 0);
    if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
    RadialRoadWalk(RoadColor, 189, 153, 58, 0, 0);
    if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
    RadialRoadWalk(RoadColor, 188, 139, 60, 0, 0);
    if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
    RadialRoadWalk(RoadColor, 195, 148, 60, 0, 0);
    if FindBitmapSpiralTolerance(RockBMP,x,y,595,76,640,111,30) then
    begin
    Mouse(x,y,0,0,true)
    FFlag(0)
      SetRun(true)
      Exit;
    end;
    if (not FindBitmapSpiralTolerance(RockBMP,x,y,595,76,640,111,30)) then
    begin
    RadialRoadWalk(RoadColor, 196, 130, 40, 0, 0);
    if FindBitmapSpiralTolerance(RockBMP,x,y,595,76,640,111,30) then
    begin
      Mouse(x,y,0,0,true)
      FFlag(0)
        SetRun(true)
        Exit;
    end;
    if (not FindBitmapSpiralTolerance(RockBMP,x,y,595,76,640,111,30)) then
    begin
    RadialRoadWalk(RoadColor, 196, 130, 40, 0, 0);
    if FindBitmapSpiralTolerance(RockBMP,x,y,595,76,640,111,30) then
    begin
      Mouse(x,y,0,0,true)
      FFlag(0)
        SetRun(true)
        Gametab(4)
        AntiRandoms;
        FindFastRandoms;
        Exit;
      end;
    end;
    end;
    end;

    procedure MineToBank;
    begin
    if not (LoggedIn) then Exit;
    if (invfull) then
    activateclient;
    wait(3000 + random(300));
    makecompass('N');
    HighestAngle;
    Setrun(false);
    gametab(4);
    Roadcolor := FindRoadColor;
    wait(500 + random(200));
    if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
    RadialRoadWalk(RoadColor, 64, 76, 67, 0, 0);
    repeat
    RadialRoadWalk(RoadColor, 337, 377, 58, 0, 0);
    flag;
    until (findsymbol(x, y, 'Quest'))
    RadialRoadWalk(RoadColor, 332, 370, 51, 0, 0);
    RadialRoadWalk(RoadColor, 336, 366, 50, 0, 0);
    RadialRoadWalk(RoadColor, 321, 346, 30, 0, 0);
    MakeCompass('W')
    RadialRoadWalk(RoadColor, 405, 336, 65, 0, 0);
    RadialRoadWalk(RoadColor, 405, 336, 35, 0, 0);
    AntiRandoms;
    FindFastRandoms;
    end;

    ///////////////////////////////////////////////////////////////
    //////////////////////////////////////////////////////////////
    //                   BANKING                               //
    //                    NOTE:                               //
    //EasyBank is from Wizzup? and yes I understand it fully //
    //////////////////////////////////////////////////////////
    /////////////////////////////////////////////////////////

    function EasyBank: Boolean; //wizzup?'s
    begin
    if not (LoggedIn) then Exit;
    Makecompass('N')
    LowestAngle;
    AntiRandoms;
    FindFastRandoms;
    OpenBankGlass('veb', False, False);
    FFlag(0);
    Wait(1000);
    if BankScreen then
    begin
    Result := True;
    Exit;
    end;
    if OpenBankQuiet('veb') then Result := True;
    end;

    procedure BankOres;
    Var
    TempMouse: integer;
    begin
    if not (LoggedIn) then Exit;
    if FindDTM(OreDTM, x, y, MIx1, MIY1, MIx2, MIY2) then
    begin
    repeat
    TempMouse := MouseSpeed;
    mousespeed := 5 + random(3)
      mouse(x, y, 0, 0, False)
        ChooseOption(x, y, 'Store All');
      FFlag(5);
      wait(500 + random(250));
    until not (FindDTM(OreDTM, x, y, MIx1, MIY1, MIx2, MIY2));
    if (not FindDTM(OreDTM, x, y, MIx1, MIY1, MIx2, MIY2)) then
      Loads := Loads + 1;
    Loads2 := Loads2 + 1;
    if FindDTM(GemDTM, x, y, MIx1, MIY1, MIx2, MIY2) then
    begin
    repeat
    mouse(x, y, 0, 0, False)
        ChooseOption(x, y, 'Store All');
      FFlag(5);
      wait(500 + random(250));
    until not (FindDTM(GemDTM, x, y, MIx1, MIY1, MIx2, MIY2));
    MouseSpeed := TempMouse
    Report;
    FreeDTM(OreDTM);
    FreeDTM(GemDTM);
    end;
    end;
    end;
    /////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////
    //                                                       //
    //        MINEING AND DROPPING(FOR POWERMINER)          //
    //                                                     //
    ////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////

    procedure SetOreColor;
    begin
    case LowerCase(Players[CurrentPlayer].String1) of
    'copper': OreColor1 := CopperColor;
    'tin': OreColor1 := TinColor;
    'clay': OreColor1 := ClayColor;
    'iron': OreColor1 := IronColor;
    'silver': OreColor1 := SilverColor;
    'coal': OreColor1 := CoalColor;
    'gold': OreColor1 := GoldColor;
    'mithril': OreColor1 := MithrilColor;
    'adamant': OreColor1 := AdamantColor;
    'runite': OreColor1 := RuniteColor;
    end;
    end;

    function Mine: Boolean;
    begin
    MakeCompass('N')
    repeat
    if not (LoggedIn) then Exit;
    wait(5 + random(5));
    if FindObj(x, y, 'Mine', OreColor1, 1) then
    begin
      wait(5 + random(5));
      Mouse(x, y, 0, 0, true);
      OreMined := OreMined + 1;
      wait(300);
      Stuff := Stuff + 1
        Break;
    end;
    until (false)
    end;

    procedure UntilMined(Time: Integer);
    var
    timer: integer;
    begin
    if not (LoggedIn) then Exit;
    Status('waiting for pick swing')
    FindFastRandoms;
    AntiRandoms;
    Reply;
    wait(700 + random(200));
    if FindText(x, y, 'wing you', smallchars, 18, 415, 477, 433) then
    begin
    marktime(Timer);
    repeat
      if not (LoggedIn) then Exit;
      wait(700 + random(900));
      FindFastRandoms;
      AntiRandoms;
      FindPick;
    if(GasCheck(Ax, Ay))then
      HandleGas;
      Reply;
    until FindText(x, y, 'anage', smallchars, 20, 401, 477, 433) or
      (timefrommark(Timer) > WaitTime);
    end;
    end;


    function CoordsToInvSpot(gx, gy: integer): integer; //Help here from Boreas
    var col, row: integer;
    begin
    if ((gx > 569) and (gx < 600)) then col := 1;
    wait(20 + random(7));
    if ((gx > 611) and (gx < 642)) then col := 2;
    wait(20 + random(7));
    if ((gx > 653) and (gx < 684)) then col := 3;
    wait(20 + random(7));
    if ((gx > 695) and (gx < 723)) then col := 4;
    wait(20 + random(7));
    if ((gy > 213) and (gy < 244)) then row := 1;
    wait(20 + random(7));
    if ((gy > 249) and (gy < 280)) then row := 2;
    wait(20 + random(7));
    if ((gy > 285) and (gy < 316)) then row := 3;
    wait(20 + random(7));
    if ((gy > 322) and (gy < 352)) then row := 4;
    wait(20 + random(7));
    if ((gy > 357) and (gy < 387)) then row := 5;
    wait(20 + random(7));
    if ((gy > 393) and (gy < 424)) then row := 6;
    wait(20 + random(7));
    if ((gy > 429) and (gy < 459)) then row := 7;

    result := ((row - 1) * 4) + col;
    end;

    procedure Drop; //Help here from Boreas
    begin
    if not (LoggedIn) then Exit;
    if (invfull) then
    begin
    GameTab(4);
    repeat
      if FindDTM(OreDTM, x, y, MIx1, MIY1, MIx2, MIY2) then
        DropItem(coordstoinvspot(x, y));
      FindFastRandoms;
      AntiRandoms;
      Reply;
      wait(200 + random(200));
    until not (FindDTM(OreDTM, x, y, MIx1, MIY1, MIx2, MIY2));
    freedtm(OreDTM);
    Loads := Loads + 1;
    Loads2 := Loads2 + 1;
    Report;
    end;
    end;
    /////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////
    //                                                       //
    //                       Chats                          //
    //                                                     //
    ////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////
    procedure SetChats;
    var
    TempMouse: integer;
    begin
    TempMouse := MouseSpeed
    MouseSpeed := 7 + random(3)
    if SetChatz = True then
    SetChat('hide', 1);
    SetChat('friends', 2);
    SetChat('on', 3);
    if SetChatz = False then
    MouseSpeed := TempMouse;
    Exit;
    end;
    /////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////
    //                                                       //
    //                    MAIN LOOP                         //
    //                                                     //
    ////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////
    begin
    ClearDebug;
    SetupSRL;
    SetupSRLMining;
    DeclarePlayers;
    Sig;
    wait(3000)
    Activateclient;
    wait(1000);
    LoginPlayer;
    wait(1000);
    FindPickHeadColor;
    SetChats;
    Players[CurrentPlayer].Level[15] := GetSkillLevel('mining');
    repeat
    repeat
      LoadBMPDTM;
      SetOreColor;
      Gametab(4);
      BankToMine;
      FreeBitmap(RockBMP)
      wait(2000 + random(1500))
        repeat
        Mine;
        FindPick;
    if(GasCheck(Ax, Ay))then
        HandleGas;
        FindFastRandoms;
        Reply;
        UntilMined(WaitTime);
        if (Stuff >= 5 + random(7)) then
        begin
          MyAntiBan;
          MouseAntiBan;
          Reply;
          Stuff := 0;
          Report;
        end;
      until (InvFull)
        if (InvFull) then
      begin
        MineToBank;
        wait(500 + random(300))
          SymbolFinder(x, y, 'Bank')
          wait(5500 + random(2000));
        EasyBank;
        Wait(10 + random(500))
          BankOres;
        Wait(10 + random(500))
          CloseBank;
      end;
    until (Loads = Loadz);
    if (Loads = Loadz) then
    begin
      Logout;
      Nextplayer(true);
      Loads := 0
        MakeCompass('N');
      HighestAngle;
      FindPickHeadColor;
      SetChats;
    end;
    until (false);
    end.
    Sleeping...

  2. #2
    Join Date
    Jun 2006
    Posts
    3,861
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Have you ever run the SetupSRL script? It's located in the SRL folder, if you haven't. The setup for the randoms is all there.

  3. #3
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default

    yes.... actually maybe not on my VM thx I'll check it out

    EDIT: nope already had it set up
    Sleeping...

  4. #4
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Hehe, Its probably because you didn't put anywhere Solvefrog; or SolveSandWich;

  5. #5
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default

    err isn't that findtalk??? if not wat other ones have I missed out. are all the ones in the SRL antirandoms folder the ones not included in the common procedures?!
    Sleeping...

  6. #6
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by rkroxpunk View Post
    err isn't that findtalk??? if not wat other ones have I missed out. are all the ones in the SRL antirandoms folder the ones not included in the common procedures?!
    FindNormalRandoms; or FindTalk; doesn't solve tohse randoms. So you need to call Solvefrog; and SolveSandWich; in your script if you want it to solve them.

  7. #7
    ronny.m.p Guest

    Default

    Yep but the sandwich solver dosent always work.

  8. #8
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default

    ok thx lol time to add....yay thx pentti
    err common and Box are already solved right?
    P.S. I hate Eminem
    Sleeping...

  9. #9
    ronny.m.p Guest

    Default

    In FindNormalRandoms and FindTalk yes.

  10. #10
    Join Date
    Feb 2007
    Location
    USA
    Posts
    667
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    err, yea I agree with ronny. I know i've seen my script solve both those, and I only called FindNormalRandoms.

  11. #11
    Join Date
    Mar 2007
    Location
    Under a rock
    Posts
    813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    In my randoms, i add all this stuff into it:

    UseBoxSolver := True
    UseCerterSolver := True
    UseSandwichSolver :=True
    FindMod;
    FindMime;
    FindDead;
    FindMaze;
    DwarfItem;
    FindDemon;
    Solvepinball;
    FindScapeRune;

    nd there are other things I think, but i cant remember them atm.

  12. #12
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default

    hmmm ok thx rune but aren't a few of them in FindFast anyway?

    EDIT: Also my Findfrog thing I used finds people wearing addy as well. and always screws up script what do u guys use?
    Sleeping...

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
  •