Page 2 of 3 FirstFirst 123 LastLast
Results 26 to 50 of 70

Thread: Barbarian Village Power Fisher![07Scape]

  1. #26
    Join Date
    Feb 2012
    Posts
    107
    Mentioned
    0 Post(s)
    Quoted
    21 Post(s)

    Default

    Could you make it so it ignores the whole top row. I usually bring feathers and 3 rods so if 1 gets lost theres still 1-2 left.

  2. #27
    Join Date
    Mar 2013
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Anyone having any success with this script so far? Really want to power lvl so I can get into fishing guild =]

  3. #28
    Join Date
    Dec 2011
    Location
    Lubbock, Texas
    Posts
    225
    Mentioned
    3 Post(s)
    Quoted
    93 Post(s)

    Default

    Quote Originally Posted by spin3x View Post
    Could you make it so it ignores the whole top row. I usually bring feathers and 3 rods so if 1 gets lost theres still 1-2 left.
    You can actually do this yourself so I won't have to mess with the script. It's really simple.

    In the drop function on to for loop it says 3 to 28. just change the 3 to the number "5". this will fix your problem!

  4. #29
    Join Date
    Dec 2011
    Location
    Lubbock, Texas
    Posts
    225
    Mentioned
    3 Post(s)
    Quoted
    93 Post(s)

    Default

    Okay version 1.01 is now uploaded. It should speed up the script. It should fix the drop problems and the problems detecting the inventory full! the script will still be pretty slow but most human fishers are pretty slow. The changing spot is not fixed as to my knowledge there is no problem as it works for me. I will add a failsafe for that this weekend though along with adding smart compatibility!

  5. #30
    Join Date
    Mar 2013
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    working great so far thanks for the hard work!

    only kink that ive noticed is when someone walks by with a blue magic hat on, the mouse will hover over it and click on it once instead of the water
    Last edited by tetro; 03-27-2013 at 02:33 AM.

  6. #31
    Join Date
    Dec 2011
    Location
    Lubbock, Texas
    Posts
    225
    Mentioned
    3 Post(s)
    Quoted
    93 Post(s)

    Default

    Quote Originally Posted by tetro View Post
    working great so far thanks for the hard work!

    only kink that ive noticed is when someone walks by with a blue magic hat on, the mouse will hover over it and click on it once instead of the water
    it clicks? makes some sort of sense that it might hover but should not click on them. I will have to work on that for the 1.1 update this weekend. Is your script changing spots successfully?

  7. #32
    Join Date
    Aug 2012
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    I changed the code just a bit and its working fine now but dropping needs more update, it missclicks many times..

  8. #33
    Join Date
    Apr 2006
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    12 Post(s)

    Default

    Does it support smart?

  9. #34
    Join Date
    Mar 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    works good, not had any random work though

    it would be better if it moved between fishing spots for more experience per hour.. maybe by rotating the camera so it can see the other spot

    works fine with smart8

    edit: not so brilliantly after all... after the third inventory it dropped my feathers.. (yes they are in the correct 1st slot and the drop function is set to start at slot 3)
    Last edited by rudeboy99999; 03-27-2013 at 12:21 PM.

  10. #35
    Join Date
    Mar 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    also bugs out when someone with a blue wizards hat is nearby

  11. #36
    Join Date
    Mar 2013
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by grahambr View Post
    it clicks? makes some sort of sense that it might hover but should not click on them. I will have to work on that for the 1.1 update this weekend. Is your script changing spots successfully?
    it clicks once and ill run over there.. then the mouse will just hover the hat either until the guy moves, or i rotate the camera so it is off the screen. And for changing spots do you mean the bridge spot to the spot up north? or just within one area.

    it will change spots in one area perfectly but not actually run to another location. <--- hope i covered what you were asking!

  12. #37
    Join Date
    Mar 2013
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Talking SMART support

    Hello all,

    Here is the script with SMART integrated, just copy paste it in simba or download the attachment.
    Happy botting!

    Simba Code:
    program Fisher;
    {$DEFINE SMART8}
    {$I SRL/SRL.Simba}
    {$I P07Include.Simba}
    {$i sps/sps.simba}
    var
    CHANGE_COUNT, b, b1, b2, b2one, b3, b3one, b3two, b4, b5, b6: integer;



    Procedure AntiBan;
    begin
      case(random(250)) of
        0: MMouse(random(500), random(500), 1, 2);
        10: P07_HoverSkill('Fishing',1000+Random(4000));
        20: P07_HoverSkill('Fishing',1000+Random(4000));
        30: P07_MakeCameraAngleHigh;
        40: P07_MakeCameraAngleLow;
        50: P07_MakeCompassDegree(random(360));
      end;
    end;

    procedure FindRod;
    var
    x, y:integer;
    begin
     If P07_FindObjCustom(x,y,['rod'],[1208726,1141389],5) Then
       begin
          ClickMouse2(mouse_left);
       wait(1250+random(200))
       end;
    end;

    procedure ClickGenie;
    var
    x, y:integer;
    begin
     If P07_FindObjCustom(x,y,['enie'],[5704020, 4786501, 9376393, 8719998, 4390976],10) Then
       begin
       ClickMouse2(mouse_left);
       wait(1500+random(100))
       P07_ClickToContinue;
       wait(1000+random(100))
       If P07_FindObjCustom(x,y,['enie'],[1650385],10) Then
        repeat
         wait(random(1000));
        until not(P07_FindObjCustom(x,y,['enie'],[1650385],10))
       end;
    end;

    procedure ClickMan;
    var
    x, y:integer;
    begin
     If P07_FindObjCustom(x,y,['ious','alk'],[5849352],10) Then
       begin
       ClickMouse2(mouse_left);
       wait(1500+random(100))
       P07_ClickToContinue;
       wait(1000+random(100))
       If P07_FindObjCustom(x,y,['ious','alk'],[5849352],10) Then
        repeat
         wait(random(1000));
        until not(P07_FindObjCustom(x,y,['ious','alk'],[5849352],10))
      end;
    end;

    procedure RunSwarm;
    var
    x, y:integer;
    begin
     If P07_FindObjCustom(x,y,['alk','ere'],[255],10) Then
       begin
        wait(8000+random(500))
        If P07_FindObjCustom(x,y,['alk','ere'],[255],10) Then
         begin
          If P07_FindObjCustom(x,y,['alk','ere'],[3179891],10) Then
           begin
            ClickMouse2(mouse_left);
            wait(3000+random(1000))
           end;
         end;
      end;
    end;

    procedure ClickJekyll;
    var
    x, y:integer;
    begin
     If P07_FindObjCustom(x,y,['yll'],[594262],10) Then
       begin
       ClickMouse2(mouse_left);
       wait(1500+random(100))
       P07_ClickToContinue;
       wait(1000+random(100))
       If P07_FindObjCustom(x,y,['yll'],[594262],10) Then
        repeat
         wait(random(1000));
        until not(P07_FindObjCustom(x,y,['ekyll'],[594262],10))
      end;
    end;

    procedure ClickFruit;
    var
    x, y:integer;
    begin
     If P07_FindObjCustom(x,y,['ick','ruit'],[12479637],10) Then
      begin
       wait(5000+random(1000))
       ClickMouse2(mouse_left);
       If P07_FindObjCustom(x,y,['ick','ruit'],[12479637],10) Then
        repeat
         wait(random(1000));
        until not(P07_FindObjCustom(x,y,['ick','ruit'],[12479637],10))
     end;
    end;

    procedure ClickDwarf;
    var
    x, y:integer;
    begin
     If P07_FindObjCustom(x,y,['warf'],[1844602],10) Then
       begin
       ClickMouse2(mouse_left);
       wait(2000+random(1000))
       P07_ClickToContinue;
       wait(500+random(100))
       If P07_FindObjCustom(x,y,['warf'],[1844602],10) Then
        repeat
         wait(random(1000));
        until not(P07_FindObjCustom(x,y,['warf'],[1844602],10))
      end;
    end;

    procedure ClickHand;
    var
    x, y:integer;
    begin
     If P07_FindObjCustom(x,y,['and'],[3549040],10) Then
      begin
       ClickMouse2(mouse_left);
       wait(1500+random(100))
       P07_ClickToContinue;
       wait(1000+random(100))
       If P07_FindObjCustom(x,y,['and'],[3549040],10) Then
        repeat
         wait(random(1000));
        until not(P07_FindObjCustom(x,y,['and'],[3549040],10))
      end;
    end;

    procedure ClickRick;
    var
    x, y:integer;
    begin
     If P07_FindObjCustom(x,y,['tine','ick'],[7748225,7354492],10) Then
       begin
       ClickMouse2(mouse_left);
       wait(1500+random(100))
       P07_ClickToContinue;
       wait(1000+random(100))
       If P07_FindObjCustom(x,y,['tine','ick'],[7748225,7354492],10) Then
        repeat
         wait(random(1000));
        until not(P07_FindObjCustom(x,y,['tine','ick'],[7748225,7354492],10))
      end;
    end;

    Function IsFishing1: Boolean;
    var
     i, i2: integer;
    begin
       i := P07_InvCount;
       wait(8000 + random(100));
       i2 := p07_InvCount;
       AntiBan;
       if (i2 > i) then
       begin
          result:=true
          writeln('we are fishing');
       end else
        begin
          result:= false;
          writeln('not currently fishing');
        end;
    end;

    //if at top spot returns 1 and bottom returns two
    Function CheckSpot: Integer;
    var
    x, y, FishDTM: integer;
    begin
       P07_MakeCompassNorth;
       wait(500);
       FishDTM:= DTMFromString('mQwAAAHicY2ZgYKhiYmCoBeI6IA4D8sOBOASIpQOfMAhrnmdQavjPgAwYkTAQAAALiAZ/');
       if findDTM(FishDTM, x, y, 550,1, 727, 61) then
       begin
        result:= 2;
        writeln('Fishing at bottom location');
       end else
       begin
        result:= 1;
        writeln('Fishing at top location');
       end;
        FreeDTM(FishDTM);
    end;

    Procedure changeSpot;
    var
    x, y, FishDTM: integer;
    begin
       FishDTM:= DTMFromString('mQwAAAHicY2ZgYKhiYmCoBeI6IA4D8sOBOASIpQOfMAhrnmdQavjPgAwYkTAQAAALiAZ/');
       if (Checkspot = 1) then
       begin
         if (FindDTM(FishDTM, x, y, 530, 100, 695, 151)) then
         begin
           mouse(x, y, 1, 1, 1);
           writeln('moving to bottom location');
           wait(3000 + random(100));
         end;
       end;
       if (Checkspot = 2)  then
       begin
         if (FindDTM(FishDTM, x, y, 550,1, 727, 61)) then
         begin
           mouse(x, y, 1, 1, 1);
           writeln('moving to top location');
           wait(3000 + random(100));
         end;
       end;
       FreeDTM(FishDTM);
    end;

    procedure Fish;
    var
    x, y: integer;
    begin
          if (P07_FindObjCustom(x, y, ['ure', 'ishin', 'ot'], [14597535, 15123609, 14794914, 14858129, 13216647, 14597268, 15123625, 14398100, 14729121], 3) ) then
          begin
            mouse(x,y,1,1,1)
            wait(1000 + random(50));
          end else
          begin
             changeSpot;
          end;
    end;

    Procedure Bank;
    var
    x, y,salmon, trout: integer;
    begin
    salmon := DTMFromString('mlwAAAHicY2dgYOBhZmDgA2IRZghbAIjZoPgJIwPDcyB+DMSvGCH8d1B2baAHw87yLIaNhWkMB6pzGRZmxDAcXbmMYeesKQz4ACMeDAUASDwSFQ==');
    trout := DTMFromString('m1gAAAHic42JgYOBlZmDggWJOIGYGYgEgFgZicSDmB2J2INZiYmDQBWJDIDaFYn0g1gZiNSA2guLs5GSGCW1tDMf27mU4vGsnw/VLFxmO7NnNsGzWTIYZvT0Md65fZzhz9AgDsYCRSIwAAGGDFv8=');
       if (not P07_BankScreen) then
       begin
        writeln('bank not open');
         if P07_FindObjCustom(x, y, ['ank', 'ooth'], [609382, 607580, 3239562, 2843002, 2974589, 608609], 5) then
         begin
          case random(4) of
          0..2:
           begin
             mouse(x, y, 1, 1, 1);
             wait(randomrange(2000, 2500));
           end;
          3:
           begin
             MMouse(x, y, 1, 1);
             wait(randomrange(75, 150));
             ClickMouse2(mouse_right);
             wait(randomrange(75,150));
             P07_ChooseOptionMulti(['k B', 'ooth', 'ank']);
             wait(randomrange(2000, 2500));
           end;
           end;
         end;
       end;
       if (P07_InvCount > 3) then
       begin
           if (findDTM(salmon, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2)) then
           begin
               MMouse(x, y, 1, 1);
               wait(randomrange(75, 150));
               ClickMouse2(Mouse_Right);
               wait(randomrange(75, 150));
               P07_ChooseOptionMulti(['ank', 'll', 'all']);
               wait(randomrange(75,150));
           end;
           if (findDTM(trout, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2)) then
           begin
               MMouse(x, y, 1, 1);
               wait(randomrange(75, 150));
               ClickMouse2(Mouse_Right);
               wait(randomrange(75, 150));
               P07_ChooseOptionMulti(['ank', 'll', 'all']);
               wait(randomrange(75,150));
           end;
       end;
       FreeDTM(salmon);
       FreeDTM(trout);
    end;

    Procedure Drop;
    var
    i: integer;
    begin
      repeat

        for i:= 3 to 28 do
        begin
          if (P07_ItemExists(i)) then
          begin
            P07_DropInventorySlot(i);
            Wait(randomRange(50, 75));
          end;
        end;
        if (P07_InvCount > 3) then break;
      until(P07_InvCount < 3);
    end;

    begin
    SetupSRL;
      SetupP07Include;
      activateclient;
      CHANGE_COUNT:= 0;
      wait(500);
      repeat
      Fish;
      repeat
        if (not isfishing1) then
        begin
          if (Not P07_ItemExists(2)) then
          FindRod;
          ClickGenie;
          ClickMan;
          RunSwarm;
          ClickJekyll;
          ClickFruit;
          ClickDwarf;
          ClickHand;
          ClickRick;
          Fish;
        end;
      until(P07_InvFull or P07_ItemExists(28));
      Drop;
      until(false);
    end.

    GrahahamFisherv1,01.simba

  13. #38
    Join Date
    Mar 2013
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    For me to bot won't select the fishing spot, I have to click the spot for it but it drops the fish well.

    It says "Fishing at top location" endlessly
    Last edited by thisismebro; 03-28-2013 at 07:33 AM.

  14. #39
    Join Date
    Oct 2012
    Posts
    758
    Mentioned
    6 Post(s)
    Quoted
    282 Post(s)

    Default

    this is actually really good script good job I likedd

  15. #40
    Join Date
    Mar 2013
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Runehack123 View Post
    this is actually really good script good job I likedd
    How did you get the bot to work? I keep getting the error above!

  16. #41
    Join Date
    Mar 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    dude nice! this is the only script working for me so far! others keep saying that i have error in 228 line or something but this works!

  17. #42
    Join Date
    Mar 2013
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Worked fine, until a random came along -.- sandwich lady raped me

  18. #43
    Join Date
    Feb 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by mayren100 View Post
    Hello all,

    Here is the script with SMART integrated, just copy paste it in simba or download the attachment.
    Happy botting!

    Simba Code:
    program Fisher;
    {$DEFINE SMART8}
    {$I SRL/SRL.Simba}
    {$I P07Include.Simba}
    {$i sps/sps.simba}
    var
    CHANGE_COUNT, b, b1, b2, b2one, b3, b3one, b3two, b4, b5, b6: integer;



    Procedure AntiBan;
    begin
      case(random(250)) of
        0: MMouse(random(500), random(500), 1, 2);
        10: P07_HoverSkill('Fishing',1000+Random(4000));
        20: P07_HoverSkill('Fishing',1000+Random(4000));
        30: P07_MakeCameraAngleHigh;
        40: P07_MakeCameraAngleLow;
        50: P07_MakeCompassDegree(random(360));
      end;
    end;

    procedure FindRod;
    var
    x, y:integer;
    begin
     If P07_FindObjCustom(x,y,['rod'],[1208726,1141389],5) Then
       begin
          ClickMouse2(mouse_left);
       wait(1250+random(200))
       end;
    end;

    procedure ClickGenie;
    var
    x, y:integer;
    begin
     If P07_FindObjCustom(x,y,['enie'],[5704020, 4786501, 9376393, 8719998, 4390976],10) Then
       begin
       ClickMouse2(mouse_left);
       wait(1500+random(100))
       P07_ClickToContinue;
       wait(1000+random(100))
       If P07_FindObjCustom(x,y,['enie'],[1650385],10) Then
        repeat
         wait(random(1000));
        until not(P07_FindObjCustom(x,y,['enie'],[1650385],10))
       end;
    end;

    procedure ClickMan;
    var
    x, y:integer;
    begin
     If P07_FindObjCustom(x,y,['ious','alk'],[5849352],10) Then
       begin
       ClickMouse2(mouse_left);
       wait(1500+random(100))
       P07_ClickToContinue;
       wait(1000+random(100))
       If P07_FindObjCustom(x,y,['ious','alk'],[5849352],10) Then
        repeat
         wait(random(1000));
        until not(P07_FindObjCustom(x,y,['ious','alk'],[5849352],10))
      end;
    end;

    procedure RunSwarm;
    var
    x, y:integer;
    begin
     If P07_FindObjCustom(x,y,['alk','ere'],[255],10) Then
       begin
        wait(8000+random(500))
        If P07_FindObjCustom(x,y,['alk','ere'],[255],10) Then
         begin
          If P07_FindObjCustom(x,y,['alk','ere'],[3179891],10) Then
           begin
            ClickMouse2(mouse_left);
            wait(3000+random(1000))
           end;
         end;
      end;
    end;

    procedure ClickJekyll;
    var
    x, y:integer;
    begin
     If P07_FindObjCustom(x,y,['yll'],[594262],10) Then
       begin
       ClickMouse2(mouse_left);
       wait(1500+random(100))
       P07_ClickToContinue;
       wait(1000+random(100))
       If P07_FindObjCustom(x,y,['yll'],[594262],10) Then
        repeat
         wait(random(1000));
        until not(P07_FindObjCustom(x,y,['ekyll'],[594262],10))
      end;
    end;

    procedure ClickFruit;
    var
    x, y:integer;
    begin
     If P07_FindObjCustom(x,y,['ick','ruit'],[12479637],10) Then
      begin
       wait(5000+random(1000))
       ClickMouse2(mouse_left);
       If P07_FindObjCustom(x,y,['ick','ruit'],[12479637],10) Then
        repeat
         wait(random(1000));
        until not(P07_FindObjCustom(x,y,['ick','ruit'],[12479637],10))
     end;
    end;

    procedure ClickDwarf;
    var
    x, y:integer;
    begin
     If P07_FindObjCustom(x,y,['warf'],[1844602],10) Then
       begin
       ClickMouse2(mouse_left);
       wait(2000+random(1000))
       P07_ClickToContinue;
       wait(500+random(100))
       If P07_FindObjCustom(x,y,['warf'],[1844602],10) Then
        repeat
         wait(random(1000));
        until not(P07_FindObjCustom(x,y,['warf'],[1844602],10))
      end;
    end;

    procedure ClickHand;
    var
    x, y:integer;
    begin
     If P07_FindObjCustom(x,y,['and'],[3549040],10) Then
      begin
       ClickMouse2(mouse_left);
       wait(1500+random(100))
       P07_ClickToContinue;
       wait(1000+random(100))
       If P07_FindObjCustom(x,y,['and'],[3549040],10) Then
        repeat
         wait(random(1000));
        until not(P07_FindObjCustom(x,y,['and'],[3549040],10))
      end;
    end;

    procedure ClickRick;
    var
    x, y:integer;
    begin
     If P07_FindObjCustom(x,y,['tine','ick'],[7748225,7354492],10) Then
       begin
       ClickMouse2(mouse_left);
       wait(1500+random(100))
       P07_ClickToContinue;
       wait(1000+random(100))
       If P07_FindObjCustom(x,y,['tine','ick'],[7748225,7354492],10) Then
        repeat
         wait(random(1000));
        until not(P07_FindObjCustom(x,y,['tine','ick'],[7748225,7354492],10))
      end;
    end;

    Function IsFishing1: Boolean;
    var
     i, i2: integer;
    begin
       i := P07_InvCount;
       wait(8000 + random(100));
       i2 := p07_InvCount;
       AntiBan;
       if (i2 > i) then
       begin
          result:=true
          writeln('we are fishing');
       end else
        begin
          result:= false;
          writeln('not currently fishing');
        end;
    end;

    //if at top spot returns 1 and bottom returns two
    Function CheckSpot: Integer;
    var
    x, y, FishDTM: integer;
    begin
       P07_MakeCompassNorth;
       wait(500);
       FishDTM:= DTMFromString('mQwAAAHicY2ZgYKhiYmCoBeI6IA4D8sOBOASIpQOfMAhrnmdQavjPgAwYkTAQAAALiAZ/');
       if findDTM(FishDTM, x, y, 550,1, 727, 61) then
       begin
        result:= 2;
        writeln('Fishing at bottom location');
       end else
       begin
        result:= 1;
        writeln('Fishing at top location');
       end;
        FreeDTM(FishDTM);
    end;

    Procedure changeSpot;
    var
    x, y, FishDTM: integer;
    begin
       FishDTM:= DTMFromString('mQwAAAHicY2ZgYKhiYmCoBeI6IA4D8sOBOASIpQOfMAhrnmdQavjPgAwYkTAQAAALiAZ/');
       if (Checkspot = 1) then
       begin
         if (FindDTM(FishDTM, x, y, 530, 100, 695, 151)) then
         begin
           mouse(x, y, 1, 1, 1);
           writeln('moving to bottom location');
           wait(3000 + random(100));
         end;
       end;
       if (Checkspot = 2)  then
       begin
         if (FindDTM(FishDTM, x, y, 550,1, 727, 61)) then
         begin
           mouse(x, y, 1, 1, 1);
           writeln('moving to top location');
           wait(3000 + random(100));
         end;
       end;
       FreeDTM(FishDTM);
    end;

    procedure Fish;
    var
    x, y: integer;
    begin
          if (P07_FindObjCustom(x, y, ['ure', 'ishin', 'ot'], [14597535, 15123609, 14794914, 14858129, 13216647, 14597268, 15123625, 14398100, 14729121], 3) ) then
          begin
            mouse(x,y,1,1,1)
            wait(1000 + random(50));
          end else
          begin
             changeSpot;
          end;
    end;

    Procedure Bank;
    var
    x, y,salmon, trout: integer;
    begin
    salmon := DTMFromString('mlwAAAHicY2dgYOBhZmDgA2IRZghbAIjZoPgJIwPDcyB+DMSvGCH8d1B2baAHw87yLIaNhWkMB6pzGRZmxDAcXbmMYeesKQz4ACMeDAUASDwSFQ==');
    trout := DTMFromString('m1gAAAHic42JgYOBlZmDggWJOIGYGYgEgFgZicSDmB2J2INZiYmDQBWJDIDaFYn0g1gZiNSA2guLs5GSGCW1tDMf27mU4vGsnw/VLFxmO7NnNsGzWTIYZvT0Md65fZzhz9AgDsYCRSIwAAGGDFv8=');
       if (not P07_BankScreen) then
       begin
        writeln('bank not open');
         if P07_FindObjCustom(x, y, ['ank', 'ooth'], [609382, 607580, 3239562, 2843002, 2974589, 608609], 5) then
         begin
          case random(4) of
          0..2:
           begin
             mouse(x, y, 1, 1, 1);
             wait(randomrange(2000, 2500));
           end;
          3:
           begin
             MMouse(x, y, 1, 1);
             wait(randomrange(75, 150));
             ClickMouse2(mouse_right);
             wait(randomrange(75,150));
             P07_ChooseOptionMulti(['k B', 'ooth', 'ank']);
             wait(randomrange(2000, 2500));
           end;
           end;
         end;
       end;
       if (P07_InvCount > 3) then
       begin
           if (findDTM(salmon, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2)) then
           begin
               MMouse(x, y, 1, 1);
               wait(randomrange(75, 150));
               ClickMouse2(Mouse_Right);
               wait(randomrange(75, 150));
               P07_ChooseOptionMulti(['ank', 'll', 'all']);
               wait(randomrange(75,150));
           end;
           if (findDTM(trout, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2)) then
           begin
               MMouse(x, y, 1, 1);
               wait(randomrange(75, 150));
               ClickMouse2(Mouse_Right);
               wait(randomrange(75, 150));
               P07_ChooseOptionMulti(['ank', 'll', 'all']);
               wait(randomrange(75,150));
           end;
       end;
       FreeDTM(salmon);
       FreeDTM(trout);
    end;

    Procedure Drop;
    var
    i: integer;
    begin
      repeat

        for i:= 3 to 28 do
        begin
          if (P07_ItemExists(i)) then
          begin
            P07_DropInventorySlot(i);
            Wait(randomRange(50, 75));
          end;
        end;
        if (P07_InvCount > 3) then break;
      until(P07_InvCount < 3);
    end;

    begin
    SetupSRL;
      SetupP07Include;
      activateclient;
      CHANGE_COUNT:= 0;
      wait(500);
      repeat
      Fish;
      repeat
        if (not isfishing1) then
        begin
          if (Not P07_ItemExists(2)) then
          FindRod;
          ClickGenie;
          ClickMan;
          RunSwarm;
          ClickJekyll;
          ClickFruit;
          ClickDwarf;
          ClickHand;
          ClickRick;
          Fish;
        end;
      until(P07_InvFull or P07_ItemExists(28));
      Drop;
      until(false);
    end.

    GrahahamFisherv1,01.simba
    Seems to bring up the EOC client in SMART using this.. Any ideas?

  19. #44
    Join Date
    Mar 2013
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Rum0ur View Post
    Seems to bring up the EOC client in SMART using this.. Any ideas?
    I had the same problem, There was an SRL update just re-download the attachments here http://villavu.com/forum/showthread.php?t=97599 and put them in the correct folder and it should work. did for me

  20. #45
    Join Date
    Mar 2013
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    I can never get the bot to click on the fishing spot...

  21. #46
    Join Date
    Mar 2013
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    possibly a banking?

  22. #47
    Join Date
    Mar 2013
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Only problem I face at time is the bot switching locations from the 2nd location to the first. Also after a few inventories the bot accidently drops the Rod.

  23. #48
    Join Date
    Mar 2013
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Rum0ur View Post
    Seems to bring up the EOC client in SMART using this.. Any ideas?
    Install the 07 globals smart and login.

  24. #49
    Join Date
    Mar 2013
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by grahambr View Post
    You can actually do this yourself so I won't have to mess with the script. It's really simple.

    In the drop function on to for loop it says 3 to 28. just change the 3 to the number "5". this will fix your problem!
    Exactly what line is this on? Couldnt seem to find it.

  25. #50
    Join Date
    Mar 2013
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Quote Originally Posted by Kobe Bryant View Post
    Exactly what line is this on? Couldnt seem to find it.
    line 308

Page 2 of 3 FirstFirst 123 LastLast

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
  •