it doesnt compile. says i need 'foodies' include. where do i get it?
EDIT: nvm got it to work
EDIT2: ugh now it banks the rod and feathers can u help??
Printable View
it doesnt compile. says i need 'foodies' include. where do i get it?
EDIT: nvm got it to work
EDIT2: ugh now it banks the rod and feathers can u help??
You know it's common courtesy to not be a douche to someone when they're taking time out of their day to help others, especially for free. Try asking politely.Quote:
Originally Posted by rshackz1212
Could you add a bank pin auto thingy in here?
EDIT : Nvm i removed bank pin, but once the inventory is full, it stays at the fishing spot and logs out
Wizzup do u know if there is any way to add random solvers and autochat to your script?
it says thats it cant find the include file .....foodies.scar does not exist. please help me!
this works, wow snap crackle and pop! ok i going to go to sleep and just let this run till i use 2.8k feathers... well wish it luck using my acc which i been autoing up in lots of stats lately, hopefully wont get banned...
Run SRL Edge Fisher #16.scp and it will install the foodies.scar for you.Quote:
Originally Posted by spicynachos2
Quote:
Wizzup Edgeville Fly Fisher.
Worked for 2 Hours, 23 Minutes and 24 Seconds
Banked 23 times, fishing at a rate of 236 Fish P/H.
Trout caught: 388, at a rate of 162 p/h
Salmons caught: 178, at a rate of 74 p/h
----------------------------
0 : thra = T; Loc: Bank; R: ; B: 23 F lvl: 41; T: 120
----------------------------
Going to fishing Spot
No Fishing Spot
NextPlayer
********** <- (It's my name starred out...)
The Server is being updated.
Gay update, I would've gotten a two hour longer proggie in the evening without it, anyway you'll get a 6-7 hour proggie from me today later...
__________________________________________________ __________________________
Aww, it had failed to find the fishing spot while I was gone, -
Quote:
Wizzup Edgeville Fly Fisher.
Worked for 3 Hours, 12 Minutes and 56 Seconds
Banked 35 times, fishing at a rate of 260 Fish P/H.
Trout caught: 509, at a rate of 158 p/h
Salmons caught: 328, at a rate of 101 p/h
----------------------------
0 : thra = T; Loc: Bank; R: ; B: 35 F lvl: 49; T: 170
----------------------------
Propably will get an about 1 h 30min proggie today, shame that I can't keep comp on at night :(
Come to MSN...
Oh wait, the spot finding kind of didn't fail, but there is lack of randoms checking somewhere in the fish spot finding part, some random, most likely Genie or Sandbitch, had knocked out, raped, and sent me to wizards tower :(
Yesterday it got me to Ice Mountain...
No, wait, - it isn't in spot finding, my inventory was full in the wizards tower.
Darn rod stealer fish!
Quote:
----------------------------
Wizzup Edgeville Fly Fisher.
Worked for 54 Minutes and 38 Seconds
Banked 11 times, fishing at a rate of 277 Fish P/H.
Trout caught: 148, at a rate of 162 p/h
Salmons caught: 105, at a rate of 115 p/h
----------------------------
0 : thra = T; Loc: Bank; R: ; B: 11 F lvl: 51; T: 40
----------------------------
Wroks good but can u tell me why hes banking me rod and feathers and then telling no rood no feathers switching players... at bank im puted like u told and hes dont taking :(
Sorry for my bad english.
Quote:
----------------------------
Wizzup Edgeville Fly Fisher.
Worked for 2 Hours, 13 Minutes and 52 Seconds
Banked 25 times, fishing at a rate of 274 Fish P/H.
Trout caught: 366, at a rate of 164 p/h
Salmons caught: 246, at a rate of 110 p/h
----------------------------
0 : thra = T; Loc: Bank; R: ; B: 25 F lvl: 56; T: 125
----------------------------
Gah, ended up next to the lil' crack in ground while walking to bank.
Walked too far up the river :(Quote:
----------------------------
Wizzup Edgeville Fly Fisher.
Worked for 1 Hours, 5 Minutes and 40 Seconds
Banked 13 times, fishing at a rate of 270 Fish P/H.
Trout caught: 165, at a rate of 150 p/h
Salmons caught: 131, at a rate of 119 p/h
----------------------------
0 : thra = T; Loc: Bank; R: ; B: 13 F lvl: 57; T: 58
----------------------------
*inhales Deeply* its great to be back at SRL.
I'll test and see if it works, i doubt it will though with the amount of thime Srl has been Down. Any body wanna collaborate on what happened
Edit: Works Great Still. Will be sure to have a sweet proggie waiting
ill reserve my progress report
but thx for releasing.
Can not wait for this to be updated! Got me from 22-73 Fishing a while back :)
Wizzy please update ! =]
fixed my own problem.
Update please.
yeah a lot of scripts are getting outdated you might as well wait for the new scripts ---------if updated
SCAR Code:Wizzup Edgeville Fly Fisher.
Worked for 5 Hours, 30 Minutes and 0 Seconds
Banked 55 times, fishing at a rate of 233 Fish P/H and 13420xp P/H.
Trout caught: 781, at a rate of 141 p/h
Salmons caught: 502, at a rate of 91 p/h
----------------------------
0 : win = F; Loc: Bank; R: ; B: 18 F lvl: 51; T: 107
1 : oly = T; Loc: Bank; R: ; B: 37 F lvl: 46; T: 206
----------------------------
Going to fishing Spot
well here was one short proggy i will update later
Updated!
Whee! Now to move my army from Lumby to Edgeville!
Reserved for Proggie :D i will leave this on for 10hrs+ if it works for that long, thnx for updating
Next version will have more solid bank finding, it very rarely (but still does) walk to that room with all those students...
I couldnt leave it on overnight, but i will try to leave it on most of the day. Expect a longish proggie (h)
Im actually running it right now.
Uploaded version #20.1
I forgot to re-add Deposit(). Added FindFishSymbol, for when the Fishing Symbols are covered.
Oh, lol. Im still running a 3hr+ proggie with version 20, 2 chars and both still true. Pretty good scriptQuote:
Originally Posted by Wizzup?
Worked for 7 Hours, 14 Minutes and 12 Seconds
Banked 77 times, fishing at a rate of 259 Fish P/H and 14880xp P/H.
Trout caught: 1157, at a rate of 159 p/h
Salmons caught: 721, at a rate of 99 p/h
1st player ran out of feathers (didnt have much money)
2nd player got lost above the barbarian pub.
Gr8 script and ill buy some more feathers and see if i can leave it on overnight.
Worked for 4 Hours, 9 Minutes and 22 Seconds
Banked 40 times, fishing at a rate of 225 Fish P/H and 12430xp P/H.
Trout caught: 690, at a rate of 166 p/h
Salmons caught: 246, at a rate of 59 p/h
----------------------------
0 : ???? = T; Loc: Bank; R: ; B: 40 F lvl: 44; T: 247
----------------------------
that was a one man proggie. Worked absolutely flawlessly, walking and everything. If you ever want to add into an update, you could put some function to check whether it is running, and if it isn't then run. I don't know, just an idea that would help boost the xp/hr.
Thanks for the progress reports.
I'm going to add some more stuff I think. I am really enjoying sucking all the fish from edgeville. :p
Maybe using bait too. So you can start from level 5. :)
Ok, good ideas, i am going to try an allnighter, ive redownloaded it and im starting it now. Expect 8hr+
Nice release, I'm scanning through it:)
Btw, why are you combining a tpa with an empty one?;)
SCAR Code:Function FollowSpot(Var x, y: integer): Boolean;
Var
FishP, FishP1, [B]FishP2[/B]: TPointArray;
P: TPoint;
z: Integer;
Begin
Result := False;
If Not LoggedIn Then
Exit;
z := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsTolerance(FishP1, 12828090, x - 20, y - 20, x + 20, y + 20, 40);
FishP := CombineTPA(FishP1, [B]FishP2[/B]);
If Length(FishP) > 15 Then
Begin
Result := True;
P := MiddleTPA(FishP);
x := P.X;
y := P.Y;
End;
ColorToleranceSpeed(z);
End;
-Tsn
EDIT:
What's the point of the Boolean var in here?SCAR Code:Procedure ToBank;
Var
x, y, WalkMark, I, R: Integer;
B: Boolean;
Begin
If Not LoggedIn Then Exit;
B := False;
MakeCompass('N');
MarkTime(WalkMark);
FindNormalRandoms;
Repeat
Wait(50);
I := I + 1;
If I > 3 Then
R := 10;
If RadialWalkOff(WaterColor, 315, 420, RandomRange(60 - R, 70 - R), -1, -1, -10, 0) Then
FFlag(15);
If TimeFromMark(WalkMark) > 120000 Then
Begin
LogOut;
Exit;
End;
If I > 3 Then
If Not FindEdgeVilleBank(x, y) Then
Begin
If FindSymbol(x, y, 'Bank') Then
Begin
B := True;
Break;
End;
End
Else
Begin
[B] B := True;[/B]
Break;
End;
Until False;
FindNormalRandoms;
If B Then
Begin
MFNF(x, y, -1, 1);
Wait(100);
FFlag(0);
Wait(500);
End;
[B]Players[CurrentPlayer].Loc := 'Bank';[/B]
End;
Even if the script didn't managed to find the bank, it'll put that bool to true.
You should put it to false then, and change the player's loc in "if B then" statement.
EDIT: Was to tired yesterday to look further, I found something else Wiz:
Now, if you've lost your rod, you withdraw a new one, great!SCAR Code:Procedure Bank;
Var
x, y, Tries, i: Integer;
T, S: TIntegerArray;
countInv: InvFoodAr;
Begin
If Not LoggedIn Then Exit;
Repeat
OpenBankFast('eb');
Tries := Tries + 1;
Until ((BankScreen) Or (Tries > 9));
If Not BankScreen Then
OpenBankQuiet('eb');
SetLength(countInv, 0);
SetLength(countInv, 28);
countInv := GetFullInv;
If BankScreen Then
Begin
If Not BankScreen Then Exit;
T := GetFoodCount('Trout', Raw, countInv);
S := GetFoodCount('Salmon', Raw, countInv);
ReportVars[0] := Length(T);
ReportVars[1] := Length(S);
Trouts := Trouts + Length(T);
Salmons := Salmons + Length(S);
ClickAllItems(FoodArray[3].FoodBMP.Raw, 'bmp', 'All', 1000, [30]);
ClickAllItems(FoodArray[4].FoodBMP.Raw, 'bmp', 'All', 1000, [30]);
Deposit(3, 28, True);
If [B]NoRod [/B]Then
Begin
FixBank;
Wait(1000);
For I := 0 To High(FishRodColors) Do
If FindColor(x, y, FishRodColors[i], MSX1, MSY1, MSX2, MSY2) Then
Begin
MMouse(x, y, 2, 2);
GetMousePos(x, y);
Wait(100);
If IsUpText('ish') Then
Mouse(x, y, 0, 0, True);
Wait(100);
Break;
End;
End;
End;
CloseBank;
Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
Banks := Banks + 1;
ReportVars[3] := ReportVars[3] + 1;
End;
But why don't you reset that bool var to false after gaining a new rod?
I know, before it starts fishing it checks if there's a rod, and it'll put that var to false again, in this function: "Function FindRod: Boolean;".
But, than it'll do obj finding, without it's needed, because you already ahve withdrawed a new one;)
i get a runtime error, says our of range in line 40..its weird because it compiles
ill try this one out i have 10k feathers in my bank with heaps of dust on them
i bet you mistyped your user name...try againQuote:
Originally Posted by wazzzup
Edit: Don't know if you ever had this error before Wizzup?...but i lost a rod to a whirlpool so it went back to the bank like normal after deciding it lost the fishing rod. Now it ended up with 2? not quite sure what happened cuz i wasn't watching it when this occured. Is this what The Scar Noob was talking about?
The B is just a mistake. Must have overlooked it.Quote:
Originally Posted by the scar noob
The fishing, combining tpa's: I used to use two tpa's... I just quickly adjusted the function.
About the last: InitPlayer; contains NoRod := False; but it should be in withdrawing a rod too. :)
Im defienetly trying this one
Proggy Reserved_____()____
SCAR Code:Procedure Bank;
Var
x, y, Tries, i: Integer;
T, S: TIntegerArray;
countInv: InvFoodAr;
Begin
If Not LoggedIn Then Exit;
Repeat
OpenBankFast('eb');
Tries := Tries + 1;
Until ((BankScreen) Or (Tries > 9));
If Not BankScreen Then
OpenBankQuiet('eb');
SetLength(countInv, 0);
SetLength(countInv, 28);
countInv := GetFullInv;
If BankScreen Then
Begin
If Not BankScreen Then Exit;
T := GetFoodCount('Trout', Raw, countInv);
S := GetFoodCount('Salmon', Raw, countInv);
ReportVars[0] := Length(T);
ReportVars[1] := Length(S);
Trouts := Trouts + Length(T);
Salmons := Salmons + Length(S);
ClickAllItems(FoodArray[3].FoodBMP.Raw, 'bmp', 'All', 1000, [30]);
ClickAllItems(FoodArray[4].FoodBMP.Raw, 'bmp', 'All', 1000, [30]);
Deposit(3, 28, True);
If NoRod Then
Begin
FixBank;
Wait(1000);
For I := 0 To High(FishRodColors) Do
If FindColor(x, y, FishRodColors[i], MSX1, MSY1, MSX2, MSY2) Then
Begin
MMouse(x, y, 2, 2);
GetMousePos(x, y);
Wait(100);
If IsUpText('ish') Then
Mouse(x, y, 0, 0, True);
Wait(100);
Break;
End;
End;
End;
CloseBank;
Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
Banks := Banks + 1;
ReportVars[3] := ReportVars[3] + 1;
End;
You shoudl have added to enter bank pin, but the script pretty good the way it is
id hate to burst your bubble but uh you have to be 25 for bating there otherwise you have to bait at drayonrQuote:
Originally Posted by Wizzup?
Oh. Well. Thanks. Saved me some time then. ;)Quote:
Originally Posted by thebob142
Wizzup, super good script! Never had 1 like this before, it doesnt stop it works and works and works, no bugs! Super Script!!!!
this is amazing lol
i get this
idk about you guys
Line 1339: [Error] (14067:42): Invalid number of parameters in script C:\Program Files\SCAR 3.15\Scripts\edgevillefisher.scar
Uploaded #20.2
Hey TSN, about the ToBank. It is not a bug, the code is actually fine.
If it does not find the edgeville bank, if tries to find it the other way, if it finds if the other way it sets b to true.
if it FOUND (NOT, and then an ELSE) the edgeville bank, it set's b to true too.
it doesn't seem to be able to find a rod in my bank after it missed a whirlpool is that because i have multiple rods though?