Printable View
I've only got one problem with the script that I am able to see so far....
[Runtime Error] : Type Mismatch in line 124 in script C:\Program Files\SCAR 3.14\Scripts\SRL Draynor Netter #14.scar
Line 124: Fishes := TPAToATPA(Fish, 25);
Any way to fix that easily????
Sorry, haven't done this in a while so I'm a little rusty.
Array Of TPointArray= T2DPointArrayQuote:
Originally Posted by SpAz
[Runtime Error] : Exception: in line 58 in script
next time actually put up a working script!
Pardon? The script works fine, it is just you either using a SCAR version < 3.14 or and WizzyPlugin version < #14. Also, You need to make sure you have the T2DPointArray fix. This is not just for my script, it applies to all scripts.Quote:
Originally Posted by rshackz1212
very nice script looking forward to using it
Whenever I use this with SMART, the compass is all the way down, and it doesn't get moved up to highest north. Is there anyway to set the angle the highest in SMART?
Just use SetAngle(True);Quote:
Originally Posted by NightBlade
I thought that was in?
Very Nice Wiz.
Ill be using this and posting a progress report very soon.
Good Work!!! :)
Thanks, that worked. :spongebob:Quote:
Originally Posted by Wizzup?
Wizzup please make a SMART version of your script too.
rshacks its easy just go to SMART forum and it teachs you or just copy paste from other script?
I already know how to make scripts SMART compatible but I need the T2DPointArray fix like Wizzup says and i dont know where to find that.
You don't need it anymore, just use SCAR 3.15.Quote:
Originally Posted by rshackz1212
this is my best proggy with 1 player
----------------------------
Wizzup Draynor Netter.
Worked for 11 Hours, 12 Minutes and 9 Seconds
Banked 192 times.
Shrimps caught: 2746.
Anchovies caught: 2212.
Small Nets picked up 2.
----------------------------
0 : *** = F; Loc: Fishing; B: 38 F lvl: 67; T: 122
1 : *** = F; Loc: Fishing; B: 36 F lvl: 67; T: 127
2 : *** = F; Loc: Fishing; B: 10 F lvl: 65; T: 36
3 : *** = F; Loc: Fishing; B: 36 F lvl: 67; T: 125
4 : *** = F; Loc: Fishing; B: 36 F lvl: 67; T: 122
5 : *** = T; Loc: Bank; B: 36 F lvl: 67; T: 125
----------------------------
Very nice! Why do you net with a player level 67 fishing though?
what do to with this error
[Runtime Error] : Exception: in line 58 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar
line 58 says
Result := CreateTPAFromBMP( GetBitmapDC(TempBMP));
sweet manually stoped it got me 21 fishing lvls
-----------------------
Wizzup Draynor Netter.
Worked for 2 Hours, 48 Minutes and 13 Seconds
Banked 39 times.
Shrimps caught: 659.
Anchovies caught: 393.
Small Nets picked up 2.
----------------------------
0 : skate = T; Loc: Bank; B: 39 F lvl: 35; T: 0
1 : = T; Loc: Bank; B: 0 F lvl: 0; T: 0
2 : = T; Loc: Bank; B: 0 F lvl: 0; T: 0
3 : = T; Loc: Bank; B: 0 F lvl: 0; T: 0
4 : = T; Loc: Bank; B: 0 F lvl: 0; T: 0
5 : = T; Loc: Bank; B: 0 F lvl: 0; T: 0
----------------------------
----------------------------
Wizzup Draynor Netter.
Worked for 3 Hours, 9 Minutes and 23 Seconds
Banked 40 times.
Shrimps caught: 637.
Anchovies caught: 331.
Small Nets picked up 2.
----------------------------
0 : = T; Loc: Bank; B: 40 F lvl: 34; T: 0
unsolvable stopped this one, turning it back on.
----------------------------
Wizzup Draynor Netter.
Worked for 4 Hours, 11 Minutes and 36 Seconds
Banked 65 times.
Shrimps caught: 961.
Anchovies caught: 650.
----------------------------
unsolvable again, i'm not turning it back on for a while.
Yeah this script works great. But i am only going to log into 1 player and c how far it goes with that and i will post another comment when it has a error on it.
Ok i tested it and it ran for 3 runs. But that was cus i forgot to chagne the loads so testingit again
So is this updated for 14 or 15?
Well, since it says it's updated for 14, i'd say 14...Quote:
Originally Posted by Billy Bobby8
Updated for #15.
Yay.Quote:
Originally Posted by Wizzup?
Feel like updating your Edge one too? :D.
Worked for 3 Hours, 9 Minutes and 17 Seconds
Banked 41 times.
Shrimps caught: 625.
Anchovies caught: 471.
love the script, working perfect.
you are the best scripter here, keep up the good job !
Thank you. :)
I posted here almsot a year ago lol -second page =) anyways were do i enter username and password Script looks like this -Quote:
Originally Posted by Iced_Liquid
Code://-----------------------------------------------------------------//
//-- Scar Standard Resource Library --//
//-- ยป Math Routines --//
//-----------------------------------------------------------------//
// * procedure rs_OnMinimap(x, y: Integer): Boolean; // * by Raymond
// * procedure LoadCoSineArrays; // * by Mutant Squirrle
// * function CreateTPAFromText(Txt : String; Chars : Integer) : TPointArray; // * by Raymond
// * function GetSplinePt(Points: TPointArray; Theta: Extended): TPoint; // * by BenLand100
// * function MakeSplinePath(Points: TPointArray; ThetaInc: Extended): TPointArray; // * by BenLand100
// * function MidPoints(Path: TPointArray; MaxDist: Integer): TPointArray; // * by BenLand100
// * function InAbstractBox(x1, y1, x2, y2, x3, y3, x4, y4: Integer; x, y: Integer): Boolean; // * by BenLand100
// * function inAngle(Origin: TPoint; Angle1, Angle2, Radius1, Radius2: Extended; X, Y: Integer): Boolean; // * by BenLand100
// * function Sine(degrees: Integer): Extended; // * by ?
// * function Cose(degrees: Integer): Extended; // * by ?
Var
SineArray, Cosearray: Array[0..360] Of Extended;
{*******************************************************************************
procedure rs_OnMinimap(x, y: Integer): Boolean;
By: Raymond
Description: Checks wether the specified point is on the minimap.
*******************************************************************************}
Function rs_OnMinimap(x, y: Integer): Boolean;
Begin
Result := InCircle(x, y, MMCX, MMCY, 76);
End;
{*******************************************************************************
procedure LoadCoSineArrays;
By: Mutant Squirrle
Description: Loads arrays for use with Radial- and LinearWalk.
*******************************************************************************}
procedure LoadCoSineArrays;
var
i: Integer;
begin
for i := 0 to 360 do
begin
Sinearray[i] := Sin(i * Pi / 180);
Cosearray[i] := Cos(i * Pi / 180);
end;
end;
{*******************************************************************************
Function CreateTPAFromText(Txt : String; Chars : Integer) : TPointArray;
By: MastaRaymond
Description: Returns the TPointArray of the inputted Text. Needs Wizzyplugin
*******************************************************************************}
Function CreateTPAFromText(Txt : String; Chars : Integer) : TPointArray;
var
TempBMP : integer;
begin;
TempBMP := CreateBitmapMaskFromText(Txt,Chars);
Result := CreateTPAFromBMP( GetBitmapDC(TempBMP));
FreeBitmap(TempBMP);
end;
{*******************************************************************************
function GetSplinePt(Points: TPointArray; Theta: Extended): TPoint;
By: BenLand100
Description: Returns the point on a spline, defined by control points Points, at Theta
*******************************************************************************}
function GetSplinePt(Points: TPointArray; Theta: Extended): TPoint;
var
i, n: Integer;
XTemp, YTemp: Extended;
begin
n := GetArrayLength(Points) - 1;
for i := 0 to n do
begin
XTemp := XTemp + (BinCoe(n, i) * Points[i].x * Pow((1 - Theta), n - i) *
Pow(Theta, i));
YTemp := YTemp + (BinCoe(n, i) * Points[i].y * Pow((1 - Theta), n - i) *
Pow(Theta, i));
end;
Result.x := Round(XTemp);
Result.y := Round(YTemp);
end;
{*******************************************************************************
function MakeSplinePath(Points: TPointArray; ThetaInc: Extended): TPointArray;
By: BenLand100
Description: Returns a spline, defined by control points Points, incrementing theta by ThetaInc
*******************************************************************************}
function MakeSplinePath(Points: TPointArray; ThetaInc: Extended): TPointArray;
var
i: Integer;
t: Extended;
temp, last: TPoint;
done: Boolean;
begin
repeat
if t >= 1 then
begin
t := 1;
done := True;
end;
temp := GetSplinePt(Points, t);
if ((temp.x <> last.x) and (temp.y <> last.y)) then
begin
i := i + 1;
SetArrayLength(Result, i);
Result[i - 1] := temp;
last := temp;
end;
t := t + ThetaInc;
until (done)
end;
{*******************************************************************************
function MidPoints(Path: TPointArray; MaxDist: Integer): TPointArray;
By: BenLand100
Description: Adds midpoints to Path so no distance on it is greater than MaxDist
*******************************************************************************}
function MidPoints(Path: TPointArray; MaxDist: Integer): TPointArray;
var
i, c: Integer;
last: TPoint;
done: Boolean;
begin
if (getarraylength(path) > 0) then
begin
repeat
last := Path[0];
done := True;
for i := 1 to GetArrayLength(Path) - 1 do
begin
if Sqrt(Pow((Path[i].x - last.x), 2) + Pow((Path[i].y - last.y), 2)) >
MaxDist then
begin
done := False;
SetArrayLength(Path, GetArrayLength(Path) + 1);
for c := GetArrayLength(Path) - 1 downto i + 1 do
begin
Path[c] := Path[c - 1];
end;
Path[i].x := Round((last.x + Path[i + 1].x) / 2);
Path[i].y := Round((last.y + Path[i + 1].y) / 2);
end;
last := Path[i];
end;
until (done);
end;
Result := Path;
end;
{*******************************************************************************
function InAbstractBox(x1, y1, x2, y2, x3, y3, x4, y4: Integer; x, y: Integer): Boolean;
By: BenLand100
Description: Returns true if point x, y is in an abstract box defined by x1, y1, x2, y2, x3, y3, x4, y4
An abstract box example:
x1, y1 x2, y2
+--------+
\ /
\ /
+--+
x4, y4 x3, y3
*******************************************************************************}
function InAbstractBox(x1, y1, x2, y2, x3, y3, x4, y4: Integer; x, y: Integer):
Boolean;
var
U, D, R, L: Boolean;
UB, DB, LB, RB, UM, DM, LM, RM: Extended;
begin
UM := (-y1 - -y2) div (x1 - x2);
DM := (-y4 - -y3) div (x4 - x3);
if x1 - x4 <> 0 then
begin
LM := (-y1 - -y4) div (x1 - x4);
end else
begin
LM := Pi;
end;
if x2 - x3 <> 0 then
begin
RM := (-y2 - -y3) div (x2 - x3);
end else
begin
RM := Pi;
end;
UB := -(UM * x1) + -y1
RB := -(RM * x2) + -y2;
DB := -(DM * x3) + -y3;
LB := -(LM * x4) + -y4;
if (UM * x + UB >= -y) then U := True;
if (DM * x + DB <= -y) then D := True;
if (RM <> Pi) and (RM >= 0) and (RM * x + RB <= -y) then R := True;
if (RM <> Pi) and (RM < 0) and (RM * x + RB >= -y) then R := True;
if (RM = Pi) and (x < x2) then R := True;
if (LM <> Pi) and (LM >= 0) and (LM * x + LB >= -y) then L := True;
if (LM <> Pi) and (LM < 0) and (LM * x + LB <= -y) then L := True;
if (LM = Pi) and (x > x1) then L := True;
if U and D and L and R then Result := True;
end;
{*******************************************************************************
function inAngle(Origin: TPoint; Angle1, Angle2, Radius1, Radius2: Extended; X, Y: Integer): Boolean;
By: BenLand100
Description: Returns True if X and Y fall within Radius1 to Radius2 and Angle1 to Angle2
Note1: EVERYTHING IS RELATIVE TO ORIGIN!!!
Note2: This checks in the smallest segment of the circle formed by Angle1 and Angle 2
Example: (Assume the origin is 0,0)
inAngle(0, 90, 5, 10, origin, 5, 5) = true;
inAngle(0, 90, 0, 5, origin, 5, 5) = false;
inAngle(90, 0, 5, 10, origin, 5, 5) = false;
*******************************************************************************}
function inAngle(Origin: TPoint; Angle1, Angle2, Radius1, Radius2: Extended; x,
y: Integer): Boolean;
var
PTemp: PPoint;
OTemp: TPoint;
MinAngle, MaxAngle, MinRadius, MaxRadius: Extended;
begin
Angle1 := FixD(Angle1);
Angle2 := FixD(Angle2);
MinAngle := Angle1;
if Angle1 > Angle2 then MinAngle := Angle2;
MaxAngle := Angle1;
if Angle1 < Angle2 then MaxAngle := Angle2;
MinRadius := Radius1;
if Radius1 > Radius2 then MinRadius := Radius2;
MaxRadius := Radius1;
if Radius1 < Radius2 then MaxRadius := Radius2;
OTemp.x := x;
OTemp.y := y;
PTemp := ToPolarOffset(OTemp, Origin);
if (PTemp.R >= MinRadius) and (PTemp.R <= MaxRadius) then
if (PTemp.T >= MinAngle) and (PTemp.T <= MaxAngle) then
Result := True;
end;
{*******************************************************************************
function Sine(degrees: Integer): Extended;
By:
Description:
*******************************************************************************}
function Sine(Degrees: Integer): Extended;
begin
Result := sinearray[Trunc(FixD(Degrees))];
end;
{*******************************************************************************
function Cose(degrees: Integer): Extended;
By:
Description:
*******************************************************************************}
function Cose(Degrees: Integer): Extended;
begin
Result := cosearray[Trunc(FixD(Degrees))];
end;
love this works flawlessly even with 1 char. will get proggie soon
is this using smart??
yay!
Worked great, got all me new noobs up to 20+ fishing so now I will fly-fish.
Here is the proggie(this is the longest solid run i think)Quote:
Wizzup Draynor Netter.
Worked for 7 Hours, 27 Minutes and 13 Seconds
Banked 56 times.
Shrimps caught: 1169.
Anchovies caught: 318.
Small Nets picked up 3.
Wizzup Draynor Netter.
Worked for 9 Hours, 5 Minutes and 34 Seconds
Banked 147 times.
Shrimps caught: 1642.
Anchovies caught: 1107.
----------------------------
0 : * = T; Loc: Bank; B: 52 F lvl: 57; T: 217
1 : alad = T; Loc: Bank; B: 49 F lvl: 11; T: 89
2 : otal = F; Loc: NoNet; B: 46 F lvl: 43; T: 213
----------------------------
No Fishing Spot
Successfully executed
My last toon ended up getting lost in Lumbridge so I stopped it this morning. Other than that I'd say it ran wonderful. :D
http://s150.photobucket.com/albums/s...reiendedup.jpg
Nice report!
I'm having problem with this script and timothegreats ess miner as i can't even get your miner working. Lately it's been having warnings saying; Deposit, 2 now means 2 instead of all. And sure enough it presses bank x then types in 2 until the entire load is gone, worse enough it's doing it extremely fast and unhuman like. Any1 else had this problem and if so could they lend some advice as to how to get it back to banking all?
I also noticed the deposit 2 thing as well. I was going to check it out after work today to see if I could change that at all.
Anyone have any idea about the Lumbridge situation?
:D I'll also have another progress report tonight after work, hopefully another 9 hour one with the addition of an extra character added along. :D
Smart?
----------------------------
Wizzup Draynor Netter.
Worked for 7 Hours, 47 Minutes and 50 Seconds
Banked 91 times.
Shrimps caught: 1399.
Anchovies caught: 880.
----------------------------
0 : hock = F; Loc: NoNet; B: 33 F lvl: 58; T: 131
1 : alad = T; Loc: Bank; B: 44 F lvl: 35; T: 233
2 : otal = F; Loc: Fishing; B: 11 F lvl: 45; T: 49
3 : anar = F; Loc: Fishing; B: 3 F lvl: 7; T: 37
----------------------------
No Follow Spot:0
FollowSpot(x, y)
FishCount
FishCount
FishCount
FollowSpot(x, y)
** Warning in GameTab: 4 does not exist**
NextPlayer
It stopped working after this error popped up. Any idea of the fix?
Another proggy
----------------------------
Wizzup Draynor Netter.
Worked for 3 Hours, 56 Minutes and 21 Seconds
Banked 48 times.
Shrimps caught: 766.
Anchovies caught: 470.
----------------------------
0 : hock = T; Loc: Bank; B: 27 F lvl: 59; T: 109
1 : alad = F; Loc: Fishing; B: 0 F lvl: 35; T: 0
2 : otal = F; Loc: Fishing; B: 16 F lvl: 46; T: 72
3 : anar = F; Loc: Fishing; B: 5 F lvl: 14; T: 41
----------------------------
NextPlayer
Successfully executed
----------------------------
Wizzup Draynor Netter.
Worked for 53 Minutes and 24 Seconds
Banked 6 times.
Shrimps caught: 162.
----------------------------
0 : hake = T; Loc: Bank; B: 6 F lvl: 13; T: 0
1 : miba = T; Loc: Bank; B: 0 F lvl: 0; T: 0
2 : aska = T; Loc: Bank; B: 0 F lvl: 0; T: 0
3 : imme = T; Loc: Bank; B: 0 F lvl: 0; T: 0
----------------------------
Gonna give it a longer go someday :D Works perfectly btw
Another proggy:
----------------------------
Wizzup Draynor Netter.
Worked for 3 Hours, 21 Minutes and 16 Seconds
Banked 27 times.
Shrimps caught: 594.
Anchovies caught: 89.
----------------------------
0 : hake = T; Loc: Bank; B: 10 F lvl: 24; T: 61
1 : miba = F; Loc: Fishing; B: 4 F lvl: 12; T: 44
2 : aska = F; Loc: Fishing; B: 7 F lvl: 14; T: 47
3 : imme = F; Loc: Fishing; B: 6 F lvl: 12; T: 56
----------------------------
Hey i need help?
the script works..
IT will fish 27 fishes then it will bank the "net" and log out and i get this very loooong error.
add it yourselfQuote:
Originally Posted by Whakey
here is simple fix for the banking...instead of banking 2 each time on line 508
Quote:
Procedure Bank;
Var
x, y, Tries: Integer;
Begin
If Not LoggedIn Then Exit;
Repeat
OpenBankFast('db');
Tries := Tries + 1;
Until ((BankScreen) Or (Tries > 4));
If NoNet Then
WriteLn('No NET');
If BankScreen Then
Begin
If Not BankScreen Then Exit;
Shrimps := Shrimps + CountItemsBmp('inv', Shrimp, 35);
Anchovies := Anchovies + CountItemsBmp('inv', Anchovy, 35);
ReportVars[0] := CountItemsBmp('inv', Shrimp, 35);
ReportVars[1] := CountItemsBmp('inv', Anchovy, 35);
Deposit(10, 28, 10);
If Not NoNet Then
NoNet := Not IsFishNet;
If NoNet Then
Begin
FixBank;
Wait(1000);
If FindBitmapToleranceIn(FishingNet, x, y, MSX1, MSY1, MSX2, MSY2, 25) Then
Begin
MMouse(x, y, 2, 2);
GetMousePos(x, y);
Wait(100);
If IsUpText('mall') Then
Begin
Mouse(x, y, 0, 0, True);
End;
NoNet := False;
Wait(1000);
End;
End;
End;
CloseBank;
Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
Banks := Banks + 1;
ReportVars[3] := ReportVars[3] + 1;
End;