Results 1 to 11 of 11

Thread: Request?

  1. #1
    Join Date
    Mar 2007
    Location
    <3
    Posts
    2,683
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Request?

    Doing most requests..
    Got a members account, though only when my mate decides to take a break.

    I won't do a woodcutter/miner.
    Everything else is up for discussion!

    I prefer it being training a skill, but money making is fine as well

  2. #2
    Join Date
    Feb 2009
    Location
    Irvine, CA
    Posts
    2,873
    Mentioned
    8 Post(s)
    Quoted
    138 Post(s)

    Default

    AIO Fisher =) If you haven't seen my thread yet, i'm on my way to 99 fishing and cooking, and i would defnitley use this. Maybe even a cooker too?

  3. #3
    Join Date
    Mar 2010
    Posts
    119
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Some potentially nice ideas for p2p scripts, in order from usual to bizarre:

    red salamanders
    heavy rod power fishing
    barbarian agility
    flatpack maker

    I don't know how much you'd be interested in them, or how suited they are to being scripted.
    Wow. I've been gone a very long time indeed. So much has changed.

  4. #4
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    Make that thread we talked about yesterday.
    Just came to think of it right now.

    (and what's up with your avatar anyway? )

  5. #5
    Join Date
    Jul 2010
    Posts
    1,115
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    how about a fighter for cows north of lumby that use beefy bill for cowhides? bury bones/ leave them. good fighting/prayer and good money as well.

  6. #6
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Quote Originally Posted by bolshak25 View Post
    how about a fighter for cows north of lumby that use beefy bill for cowhides? bury bones/ leave them. good fighting/prayer and good money as well.
    Sounds like a good script to motivate people for SRL Members.

  7. #7
    Join Date
    Jul 2010
    Posts
    1,115
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    i have a great script idea other than that one, but i want to use it as my script to become a member. just need to time to learn how to script and a mentor willing to help

  8. #8
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  9. #9
    Join Date
    Aug 2010
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Could you fix this script up, it is for Battlescape and what it does is it cuts the diamonds into bolt tips and then buys more diamonds to do more, but it gets stuck when its trying to buy more.

    Code:
    program Crafter;
    var
      x1, ShopX, ShopY: Integer;
    
    
    procedure FindClient;
    var
      I: Integer;
    begin
      for I := 0 to 600 do
      begin
        if (GetColor(I, 420) = 2437688) then x1 := I;
        if x1 > 0 then
        begin
          WriteLn('Clientti loyty (X='+IntToStr(x1)+')');
          Exit;
        end;
      end;
    end;
    
    
    procedure C(x, y: Integer; Left: Boolean);
    begin
      MoveMouse(x-258+x1, y);
      Wait(70);
      ClickMouse(x-258+x1, y, Left);
      Wait(70);
    end;
    
    function ShopScreen: Boolean;
    begin
      Result := (GetColor(222+x1, 41) = 2070783);
    end;
    
    
    procedure CloseShop;
    var
      I: Integer;
    begin
      while ShopScreen do
      begin
        MoveMouse(697-258+X1, 37);
        Wait(30);
        ClickMouse(697-258+X1, 37, True);
        while ShopScreen and (I < 350) do
        begin
          Wait(10);
          Inc(I);
        end;
        if I < 350 then Exit;
        I := 0;
      end;
    end;
    
    
    
    function OpenShop: Boolean;
    var
      x, y, I, II, III, A: Integer;
      NewX: Integer;
    begin
      repeat
        if IsFKeyDown(10) then TerminateScript;
        MoveMouse(ShopX-257+X1, ShopY);
        while (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) < 7) do
        begin
          Wait(10);
          A := A + 1;
          if A = 150 then
          begin
            ClickMouse(790-258+X1, 263, True);
            Wait(80);
            ClickMouse(790-258+X1, 263, True);
            Wait(80);
            MoveMouse(ShopX-257+X1, ShopY);
          end;
          if A = 300 then
          begin
            for A := 300 to 400 do
            begin
              NewX := ShopX+A-300;
              MoveMouse(NewX-257+X1, ShopY);
              Wait(100);
              if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
              NewX := ShopX-A+300;
              MoveMouse(NewX-257+X1, ShopY);
              Wait(100);
              if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
            end;
            if A < 400 then ShopX := NewX
            else TerminateScript;
          end;
        end;
        ClickMouse(ShopX-257+X1, ShopY, False);
        III := 0;
        while (III < 50) do
        begin
          if FindColor(x, y, 65535, ShopX-280+X1, ShopY-30, ShopX-255+X1, ShopY+80) then
          begin
            ClickMouse(ShopX, Y+20, True);
            Break;
          end;
          Inc(III);
          Wait(5)
        end;
        if III > 49 then Continue;
        //Wait(100);
        //ClickMouse(ShopX-258+X1, ShopY+42, True);
        I := 0;
        repeat
          Wait(10);
          I := I+1;
        until(ShopScreen or (I > 200));
      until(ShopScreen);
      MoveMouse(445-258+X1, 130);
      Wait(50);
      ClickMouse(445-258+X1, 130, False);
      while not FindColor(x, y, 65536, 445-258+X1, 130, 450-257+X1, 135) do Wait(5);
      ClickMouse(435-258+X1, 216, True);
      Wait(50);
      CloseShop;
      repeat
        Wait(10);
        II := II+1
      until(((GetColor(960-258+X1, 450) <> 3357765) and (GetColor(920-258+X1, 450) <> 3357765))) or (II > 200);
    end;
    
    
    procedure Clicks;
    var
      x, y: Integer;
    begin
      MoveMouse(970, 445);
      Wait(50);
      repeat
        if IsFKeyDown(10) then TerminateScript;
        MoveMouse(953-258+X1, 445);
        Wait(10);
        ClickMouse(953-258+X1, 445, True);
        Wait(40);
        MoveMouse(931-258+X1, 445);
        Wait(10);
        ClickMouse(931-258+X1, 445, True);
        Wait(40);
      until(GetColor(960-258+X1, 450) = 3357765) or (GetColor(920-258+X1, 450) = 3357765);
      ClickMouse(790-258+X1, 263, True);
      Wait(10);
      ClickMouse(790-258+X1, 263, True);
      Wait(10);
      ClickMouse(790-258+X1, 263, True);
      Wait(15);
    end;
    
    begin
      Wait(3000);
      FindClient;
      //GetMousePos(ShopX, ShopY);
      ShopX := 517;
      ShopY := 167;
      repeat
        Clicks;
        OpenShop;
      until(false);
    end.

  10. #10
    Join Date
    Apr 2007
    Location
    Colchester, UK
    Posts
    1,220
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by fresh iz ere View Post
    Could you fix this script up, it is for Battlescape and what it does is it cuts the diamonds into bolt tips and then buys more diamonds to do more, but it gets stuck when its trying to buy more.

    Code:
    program Crafter;
    var
      x1, ShopX, ShopY: Integer;
    
    
    procedure FindClient;
    var
      I: Integer;
    begin
      for I := 0 to 600 do
      begin
        if (GetColor(I, 420) = 2437688) then x1 := I;
        if x1 > 0 then
        begin
          WriteLn('Clientti loyty (X='+IntToStr(x1)+')');
          Exit;
        end;
      end;
    end;
    
    
    procedure C(x, y: Integer; Left: Boolean);
    begin
      MoveMouse(x-258+x1, y);
      Wait(70);
      ClickMouse(x-258+x1, y, Left);
      Wait(70);
    end;
    
    function ShopScreen: Boolean;
    begin
      Result := (GetColor(222+x1, 41) = 2070783);
    end;
    
    
    procedure CloseShop;
    var
      I: Integer;
    begin
      while ShopScreen do
      begin
        MoveMouse(697-258+X1, 37);
        Wait(30);
        ClickMouse(697-258+X1, 37, True);
        while ShopScreen and (I < 350) do
        begin
          Wait(10);
          Inc(I);
        end;
        if I < 350 then Exit;
        I := 0;
      end;
    end;
    
    
    
    function OpenShop: Boolean;
    var
      x, y, I, II, III, A: Integer;
      NewX: Integer;
    begin
      repeat
        if IsFKeyDown(10) then TerminateScript;
        MoveMouse(ShopX-257+X1, ShopY);
        while (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) < 7) do
        begin
          Wait(10);
          A := A + 1;
          if A = 150 then
          begin
            ClickMouse(790-258+X1, 263, True);
            Wait(80);
            ClickMouse(790-258+X1, 263, True);
            Wait(80);
            MoveMouse(ShopX-257+X1, ShopY);
          end;
          if A = 300 then
          begin
            for A := 300 to 400 do
            begin
              NewX := ShopX+A-300;
              MoveMouse(NewX-257+X1, ShopY);
              Wait(100);
              if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
              NewX := ShopX-A+300;
              MoveMouse(NewX-257+X1, ShopY);
              Wait(100);
              if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
            end;
            if A < 400 then ShopX := NewX
            else TerminateScript;
          end;
        end;
        ClickMouse(ShopX-257+X1, ShopY, False);
        III := 0;
        while (III < 50) do
        begin
          if FindColor(x, y, 65535, ShopX-280+X1, ShopY-30, ShopX-255+X1, ShopY+80) then
          begin
            ClickMouse(ShopX, Y+20, True);
            Break;
          end;
          Inc(III);
          Wait(5)
        end;
        if III > 49 then Continue;
        //Wait(100);
        //ClickMouse(ShopX-258+X1, ShopY+42, True);
        I := 0;
        repeat
          Wait(10);
          I := I+1;
        until(ShopScreen or (I > 200));
      until(ShopScreen);
      MoveMouse(445-258+X1, 130);
      Wait(50);
      ClickMouse(445-258+X1, 130, False);
      while not FindColor(x, y, 65536, 445-258+X1, 130, 450-257+X1, 135) do Wait(5);
      ClickMouse(435-258+X1, 216, True);
      Wait(50);
      CloseShop;
      repeat
        Wait(10);
        II := II+1
      until(((GetColor(960-258+X1, 450) <> 3357765) and (GetColor(920-258+X1, 450) <> 3357765))) or (II > 200);
    end;
    
    
    procedure Clicks;
    var
      x, y: Integer;
    begin
      MoveMouse(970, 445);
      Wait(50);
      repeat
        if IsFKeyDown(10) then TerminateScript;
        MoveMouse(953-258+X1, 445);
        Wait(10);
        ClickMouse(953-258+X1, 445, True);
        Wait(40);
        MoveMouse(931-258+X1, 445);
        Wait(10);
        ClickMouse(931-258+X1, 445, True);
        Wait(40);
      until(GetColor(960-258+X1, 450) = 3357765) or (GetColor(920-258+X1, 450) = 3357765);
      ClickMouse(790-258+X1, 263, True);
      Wait(10);
      ClickMouse(790-258+X1, 263, True);
      Wait(10);
      ClickMouse(790-258+X1, 263, True);
      Wait(15);
    end;
    
    begin
      Wait(3000);
      FindClient;
      //GetMousePos(ShopX, ShopY);
      ShopX := 517;
      ShopY := 167;
      repeat
        Clicks;
        OpenShop;
      until(false);
    end.
    please dont spam all request threads with this script.

    ask in one place please

    Edit: Link to first Thread

  11. #11
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Shuttleu View Post
    fight caves runner

    ~shut
    Mine doesn't work?

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
  •