Ivy Cutter :)

[Becks]

Ivy Cutter :) quick fast wc exp.

[i luffs yeww]

http://villavu.com/forum/showthread.php?t=57454

If you really want it working you should send him your account.

If you're silly and don't think he's trusted I can let him use mine.

[gamer716]

too bad you got to be members...

[Becks]

http://villavu.com/forum/showthread.php?t=57454

If you really want it working you should send him your account.

If you're silly and don't think he's trusted I can let him use mine.

i do trust him but i'm pretty sure he's busy currently but if not i'll lend him.

[i luffs yeww]

You could always just send the info to him. Or.. you know.. ask him or something like that. Some sort of way to get the message to him that you have an account he can use for the script may help.

[Shuttleu]

im not busy, i just finished school so i have about 1.5 months before i go to college, so i have 1.5 months free, if i can get a account then i will gladly update it (i want to update it but have no account)

~shut

[Raskolnikov]

I started on one, if anyone wants to just pick up the pieces, they can:

program New;
{.include SRL/SRL/Misc/SMART.scar}
{.include SRL/SRL.scar}

const
SmartWorld = 120; // Which World/Server do you want to use?
SmartMembers = False; // Is it a Members World?
SmartSigned = True; // Signed/UnSigned Client?
SmartSuperDetail = False; // Use Super Detail?
Debug = True; //for testing purposes or curiosity

var
TimeT: integer;

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

with Players[0] do
begin
Name := '';
Pass := '';
Nick := 'ut';
Active := True;
Integers[0] := 50; //loads
Booleans[0] := True; //equipped?
end;
end;

procedure CDebug(TheString: string);
begin
if Debug then Writeln(TheString);
end;

function MMouseIsText(x, y: integer; UpText:string): boolean;
begin
if not LoggedIn then Exit;
MMouse(x, y, 3, 3);
Wait(60+random(10));
Result := IsUpText(UpText);
end;

procedure ICP_CountIvy;
begin
if FindBlackChatMessage('age') then
Players[CurrentPlayer].Integers[1] := Players[CurrentPlayer].Integers[1] + 1;
end;

function ICP_ReturnIvy: boolean;
var
TPA, Junk: TPointArray;
Pointx: TPoint;
ATPA: T2DPointArray;
a, b, time, xcolor, g, h, newtime: integer;
Bounds: TBox;
begin
MarkTime(time);
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.03, 0.08);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 5939067, MSX1, MSY1, MSX2, MSY2, 10);
SetColorSpeed2Modifiers(0.2, 0.2);
ColorToleranceSpeed(1);
if Length(TPA) < 1 then Exit;
ATPA := TPAToATPAEx(TPA, 55, 55);
SortATPAFromFirstPoint(ATPA, Point(MSCX, MSCY));
b := High(ATPA);
Writeln(IntToStr(TimeFromMark(time)));
for a:=0 to b do
begin
if b < 3 then Exit;
Pointx := MiddleTPA(ATPA[a]);
Writeln(IntToStr(TimeFromMark(time)));
if MMouseIsText(Pointx.x, Pointx.y, 'vy') then
begin
Writeln(IntToStr(TimeFromMark(time)));
Writeln('Found ivy');
GetMousePos(g, h);
Mouse(g, h, 0, 0, true);
repeat
Wait(300+random(100));
until (not (IsMoving)) or (not (LoggedIn));
Wait(200+random(40));
Bounds := GetTPABounds(ATPA[a]);
FindColorsTolerance(Junk, 5939067, Bounds.x1, Bounds.y1, Bounds.x2, Bounds.y2, 10);
MarkTime(newtime)
while (not (Length(Junk) < 15)) or (not (TimeFromMark(newtime) >= 180000)) do
begin
Wait(500+random(200));
FindColorsTolerance(Junk, 5939067, Bounds.x1, Bounds.y1, Bounds.x2, Bounds.y2, 10);
end;
Writeln('Ivy gone.');
end;
end;
end;

{procedure ICP_ClickIvy;
var
APoint: TPoint;
c, d, e, timea: integer;
Found: boolean;
begin
if not LoggedIn then Exit;
MarkTime(timea);
repeat
e := e + 1;
APoint := ICP_ReturnIvy;
if APoint.x <> 0 then
begin
Found := True;
Break;
end;
Wait(1400+random(500));
until (e = 5) or (TimeFromMark(timea) >= 300000) or (not (LoggedIn));
if not Found then Exit;
GetMousePos(c, d);
Found := RBool;
Mouse(c, d, 0, 0, Found);
if not Found then
begin
Wait(200+random(50));
ChooseOption('hop');
end;

end; }

procedure ICP_Chop;
var
NowCount: integer;
begin
repeat
NowCount := 0;
repeat
if not LoggedIn then Exit;
NowCount := NowCount + 1;
ICP_ReturnIvy;
Wait(600+random(200));
until (NowCount = 50);
until (NowCount = 50)
end;

begin
Smart_Server := SmartWorld;
Smart_Members := SmartMembers;
Smart_Signed := SmartSigned;
Smart_SuperDetail := SmartSuperDetail;
SetupSRL;
DeclarePlayers;
Wait(2000);
LoginPlayer;
Wait(400+random(200));
SetAngle(false);
Wait(300+random(100));
MakeCompass('e');
MarkTime(TimeT);
ICP_ReturnIvy;
Writeln(IntToStr(TimeFromMark(TimeT)));
end.

I know it is hard to read. Just something I was working on, but never found the time to continue it.

[Shuttleu]

I started on one, if anyone wants to just pick up the pieces, they can:

program New;
{.include SRL/SRL/Misc/SMART.scar}
{.include SRL/SRL.scar}

const
SmartWorld = 120; // Which World/Server do you want to use?
SmartMembers = False; // Is it a Members World?
SmartSigned = True; // Signed/UnSigned Client?
SmartSuperDetail = False; // Use Super Detail?
Debug = True; //for testing purposes or curiosity

var
TimeT: integer;

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

with Players[0] do
begin
Name := '';
Pass := '';
Nick := 'ut';
Active := True;
Integers[0] := 50; //loads
Booleans[0] := True; //equipped?
end;
end;

procedure CDebug(TheString: string);
begin
if Debug then Writeln(TheString);
end;

function MMouseIsText(x, y: integer; UpText:string): boolean;
begin
if not LoggedIn then Exit;
MMouse(x, y, 3, 3);
Wait(60+random(10));
Result := IsUpText(UpText);
end;

procedure ICP_CountIvy;
begin
if FindBlackChatMessage('age') then
Players[CurrentPlayer].Integers[1] := Players[CurrentPlayer].Integers[1] + 1;
end;

function ICP_ReturnIvy: boolean;
var
TPA, Junk: TPointArray;
Pointx: TPoint;
ATPA: T2DPointArray;
a, b, time, xcolor, g, h, newtime: integer;
Bounds: TBox;
begin
MarkTime(time);
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.03, 0.08);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 5939067, MSX1, MSY1, MSX2, MSY2, 10);
SetColorSpeed2Modifiers(0.2, 0.2);
ColorToleranceSpeed(1);
if Length(TPA) < 1 then Exit;
ATPA := TPAToATPAEx(TPA, 55, 55);
SortATPAFromFirstPoint(ATPA, Point(MSCX, MSCY));
b := High(ATPA);
Writeln(IntToStr(TimeFromMark(time)));
for a:=0 to b do
begin
if b < 3 then Exit;
Pointx := MiddleTPA(ATPA[a]);
Writeln(IntToStr(TimeFromMark(time)));
if MMouseIsText(Pointx.x, Pointx.y, 'vy') then
begin
Writeln(IntToStr(TimeFromMark(time)));
Writeln('Found ivy');
GetMousePos(g, h);
Mouse(g, h, 0, 0, true);
repeat
Wait(300+random(100));
until (not (IsMoving)) or (not (LoggedIn));
Wait(200+random(40));
Bounds := GetTPABounds(ATPA[a]);
FindColorsTolerance(Junk, 5939067, Bounds.x1, Bounds.y1, Bounds.x2, Bounds.y2, 10);
MarkTime(newtime)
while (not (Length(Junk) < 15)) or (not (TimeFromMark(newtime) >= 180000)) do
begin
Wait(500+random(200));
FindColorsTolerance(Junk, 5939067, Bounds.x1, Bounds.y1, Bounds.x2, Bounds.y2, 10);
end;
Writeln('Ivy gone.');
end;
end;
end;

{procedure ICP_ClickIvy;
var
APoint: TPoint;
c, d, e, timea: integer;
Found: boolean;
begin
if not LoggedIn then Exit;
MarkTime(timea);
repeat
e := e + 1;
APoint := ICP_ReturnIvy;
if APoint.x <> 0 then
begin
Found := True;
Break;
end;
Wait(1400+random(500));
until (e = 5) or (TimeFromMark(timea) >= 300000) or (not (LoggedIn));
if not Found then Exit;
GetMousePos(c, d);
Found := RBool;
Mouse(c, d, 0, 0, Found);
if not Found then
begin
Wait(200+random(50));
ChooseOption('hop');
end;

end; }

procedure ICP_Chop;
var
NowCount: integer;
begin
repeat
NowCount := 0;
repeat
if not LoggedIn then Exit;
NowCount := NowCount + 1;
ICP_ReturnIvy;
Wait(600+random(200));
until (NowCount = 50);
until (NowCount = 50)
end;

begin
Smart_Server := SmartWorld;
Smart_Members := SmartMembers;
Smart_Signed := SmartSigned;
Smart_SuperDetail := SmartSuperDetail;
SetupSRL;
DeclarePlayers;
Wait(2000);
LoginPlayer;
Wait(400+random(200));
SetAngle(false);
Wait(300+random(100));
MakeCompass('e');
MarkTime(TimeT);
ICP_ReturnIvy;
Writeln(IntToStr(TimeFromMark(TimeT)));
end.

I know it is hard to read. Just something I was working on, but never found the time to continue it.
i have a working ivy cutter, but i need a account to improve a couple of bits

~shut

[Becks]

account information sent :)

[Shuttleu]

reflection is outdated :(

~shut

[NCDS]

reflection is outdated :(

~shut

Do you really need reflection for an IvyChopper? :/

I can update mine I guess. Where would you like it to Cut? Just so I can specifically make sure it work's there.

[Shuttleu]

well mine works with all locations and all axes and is reliable and fast (when i update it)

~shut

[i luffs yeww]

^ Still see no reason why reflection is needed. :p

[Shuttleu]

faster and more accurate (when done correctly)

and because i was lazy at the time :p

~shut

[Shuttleu]

okay i updated my script which i tested and seemed to be working fine :)

~shut