PDA

View Full Version : Request?



Naike
10-05-2010, 12:43 PM
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 :)

TomTuff
10-05-2010, 01:52 PM
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?

ForgotMyName
10-05-2010, 06:23 PM
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.

EvilChicken!
10-05-2010, 07:03 PM
Make that thread we talked about yesterday.
Just came to think of it right now.

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

bolshak25
10-05-2010, 08:30 PM
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.

NCDS
10-05-2010, 08:33 PM
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.

bolshak25
10-05-2010, 09:27 PM
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

Shuttleu
10-10-2010, 11:56 AM
fight caves runner

~shut

fresh iz ere
10-10-2010, 12:25 PM
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.



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.

Bobzilla69
10-10-2010, 12:30 PM
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.



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 (http://villavu.com/forum/showthread.php?t=59416)

EvilChicken!
10-10-2010, 07:13 PM
fight caves runner

~shut

Mine doesn't work?