Shuttleu
2011-11-07 17:44:06
i wanted to laugh so hard!

~shut

~shut
2011-11-07 17:44:06

2011-11-07 17:54:57
2011-11-07 18:02:33
2011-11-07 18:06:53
2011-11-07 19:12:10
2011-11-07 19:21:45
From: jakeyboy29
isnt that script reflection?
http://villavu.com/forum/showthread.php?t=57454
2011-11-07 19:41:51
From: YoHoJo
He probably converted it to color, refelction is broken.
2011-11-07 20:52:28
From: Shuttleu
correct, it was reflection ;)
im testing it at the moment
the only stuff not working at the moment is the bird nest finding
~shut
2011-11-07 21:09:35
From: Flight
If I remember correctly, there's a brightly colored message that appears in the chatbox when you get a birds nest.
2011-11-08 04:23:12
From: Flight
If I remember correctly, there's a brightly colored message that appears in the chatbox when you get a birds nest.
2011-11-08 08:46:52
2011-11-08 09:12:51
2011-11-08 10:29:05
From: Nava2
Isn't there a nestfinder that works in woodcutting.scar?
2011-11-08 11:13:58
From: Shuttleu
I don't know, I didn't even think there was one so I made my own
~shut
{*******************************************************************************
function FindBirdsNest: Boolean;
By: Liquid and Starblaster100
Description: If a birds nest is found, it will pick it up
*******************************************************************************}
function FindBirdsNest: Boolean;
var
tries, x, y: Integer;
s: string;
begin
if (not (GetLastChatText(s))) then
LastChatter(s);
if (Pos(s, 'A bird') <> 0) then
begin
repeat
if not (FindObj(x, y, 'Take Bird', 3952984, 10)) or
not (FindObj(x, y, 'Take Bird', 1713706, 10)) or
not (FindObj(x, y, 'Take Bird', 1581604, 10)) then
begin
KeyDown(VK_LEFT);
Wait(700 + Random(500));
KeyUp(VK_LEFT);
Wait(400 + Random(300));
end;
if not (FindObj(x, y, 'Take Bird', 3952984, 10)) or
not (FindObj(x, y, 'Take Bird', 1713706, 10)) or
not (FindObj(x, y, 'Take Bird', 1581604, 10)) then
begin
x := 648;
y := 83;
tries := tries + 1;
FindColorSpiral(x, y, 241, 570, 5, 725, 155);
Mouse(x + 3, y + 3, 2, 2, True);
Flag;
Wait(200 + Random(100));
end;
if (FindObj(x, y, 'Take Bird', 3952984, 10)) or
(FindObj(x, y, 'Take Bird', 1713706, 10)) or
(FindObj(x, y, 'Take Bird', 1581604, 10)) then
begin
WriteLn('Birds Nest Found');
Wait(450 + Random(400));
GetMousePos(x, y);
Mouse(x, y, 0, 0, True);
Flag;
Result := True;
Wait(500 + Random(300));
if (Screenshots) then
SaveScreenshot('Birds Nest - SRL - ' + IntToStr(GetTimeRunning) + '.bmp');
tries := tries + 100;
// Birdsnest := Birdsnest + 1;
Mouse(583, 226, 2, 2, False);
Wait(100 + Random(100));
ChooseOption('Examine');
Exit;
end;
until (FindObj(x, y, 'Take Bird', 3952984, 10)) or
(FindObj(x, y, 'Take Bird', 1713706, 10)) or
(FindObj(x, y, 'Take Bird', 1581604, 10)) or (tries > 5)
end;
end;
2011-11-08 17:47:33
2011-11-08 20:43:33
From: Shuttleu
im looking for testers if anyone is interested?
~shut
2011-11-09 06:14:07
2011-11-09 06:21:19