Going to try it now. I will repost in about an hour if it works. Thanks For the DL
Printable View
Going to try it now. I will repost in about an hour if it works. Thanks For the DL
Here is what I have so far.
One problem is that I can't convert the type Extended to Integer. Other than that, it SHOULD work fine...
SCAR Code:Function GetCompassAngleDegrees: Extended;
Var
Compass: TPointArray;
MyPoint: TPoint;
Begin
Result := -1;
FindColorsTolerance(Compass, 1911089, 520, 2, 560, 40, 0);
If Length(Compass) < 1 Then
Exit;
MyPoint := MiddleTPA(Compass);
Result := Degrees(ArcTan2(MyPoint.Y - 24, MyPoint.X - 543)) + 90;
End;
function FindNPC(Colors:TIntegerArray; Tolerance:Integer; Name:TStringArray; OptionToChoose:String):Boolean;
var
x, y: Integer;
begin
if (FindObjCustom(x, y, Name, Colors, Tolerance)) then
begin
Result := True;
GetMousePos(x, y);
Mouse(x, y, 0, 0, false);
Wait(1000 + Random(500));
ChooseOption(OptionToChoose);
end;
end;
procedure WalkToStore;
var
ShopSX, ShopSY, WX, WY: Integer;
CompassAngle: Extended;
begin
CompassAngle := GetCompassAngleDegrees;
if CompassAngle > 180 then CompassAngle := -(360 - CompassAngle);
if FindSymbol(ShopSX, ShopSY, 'shop') then
begin
if RadialWalk(8234170, (325 - CompassAngle), (250 - CompassAngle), 60, 10, 10) then
begin
FFlag(0);
if FindNPC([{Shopkeeper Colors}], 5, ['opk', 'hop', 'eep', 'per'], 'rad') then
begin
if FindDTM(WillowL,WX,WY,MIX1,MIY1,MIX2,MIY2) then
begin
Mouse(WX, WY, 3, 3, false);
Sleep(50 + Random(100));
ChooseOption('50');
ToTree;
Exit
else
Drop;
end;
if FindNPC([{Assistant colors}], 5, ['ssi', 'tan'], 'rad') then
begin
if FindDTM(WillowL,WX,WY,MIX1,MIY1,MIX2,MIY2) then
begin
Mouse(WX, WY, 3, 3, false);
Sleep(50 + Random(100));
ChooseOption('50');
ToTree;
Exit
else
Drop;
end;
end;
end;
end;
end;
Hey im back again and I dont know what is wrong...It wont locate the willows. Im standing right in front of them. Its like there not even there. Do you have to declare the type of tree or is it for auto willows...w/b Please
Okay JonM1892. I had the same problem and it was easy to fix (for me anyways). First, when SMART (please tell me you're using SMART?) logs you in, let it do it's business and check your graphics settings and stuff like that. After about 10 seconds, your should click the "Disable SMART" button and start chopping the willow tree manually . Click "Enable SMART" and then you're all set.
Hope this helps!
I love that you made SMART and non-SMART versions of this script.My smart's messed up so i'll use this in the meantime, thanks!
actually get a lot of money of those dam maple trees!
It can't find my axe.
Great script!
best way to get fast xp to get to 60
the seller sometimes messes up, but still very good 5/5 for me
it looks very good im going to try it.
it works for a little then it does something but i think it probally my computer by besides that its very good :)
You need a Bank option for the willows because no one in their right mind would sell willows to the General Store when they could merchant it off to some sucker.
Failed when compiling
Line 414: [Hint] (17379:1): Variable 'XX' never used in script C:\Program Files\SCAR 3.15\Scripts\LWC 0.35.scar
Line 414: [Hint] (17379:1): Variable 'YY' never used in script C:\Program Files\SCAR 3.15\Scripts\LWC 0.35.scar
Line 414: [Hint] (17379:1): Variable 'WALKDTM' never used in script C:\Program Files\SCAR 3.15\Scripts\LWC 0.35.scar
Line 456: [Hint] (17421:1): Variable 'X' never used in script C:\Program Files\SCAR 3.15\Scripts\LWC 0.35.scar
Line 456: [Hint] (17421:1): Variable 'Y' never used in script C:\Program Files\SCAR 3.15\Scripts\LWC 0.35.scar
Line 472: [Hint] (17437:1): Variable 'X' never used in script C:\Program Files\SCAR 3.15\Scripts\LWC 0.35.scar
Line 472: [Hint] (17437:1): Variable 'Y' never used in script C:\Program Files\SCAR 3.15\Scripts\LWC 0.35.scar
Line 492: [Hint] (17457:1): Variable 'SX' never used in script C:\Program Files\SCAR 3.15\Scripts\LWC 0.35.scar
Line 492: [Hint] (17457:1): Variable 'SY' never used in script C:\Program Files\SCAR 3.15\Scripts\LWC 0.35.scar
Line 493: [Hint] (17458:1): Variable 'FWTIME' never used in script C:\Program Files\SCAR 3.15\Scripts\LWC 0.35.scar
Line 494: [Hint] (17459:1): Variable 'P' never used in script C:\Program Files\SCAR 3.15\Scripts\LWC 0.35.scar
Line 753: [Hint] (17718:1): Variable 'TPA' never used in script C:\Program Files\SCAR 3.15\Scripts\LWC 0.35.scar
Line 754: [Hint] (17719:1): Variable 'ATPA' never used in script C:\Program Files\SCAR 3.15\Scripts\LWC 0.35.scar
Line 758: [Hint] (17723:1): Variable 'SX' never used in script C:\Program Files\SCAR 3.15\Scripts\LWC 0.35.scar
Line 758: [Hint] (17723:1): Variable 'SY' never used in script C:\Program Files\SCAR 3.15\Scripts\LWC 0.35.scar
Line 759: [Hint] (17724:1): Variable 'FWTIME' never used in script C:\Program Files\SCAR 3.15\Scripts\LWC 0.35.scar
Line 760: [Hint] (17725:1): Variable 'P' never used in script C:\Program Files\SCAR 3.15\Scripts\LWC 0.35.scar
Line 868: [Hint] (17833:1): Variable 'LX' never used in script C:\Program Files\SCAR 3.15\Scripts\LWC 0.35.scar
Line 868: [Hint] (17833:1): Variable 'LY' never used in script C:\Program Files\SCAR 3.15\Scripts\LWC 0.35.scar
Line 1383: [Error] (18348:62): Invalid number of parameters in script C:\Program Files\SCAR 3.15\Scripts\LWC 0.35.scar
error does not work
edit:"for Me" D:
I'm done with this...
Please close.
goodwork
this is what happens when I try to run it:
Failed when compiling
Line 414: [Hint] (17379:1): Variable 'XX' never used in script C:\Users\FAMILY~1\AppData\Local\Temp\LWC 0.38b.scar
Line 414: [Hint] (17379:1): Variable 'YY' never used in script C:\Users\FAMILY~1\AppData\Local\Temp\LWC 0.38b.scar
Line 414: [Hint] (17379:1): Variable 'WALKDTM' never used in script C:\Users\FAMILY~1\AppData\Local\Temp\LWC 0.38b.scar
Line 456: [Hint] (17421:1): Variable 'X' never used in script C:\Users\FAMILY~1\AppData\Local\Temp\LWC 0.38b.scar
Line 456: [Hint] (17421:1): Variable 'Y' never used in script C:\Users\FAMILY~1\AppData\Local\Temp\LWC 0.38b.scar
Line 472: [Hint] (17437:1): Variable 'X' never used in script C:\Users\FAMILY~1\AppData\Local\Temp\LWC 0.38b.scar
Line 472: [Hint] (17437:1): Variable 'Y' never used in script C:\Users\FAMILY~1\AppData\Local\Temp\LWC 0.38b.scar
Line 492: [Hint] (17457:1): Variable 'SX' never used in script C:\Users\FAMILY~1\AppData\Local\Temp\LWC 0.38b.scar
Line 492: [Hint] (17457:1): Variable 'SY' never used in script C:\Users\FAMILY~1\AppData\Local\Temp\LWC 0.38b.scar
Line 493: [Hint] (17458:1): Variable 'FWTIME' never used in script C:\Users\FAMILY~1\AppData\Local\Temp\LWC 0.38b.scar
Line 494: [Hint] (17459:1): Variable 'P' never used in script C:\Users\FAMILY~1\AppData\Local\Temp\LWC 0.38b.scar
Line 754: [Hint] (17719:1): Variable 'TPA' never used in script C:\Users\FAMILY~1\AppData\Local\Temp\LWC 0.38b.scar
Line 755: [Hint] (17720:1): Variable 'ATPA' never used in script C:\Users\FAMILY~1\AppData\Local\Temp\LWC 0.38b.scar
Line 759: [Hint] (17724:1): Variable 'SX' never used in script C:\Users\FAMILY~1\AppData\Local\Temp\LWC 0.38b.scar
Line 759: [Hint] (17724:1): Variable 'SY' never used in script C:\Users\FAMILY~1\AppData\Local\Temp\LWC 0.38b.scar
Line 760: [Hint] (17725:1): Variable 'FWTIME' never used in script C:\Users\FAMILY~1\AppData\Local\Temp\LWC 0.38b.scar
Line 761: [Hint] (17726:1): Variable 'P' never used in script C:\Users\FAMILY~1\AppData\Local\Temp\LWC 0.38b.scar
Line 870: [Hint] (17835:1): Variable 'LX' never used in script C:\Users\FAMILY~1\AppData\Local\Temp\LWC 0.38b.scar
Line 870: [Hint] (17835:1): Variable 'LY' never used in script C:\Users\FAMILY~1\AppData\Local\Temp\LWC 0.38b.scar
Line 1386: [Error] (18351:62): Invalid number of parameters in script C:\Users\FAMILY~1\AppData\Local\Temp\LWC 0.38b.scar
HELP?
it does ;)
Closed on request.
~RM