Results 1 to 17 of 17

Thread: hey there need some help

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

    Default hey there need some help

    i got a hidetanner i am adding a crafting procedure
    i wanna know how i can search for...''first look at the pic''



    see you can choose i wanna make it find and click that text but i cant test it so i didnt do that is that a good way with find and click text procedure or i need to do somthing else?

    pls pm me or post here
    i just wanna know the best way i wont use dtms or bitmaps! too much lag i wanna use text finding.

    hermpie
    ~Hermen

  2. #2
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Text finding will probably lag more than DTM's?
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  3. #3
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    why don't you use coördinates?

    If found the Craft window then Mouse({to the thing to make});

    edit: i think the coller is not changing of the window, so maybe use If FindCollor(...);

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

    Default

    kk but dtm is unpossible maybe a ddtm but i am not gonna make one for al 5/6

    i hate coords maybe i use an array

    is there somthing like outofstr? like inttostr?
    ~Hermen

  5. #5
    Join Date
    Apr 2007
    Location
    Michigan -.-
    Posts
    1,357
    Mentioned
    2 Post(s)
    Quoted
    4 Post(s)

    Default

    yea just try the colors to see if they change otherwise just use coords even tho you hate em just add randomness of like a box around the area you want to click. ie Mouse(your coord,your coord,50,50,True);
    METAL HEAD FOR LIFE!!!

  6. #6
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    yeah or find the black outline and click inside it, but coords would be best and easiest
    Infractions, reputation, reflection, the dark side of scripting, they are.

  7. #7
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    I don't find DTMs to lag that much and why do you think it would be impossible? I think they would be the best. I would also recommend using MouseBox or just Mouse to click because the place where you click doesn't change at all (I think).

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

    Default

    but i thought coords are bad...

    i am really not doing it right evrtime i need to make a seperate procedure if whichcowhide = 'blablblabla'

    i think its line wasting(you got enough ) but it just not needed could some1 help me or got an idea..?

    SCAR Code:
    program HideTannerAndCrafter;{.include srl/srl.scar}

    var
      CactusColor, Thread, Needle, SoftLeather, HardLeather, CowHide, HideText, Loads, Load, Coin, HardLeather, EndSkill, StartSkill, Cash, AlKharidDTM, x, y: Integer;
      AlKharidMP: TDTMPointDef;
      AlKharidSP: array[0..4] of TDTMPointDef;
      AlKharidDTMSkel: TDTM;

    const
      //set this or it wont work
      RockColor = 3359103; //the red/brown rock outside bank(north)(for accurety:))
      RoadColor1 = 7848401; //road color the yellow one
      CraftLeather = false; //is in testing stage
      Whichleather = 'hardleather'; //you can choose on off: hardleather,softleather.

    procedure DeclarePlayers;
    begin

      HowManyPlayers := 1; // Set Number of Players here.
      NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
      CurrentPlayer := 0; // CurrentPlayer - Player That Will Login First

      Players[0].Name := 'username'; //Player Username.
      Players[0].Pass := 'honden'; //Player Password.
      Players[0].Nick := 'ser'; //3 or 4 Letters From The Username Of This Player.
      Players[0].Active := True; //Will You Be Using This Player?
      Players[0].Integers[0] := 5; //How Much Loads To Do?



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

    end;

    {=====================================================================================]
                DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
    [=====================================================================================}


    {===============================================]
        this function finds randoms by:wt-fawaki
    [===============================================}


    function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 9 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;
          9: begin
              if FindFight then
              begin
                RunTo('N', False);
              end;
            end;
        end;

      end;
    end;


    procedure LoadRoadDDtms;
    var
      Tol: integer;
    begin
      Tol := 30;


      AlKharidMP.x := 675;
      AlKharidMP.y := 123;
      AlKharidMP.areasize := 1;
      AlKharidMP.areashape := 0;
      AlKharidMP.color := RoadColor1;
      AlKharidMP.tolerance := 255;

      AlKharidSP[0].x := 671;
      AlKharidSP[0].y := 122;
      AlKharidSP[0].areasize := 1;
      AlKharidSP[0].areashape := 0;
      AlKharidSP[0].color := RoadColor1;
      AlKharidSP[0].tolerance := Tol;

      AlKharidSP[1].x := 681;
      AlKharidSP[1].y := 121;
      AlKharidSP[1].areasize := 1;
      AlKharidSP[1].areashape := 0;
      AlKharidSP[1].color := RoadColor1;
      AlKharidSP[1].tolerance := Tol;

      AlKharidSP[2].x := 674;
      AlKharidSP[2].y := 125;
      AlKharidSP[2].areasize := 1;
      AlKharidSP[2].areashape := 0;
      AlKharidSP[2].color := RoadColor1;
      AlKharidSP[2].tolerance := Tol;

      AlKharidSP[3].x := 680;
      AlKharidSP[3].y := 124;
      AlKharidSP[3].areasize := 1;
      AlKharidSP[3].areashape := 0;
      AlKharidSP[3].color := RoadColor1;
      AlKharidSP[3].tolerance := Tol;

      AlKharidDTMSkel.MainPoint := AlKharidMP;
      AlKharidDTMSkel.SubPoints := AlKharidSP;
      AlKharidDTM := AddDTM(AlKharidDTMSkel);
    end;

    procedure LoadDTMs;
    begin
      {HideText := DTMFromString('78DA633CCFC8C0D00CC458004C94F10890D54' +
           '4849A3A026A761261CE7620AB910835AD04D4DC24C29C9744B8E7' +
           '19116A1E03590DA86A7EA0ABD90B64F51350738C08351731D560B' +
           '8E73A903599809A0340D624026AF6629A83E19EF544F87D139055' +
           '4F40CD6622D2CF66C2691500FDE0200E'); }

      Thread := DTMFromString('78DA63CC63666068656440061B972E65F80FA' +
        '441A2FF81803111A86622AA1A882C8C04D22073A6105053095453' +
        '4D404D2E504D250135A9986EC650530A54D349404D01504D1F11E' +
        '634E157030022330FD3');

      HardLeather := DTMFromString('78DA63F4626260F8C08002CC0D6419B880342' +
        '310FF0702C620A09ABF0C6880118904D20E40353F08A8B103AA79' +
        '47404D2850CD73026AC231DD8CA1C61DA8E60F01357E40354F08A' +
        '8B105AAF948408D2F50CD3FFC6A0056DD111A');

      Needle := DTMFromString('78DA638C666460F8C1800296CD9AC5F01F480' +
        '36518FE0301632890F587010D302291403A02C8FA47404D3C90F5' +
        '05B71A26109D0E643D22A02603C87A4C404D2290F58A801A907BD' +
        'E12501381193E186AC281AC9F04D480C2F92F01357140D677FC6A' +
        '0022B416DC');

      SoftLeather := DTMFromString('78DA6394666260F8C880027C3C3819B880342' +
        '310FF0702460D4C3510591809A465816AFE1150C30F54F38D801A' +
        '41A09A3704D42803D53C23A04613A8E6250135AA4035BF09A8112' +
        '1428D1450CD63FC6A00167F0F5E');

      HideText := DTMFromString('78DA63DCCBC0C0B08101159CF8C1C005A4188' +
        '1F83F103082D4AC63C00A1861F47E20B19E801A90395B8930670B' +
        '7E350056450CFC');

      HardLeather := DTMFromString('78DA633CCCCCC07098910119EC5ABF8EE13F9' +
        '00689FE0702C61D4035BB51D540646124903E0954B393809AB340' +
        '352708A8D909547396809A2D40354708A8390E547311BF1A001AC' +
        'D11E9');

      CowHide := DTMFromString('78DA63E4656060006124B06BE346062E20CD0' +
        '8C4FF81809119C8606740038C48249006A91121A0860F48481150' +
        '2301249809A891041202F8D50000C82E06DB');

    end;

    procedure GetCactusColor;
    var
      Cactus: Integer;
    begin
      if not LoggedIn then Exit;
      Cactus := BitmapFromString2(False, 'aB199078DA1DCCC911C0200' +
        'C43D1960C5E732404FA2F297C2E6F3492C722225F3F488D830E74' +
        '5B18E4F0C208349A5EC6EA13F7EDEF034B2567C3879C2F97391D0' +
        '78DA85F97564C6D3F568');

      CactusColor := AutoColorThis(Cactus, 200, MMX1, MMY1, MMX2, MMY2);
      WriteLn('//CactusColor: ' + IntToStr(CactusColor));
      FreeBitmap(Cactus);
    end;


    procedure WithDrawCraftStuff;
    begin
      if not LoggedIn then Exit;
      if craftleather then
      begin
        LoadDtms;
        writeln('//going to craft tha leather')
          if (bankscreen = false) then
        begin
          openbankfast('akb');

        end else
          depositall;
        if (FindDTM(Needle, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          Mouse(x, y, 5, 5, false);
          if (ChooseOption('1')) then
          begin
            writeln('//whitdrawing needle');
          end else
            writeln('//could find needle');
        end;
        if (FindDTM(Thread, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          Mouse(x, y, 5, 5, false);
          if (ChooseOption('ll')) then
          begin
            writeln('//whitdrawing Thread');
          end else
            writeln('//could find thread');
        end;
        if (WhichLeather = 'HardLeather') then
        begin
          if (FindDTM(HardLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
          begin
            Mouse(x, y, 5, 5, false);
            if (ChooseOption('ll')) then
            begin
              writeln('//whitdrawing Hardleather');
            end else
              writeln('//could find Hardleather');
          end;
        end else
          if (WhichLeather = 'SoftLeather') then
          begin
            if (FindDTM(SoftLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
            begin
              Mouse(x, y, 5, 5, false);
              if (ChooseOption('ll')) then
              begin
                writeln('//whitdrawing Softleather');
              end else
                writeln('//could find Softleather');
            end;
            wait(100 + random(((((50))))));
            closebank;
            freedtm(hardleather);
            freedtm(Softleather);
            freedtm(thread);
            freedtm(Needle);
          end;
      end;
    end;

    procedure SoftLeather1;
    begin
      loaddtms;
      if (FindDTM(Needle, x, y, MIX1, MIY1, MIX2, MIY2)) then
      begin
        MMouse(x, y, 2, 3);
        Mouse(x, y, 3, 2, True);
      end;
      if (FindDTM(SoftLeather, x, y, MIX1, MIY1, MIX2, MIY2)) then
      begin
        MMouse(x, y, 2, 3);
        Mouse(x, y, 3, 2, True);
      end;
    end;

    procedure HardLeather1;
    begin
      loaddtms;
      if (FindDTM(Needle, x, y, MIX1, MIY1, MIX2, MIY2)) then
      begin
        MMouse(x, y, 2, 3);
        Mouse(x, y, 3, 2, True);
      end;
      if (FindDTM(HardLeather, x, y, MIX1, MIY1, MIX2, MIY2)) then
      begin
        MMouse(x, y, 2, 3);
        Mouse(x, y, 3, 2, True);
      end;
    end;

    procedure WhileCrafting;
    begin

    end;

    procedure BankAndWithdraw;
    begin
      loaddtms;
      openbankfast('akb');
      deposit(3, 28, 2);
      if (WhichLeather = 'HardLeather') then
      begin
        if (FindDTM(HardLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          Mouse(x, y, 5, 5, false);
          if (ChooseOption('ll')) then
          begin
            writeln('//whitdrawing Hardleather');
          end else
            writeln('//could find Hardleahter');
        end;
      end else
        if (WhichLeather = 'SoftLeather') then
        begin
          if (FindDTM(SoftLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
          begin
            Mouse(x, y, 5, 5, false);
            if (ChooseOption('ll')) then
            begin
              writeln('//whitdrawing Softleather');
            end else
              writeln('//could find Softleahter');
          end;
          wait(100 + random(((((50))))));
          closebank;
          freedtm(hardleather);
          freedtm(Softleather);
        end;
    end;

    procedure CraftingLeather;
    begin
      WithdrawCraftStuff;
      if (Whichleather = 'hardleather') then
      begin
        hardleather;
      end else
        SoftLeather;
    end;

    function GetSkillStartEnd(Skill: string; Option: boolean): integer;
    begin
      if not LoggedIn then Exit;
      if (Option = True) then
      begin
        GameTab(2);
        StartSkill := GetSkillLevel(Skill);
      end else
      begin
        GameTab(2);
        EndSkill := GetSkillLevel(Skill);
      end;
    end;

    procedure proggy;
    begin
      WriteLn('//////////////////////////////////////////////////////////////');
      WriteLn('//   Thanks for using my HideTanner and Leathercrafter.     //');
      WriteLn('//                post Proggy,s and bugs.                   //');
      WriteLn('//////////////////////////////////////////////////////////////');
      WriteLn('// Ran for ' + (timerunning) + '                                        ');
      WriteLn('// Did ' + inttostr(load) + ' load(s) out of ' + inttostr(Players[CurrentPlayer].Integers[0]) + ' loads set on this player ');
      WriteLn('// You started with crafting level : ' + inttostr(startskill) + '');
      WriteLn('// You ended with crafting level   : ' + inttostr(startskill) + '');
      WriteLn('//////////////////////////////////////////////////////////////');
    end;


    function ToTanRoom: boolean;
    var x, y, tried, Room: integer;
    var WhichAngle: extended;
    begin
      if not LoggedIn then Exit;
      MakeCompass('N')
        HighestAngle;
      Room := DTMFromString('78DA632C606260D06440013D49EE0CFF81342' +
        '310FF0702C65AA01A155435137B131924A16A4000ACC688809A56' +
        'A01A4B026AD602D5181350930D54938DAAA6C1D71C450D0034651' +
        '223');
      repeat
        tried := tried + 1
          if (FindDTMRotated(Room, x, y, MMX1, MMY1, MMX2, MMY2, -pi * 2, pi * 2, 0.2, WhichAngle)) then
        begin
          wait(1000 + random(500));
          Mouse(x, y, 3, 3, True);
          flag;
          break;
        end;
      until (tried = 5)
        freeDTM(room);
    end;

    procedure bankclick;
    begin
      if not LoggedIn then Exit;
      GetCactusColor;
      RadialRoadWalk(CactusColor, 150, 270, 65, -30, +10);
      Flag;
    end;

    procedure ToBank;
    begin
      if not loggedin then exit;
      setrun(true);
      LoadRoadDDtms;
      if (FindDTM(AlKharidDTM, x, y, MMX1, MMY1, MMX2, MMY2)) then
      begin
        MouseFlag(x - 14, y + 10, 1, 1);
        Writeln('//Walking to bank 1.');
        bankclick;
      end;
      FreeDTM(AlKharidDTM);
    end;

    function FindHideText: Boolean;
    var
      LoopInteger: Integer;

    begin
      if not LoggedIn then Exit;
      loaddtms;
      LoopInteger := 0;
      repeat
        Wait(50 + Random(50));
        LoopInteger := LoopInteger + 1
          if (FindDTM(HideText, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          Mouse(x, y - 10, 0, 0, False);
          Result := True;
          break;
        end;
      until (LoopInteger >= 15)
        if (LoopInteger >= 15) then
      begin
        Logout;
        Result := False;
        Exit;
      end;
      FreeDTM(HideText);
    end;


    procedure GetHides;
    var
      LoopInteger: Integer;

    begin
      if not LoggedIn then Exit;
      loaddtms;
      MakeCompass('N')
        HighestAngle;
      GetSkillStartEnd('crafting', True);
      Wait(1 + random(2));
      OpenBankFast('akb');
      Wait(10 + random(5));
      FixBank;
      Deposit(2, 28, 2);
      LoopInteger := 0;
      repeat
        Wait(50 + Random(50));
        LoopInteger := LoopInteger + 1;
        if (FindDTM(CowHide, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          Mouse(x, y, 5, 5, false);
          if (ChooseOption('ll')) then
          begin
            WriteLn('//Taking Hides from Bank.');
            CloseBank;
            findtalk;
            Wait(500 + Random(100));
            Load := load + 1
              break;
          end;
        end;
      until (LoopInteger >= 10)
        if (LoopInteger >= 10) then
      begin
        Logout;
        exit;
      end;
      FreeDTM(CowHide);
    end;


    procedure GetCoinsAndHides;
    var
      LoopInteger: Integer;

    begin
      if not LoggedIn then Exit;
      LoadDTMs;
      MakeCompass('N')
        HighestAngle;
      Cash := ((Players[CurrentPlayer].Integers[0]) * 81);
      Wait(1 + random(2));
      OpenBankFast('akb');
      Wait(10 + random(5));
      FixBank;
      LoopInteger := 0;
      Coin := DTMFromString('78DA637CC5C0C0709001057C3B21CBF01F483' +
        '302F17F2060BC0B64EC6140038C482490BE03244E1250F31348EC' +
        '2742CD19FC6A0078830F4B');
      repeat
        LoopInteger := LoopInteger + 1
          if (FindDTM(Coin, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          Wait(100 + Random(50));
          Mouse(x, y, 0, 0, False);
          Wait(100 + Random(50));
        end;
        if (ChooseOption('X')) then
        begin
          Wait(1000 + random(100));
          WriteLn('//taking money from bank');
          TypeSend(inttostr(cash));
          break;
        end;
        Wait(1000 + random(500));
      until (LoopInteger >= 10)
        if (LoopInteger >= 10) then
      begin
        Logout;
        Exit;
      end;
      LoopInteger := 0;
      repeat
        Wait(50 + Random(50));
        LoopInteger := LoopInteger + 1;
        if (FindDTM(CowHide, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          Mouse(x, y, 5, 5, false);
          if (ChooseOption('ll')) then
          begin
            WriteLn('//Taking Hides from Bank.');
            CloseBank;
            findtalk;
            break;
            Wait(500 + Random(100))
          end;
        end;
      until (LoopInteger >= 10)
        if (LoopInteger >= 10) then
      begin
        Logout;
        exit;
      end;
      FreeDTM(Coin);
      FreeDTM(Cowhide);
    end;



    function WalkingOne: boolean;
    begin
      if not LoggedIn then Exit;
      WriteLn('//To Hide Tanner Walking 1');
      SetRun(True);
      GetCactusColor;
      RadialRoadWalk(CactusColor, 50, 120, 60, 1, -35);
      Flag;
      ToTanRoom;
      if ToTanRoom then
      begin
        WriteLn('//Clicked TanRoom');
        result := true
      end;
    end;

    function WalkingTwo: boolean;
    begin
      if not LoggedIn then Exit;
      WriteLn('//To Hide Tanner Walking 2');
      SetRun(True);
      if FindColorTolerance(x, y, RockColor, MMX1, MMY1, MMX2, MMY2, 25) then
      begin
        Mouse(x + 20, y - 15, 0, 0, true);
        flag;
        wait(1000);
        ToTanRoom;
      end;
      if ToTanRoom then
      begin
        WriteLn('//Clicked TanRoom');
        result := true
      end;
    end;

    function WalkingThree: boolean;
    begin
      if not LoggedIn then Exit;
      WriteLn('//To Hide Tanner Walking 3');
      SetRun(True);
      GetCactusColor;
      RadialRoadWalk(CactusColor, 50, 120, 60, 2, -30);
      Flag;
      ToTanRoom;
      if ToTanRoom then
      begin
        WriteLn('//Clicked TanRoom');
        result := true
      end;
    end;

    procedure ToHideTanner;
    begin
      if not LoggedIn then Exit;
      case Random(3) of
        0: WalkingOne;
        1: WalkingTwo;
        2: WalkingThree;
      end;
    end;


    procedure TalkToEllis;
    var
      LoopInteger: Integer;
    begin
      if not LoggedIn then Exit;
      LoopInteger := 0;
      repeat
        FindTalk;
        LoopInteger := LoopInteger + 1
          Wait(50 + Random(50));
        if (FindColorTolerance(x, y, 5208536, MSX1, MSY1, MSX2, MSY2, 10)) then
        begin
          Mouse(x, y, 6, 6, false);
          Wait(100 + Random(300));
          if ChooseOption('ade') then
            WriteLn('//Trading To Ellis');
          Wait(3000 + Random(1000));
        end;
      until ((FindHideText) or (LoopInteger >= 50))
        if (LoopInteger >= 50) then
      begin
        Logout;
        exit;
      end else
        if ChooseOption('ll') then
          closebank;
    end;


    procedure SetupClient;
    begin
      ActivateClient;
      wait(1);
      DeclarePlayers;
      wait(1);
      LoginPlayer;
    end;

    {====================]
          Main-Loop
    [====================}

    begin
      SetUpSRL;
      SetUpClient;
      repeat
        GetCoinsAndHides;
        repeat
          ToHideTanner;
          TalkToEllis;
          ToBank;
          Gethides;
          proggy;
        until ((Load >= Players[CurrentPlayer].Integers[0]) or (not (LoggedIn)))
          Loads := 0;
        if (Load >= Players[CurrentPlayer].Integers[0]) then
        begin
          logout;
          NextPlayer(True);
        end else
        begin
          logout;
          NextPlayer(False);
        end;
      until (false);
    end.

    i think about
    before all the crafting shit starts
    if whichhideyouwannaleather= 'SoftLeather') then
    begin
    whichhide=Softleather;
    end else
    which hide = balbla;

    because so i just put in find dtm and that stuff which hide and then it will; search for the softleather...
    or somthing like that

    hermpie(pls add me on msn)
    ~Hermen

  9. #9
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    They would be suited to this because the coords of the pictures don't change. Make sure you randomise it a bit though so it doesn't look too bot-like.

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

    Default

    kk maybe use an array and wats mouse box? *looking in include*

    SCAR Code:
    {*******************************************************************************
    procedure MouseBox(xs, ys, xe, ye: Integer; click: Integer);
    By: XxKanexX
    Description: Moves mouse into a random position in the box. Clicks if told to.
    *******************************************************************************}


    procedure MouseBox(xs, ys, xe, ye: Integer; click: Boolean);
    var
      a, b: Integer;
    begin
      a := Max(xs, xe) - Min(xs, xe);
      b := Max(ys, ye) - Min(ys, ye);
      a := Random(a);
      b := Random(b);
      MMouse(xs + a, ys + b, 0, 0);
        case click of
          True: Mouse(xs + a, ys + b, 0, 0, True);
          False: Mouse(xs + a, ys + b, 0, 0, False);
          else Exit;
        end;
    end;

    in which box? the box i set?
    and it will click really randomly?
    ~Hermen

  11. #11
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    It will click a random coord within that box that you set.

  12. #12
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    or just this?

    Mouse(200 + random(50), 200 + random(50), 0, 0, True);

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

    Default

    k thanks for help but pls some add me on msn because i think i did it wrong pls add me and i will tel you what i think thats wrong

    i got 2 procedure evrytime for hardleather and softleather i just think i can put athe 2 procedure in one just look at my script you know what i mean then

    SCAR Code:
    program HideTannerAndCrafter;
    {.include srl/srl.scar}

    var
      CactusColor, Thread, Needle, SoftLeather, HardLeather, CowHide, HideText, Loads, Load, Coin, HardLeather, EndSkill, StartSkill, Cash, AlKharidDTM, x, y: Integer;
      AlKharidMP: TDTMPointDef;
      AlKharidSP: array[0..4] of TDTMPointDef;
      AlKharidDTMSkel: TDTM;

    const
      //set this or it wont work
      RockColor = 3359103; //the red/brown rock outside bank(north)(for accurety:))
      RoadColor1 = 7848401; //road color the yellow one
      CraftLeather = false; //is in testing stage
      Whichleather = 'hardleather'; //you can choose on off: hardleather,softleather.

    procedure DeclarePlayers;
    begin

      HowManyPlayers := 1; // Set Number of Players here.
      NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
      CurrentPlayer := 0; // CurrentPlayer - Player That Will Login First

      Players[0].Name := 'username'; //Player Username.
      Players[0].Pass := 'honden'; //Player Password.
      Players[0].Nick := 'ser'; //3 or 4 Letters From The Username Of This Player.
      Players[0].Active := True; //Will You Be Using This Player?
      Players[0].Integers[0] := 5; //How Much Loads To Do?



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

    end;

    {=====================================================================================]
                DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
    [=====================================================================================}


    {===============================================]
        this function finds randoms by:wt-fawaki
    [===============================================}


    function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 9 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;
          9: begin
              if FindFight then
              begin
                RunTo('N', False);
              end;
            end;
        end;

      end;
    end;


    procedure LoadRoadDDtms;
    var
      Tol: integer;
    begin
      Tol := 30;


      AlKharidMP.x := 675;
      AlKharidMP.y := 123;
      AlKharidMP.areasize := 1;
      AlKharidMP.areashape := 0;
      AlKharidMP.color := RoadColor1;
      AlKharidMP.tolerance := 255;

      AlKharidSP[0].x := 671;
      AlKharidSP[0].y := 122;
      AlKharidSP[0].areasize := 1;
      AlKharidSP[0].areashape := 0;
      AlKharidSP[0].color := RoadColor1;
      AlKharidSP[0].tolerance := Tol;

      AlKharidSP[1].x := 681;
      AlKharidSP[1].y := 121;
      AlKharidSP[1].areasize := 1;
      AlKharidSP[1].areashape := 0;
      AlKharidSP[1].color := RoadColor1;
      AlKharidSP[1].tolerance := Tol;

      AlKharidSP[2].x := 674;
      AlKharidSP[2].y := 125;
      AlKharidSP[2].areasize := 1;
      AlKharidSP[2].areashape := 0;
      AlKharidSP[2].color := RoadColor1;
      AlKharidSP[2].tolerance := Tol;

      AlKharidSP[3].x := 680;
      AlKharidSP[3].y := 124;
      AlKharidSP[3].areasize := 1;
      AlKharidSP[3].areashape := 0;
      AlKharidSP[3].color := RoadColor1;
      AlKharidSP[3].tolerance := Tol;

      AlKharidDTMSkel.MainPoint := AlKharidMP;
      AlKharidDTMSkel.SubPoints := AlKharidSP;
      AlKharidDTM := AddDTM(AlKharidDTMSkel);
    end;

    procedure LoadDTMs;
    begin
      {HideText := DTMFromString('78DA633CCFC8C0D00CC458004C94F10890D54' +
           '4849A3A026A761261CE7620AB910835AD04D4DC24C29C9744B8E7' +
           '19116A1E03590DA86A7EA0ABD90B64F51350738C08351731D560B' +
           '8E73A903599809A0340D624026AF6629A83E19EF544F87D139055' +
           '4F40CD6622D2CF66C2691500FDE0200E'); }

      Thread := DTMFromString('78DA63CC63666068656440061B972E65F80FA' +
        '441A2FF81803111A86622AA1A882C8C04D22073A6105053095453' +
        '4D404D2E504D250135A9986EC650530A54D349404D01504D1F11E' +
        '634E157030022330FD3');

      HardLeather := DTMFromString('78DA63F4626260F8C08002CC0D6419B880342' +
        '310FF0702C620A09ABF0C6880118904D20E40353F08A8B103AA79' +
        '47404D2850CD73026AC231DD8CA1C61DA8E60F01357E40354F08A' +
        '8B105AAF948408D2F50CD3FFC6A0056DD111A');

      Needle := DTMFromString('78DA638C666460F8C1800296CD9AC5F01F480' +
        '36518FE0301632890F587010D302291403A02C8FA47404D3C90F5' +
        '05B71A26109D0E643D22A02603C87A4C404D2290F58A801A907BD' +
        'E12501381193E186AC281AC9F04D480C2F92F01357140D677FC6A' +
        '0022B416DC');

      SoftLeather := DTMFromString('78DA6394666260F8C880027C3C3819B880342' +
        '310FF0702460D4C3510591809A465816AFE1150C30F54F38D801A' +
        '41A09A3704D42803D53C23A04613A8E6250135AA4035BF09A8112' +
        '1428D1450CD63FC6A00167F0F5E');

      HideText := DTMFromString('78DA63DCCBC0C0B08101159CF8C1C005A4188' +
        '1F83F103082D4AC63C00A1861F47E20B19E801A90395B8930670B' +
        '7E350056450CFC');

      HardLeather := DTMFromString('78DA633CCCCCC07098910119EC5ABF8EE13F9' +
        '00689FE0702C61D4035BB51D540646124903E0954B393809AB340' +
        '352708A8D909547396809A2D40354708A8390E547311BF1A001AC' +
        'D11E9');

      CowHide := DTMFromString('78DA63E4656060006124B06BE346062E20CD0' +
        '8C4FF81809119C8606740038C48249006A91121A0860F48481150' +
        '2301249809A891041202F8D50000C82E06DB');

    end;

    procedure GetCactusColor;
    var
      Cactus: Integer;
    begin
      if not LoggedIn then Exit;
      Cactus := BitmapFromString2(False, 'aB199078DA1DCCC911C0200' +
        'C43D1960C5E732404FA2F297C2E6F3492C722225F3F488D830E74' +
        '5B18E4F0C208349A5EC6EA13F7EDEF034B2567C3879C2F97391D0' +
        '78DA85F97564C6D3F568');

      CactusColor := AutoColorThis(Cactus, 200, MMX1, MMY1, MMX2, MMY2);
      WriteLn('//CactusColor: ' + IntToStr(CactusColor));
      FreeBitmap(Cactus);
    end;


    procedure WithDrawCraftStuff;
    begin
      if not LoggedIn then Exit;
      if craftleather then
      begin
        LoadDtms;
        writeln('//going to craft tha leather')
          if (bankscreen = false) then
        begin
          openbankfast('akb');

        end else
          depositall;
        if (FindDTM(Needle, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          Mouse(x, y, 5, 5, false);
          if (ChooseOption('1')) then
          begin
            writeln('//whitdrawing needle');
          end else
            writeln('//could find needle');
        end;
        if (FindDTM(Thread, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          Mouse(x, y, 5, 5, false);
          if (ChooseOption('ll')) then
          begin
            writeln('//whitdrawing Thread');
          end else
            writeln('//could find thread');
        end;
        if (WhichLeather = 'HardLeather') then
        begin
          if (FindDTM(HardLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
          begin
            Mouse(x, y, 5, 5, false);
            if (ChooseOption('ll')) then
            begin
              writeln('//whitdrawing Hardleather');
            end else
              writeln('//could find Hardleather');
          end;
        end else
          if (WhichLeather = 'SoftLeather') then
          begin
            if (FindDTM(SoftLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
            begin
              Mouse(x, y, 5, 5, false);
              if (ChooseOption('ll')) then
              begin
                writeln('//whitdrawing Softleather');
              end else
                writeln('//could find Softleather');
            end;
            wait(100 + random(((((50))))));
            closebank;
            freedtm(hardleather);
            freedtm(Softleather);
            freedtm(thread);
            freedtm(Needle);
          end;
      end;
    end;

    procedure SoftLeather1;
    begin
      loaddtms;
      if (FindDTM(Needle, x, y, MIX1, MIY1, MIX2, MIY2)) then
      begin
        MMouse(x, y, 2, 3);
        Mouse(x, y, 3, 2, True);
      end;
      if (FindDTM(SoftLeather, x, y, MIX1, MIY1, MIX2, MIY2)) then
      begin
        MMouse(x, y, 2, 3);
        Mouse(x, y, 3, 2, True);
      end;
    end;

    procedure HardLeather1;
    begin
      loaddtms;
      if (FindDTM(Needle, x, y, MIX1, MIY1, MIX2, MIY2)) then
      begin
        MMouse(x, y, 2, 3);
        Mouse(x, y, 3, 2, True);
      end;
      if (FindDTM(HardLeather, x, y, MIX1, MIY1, MIX2, MIY2)) then
      begin
        MMouse(x, y, 2, 3);
        Mouse(x, y, 3, 2, True);
      end;
    end;

    procedure WhileCrafting;
    begin

    end;

    procedure BankAndWithdraw;
    begin
      loaddtms;
      openbankfast('akb');
      deposit(3, 28, 2);
      if (WhichLeather = 'HardLeather') then
      begin
        if (FindDTM(HardLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          Mouse(x, y, 5, 5, false);
          if (ChooseOption('ll')) then
          begin
            writeln('//whitdrawing Hardleather');
          end else
            writeln('//could find Hardleahter');
        end;
      end else
        if (WhichLeather = 'SoftLeather') then
        begin
          if (FindDTM(SoftLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
          begin
            Mouse(x, y, 5, 5, false);
            if (ChooseOption('ll')) then
            begin
              writeln('//whitdrawing Softleather');
            end else
              writeln('//could find Softleahter');
          end;
          wait(100 + random(((((50))))));
          closebank;
          freedtm(hardleather);
          freedtm(Softleather);
        end;
    end;

    procedure CraftingLeather;
    begin
      WithdrawCraftStuff;
      if (Whichleather = 'hardleather') then
      begin
        hardleather;
      end else
        SoftLeather;
    end;

    function GetSkillStartEnd(Skill: string; Option: boolean): integer;
    begin
      if not LoggedIn then Exit;
      if (Option = True) then
      begin
        GameTab(2);
        StartSkill := GetSkillLevel(Skill);
      end else
      begin
        GameTab(2);
        EndSkill := GetSkillLevel(Skill);
      end;
    end;

    procedure proggy;
    begin
      WriteLn('//////////////////////////////////////////////////////////////');
      WriteLn('//   Thanks for using my HideTanner and Leathercrafter.     //');
      WriteLn('//                post Proggy,s and bugs.                   //');
      WriteLn('//////////////////////////////////////////////////////////////');
      WriteLn('// Ran for ' + (timerunning) + '                                        ');
      WriteLn('// Did ' + inttostr(load) + ' load(s) out of ' + inttostr(Players[CurrentPlayer].Integers[0]) + ' loads set on this player ');
      WriteLn('// You started with crafting level : ' + inttostr(startskill) + '');
      WriteLn('// You ended with crafting level   : ' + inttostr(startskill) + '');
      WriteLn('//////////////////////////////////////////////////////////////');
    end;


    function ToTanRoom: boolean;
    var x, y, tried, Room: integer;
    var WhichAngle: extended;
    begin
      if not LoggedIn then Exit;
      MakeCompass('N')
        HighestAngle;
      Room := DTMFromString('78DA632C606260D06440013D49EE0CFF81342' +
        '310FF0702C65AA01A155435137B131924A16A4000ACC688809A56' +
        'A01A4B026AD602D5181350930D54938DAAA6C1D71C450D0034651' +
        '223');
      repeat
        tried := tried + 1
          if (FindDTMRotated(Room, x, y, MMX1, MMY1, MMX2, MMY2, -pi * 2, pi * 2, 0.2, WhichAngle)) then
        begin
          wait(1000 + random(500));
          Mouse(x, y, 3, 3, True);
          flag;
          break;
        end;
      until (tried = 5)
        freeDTM(room);
    end;

    procedure bankclick;
    begin
      if not LoggedIn then Exit;
      GetCactusColor;
      RadialRoadWalk(CactusColor, 150, 270, 65, -30, +10);
      Flag;
    end;

    procedure ToBank;
    begin
      if not loggedin then exit;
      setrun(true);
      LoadRoadDDtms;
      if (FindDTM(AlKharidDTM, x, y, MMX1, MMY1, MMX2, MMY2)) then
      begin
        MouseFlag(x - 14, y + 10, 1, 1);
        Writeln('//Walking to bank 1.');
        bankclick;
      end;
      FreeDTM(AlKharidDTM);
    end;

    function FindHideText: Boolean;
    var
      LoopInteger: Integer;

    begin
      if not LoggedIn then Exit;
      loaddtms;
      LoopInteger := 0;
      repeat
        Wait(50 + Random(50));
        LoopInteger := LoopInteger + 1
          if (FindDTM(HideText, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          Mouse(x, y - 10, 0, 0, False);
          Result := True;
          break;
        end;
      until (LoopInteger >= 15)
        if (LoopInteger >= 15) then
      begin
        Logout;
        Result := False;
        Exit;
      end;
      FreeDTM(HideText);
    end;


    procedure GetHides;
    var
      LoopInteger: Integer;

    begin
      if not LoggedIn then Exit;
      loaddtms;
      MakeCompass('N')
        HighestAngle;
      GetSkillStartEnd('crafting', True);
      Wait(1 + random(2));
      OpenBankFast('akb');
      Wait(10 + random(5));
      FixBank;
      Deposit(2, 28, 2);
      LoopInteger := 0;
      repeat
        Wait(50 + Random(50));
        LoopInteger := LoopInteger + 1;
        if (FindDTM(CowHide, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          Mouse(x, y, 5, 5, false);
          if (ChooseOption('ll')) then
          begin
            WriteLn('//Taking Hides from Bank.');
            CloseBank;
            findtalk;
            Wait(500 + Random(100));
            Load := load + 1
              break;
          end;
        end;
      until (LoopInteger >= 10)
        if (LoopInteger >= 10) then
      begin
        Logout;
        exit;
      end;
      FreeDTM(CowHide);
    end;


    procedure GetCoinsAndHides;
    var
      LoopInteger: Integer;

    begin
      if not LoggedIn then Exit;
      LoadDTMs;
      MakeCompass('N')
        HighestAngle;
      Cash := ((Players[CurrentPlayer].Integers[0]) * 81);
      Wait(1 + random(2));
      OpenBankFast('akb');
      Wait(10 + random(5));
      FixBank;
      LoopInteger := 0;
      Coin := DTMFromString('78DA637CC5C0C0709001057C3B21CBF01F483' +
        '302F17F2060BC0B64EC6140038C482490BE03244E1250F31348EC' +
        '2742CD19FC6A0078830F4B');
      repeat
        LoopInteger := LoopInteger + 1
          if (FindDTM(Coin, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          Wait(100 + Random(50));
          Mouse(x, y, 0, 0, False);
          Wait(100 + Random(50));
        end;
        if (ChooseOption('X')) then
        begin
          Wait(1000 + random(100));
          WriteLn('//taking money from bank');
          TypeSend(inttostr(cash));
          break;
        end;
        Wait(1000 + random(500));
      until (LoopInteger >= 10)
        if (LoopInteger >= 10) then
      begin
        Logout;
        Exit;
      end;
      LoopInteger := 0;
      repeat
        Wait(50 + Random(50));
        LoopInteger := LoopInteger + 1;
        if (FindDTM(CowHide, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          Mouse(x, y, 5, 5, false);
          if (ChooseOption('ll')) then
          begin
            WriteLn('//Taking Hides from Bank.');
            CloseBank;
            findtalk;
            break;
            Wait(500 + Random(100))
          end;
        end;
      until (LoopInteger >= 10)
        if (LoopInteger >= 10) then
      begin
        Logout;
        exit;
      end;
      FreeDTM(Coin);
      FreeDTM(Cowhide);
    end;



    function WalkingOne: boolean;
    begin
      if not LoggedIn then Exit;
      WriteLn('//To Hide Tanner Walking 1');
      SetRun(True);
      GetCactusColor;
      RadialRoadWalk(CactusColor, 50, 120, 60, 1, -35);
      Flag;
      ToTanRoom;
      if ToTanRoom then
      begin
        WriteLn('//Clicked TanRoom');
        result := true
      end;
    end;

    function WalkingTwo: boolean;
    begin
      if not LoggedIn then Exit;
      WriteLn('//To Hide Tanner Walking 2');
      SetRun(True);
      if FindColorTolerance(x, y, RockColor, MMX1, MMY1, MMX2, MMY2, 25) then
      begin
        Mouse(x + 20, y - 15, 0, 0, true);
        flag;
        wait(1000);
        ToTanRoom;
      end;
      if ToTanRoom then
      begin
        WriteLn('//Clicked TanRoom');
        result := true
      end;
    end;

    function WalkingThree: boolean;
    begin
      if not LoggedIn then Exit;
      WriteLn('//To Hide Tanner Walking 3');
      SetRun(True);
      GetCactusColor;
      RadialRoadWalk(CactusColor, 50, 120, 60, 2, -30);
      Flag;
      ToTanRoom;
      if ToTanRoom then
      begin
        WriteLn('//Clicked TanRoom');
        result := true
      end;
    end;

    procedure ToHideTanner;
    begin
      if not LoggedIn then Exit;
      case Random(3) of
        0: WalkingOne;
        1: WalkingTwo;
        2: WalkingThree;
      end;
    end;


    procedure TalkToEllis;
    var
      LoopInteger: Integer;
    begin
      if not LoggedIn then Exit;
      LoopInteger := 0;
      repeat
        FindTalk;
        LoopInteger := LoopInteger + 1
          Wait(50 + Random(50));
        if (FindColorTolerance(x, y, 5208536, MSX1, MSY1, MSX2, MSY2, 10)) then
        begin
          Mouse(x, y, 6, 6, false);
          Wait(100 + Random(300));
          if ChooseOption('ade') then
            WriteLn('//Trading To Ellis');
          Wait(3000 + Random(1000));
        end;
      until ((FindHideText) or (LoopInteger >= 50))
        if (LoopInteger >= 50) then
      begin
        Logout;
        exit;
      end else
        if ChooseOption('ll') then
          closebank;
    end;


    procedure SetupClient;
    begin
      ActivateClient;
      wait(1);
      DeclarePlayers;
      wait(1);
      LoginPlayer;
    end;

    {====================]
          Main-Loop
    [====================}

    begin
      SetUpSRL;
      SetUpClient;
      repeat
        GetCoinsAndHides;
        repeat
          ToHideTanner;
          TalkToEllis;
          ToBank;
          Gethides;
          proggy;
        until ((Load >= Players[CurrentPlayer].Integers[0]) or (not (LoggedIn)))
          Loads := 0;
        if (Load >= Players[CurrentPlayer].Integers[0]) then
        begin
          logout;
          NextPlayer(True);
        end else
        begin
          logout;
          NextPlayer(False);
        end;
      until (false);
    end.

    hermpie(add me!!)
    ~Hermen

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

    Default

    This is what I would use:
    SCAR Code:
    Procedure ClickCraft(CraftWhat: String);
    var
     a,b,W,H,S: Integer;
    begin
      CraftWhat:= Lowercase(CraftWhat)
      CraftWhat:= Capitalize(CraftWhat)
      S:= CreateBitmapMaskFromText(CraftWhat,NPCChars)
      If(FindBitmapMaskTolerance(S,a,b,0,0,750,500,3,3))then
      begin
        GetBitmapSize(S,W,H)
        Mouse(a+2,b+1,W-4,H-4,true)
        Writeln('Crafting '+CraftWhat)
      end else
      begin
        Writeln('Did not find what you wanted to craft')
      end;
      FreeBitmap(S)
    end;
    If you have typed in a valid thing to craft (Boots, for example), it clicks that text.
    If you have typed something invalid, it doesn't do anything.

    -Knives

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

    Default

    maybe try it thanks
    ~Hermen

  16. #16
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    13,692
    Mentioned
    146 Post(s)
    Quoted
    130 Post(s)

    Default

    SCAR Code:
    Procedure DeclareCraftingPointsAndBitMaps;

    Begin
      CraftingPoint[1].X := 70;
      CraftingPoint[1].Y := 110;
      CraftingPoint[2].X := 193;
      CraftingPoint[2].Y := 107;
      CraftingPoint[3].X := 313;
      CraftingPoint[3].Y := 109;
      CraftingPoint[4].X := 448;
      CraftingPoint[4].Y := 107;
      CraftingPoint[5].X := 127;
      CraftingPoint[5].Y := 246;
      CraftingPoint[6].X := 256;
      CraftingPoint[6].Y := 243;
      CraftingPoint[7].X := 385;
      CraftingPoint[7].Y := 240;

      HideMask := BitmapFromString(11, 9, 'z78DA73730301030A801BC' +
           '5268C9A437F7368611A04000042337591');

      ThreadMask := BitmapFromString(5, 5, 'z78DA33300001373030C0' +
           '01F0CBE252E38601F0EB45560300527D2041');

      NeedleMask := BitmapFromString(5, 10, 'z78DA73730301030CE086' +
           '0470C9122F3ED475410000404F3E71');

      SoftCowHide := BitmapFromString(11, 9, 'z78DA337131B134B034' +
           'C1455A9A18A391C6C66E06062824A926609A83DF04FCE64048624' +
           'CC06F1AA9268C92982109160100E0B57FC4');

      CoifMask := BitmapFromString(12, 11, 'z78DA73734300032A01B7' +
           '2165E6E03167309B3612FC886C1A00F3FA9BB9');

      ArmourMask := BitmapFromString(23, 7, 'z78DA33300001373030182' +
           '08069BB1B0E405D1BC9339F5A2E190CE6D022DEC9339376299098' +
           'F8A5451AA35D0AC40400FDC9C181');
      BootsMask := BitmapFromString(25, 9, 'z78DA3330C007DCF00203' +
           'BA0362ECA5A76B293799BA6EA3967B8801F4F41DA936E272ED40A' +
           '55B625C3B78DC33D8C26AF0BB0A0081100EB8');
      ChapsMask := BitmapFromString(3, 29, 'z78DA333040003730C064' +
           '932A3B9C44069BDF69671A00810570D5');
      GlovesMask := BitmapFromString(9, 9, 'z78DA333040076E606080' +
           '17B821014C5DC49B80CB34E2F5E2B711BFC9F86D244F961666522' +
           'E0B0074ED6571');
      VambracesMask := BitmapFromString(10, 7, 'z78DA73730301030A' +
           '801B0620CF044CD3C8330197ABF09BE946A570203EAC883701001' +
           '6325785');
    End;

    SCAR Code:
    Procedure ClickHideItem(TheItem:String);
    Var
       I : Byte;
    Begin

      Case LowerCase(TheItem) Of
        'armour'    : I := 1;
        'gloves'    : I := 2;
        'boots'     : I := 3;
        'vambraces' : I := 4;
        'chaps'     : I := 5;
        'coif'      : I := 6;
        'cowl'      : I := 7;
      End;
      WriteLn('I is ' + IntToStr(I));
      X := CraftingPoint[I].X;
      Y := CraftingPoint[I].Y;

      If SoftHideCraftingScreen(1) Then Mouse(x, y, 5, 5, False);
        Wait(100+Random(50));
      ChooseOption(x,y,'ake 1');
    End;

    Masks are for inventory, coords are for screen.

    Don't be too lazy, something like this should do it.
    EDIT: I know it's old code but who cares. xD



    The best way to contact me is by email, which you can find on my website: http://wizzup.org
    I also get email notifications of private messages, though.

    Simba (on Twitter | Group on Villavu | Website | Stable/Unstable releases
    Documentation | Source | Simba Bug Tracker on Github and Villavu )


    My (Blog | Website)

  17. #17
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    omfg whats wrong with you people? Heard of such a thing called SRL?

    "Result := FindText(Tx, Ty, 'would you like', UpChars, MSX1, MSY1, MSX2, MSY2);" Works perfectly without any idea of lagg!

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
  •