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));
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));
what am i supposed to write?
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
Updated for #15.
The best way to contact me is by email, which you can find on my website: http://wizzup.org
I also get email notifications of private messages, though.
Simba (on Twitter | Group on Villavu | Website | Stable/Unstable releases
Documentation | Source | Simba Bug Tracker on Github and Villavu )
My (Blog | Website)
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.![]()
The best way to contact me is by email, which you can find on my website: http://wizzup.org
I also get email notifications of private messages, though.
Simba (on Twitter | Group on Villavu | Website | Stable/Unstable releases
Documentation | Source | Simba Bug Tracker on Github and Villavu )
My (Blog | Website)
I posted here almsot a year ago lol - second page =) anyways were do i enter username and password Script looks like this -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)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.
AWESOME 300 parody.
AND then watch this cool RC car video I made, in HD, then watch the other vids I've uploadedProud owner of "Efferator" my totally boted main account!
"You see, sometimes, science is not a guess" -Xiaobing Zhou (my past physics professor, with heavy Chinese accent)
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.
http://s150.photobucket.com/albums/s...reiendedup.jpg
Nice report!
The best way to contact me is by email, which you can find on my website: http://wizzup.org
I also get email notifications of private messages, though.
Simba (on Twitter | Group on Villavu | Website | Stable/Unstable releases
Documentation | Source | Simba Bug Tracker on Github and Villavu )
My (Blog | Website)
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?
I'll also have another progress report tonight after work, hopefully another 9 hour one with the addition of an extra character added along.
![]()
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 somedayWorks 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.
here is simple fix for the banking...instead of banking 2 each time on line 508
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;
There are currently 1 users browsing this thread. (0 members and 1 guests)