View Full Version : [C]Heavy-Rodder (Barbarian fisher)
Flight
01-16-2012, 10:36 AM
when it does the fishing rod swing animation it lags my computer out
please help! :(
Adjust your FPS bar on the side of smart. I would take it down about 1/5th of the way from the bottom.
hooga
01-16-2012, 05:03 PM
uh i think something is wrong with dropping the fishies :P after the update i bet the colors change seems like it yea it did to blue so how does one fix it
michael07
01-16-2012, 07:34 PM
uh i think something is wrong with dropping the fishies :P after the update i bet the colors change seems like it yea it did to blue so how does one fix it
same problem here :(
hooga
01-16-2012, 08:14 PM
i think alching will be fine so mught as well alch?agree?
catbat78
01-17-2012, 02:42 AM
I bet Flight's updating the script right this second just be patient. The update was well worth it though because of the cool new XP gauge!
washcaps94
01-17-2012, 03:16 AM
Keep it up flight! :) im sure I dont need to state the obvious about the fish not being dropped. oops :p
TomTuff
01-18-2012, 04:19 AM
Getting 80 fishing with this (from 74) after I saw how horrendously slow this is by hand. Great script so far. Good work, Flight :) Rep+.
E: Hm dropping is messed up, let's see if I can fix it :p
E2: To fix dropping, replace the procedure "FastDropSlot" (starts at line 860) with this:
Procedure FastDropSlot(Slot: Integer);
Var
X,Y,MenuHeader: Integer;
TB: TBox;
begin
Case Slot of
1: TB := IntToBox(564,214,598,244);
2: TB := IntToBox(606,214,640,244);
3: TB := IntToBox(648,214,682,244);
4: TB := IntToBox(690,214,724,244);
5: TB := IntToBox(564,250,598,280);
6: TB := IntToBox(606,250,640,280);
7: TB := IntToBox(648,250,682,280);
8: TB := IntToBox(690,250,724,280);
9: TB := IntToBox(564,286,598,316);
10: TB := IntToBox(606,286,640,316);
11: TB := IntToBox(648,286,682,316);
12: TB := IntToBox(690,286,724,316);
13: TB := IntToBox(564,322,598,352);
14: TB := IntToBox(606,322,640,352);
15: TB := IntToBox(648,322,682,352);
16: TB := IntToBox(690,322,724,352);
17: TB := IntToBox(564,358,598,388);
18: TB := IntToBox(606,358,640,388);
19: TB := IntToBox(648,358,682,388);
20: TB := IntToBox(690,358,724,388);
21: TB := IntToBox(564,394,598,424);
22: TB := IntToBox(606,394,640,424);
23: TB := IntToBox(648,394,682,424);
24: TB := IntToBox(690,394,724,424);
25: TB := IntToBox(564,430,598,460);
26: TB := IntToBox(606,430,640,460);
27: TB := IntToBox(648,430,682,460);
28: TB := IntToBox(690,430,724,460);
end;
MouseSpeed := RandomRange(26,39);
MouseBox(TB.X1, TB.Y1, TB.X2, TB.Y2, mouse_right);
Wait(RandomRange(20, 75));
MenuHeader := BitmapFromString(85, 3, 'meJxj4eaauuMYELFwc6EhZHFK2Pj' +
'NREb41ZNtNR6VVPQmed7HVENn76NFBDFOxRVleMwhqB5XUOBS Q4yx' +
'BB0PAFlnADk=');
if FindBitmapToleranceIn(MenuHeader, X, Y, 490, 190, 764, 475, 10) then
begin
MMouse(X, (Y+50), 20, 3);
Wait(RandomRange(20, 75));
ClickMouse2(True);
end;
FreeBitmap(MenuHeader);
end;
cloud0437
01-18-2012, 06:28 AM
Thanks for the fix TomTuff
its still not working perfectly for me but it still works
Only1
01-19-2012, 12:02 AM
Its not dropping. how do i make it drop the fish
Flight
01-19-2012, 01:59 AM
Its not dropping. how do i make it drop the fish
Look above you at TomTuff's post.
kozak94
01-19-2012, 02:26 PM
Hey guys! Is it possible to modify the script to allow it to do the "fish one, drop one" method, instead of alching? The reason for that is I would be able to put 26 decorated fishing urns and would receive a handsome exp reward. I would still get the regular fishing exp and the bonus urn exp. Could this be done? Thanks in advance!!
helloogoodbye
01-20-2012, 12:09 AM
Thank you here is a nice proggy with 63k exp/hour!
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 4 Hours, 21 Minutes and 20 Seconds
Trout caught: 1496
Salmon caught: 1571
Sturgeon caught 1141
Fishing XP 276050
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Mokwa
01-21-2012, 02:39 PM
Getting 80 fishing with this (from 74) after I saw how horrendously slow this is by hand. Great script so far. Good work, Flight :) Rep+.
E: Hm dropping is messed up, let's see if I can fix it :p
E2: To fix dropping, replace the procedure "FastDropSlot" (starts at line 860) with this:
Thank you for the fix.
Adobe
01-21-2012, 10:59 PM
Why doesnt it show how much xp/hr i get?
Scaper
01-21-2012, 11:20 PM
whats best to use bait or feathers?
also do you need rod in invent or can it be in tool belt?
momotron
01-22-2012, 12:52 AM
Feathers and tool-belt rod can be used
@fish 1/drop 1 <------ is inefficient and no legits do that
Flight
01-22-2012, 01:41 AM
whats best to use bait or feathers?
also do you need rod in invent or can it be in tool belt?
Apparently fishing bait is cheaper. Whatever you choose just put it in inventory slot #1. If you don't already have the heavy-rod added to your tool belt the script will do so (this is assuming you already have it in your inventory).
Scaper
01-22-2012, 01:48 AM
I got 11k feathers to use 92 fish atm and getting 60k xp p/h the exp is that just fish exp calculated or str and agil too?
Also dropping coud do with some work :)
Adobe
01-22-2012, 02:35 AM
=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 2 Hours, 18 Minutes and 58 Seconds
Trout caught: 695
Salmon caught: 540
Sturgeon caught 574
Fishing XP 118470
Breaks: 0
=-=--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Adobe
01-22-2012, 04:52 AM
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 2 Hours, 15 Minutes and 29 Seconds
Trout caught: 699
Salmon caught: 553
Sturgeon caught 557
Fishing XP 118220
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Didnt do the random =/
catbat78
01-22-2012, 09:34 PM
Note to TomTuff; Thanks for the excellent fix there's just one problem and that is that it sometimes doesn't drop the first three fish on the 3rd last and last row! Thanks again for the fix though! ;)
Absolutely outstanding script! I have been running this for 3 hours already and it is still running. I appreciate the effort you put into creating this.
Edit:
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 4 Hours, 1 Seconds
Trout caught: 1009
Salmon caught: 817
Sturgeon caught 766
Fishing XP 168920
Breaks: 1
I stopped it myself.
Kyute
01-23-2012, 05:31 AM
Doesnt log in when i start it?
Nevermind lawl I decided to actually read the script i figured it out pretty fast
cloud0437
01-23-2012, 06:50 AM
Great Script. Thanks
Datank
01-23-2012, 10:49 AM
Wow this looks great! definitely considering using this script!
Did another one:
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 3 Hours, 7 Minutes and 44 Seconds
Trout caught: 926
Salmon caught: 693
Sturgeon caught 649
Fishing XP 146730
Breaks: 1
Great script. I had to replace the dropping procedure with my own, though. Other than that, it seems to be working pretty flawless.
TYI, your dropping procedure just "hovered" in a wierd manner through my inventory. I think it was "thinking" that it was clicking 'drop' when it wasnt. It may be a problem with my SRL include, but maybe not. I saw someone had the same problem with your 'regular' barbarian fisher. :-) No worries though; its working great after replacing that procedure.
So far your script has gotten me 17,5k fishing xp, averaging 20k/h. I do have quite a low fishing level - and since the script seems to be fishing most of the time as it's supposed to, I expect to gain much better xp rates at higher levels.
All in all a great script. Thanks a lot. :)
fraudie123
01-24-2012, 01:13 PM
this script is great, apart from the faulty drop procedure, and ive already leveled from 85 to 88 wiv this (averaging 60-63k exp ph). this script deserves a thumbs up or rep increase, i dunno?
maigel
01-24-2012, 05:26 PM
As said before, awesome script apart from the drop function that isn't working.
However, implementing your own drop function takes about a minute and it makes leechers having to do some coding :D
Keep up the great scripts, Flight! :D
Fantastic script, has leveled me from 65-73. Experience has varied but I assume it's at near best for each level. Aside from the dropping this script is flawless.
xjasonz
01-25-2012, 12:42 AM
works great after i fixed the code
Dawntay
01-25-2012, 12:57 AM
Works great
TheOneTheOnly
01-27-2012, 05:02 AM
What part of the code do i need to change to get it to drop.
Help would be much appreciated.
Flight
01-27-2012, 05:36 AM
What part of the code do i need to change to get it to drop.
Help would be much appreciated.
Check out this post: http://villavu.com/forum/showpost.php?p=896551&postcount=257
[CENTER]
About Fish 'n Alch
What this method implies is simply using the high alchemy spell on 1 fish at a time to avoid ever dropping the fish. Timed just right, this will give you unlimited inventory space. This won't work 100% for the higher level'd players (you will out-fish the alching time limit) but no worries as the full load of fish will still be recorded and dropped. Keep in mind though you will lose money (the trout alchs for 15 gp, salmon for 30, sturgeon for 45) but you'll also be gaining an extra 40-50k Magic xp/hour using this method. Surprisingly, it doesn't speed up the Fishing xp/hour (I'm honestly surprised about this) but altogether putting you near 100k xp/hour.
~Flight
This is because high alch requires game tick and hence interrupts fishing. The actual method is actually to use low alch (http://runescape.wikia.com/wiki/Low_alch) (u'll be surprised that this is actually the diff b/w high and low alch other than the money produced). The rate in which u cast the low alch must also be slow enough to ensure that there is no queuing involved.
Flight
01-27-2012, 08:46 AM
This is because high alch requires game tick and hence interrupts fishing. The actual method is actually to use low alch (http://runescape.wikia.com/wiki/Low_alch) (u'll be surprised that this is actually the diff b/w high and low alch other than the money produced). The rate in which u cast the low alch must also be slow enough to ensure that there is no queuing involved.
On the contrary, if you've used the Alch 'n Fish method in this script you'll see that I've timed the interval of alching quite precise so alching a fish will not reset our player's 'fishing event'.
Quintessence
01-27-2012, 08:49 AM
Tom's dropping procedure doesn't seem to make a difference even after implementing it into version 1.35. :\
The script will hover the mouse around the inventory in an extremely weird manner. It also manages to click the friends chat icon somehow.
On the contrary, if you've used the Alch 'n Fish method in this script you'll see that I've timed the interval of alching quite precise so alching a fish will not reset our player's 'fishing event'.
Did the fisher manage to catch a fish and high alched at the same tick (within 0.6sec)? "fishing event" may have been paused and resume automatically after high alched.
I didnt use the script since i have 99 long ago :), but thats what the rs wikia (http://runescape.wikia.com/wiki/Low_alch)says anyway:
Since this spell has the same cost as High Level Alchemy when cast with a fire staff (1 nature rune) and since it produces less gold, most players view it as useless. However, Low Level Alchemy has one advantage over its higher counterpart: unless a player casts it rapidly enough for it to queue, the spell will not disrupt certain training actions, like woodcutting, fishing, and mining. Thus, a player can simply fish, mine, or woodcut normally while simultaneously alching noted items. Alternatively, a player can speed up their training in those skills by low alching their fish, ores, or logs instead of dropping or banking them.
I always look up at rs wikia for any skills that i want to train, its rather informative and taught me alot things that i'd never know if not for it :f:
TheOneTheOnly
01-27-2012, 02:14 PM
Check out this post: http://villavu.com/forum/showpost.php?p=896551&postcount=257
Thanks man.
natcrafteer
01-29-2012, 01:56 AM
[Error] (36:32): Type mismatch at line 35
Compiling failed.
line 35 LampSkill := 'Fishing';
Flight
01-29-2012, 03:31 AM
[Error] (36:32): Type mismatch at line 35
Compiling failed.
line 35 LampSkill := 'Fishing';
Change that line to LampSkill := Skill_Fishing;
Apparently lampskills were changed from strings to integers.
natcrafteer
01-29-2012, 03:38 AM
i forgot about that, someone mentioned that to me already about a different script i need to pay more attention haha thanks flight
siiz44
01-29-2012, 06:25 PM
My mouse is just hovering overtop of my character. It doesn't click the fishing spot to begin fishing. Anyone else having the same issue or know what I screwed up? Any help is appreciated. Thanks.
catbat78
01-29-2012, 08:59 PM
My mouse is just hovering overtop of my character. It doesn't click the fishing spot to begin fishing. Anyone else having the same issue or know what I screwed up? Any help is appreciated. Thanks.
Go to page 11 of reply's and follow TomTuff's instructions on how to fix it! :f:
siiz44
01-29-2012, 10:28 PM
I did that but it still doesn't begin fishing. It just hovers around my character and makes green dots all over the top left of the screen
selgius7
01-30-2012, 01:23 PM
after i replaced procedure with this one from here: http://villavu.com/forum/showpost.php?p=896551&postcount=257
and updated srl to 5
it still wont drop fish, just hovers examine button, or sometimes click examine
maybe someone can rewrite procedure with
ChooseOption('rop');
Edit:
Replace FastDropSlot
with this one:
Procedure FastDropSlot(Slot: Integer);
Var
X,Y: Integer;
TB: TBox;
begin
Case Slot of
1: TB := IntToBox(564,214,598,244);
2: TB := IntToBox(606,214,640,244);
3: TB := IntToBox(648,214,682,244);
4: TB := IntToBox(690,214,724,244);
5: TB := IntToBox(564,250,598,280);
6: TB := IntToBox(606,250,640,280);
7: TB := IntToBox(648,250,682,280);
8: TB := IntToBox(690,250,724,280);
9: TB := IntToBox(564,286,598,316);
10: TB := IntToBox(606,286,640,316);
11: TB := IntToBox(648,286,682,316);
12: TB := IntToBox(690,286,724,316);
13: TB := IntToBox(564,322,598,352);
14: TB := IntToBox(606,322,640,352);
15: TB := IntToBox(648,322,682,352);
16: TB := IntToBox(690,322,724,352);
17: TB := IntToBox(564,358,598,388);
18: TB := IntToBox(606,358,640,388);
19: TB := IntToBox(648,358,682,388);
20: TB := IntToBox(690,358,724,388);
21: TB := IntToBox(564,394,598,424);
22: TB := IntToBox(606,394,640,424);
23: TB := IntToBox(648,394,682,424);
24: TB := IntToBox(690,394,724,424);
25: TB := IntToBox(564,430,598,460);
26: TB := IntToBox(606,430,640,460);
27: TB := IntToBox(648,430,682,460);
28: TB := IntToBox(690,430,724,460);
end;
MouseSpeed := RandomRange(26,39);
MouseBox(TB.X1, TB.Y1, TB.X2, TB.Y2, mouse_right);
Wait(RandomRange(20, 75));
ClickMouse2(False);
ChooseOption('rop');
begin
Wait(RandomRange(20, 75));
end;
end;
and it should work. It works for me...
Huggies
01-31-2012, 04:57 AM
Amazing script.
Time Running: 2 Hours, 27 Minutes and 54 Seconds
Trout caught: 852
Salmon caught: 630
Sturgeon caught 624
Fishing XP 136620
Breaks: 0
selgius7
01-31-2012, 02:39 PM
after update it wont work for me, after it presses on fishing spot, then after 5~ it presses again on minimap fishing spot icon... wtf ?
srry 4 my bad english
newy1
01-31-2012, 03:44 PM
after update it wont work for me, after it presses on fishing spot, then after 5~ it presses again on minimap fishing spot icon... wtf ?
srry 4 my bad english
Same here. Hope to be fixed soon.
Flight
01-31-2012, 04:17 PM
after update it wont work for me, after it presses on fishing spot, then after 5~ it presses again on minimap fishing spot icon... wtf ?
srry 4 my bad english
Same here. Hope to be fixed soon.
That's because this script checks if you correctly clicked on the fishing spot or if you misclicked. Incase you haven't noticed, mouse click colors have very recently been changed in Runescape. SRL will need to be updated to adjust to this change. Have patience.
Huggies
01-31-2012, 09:39 PM
Any idea when this will be fixed Flight?
fircommander
02-01-2012, 03:16 AM
Works flawless once u change line 35 and dropping code accidently had my fishing bait in slot 2.... fail on my part
war_god215
02-02-2012, 06:01 AM
After the line 35 and dropping fix it's been working very well, here's a proggie:
Time Running: 3 Hours, 21 Minutes and 57 Seconds
Trout caught: 1132
Salmon caught: 883
Sturgeon caught 874
Fishing XP 188330
Breaks: 0
I'm at ~55k xp/h
Quintessence
02-02-2012, 09:52 AM
Managed to fix the drop procedure (for me, anyway). All I did was modify Tom's bitmap and increase the tolerance. I think the transparency of the menu was causing problems for me. :s
Procedure FastDropSlot(Slot: Integer);
var
X,Y,MenuHeader: Integer;
TB: TBox;
begin
Case Slot of
1: TB := IntToBox(564,214,598,244);
2: TB := IntToBox(606,214,640,244);
3: TB := IntToBox(648,214,682,244);
4: TB := IntToBox(690,214,724,244);
5: TB := IntToBox(564,250,598,280);
6: TB := IntToBox(606,250,640,280);
7: TB := IntToBox(648,250,682,280);
8: TB := IntToBox(690,250,724,280);
9: TB := IntToBox(564,286,598,316);
10: TB := IntToBox(606,286,640,316);
11: TB := IntToBox(648,286,682,316);
12: TB := IntToBox(690,286,724,316);
13: TB := IntToBox(564,322,598,352);
14: TB := IntToBox(606,322,640,352);
15: TB := IntToBox(648,322,682,352);
16: TB := IntToBox(690,322,724,352);
17: TB := IntToBox(564,358,598,388);
18: TB := IntToBox(606,358,640,388);
19: TB := IntToBox(648,358,682,388);
20: TB := IntToBox(690,358,724,388);
21: TB := IntToBox(564,394,598,424);
22: TB := IntToBox(606,394,640,424);
23: TB := IntToBox(648,394,682,424);
24: TB := IntToBox(690,394,724,424);
25: TB := IntToBox(564,430,598,460);
26: TB := IntToBox(606,430,640,460);
27: TB := IntToBox(648,430,682,460);
28: TB := IntToBox(690,430,724,460);
end;
MouseSpeed := RandomRange(26,39);
MouseBox(TB.X1, TB.Y1, TB.X2, TB.Y2, mouse_right);
Wait(RandomRange(20, 75));
MenuHeader := BitmapFromString(57, 15, 'meJzjEhTiGiJIUFJ6FA0zNHXHMW' +
'SEXzGfmMRAIYjzcHEx0QBmE4jbcHEHFSLVqZgKkBMPqeKYVuN xAH6' +
'n4jGTcjYuZxCjhorOwGM1Sd6nxKks3FwQNpBBBhsZYapBRvjV U+gM' +
'yp2KqYaKTkULEEyT8SjGox6Xs3GpIUbvIEFYXcjNyzMIEcSpa IIAA' +
'k7ppw==');
if FindBitmapToleranceIn(MenuHeader, X, Y, 490, 180, 764, 490, 30) then
begin
MMouse(X, (Y+50), 20, 3);
Wait(RandomRange(20, 75));
ClickMouse2(True);
end;
FreeBitmap(MenuHeader);
end;
Leonoras
02-02-2012, 03:22 PM
I have some small problem, when it is using Fishnalch it alch fish corectly, but not so fast as needed so after a while theres full inventory. Script is not able to drop rest of fish, it will just click on fish but no sellect "drop". Can you help me or repair the script?
Thank you
EDIT: Nevermind, I got it :)
Deceptive
02-03-2012, 09:40 AM
all is good apart from dropping the fish once i have a full invent.
any help?
chelmid
02-03-2012, 05:20 PM
it clicks the fishingskill icon that appears to upper part of the screen.then it stops.(worked three times 30 mins and always the same problem)
Any fix for that?
(Sry very bad english)
Are there any possibilities to add 'gut' option to get caviar from fish and use it as bait?just thinking.
Quintessence
02-04-2012, 10:47 AM
it clicks the fishingskill icon that appears to upper part of the screen.then it stops.(worked three times 30 mins and always the same problem)
Any fix for that?
(Sry very bad english)
Are there any possibilities to add 'gut' option to get caviar from fish and use it as bait?just thinking.
I noticed that too. I just commented out the skill hover anti-ban.
Fishing bait costs like 5 coins each? Why would you want to jeopardise your experience per hour to save 5 coins per fishing bait?
Edit: I'm getting this error randomly now.
"Error: Out Of Range at line 738"
It then opens up a new tab called 'text' with the line highlighted being:
function FindNPCChatText(txt: string; action: fnct_ActionOptions): boolean;
okokokok
02-04-2012, 01:40 PM
Time Running: 2 Hours, 2 Minutes and 56 Seconds
Trout caught: 741
Salmon caught: 553
Sturgeon caught 0
Fishing XP 75760
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Nice script! I'm 67 fish atm, so thats why the exp/hour is low :P
EDIT:
Epic script:
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 4 Hours, 44 Minutes and 57 Seconds
Trout caught: 1658
Salmon caught: 1123
Sturgeon caught 0
Fishing XP 161510
Breaks: 1
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
.... i replaced line 35 and replaced the drop and it keeps on moving to the pyre ship area can some one please help me
Looks like its fixed now
lolwutyou
02-04-2012, 11:49 PM
for people with crappy computers or internet connection you should add a option to remove the paint. without it it increases the FPS immensely.
Flight
02-05-2012, 02:11 AM
On SMART simple click the right-most button (Disable Debug).
oneshotonekill101
02-05-2012, 05:13 AM
I cant get it to work keeps saying
[Error] (36:32): Type mismatch at line 35
Compiling failed.
Quintessence
02-05-2012, 07:39 AM
Change that line to LampSkill := Skill_Fishing;
Apparently lampskills were changed from strings to integers.
^this.
A_Dunn
02-05-2012, 02:42 PM
[Error] (36:32): Type mismatch at line 35
Compiling failed.
A_Dunn
02-05-2012, 02:44 PM
Thanks, Sorted ^^
A_Dunn
02-05-2012, 02:54 PM
Doesn't drop fish :|
chelmid
02-05-2012, 07:48 PM
The script has to be babysit because it clicks accidentally the fishing icon at least once per 30 mins.I hope that it's gnna be fixed.or can't i just delete that antiban which hovers over the popping up fishing icon?
Plz help!(without that bug the script is perfect.)
war_god215
02-05-2012, 10:24 PM
Doesn't drop fish :|
There's an edit for that on page 11 by TomTuff.
Andres
02-06-2012, 02:21 AM
Hey everyone,
This is the first script that I've tried using Simba, and it seems to be working pretty well so far.
I had to make the changes that others have posted, thanks to Quintessence and TomTuff for posting solutions.
It's only been running for a few minutes, but it clicks the spot and drops the fish :smile:
I'll post a proggy after it runs for a while.
Thanks so much for posting this script!
-Andres
Pl4nK
02-06-2012, 04:12 AM
Works fine appart from not dropping 1 or 2 fish.
Why dont you update the original download link instead of having to add bits and bobs from everybody else,
Lol took me two hours to get it the edit from tom in and working rofl.
I can finally now go for a smoke knowing that all is well..:D:D
Shit time flies doing anything to do with scripting
Flight
02-06-2012, 04:34 AM
Well those other fixes weren't mine, and I've been quite busy working on ZMI lately. Today I'll fix this script up along with my other 3 fishing scripts.
Pl4nK
02-06-2012, 06:11 AM
Busy bee!
Could you tell me how to make it stop clicking on the fishing skill guide?
If this is an anti-ban precaution is it ok to remove?
Anyone reply to this i need to get some sleep, wanna get some exp while i do so. TYVM
Pl4nK,
Andres
02-06-2012, 06:19 AM
Busy bee!
Could you tell me how to make it stop clicking on the fishing skill guide?
If this is an anti-ban precaution is it ok to remove?
Anyone reply to this i need to get some sleep, wanna get some exp while i do so. TYVM
Pl4nK,
If it's accessing the skill guide through the new floating xp pop ups, you can simply disable them. Do so by right clicking on the xp counter and toggling pop ups. I had the same issue. It was kind of hovering over the pop up and clicking it occasionally.
If it's accessing the guide through the stats menu, I don't know what to tell you.
Pl4nK
02-06-2012, 06:21 AM
Lets give it a go,
Could see you was on this thread
Thank you, and Goodnight!
Edit: Shit i hope it is accessing it from the pop-up, Otherwise im gonna be in a bad mood before the day begins :/
Who knows what could happen :O
Andres
02-06-2012, 07:41 AM
Alright, time for a quick progress report from my first run of the script.
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 1 Hours, 53 Minutes and 32 Seconds
Trout caught: 657
Salmon caught: 488
Sturgeon caught 475
Fishing XP 105010
Breaks: 0
I did not have any issues with the script. Once I changed the line 35 error and the drop portion, everything went smoothly. I did have to disable the experience pop ups because it was causing some odd things to happen (mouse was just hovering over it and clicking occasionally).
I did have to stop the script because of a random. I reran it after and got this:
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 2 Hours, 54 Minutes and 12 Seconds
Trout caught: 825
Salmon caught: 635
Sturgeon caught 619
Fishing XP 135220
Breaks: 1
I had one issue during this one. It got a full inventory and didn't do anything. To fix it, I had to disable SMART and drop a fish manually. When I enabled SMART it started back up fine. Other than that, the only issue is that not all of the fish get dropped. It's pretty consistently leaving 3-6 fish per inventory (and usually the same ones).
All of the things I mentioned are very minor, and I look forward to using this script in the future!
BluFlamez
02-06-2012, 03:39 PM
Help me when i click play it says: Exception in Script: Unable to find file 'srl/srl.scar' used from '' please help me!
A_Dunn
02-06-2012, 04:10 PM
There's an edit for that on page 11 by TomTuff.
Cheers buddy
Andres
02-06-2012, 05:42 PM
Help me when i click play it says: Exception in Script: Unable to find file 'srl/srl.scar' used from '' please help me!
Did you install srl 5 like was stated in the first post? I'm not really sure if that's the solution, but it's all I can think of.
okokokok
02-06-2012, 05:49 PM
Help me when i click play it says: Exception in Script: Unable to find file 'srl/srl.scar' used from '' please help me!
Use the term "srl 5" in the search option. Should explain your how to fix your problem...
Khal Drogo
02-08-2012, 05:20 AM
Anyone else having the issue of the script clicking the fishing spot again, even though you are already fishing? When it happens, all the paint flickers also, not sure on the problem :(
EDIT: Updating all of my extensions seemed to fix it although I thought they were all updated in the first place.
I'm using a different users dropping fix posted here on the forums, and I noticed it doesn't seem random whatsoever. It seems very detectable or am I worrying over nothing?
EDIT2: Well, it still clicks the fishing spot but not nearly as much as it did before.
Flight
02-08-2012, 06:31 AM
I'll be experimenting a bit with alternative fishing detection methods when I finish my move. At the moment, the script determines whether or not your fishing based on constantly checking your inventory for items, and I don't know about you guys but it sure takes a toll on my CPU.
Anyways, it currently works by monitoring your inventory, when the number of items you have changes (ex. you caught a fish) a timer will be reset back to 0 and will increase over time until it reaches 6000 (6 seconds). So basically if you don't catch a fish (or get a full inventory) in 6 seconds the script will assume the player has stopped fishing.
But like I said, I have other ideas on how to detect fishing. So please be patient for a while and eventually I'll have some time to work on this.
holy angel
02-08-2012, 06:20 PM
I get this message when I hit run [Error] (36:34): Type mismatch at line 35 any one know why I get this?
Volkan
02-08-2012, 07:52 PM
I get this message when I hit run [Error] (36:34): Type mismatch at line 35 any one know why I get this?
Lamps were changed from strings to integers
change 'fishing'; to Skill_Fishing;
Also very much appreciate the script Flight, works beautifully other than when it gets stuck in a random.
cmxz1
02-08-2012, 10:27 PM
I'll be experimenting a bit with alternative fishing detection methods when I finish my move. At the moment, the script determines whether or not your fishing based on constantly checking your inventory for items, and I don't know about you guys but it sure takes a toll on my CPU.
Anyways, it currently works by monitoring your inventory, when the number of items you have changes (ex. you caught a fish) a timer will be reset back to 0 and will increase over time until it reaches 6000 (6 seconds). So basically if you don't catch a fish (or get a full inventory) in 6 seconds the script will assume the player has stopped fishing.
But like I said, I have other ideas on how to detect fishing. So please be patient for a while and eventually I'll have some time to work on this.
Mine clicks fishing spot, then freezes, then clicks fishing spot and freezes again.
When inv is full, it just hovers over fish like it wants to drop it.
holy angel
02-08-2012, 10:42 PM
Mine clicks fishing spot, then freezes, then clicks fishing spot and freezes again.
When inv is full, it just hovers over fish like it wants to drop it.
mine does the same exact thing
Jameschen1222
02-08-2012, 11:57 PM
Originally Posted by cmxz1
Mine clicks fishing spot, then freezes, then clicks fishing spot and freezes again.
When inv is full, it just hovers over fish like it wants to drop it.
mine does the same exact thing
Same, i just downloaded the script a min ago.. I guess we have to wait a few days
war_god215
02-09-2012, 03:01 AM
Same, i just downloaded the script a min ago.. I guess we have to wait a few days
It's is running like a charm for me, make sure you update to SRL5 and edit the dropping code from page 11 and fix line 35.
Thanks for the script Flight and the edits TomTuff!
cmxz1
02-09-2012, 03:42 PM
It's is running like a charm for me, make sure you update to SRL5 and edit the dropping code from page 11 and fix line 35.
Thanks for the script Flight and the edits TomTuff!
Ye i am dumb, i used SLR 4 and that is already added in 1.35 version.
Using SLR5 and now it just hovers over my char and runs around looking for different fishing spots.
Proballer
02-10-2012, 12:59 PM
really one of my fav scripts :D
here is a small proggie :d
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 5 Hours, 48 Minutes and 16 Seconds
Trout caught: 1862
Salmon caught: 1463
Sturgeon caught 1511
Fishing XP 316390
Breaks: 0
Proballer
02-10-2012, 08:17 PM
hey i've noticed that the xp amount gained showed with debug doesn't match with the real xp gained. Don't know if anyone else noticed, could be just me but just wanted to let you know:
xp gained shown on debug: 165k
on tracker ingame: 131k
Jameschen1222
02-10-2012, 11:10 PM
How do people bot for over like 30min-40mins? I cant never bot for more than like 20mins.
It gets stuck in the fishing skill menu a lot!
Also, do the scripts solve random events?
Cuz whenever I get a random, the bot just logs me off or hoover the mouse around and does nothing
Sockz
02-11-2012, 10:37 PM
Thankyou, works like a charm :D
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 1 Hours, 11 Minutes and 8 Seconds
Trout caught: 375
Salmon caught: 232
Sturgeon caught 230
Fishing XP 53390
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Archmageix
02-12-2012, 08:34 PM
quick proggy would have been longer but rs updated =[
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 3 Hours, 5 Minutes and 41 Seconds
Trout caught: 972
Salmon caught: 729
Sturgeon caught 0
Fishing XP 99630
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Welcome to Runescape.
'Client token changed.'
Runescape has been updated! Please restart Simba.
Successfully executed.
ILikeSmoothHeads
02-12-2012, 09:23 PM
Won't drop the fish?Just keeps right clicking on them and doing nothing?
bobov123
02-13-2012, 12:43 AM
someone help me all it does when i run it it says "Error] (36:32): Type mismatch at line 35
Compiling failed."
Andres
02-13-2012, 05:28 PM
someone help me all it does when i run it it says "Error] (36:32): Type mismatch at line 35
Compiling failed."
You need to rename 'Fishing' to Skill_Fishing.
---
Thanks a lot Flight, I just got to my goal of level 91 with your script. Here's my final proggy:
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 6 Hours, 36 Minutes and 26 Seconds
Trout caught: 2196
Salmon caught: 1613
Sturgeon caught 1780
Fishing XP 365110
Breaks: 2
Keep up the great work!
Kidlington
02-14-2012, 11:00 AM
I am getting the following error.
[Error] (941:13): Unknown identifier 'DropRemaining' at line 940
Compiling failed.
How can I fix this?
cmxz1
02-14-2012, 03:28 PM
Whoever agreed with me before, i found my mistake.
My default clothes were same color as fishing spots, that's why it didn't work for me.
But can you add some waittimers, atm it clicks spots really often.
newy1
02-14-2012, 05:15 PM
Keeps clicking different fishing spots one after each other.
Castiel
02-14-2012, 10:45 PM
Keeps clicking different fishing spots one after each other.
same problem here....
donkeykong007
02-15-2012, 04:53 AM
Yeah keeps clicking different fishing spots.. was working fine yesturday.
Any help would be appreciated.
Mine is getting a full invent, and then right clicking different fish, without dropping them. Hopefully an update comes soon. Looks like a great script :)
injustice
02-15-2012, 04:16 PM
[Error] (36:32): Type mismatch at line 35
Compiling failed.
Help?
EDIT: Fixed that, instead of
LampSkill := 'Fishing';
I made it
LampSkill := Skill_Fishing;
and it worked.
Now, it right clicks the third slot and hovers over the rest whilst trying to drop the inventory.
Help?
Blocks
02-15-2012, 06:42 PM
It doesnt drop fish if you have a knife in your toolbelt i think, it just clicks use option for me.
reorxsknight
02-15-2012, 08:54 PM
it keeps opening up the skill guide then just sits there...
program HeavyRodder;
{$DEFINE SRL5}
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i SRL/SRL/misc/paintsmart.simba}
Const
//SRL Stats
SRLStats_Username = '';
SRLStats_Password = '';
//General settings
AlchFish = False; //Fish 'n alch method? (False for standard fish 'n drop)
SwitchWorlds = True; //Switch worlds after break?
//Break settings
BreakIn = 13500; //How long before we take a break? (minutes)
BreakFor = 1; //How long will we break for? (minutes)
Bir = 13; //Random minutes to add/subtract from how long until we break
Bfr = 7; //Random minutes to add/subjtract from break duraction
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
BoxRewards := ['XP','xp','lamp'];
// LampSkill := 'Fishing';
Active := True;
end;
end;
Procedure CheckStats;
begin
if ((SRLStats_Username = '') And (SRLStats_Password = '')) then
begin
case MessageBox('No Stats account entered, would you like to set one up?','SRL Stats',mbYesNoCancel) of
mrYes:
begin
OpenWebPage('http://stats.villavu.com/register');
TerminateScript;
end;
mrNo:
begin
SetupSRLStats(201,'Anonymous','anon1337');
Exit;
end;
mrCancel: TerminateScript;
end;
end else
SetupSRLStats(201,SRLStats_Username,SRLStats_Passw ord);
end;
Var
Version: String;
ReportTime,CommitTime,PostID: Integer;
Trout_Caught,Trout_Ca,
Salmon_Caught,Salmon_Ca,
Sturgeon_Caught,Sturgeon_Ca,
FishXP,Fish_XP,MagicXP,Magic_XP: Integer;
//Break variables
w,x,y,z,RealBTime,CurrentBTime,
BreakRounds,TotalBreaks: Integer;
Procedure Loadvars;
begin
Version := '1.35';
PostID := 841068;
MarkTime(CommitTime);
MarkTime(ReportTime);
MouseSpeed := RandomRange(17,19);
w := (BreakIn * 60000);
x := (BreakFor * 60000);
y := RandomRange(-Bir * 60000, Bir * 60000);
z := RandomRange(-Bfr * 60000, Bfr * 60000);
end;
Procedure CheckVersion;
var
Page,NewVer: String;
begin
Page := GetPage('http://villavu.com/forum/showthread.php?p='+IntToStr(PostID)+'');
NewVer := Between('Current version: ', '<br />', Page);
if Version <> NewVer then
ShowMessage('Your script is out of date!')
else
Exit;
end;
Procedure Report;
begin
WriteLn('=-=-=-=-=-=-=-= Heavy-rodder '+Version+' by Flight =-=-=-=-=-=-=-=');
WriteLn('Time Running: '+TimeRunning);
WriteLn('Trout caught: '+IntToStr(Trout_Caught));
WriteLn('Salmon caught: '+IntToStr(Salmon_Caught));
WriteLn('Sturgeon caught '+IntToStr(Sturgeon_Caught));
WriteLn('Fishing XP '+IntToStr(FishXP));
WriteLn('Breaks: '+IntToStr(TotalBreaks));
WriteLn('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=');
MarkTime(ReportTime);
end;
Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
var
mx, my, Pic, Pic2, I, B, H, TPH, Numb: Integer;
TTP: TPointArray;
Canvas: TCanvas;
begin
SmartSetDebug(True);
GetClientDimensions(mx, my);
Pic := BitmapFromString(mx, my, '');
Pic2 := BitmapFromString(360, 71, 'meJztfQV4k9f7dtt44+5aiTRt0' +
'zT1tNGmblShBaq4uwyXsQEDtsFgQ8eQMcY2nCHD3Snu7m4Dtt/3PW' +
'/DWNeWUkbLgH/uq9cE0pNz3vPIfR95Xjc3F1xwoX7gDj/u702zLrj' +
'gwn8ODw93CslTwsBhUPXp5A3UrAsuuPAugIDHR4SGdLTwu5dk knGo' +
'+mIIDdTsuwYYl4e72wc6OBfqDe7u7igPDwwahUa5fwAGA6xAK BCUx' +
'Os6WvmbN6wrbpzBJKLf2WbfNYAxED0JEh6TTcKgPN53W3ChoQ B2gs' +
'fjZFJJRHh4uEGn9ZFKOFQKHvX+ZlMcFhsRERGlIE8u8Cr/aVSPWIF' +
'SJnxzD2igZt8OICnAnKLrIK9gmEG6wBZmychBvVunGDR8git6 uFAF' +
'SHIheur1+lKrN9hVuIzUP1HUs1l848zkAKEn6T2k4jAiLoeTH x/mx' +
'cIdHp+/rZdOwcIFB/p7vNlIGqjZtwMUykPA56WnpaYECzEwpS/vsn' +
'OYTZOjByWLz509802Rf2ZKPBmPeouddeFdh4eHB4VCjoyMaBP Dsyo' +
'pk/O9Dn1dcmzZpB1zhi0e3nRS76YtM6JxaI/3K9tg0OigIF2chtY4' +
'hPn4+tludqGMiQvWB72hgzdQs28B0EGip6fdZmkaxl72/eRubUtAX' +
'r2s0zDMwICA1jG8raPyjv8wMFlLt1vNBBzmrfbYhXcYEDSoVE pMTE' +
'wbE29Iivj82ulXN848OCbz9ILBD6+fv3/17KVDW/fv2vrN+HFWJZW' +
'A8fiv+1snQLqk02hZCWYWEb2yg/rM972CJSSHmqpWq97EwRuo2bcD' +
'iPtikahFrHpwivjy8X2944QBvpIacwEMk0ImpyXYU/xp1w6un1fqm' +
'2dgBvhrUR7vx+y70NBALIRCNptMLaK53xV637txcc9Qc3ogw1/o2c' +
'Mh3DR/wrWrV548fnjv/KGNw9LamXi28EDcS3PUOwQ0CqXRaPJD2Wk' +
'B9NuHfhuXKweOXWKSCPm82tj5f9Ts2wFQiGC9PklL29gr9Nic 3uFy' +
'UoheV2O4gwijkMvbx8rH5cjvnNgBQaPM7vtejNGFtwAwAzKZZ DQaW' +
'xi5U5t5P3pwf10XLZhTsIRYlmGKjwrwFxC+mzrx+Nrv/3jyqPyzdK' +
'MXuTQugMsgvePWg4yLREpyWL1Y+G299Wfn94tQkIk4D4fVRCQ Q3rV' +
'm3w7A40kkYrLDrBN5nv5p6LL2apMPJUgXWGPcwONwJlMMKNb9 E8vK' +
'v2is4RFS4iwkT8+3320X3jWAF3h6EkIMBtCwozNl96+f39RNG yolg' +
'ZKNj3MIeBw8xp2E80iL9h+RLrm46qvj09qAmzSP4CjEgnc8bq BQHl' +
'4KRTubpJ2Z9/jmxU8aSakEVGkUx0shfxM10UDNvh1AB/k8bmFsQIa' +
'O8eDKqc5Wfq6BpfL1qU4hgGzwuNxmCaHZesa9C0dHZUotvpRg fRBw' +
'rf+k5y68OwBrweGwfn6aNrHenW3864c37h4YGaUgx6ppNquVS iY5H' +
'QGN8jBGhsmYuN86a87/MixURsoNZvooZO/4AqkngWC3WRP8aOVT2h' +
'2f0iJUTgbiZIqJ9iTg36TjDdTs2wFEA18fnzIjd1Qj6Y3dS+x Kagu' +
'LTCzkV48bIGd0gYGgTeaW+l7ZOCtWRWtpEktEQpdIcQGNRkml 0sIE' +
'A8SK4/OHHplY6FDTQJ7Ex9poFPILC4G4ERUVicd4TGvqdeb7XloBo' +
'YmB5a2Qvssm5Fz9a50eMbnA69GtSwOSRFwyJjfJwmYx36TbDd TsWw' +
'OwBUOwPiOQsWdsk/IxjXy5hBy7gUGjVvkYjIVKoaTFW/US4qkFQ3f' +
'01onp2LQ4M4VE/E+67cK7A3ABFovZKNEqZeAm5Stula8qjuRo+ISM' +
'JAeLQa9MucHYjFGRBIzHTy2Vh8ZmimnY4gi2TCJ6lx0FtHlkR HhXm' +
'+DEyqnln+eGSIktbD7eXgoM6o32Ahqo2bcGIEXxjtiUAPqtY1 u+yZ' +
'dLGDiLKRqPw1b5GMoD0WJtzXzQYk8fP2hr4sV4k10ixQXnsgZ EgzA' +
'ZCcjqlXVTF7ZRQeosSw6BfIr+pwKpiBtRoOJ39w3a0l0L/1Fo8eFx' +
'2O+sTnFq8+KshPkt/e6cPTgoWZStZ4aGhlR3kHeh2bcGmHQOm9U83' +
'fJlnvzO6X35oawWUVwIetWXZZAV0Zhog4S4rV/kye+66sTEUrNcLB' +
'S8F5zq3wFGBmb/4Y6vfgAKxcfHp5VJyCKigUVcWjXB6kuBgGCzmgl' +
'4XJUPgxXF2u0KFu74jPbTm3mDYGkUG0Elk/6TntcFWAxGrw/qFSc8' +
'tHDc/kllDjU1LSmBRqG8oVE0ULNvDcAilL4+vdL8to5veWx2L0gZa' +
'Ql2CrnqvpgzPDaPN8AAb+xdNiXfi+GJTnJYP+CdFBTKg0omgh bz4e' +
'DR7/7q9n8EiKoMBj093kzGeTTSMW7vXzGpiYJGQOUEM8Guqjw2sCI' +
'ul1OYZkrS0u4c29wnTkT3RMfExGAx7+gdLmR0dHpuqqObnf/wwf3P' +
'c+Qd4n0hq77haaUGavZtgoDHW8zmltHcqwc3Lm2rLoxgB/hrq0sP5' +
'4poZhDzq8bym3uWJGvpyf50f63fWx5pxSVcd5QH8lNHT/7786/zRR' +
'gMmsflOKINY0aPnPXttPRI5ftyrPEtA/KmTqdL0tIldCzojguLRsT' +
'4kNEebnnxUQwatcozB7IRERERq6Z+W+h9Y9fCeA0tM4ihUvq+ s1EZ' +
'qJSfRtM6hreyvebC+plxGlp6UhyZRHzD7jZQs28N4HvAIorSz RMaK' +
'0BktYrmNk8K47JZ7tU+RqVQ0hOsAULP47N77vrIAEbS1KHnsJ hvba' +
'TQBzBRFpPh4+2l1wUYAjR+UhbktdotDofFCgWCAI0yUEIj4ur q+Fg' +
'sRiIWN87J+qJFzNH9O5aMad80J51OwtfDMD4swKSwWay8eGR/pGkY' +
'+96JrRObKBhElL+AAFIdck3lDwN/E4tFJQl6u4p6cd303zr7iWjYf' +
'IeBzWT85/7izEcVPxXVISr+CewIzD41wW70Ip/4YeCW/saMQIYhWF' +
'/3Bb0GavY/B3Q1MCCgnZm344vio7N6WnwpoD1ftiLazszvYOE9/f1' +
'hBzPPi40DeonDvo07KfCcwf35fF5YWFiuIyw/hB2pIEfIyX3ihf16' +
'dqYQUOiXrKnBL4pEwrwoeYwP5etC7aypE5ulRNdOG5yHEGCwz RvF9' +
'XIITmz66dCs3u0tfJvZRHhPFqzeJpwXsmwqqoKJ3d0n8NLysb EqKp' +
'CNEquPQPCPfXznOVKH3RIiJS5tp766aVZ6IMOPT4iMjHxzK3q TsOO' +
'0LgadJhEJvBUyXy+Zt0wsE/NFAq6Azw/WB3WJk0/Ikz+6caFtDK80' +
'igtyoi5Mt4GarXfAdwIVh946w1odf4VCJqfE2+I01Kv7Vv7YQ tkii' +
'qNRK6uTRtAyZpMpQk7aOcxxfHr7IAkRmIlMKmnokUL7oBdYLG ZISE' +
'iz+JBwOcmbjcvQMb7Mle8eaj0yf+jh/bvGtUuyBIhqvOAA4c4QHIx' +
'yd0vxp1/aumB5B/++mToFn15Lp4FpeHkpijKsrWO4x5dPOjG3T1kU' +
't62J916c33vLcNpPqi0Cg3JvEsK6c2jN9yU+PAqG7omuviIK8 6jRa' +
'EAOF4Wz757aPbO5D5eMKbL7VQkvrwWwdkh88EUMChG+9HUrOX h4eH' +
'gSCFKJxGiMyo4NbWmRtYrhdrLyuyfIuqbr22dGt8yy921TAAZ wetk' +
'XB0an+guJBWFskeAVVyoaqNk3BxgwuAn6L42PlEbB4bgcjtLH y1/t' +
'q/GWyQQsBvHV5XTgscuk0tYWSbMw1v0Lh2cU+rQtzOExKFW6/3xFN' +
'CEkR8+AGf8yV8EkopPjrGRiw8ox+F4i0VOlUuUkWkAI25SUqU 29ys' +
'dknlsw8ObOnx5eOPjnsycn5/bOD2UVhnO8BIzqTx05YhQZAfyil0M' +
'In881sPJDWEov+csmCIKGXCYrzLAVRbCPLxpz+seBEB4DBJ6x NuQg' +
'feXfeUciiPtz6ou4Dzgm/MCQK//UfRXoXwDahtRZbIUIgP65lfLmj' +
'h8b6RhYlFtxZNVj0uBKXC6ncYo1REIsn1h8fGqrKC9yoJAIZO PfbT' +
'uCbYBvggLVBwXF2cyNk6LbFDVOChbXvZ4YPCvokikmuoVFbpA Ss/T' +
'M8bnylZ381/YKX9vf/tuAuBW9YhZ1DFrYWrXz44Rnz55OaiI3+1Is' +
'MUYioTa52kDNvjmclw2D1fIUh1nKAu6MgZhvMBjyrdrMIEaSl t4mh' +
'tsjN6q0sMCXi689cgCPgolT8Qjwi2eXfrZm9jijN9lpaR4ezr VEMD' +
'wP4O0wO+Cev7bXXF47FVw4J5ipUatqWRH9a/XSw7kg+S+qwyErKlS' +
'KMSoSMpQ3Gz+qkfTqrsXnfhl+bFLRvbP7nz198r///e/J7cun53TP' +
'CWYJqJhgnX/1OIkcaY6KhGw4JEV8c/ciUGHIIr+PokZfApcD9V2Q7' +
'iiMYB+ZP+zswhEtjVw5C5edaOGwWFUoNxGPJeHeqhp9oZSdkw IRgk' +
'DA06gUPo/n4+0FvNcUHWU2m6KNUVGR4RAt4Z+RYSFhOo1GRGugrjq' +
'PGTcLY+tEnqdmdtw/IFTGxKE83FLjLBTS3/tx8LhIJKLVYrarqPPK' +
'fO+d2tnOxIMuNUk0stms141rziwJ8tNsiim2KkGBwhzFqWkTG isWz' +
'5ncxKSke76i7JRTiioUitxEE3LK3cDcPjT298cPT83tc3J2T7 Cuh9' +
'fPP7x09MH58nund989vgX5j5Pbx2XLO7QuEwv5L0vHDdTsX42/qUN' +
'BoNDrg4Crg7OXNGsi59GMYcEJfjQlF/9xhnTXuIITq789tmP1/j27' +
'Fn43Yeig/gIqtsalQxgmi8nMiwv3xHpAgjj109BNqxYDh6HgUf4yl' +
'j7ALzgoMDhIBwYJhtiyeV4yUP0t81d10ghp2Oz4GDq16lL5i2 bBpM' +
'GeQcX4a/0M+kBDoFbjLZEwcNjXqdKMx+PCwkJDpCQI2tv6hDy8eHh' +
'eqS+ErAHJ4tUzRx3Yv+/OrRvAN65v/f6LHFlJJEcXoK2uI5xHEyFu' +
'jEiXXN/2g8mHkq2vOW6gUB48HjcnNR749oEZ3c//+mVHC19CxzZJM' +
'omFgipzCvFWp5T069a+JNGAb+BNFnf351ScyaCLRUJfH+8Af3 +DIT' +
'g62hhvt2YnxJQk6Dvb+KkBDIOUlOhHyw9lQyBtFMQAaQY/WUGMz3J' +
'9e5Rk/gsa/0pUHDMONkiI2XrGo8vHBiSJCFiP9EC6n0b9Iqc4vQn6' +
'3N7M7+EQPLh0bEFLpZiOLQhlwcew6NcLaDBNNBoVsmRxgh4MQ y8hl' +
'hm5y9qpT8zo8OjGhe3DE/MMzNQ4KxFbS0ZD6hYCiS1KDIFwN6XA69' +
'658sPjsjpaeMESIjzABR0MBzYsvXvn9h9PHv3vzz/g5//9789b+38' +
'dn6foXuDQqrxrNOMGatatnhwK7J1GpWbYQsl4jyYhzMm9G0O8 HdG1' +
'GNLonqG2O0fWb+im/SRD2tMhBEkOEQ8yLDxhHhVX/QtgCtRqFfiRm' +
'IYB/n99x09XLl1YPvfrBXNmfNk8sL2J1yKaWxrFLY3klBk5feNFez' +
'5vdnnd9Fw9M9GPrgsMxNQ045Cy6XRaQIB/uiOmhZELn4xUkG0qyvB' +
's1Yj+3ZvHyITUOo0V+iaVSkoTgkJkpL0jEi+tmgDyEOKVDwc/uG93' +
'cAEuBbNhzmc39y774/cH+75p81ljNTzM6qdzoZPI4i3afSTQlfXTg' +
'BvDeH29q+oUYNEMBj05wQF/u21U7tWt8/rGC6UMXEFyjFQsQv+z2Y' +
'paZ+zS4sLFXw/5durXKp7nK93RmSNePex/AvE4LBbkp9bPz241Q4R' +
'vaZW3N/MgyDcL4+QZWG1ieMPSJLOKfX7rZz0wteOlTXPAd36/f+vp' +
'4wfwH7ePbbm2c+HlzXMvlW/c9uP44cXmIAnlZQvI/w6eBHyc3ULAe' +
'IzNll3b9B0YG9rDLTcxuvL2a8WlFUlxuqmJgXlu9eSDo9MivU igUC' +
'xmE9GT8No74zxugsMO1LdxCGt1R83BcdnnF31y59CaZw9vX13 7DTg' +
'plYByqKkiDu1lSQ2CmFKpLE0MjvEm7xhih9Q/rZmXVuCJx7hD5m2X' +
'FpIRpQQ3X/3zd5f3rX5y9yo4+J9PH8PoBiWLQZ5nWvQ0QtWjJg3Ur' +
'Fv9ORSkVEg6ZRY5j4weky3d/8vniycO3P7D2LMrJlxeM6mtmcejYG' +
'AewVMgD8IPZMyMEBGPVXUl0Fndy2GzkHEeZh/KkbHpv9849/Dq6Wu' +
'HNlw/tvPurWs3Tx+4Wr7h9KrJR38YdPzHYbdP7zv5XZcuNgGLhG6c' +
'GM1iVN04c8ZbuVyeGmcCZsIjY2wqKjyTrT0CyieVHJo35OSut UvHd' +
'uzXoxPwn1fSSIiNyYnxQKK2DTSBvmgVw6V5oiButCpuyiFhMB 7uDn' +
'8ueNCSNiqwmdsndv7Q1do0N4NJrmqHWAwalCY8h/F58osrxoVIiUA' +
'nfLxk1df5TaaYrCDmwlYqSBNjsmViBq4wKVIhk1YPjxW1zrSD c3VH' +
'Ni+d0SsTBGPtO8FA5hlUkk5KQwZeZz9BKhsQPXWBAQWJkc3D2 THeF' +
'HgIkMU2DI4/9OOIa0e2PLx1+dr2Bafm9S8fk7m9p//cEt9PG0k7Wf' +
'gQVTpbBd82994z1HJiVrcLy8ee/r7PkrZqsLfS9GgO9fVctdYeIvG' +
'zqSOIT8Hs/9i29yM92B484RBD8IuHBgGZw2Fnp8ZDQC6f1gWkX2MD' +
'U0jFZCRYEBN6HYUCQUMiEeek2JO1tNnFPrdO7bm0euLlbQtuX 7/88' +
'MH9Z78/vLxqPGQ6MP78WAOLQX9ZI3K5rDAlKlZF3fd506sbZ0KG5Z' +
'IxLCK6zOEfbYwUcZkEjDvM1JCPeoAxXFk3FSLSk1sXT83skKV n4tH' +
'uTew6Jq3q0daGaLYeHcqtYoPAT6PJDGL68Qkbu/vfPrrp9sWTl9bN' +
'KP/E0TSMxfBEQUYuzrDEOWIjgwNCA3wDfKUCNr06G0Q2KIXCEhsiB ' +
'gcni+8eWXdz1y8nvine3E07qYlicIoYOOfiNqpLa6c9/f3Rk/s3T3' +
'3XqSSSDYHRoqQE6XRV9uVhjKC1tVptUaw/BLQ4DXVFB/Xpub1AGtw' +
'/tePJzfPACkDVburuD/IqXKepJUQ6mwJx1CdRurpn5P2LR0dnysAg' +
'g8TE7MwMfsUj4lBwbQrS5EwcZNsb2+cD8TuydOLIJgGWUP8qe 6xYD' +
'MZmMcEfziz0OTW7Ozw08EGFTPzCYJ1fB7wXRHobE+/ehaPgYvAMW9' +
'qVSl+f6ocYnSXdstOTBiWJ7ty8NjhZEqoPqHWdxx3iszEitHd GQP8' +
'urUAD1jHhQw+lXFo7m6R3vHDDoNgre1fcOb71+PT2O3r5T873 6uUQ' +
'Ng1j21XUAKEnPAcwURoBRcQh+YJOQKl4BLMvBcwM7A38FKQKS Bj4a' +
'quS6iUV1lfcqDhm7AupH5zl9v4VMBeQW4vtaj6P43y8YGOQKx Pi40' +
'qjOFs/zb6+c2GvOCEEmaZJUSJE+r2GvgPHBNKSn2qFlL15SPzd03t' +
'/KPWFFDClqff8iR/v3fjr/dvXIYN8kSsDKQpMpsaNXQhiQFfyUmMT' +
'/KhAnq9s+BakE5h0kpaWmuiQiYU4LLInBz8sGqkwKxHy6d6BkY8 uH' +
'oLRgRQC44G5S7EZyUTPhmn27yo99ehQTjhr5kAcsympR8c3/uPRHU' +
'ijU5t6RypIYDZKLiE9MVYk4OGxCLl2bsjW2CI4PqKRvckwEWf n9z+' +
'3YOBnWbK0AHqgyBNmFsgem4QGy1w0rtuu7ZtPbV+xoYsW/gqFsNAY' +
'ENr/2FmoGGNgYGCLaD4J5wHh68y8vvdPbrt9YCUEnD//eAY6DijZr' +
'd0LIQkC/8mKj6aQXlrICIiZQi5r1zR9Qafwh/fu/NpeDYNKC2TE2u' +
'0MMvJbWLRHcKBfrJqm4uJXdNDcPboB2r++e+mEPEUbE9dPyqn smXg' +
'cNtZqgl6t7KA5ODpVTMeVRXEkIv6LuIHFYoBetrL7wKM4PrvX oc/z' +
'IhSklAB6SIihxnV+EFAqpbKrQ7q6j+nMqinNwtmGl1RFe9G+R qNuH' +
'68clyNbs3JZcqiCQcTUxXPhM+Dp48eNPn1oz8Gp7YBLwEPQCg iQd8' +
'h4FDAoEg4FwjlHz2xnFZemhOdnxKenpZmjQsMCVcF+Xnq1PEa vLC4' +
'u6tXECkNGwgsL2b8W8Tn1pVRAQxmNRhkD+1GC8M7htUlaOuhH R6yd' +
'gEWSlLOYpNlk6mzjr+lnv3Nqz1eN5WI6tjg+yEshr1HkvgxOp gFBA' +
'wTIjlE513f8PDRVImVg4zW0ovxsFhHzzZih++cMevrg1u4h5m gvck' +
'xMNBZdQ8CnUinxDhvQlU0DrDf2LOsTJwIjL4pgR0SEUymkF5M I/2L' +
'SaU0SI8FW5xb7AA8/MbkUYhRYkYZPAK+pfDqrXpv9e0WoHh3K7a+V' +
'zMYVK5kgdq789jXEWAhZQA6BBUHeSU90cFjMV6Y05yJJo0Qr2 OHeY' +
'bYLiz+FYQJ7hGwFfYfpaOFQN85uZPShw/8qeYS5w1ps7hsKDgVsUx' +
'+kqzzpTmWn0WhamCVErEdqAO3o+CYPzu49+/Pws9sXHzu079KlS48' +
'fPXx85fjJ6a3By+A5FBilXFbNNBLZreOwC/IbT20VevPK+V2fJAE/' +
'BxUfFhpC9kTKmMDIYIAFSUZwHOjMyWkt4fk/u3/94pKR3WMFHBI6O' +
'8FE9fw714AAT4w1c8iYfcPMG7ohVy+L7Boei+H8W+cGStPkKF Cg2/' +
'qEXFk7GVQz5Ov0RDuNWsP1ImRfgEhMcNggaJ/5deKG3qHAXvxeXjw' +
'WhUKJRMJmqSaHmnZyydj1Q5PABkL0urq8ZsIJiGbTxg4amyVL 8acD' +
'yQSp0jrBv1maLS01xRiqC1QpfKV8MYfGpuCpBDTQKgzq+ekd5 DCPu' +
'xtMKAxZwsD5i8haOUfEpeMw9bOxAu0z6LSsuCiguBu7+h0clS Rj4k' +
'Ai+Uq4ztxKJhEjI8J7JsqXdgm7d+XsD2W+Sg6hZaxKrVK+1ik vCNR' +
'8Pi8vxQ5BY+sg243dSz6KFwH/bB7GjokxsqjI4lLHti37xAvP/Djw' +
'3OKRQLSykqxUUtU7U8D5g/X6VtHc2cXej29f/ipPIaJhW5tFel2gJ' +
'x73zzyI1LAqsiNnWZe3Vz88f2BstgzcEz5TaNMIeP84ZVFfzf KRZp' +
'9/rB4d6sUzVKmU+aFsMQ0zp8T36b1rh0YlgkVBGCHjPXKTrRWXke t' +
'0kg1yeqcE5XdF3o9vnId8QfNEgY0VhrMzkuIC/FRCLgN5t4WbGxGH' +
'jtF5Te8Ue2nX0tbRvJZJQVXqiDpLtTSPDwZHtvpSdvUOuHdi6 6PLx' +
'y4d3r78h+m+HPzkEt2Na5cvr5n0Ra4cIhvMco5JzaJXrezh9t dR9l' +
'hL9NiymDN715VP75wTzGydEBDgr30xBcABwsPCQqUkLxZuVrE vaCs' +
'IvNe3zFnVUQPBE3wiL0rBolOeN4hYr2e6I0Yr8Dy36JOJTRTQ yaw4' +
'I9UTOY8ED4rFYqYnwJwR4K8g/vRLEDGIaBAsvj7eNbJo+EO5TNbaK' +
'u1g4f9+/1abGG4bs0AmEdeo0yEGMpmMtMRYoxd5Y0/D1c1zm0dwdC' +
'KiLqCG9dtaAH1WsHB+Mo5SypPz6XwGERgLzDj6rwN+dWQv7vV 65gR' +
'MyEuhKDNydWLi2QWDvi309mLjW5UWkrCIAZI8CRHhYT2SfH5p H3T/' +
'zo3VnTQgM1tZpVo/DR77Gqc1nEonKc6OlL3tbwFV/nG6FIJGO4sQl' +
'CyRgHeviI2JDpuKS9jcXXv78DpgZa1NAjGfU3mwYKUymbQsOa yjlX' +
'/rxI5tPbSgDkA9BekCCbiqWwYwAPhw6xgeDO34tDZHPs8KlZGAQ 4H' +
'WCwsLqxz0GqLZenSoF/AkEGJtFlCyIJGA5FzfPKt7rJBFQtRTSWKI' +
'TCpB180gQfWHh4V0tPDObZi7Z4jZX+gJQ8hJsat8vYHwvLj4i SgyJ' +
'r15VuK0pl7wWJqGshvFmyrfdwZ/AddA1riIaJ3I86dWKujSH4/vPX' +
'v65Oyp4+mBjDGFoXs3/frwwb3yj60xPmSYYnABSEPVJcDzdYaggEF' +
'F9j0LJ55a/lU3O79tarBWo35hadAvEJLNHDrwmsYGFsRb+K7rW79f' +
'18XPrqRA4IVs6zBHgdG6/dV/OpWSHW/M0NF/v3OlnYnHJmFMEQbnA' +
'MkkktVigoQOU3nvzN4fW/hC8AfmH/PyEm3IoVmzSS8mbukVfHJOTx' +
'hyXmwYkM8amQmFQob27chalujZ06df5im4ZEzT+DCI7f/iJJZ7A/j' +
'+mwAxofBwFY9QEMp6cvsy2HBbEw/UEPwVCY+ODAnqkeT1cxstKE1g' +
'IxDngTQGBgSAN9X9K5zvbIqKjMwMYkxv7v3oxoXxuQqYo/RAeoghm' +
'PBXKgGbDwnWRSnIX+TI7xxZD2kUNLtW/fc9XAg+YKWNkhyJWtqhmd' +
'1PzOqW5EcH9hJtNBIJNawSQ3bQ+vll6xktjJxnj+/3SxACZwOnS0+' +
'wMmh/z3U9Nkv/q9l6dKgXcL4+stiuBnn7Ubzw92unVnfyg/iG7HwF' +
'MwMD/Ot4E7lCpFCy0xJhru9eOQsED/oDspTNpFcJO8jCl9K3V6Ji6' +
'+clR+d+ZIdnEh1d+VvA00HERSrIwH8+yZCAWHh65wqIrz+ePb 125u' +
'jxg3uOb1t+acv8AyMceQYWPCUfDj7VYWIx6DWUH8SgIct3LEh aNqL' +
'gavn6SU28OsfJgwL9Kz8Q6F6gP8IrfNi4X1qr7h7dcHvfsi3d/WNV' +
'VBISd92KLD4QPP8+OQBxj0ErSIjoYObfPbM/R89sHcP14iClyfBYD' +
'CQs6FWCH+3s0jEHhltgmmCyMhJtTHoN3XPOKZDJQkcg8IfLm2 bPKv' +
'IFwmm1mKuzbucxp8jIiCw9E4z80sZZu/oEAquB79Lrg97ZC+N1Bzw' +
'eOo2aGRcNAXxoqgTixpYB5m8njMKikF286CBln3jJwjb+D+7e Xt9F' +
'GyYjAS0JDtJV4e2vBJiESqVqYxbmh7Kul69Z20ULkrlVDA/chEz8+' +
'+wuTLe/1g9c4Ot8r4tLR0coyBS8R3ClktpIQSFjVCMd45fWyjvHt/' +
'Z0CNU8QkqC42WVLvA4nMVsNkiI2/uFn5zRVi8hgm0VxwdJJOLKLLR' +
'em33+G8h7pevJoV4Ah8VChIeECLHiwHDr5dVfgcCHiQNdiZyC JnrW' +
'cVIqzpZLOmVGrBvZ5MSiMZAvQCwjg62pSg+MtCiCc/XghoWtlS2MX' +
'BCnL6YDRJNcLiuzeTOJ6M5W/ulZnYHq/++Pp88e3n506ci17QuOTW' +
'u9qI2qq40PZAb8Ol5Di3cg0an68ovzEHJ+ZvLIRtLbVy+u7xN ZFMk' +
'xm2KqxG08BmWOicKi3ZO1tJPftoevOzA0Oi2ADnYCTZY5NFW0 M/SU' +
'x2EVxek6mHnAl0oiOfnpcWDbwDd8FZJWdh+IFfvHZJ2Z18ehp kHoL' +
'orXV7GNykCjUEFBOosvpYuN/+B8eWYQMyWADsS7ijB0ZsnQ0NCCUH' +
'aQ2PPglwXQVYuSyvREpyXY36OqLLUAHjfoNbAHPgUzt8Tnjye Pjq5' +
'fMKAgGvgeRIlhOdrlXYLv37y0sgMS5MF+gB544l+vyi58BYfD zku2' +
'+gsIez/LPjW7u1VJNflSgA0Cn6xsQTBfwGRgcjcPsh4cnQpMXsXFQ' +
'yRxzgv8rUIub2kWgaPdPLLx1w4aZB0mPlgkEr7kHR/IckpRajRyie' +
'bM/s9z5XRPVJMQFojlyqbVEM3Wo0O9QEVJLnZ+fBjE85bR3Ifn9v3 ' +
'YQulcVGmeFCHg8ep+5Qqxf11AnwTRqU0L1vaO6GITaFTK6s4C 7bGY' +
'jII0+6QmirvnDoGRFMYHIxz7r/5QKZTkOKSYZK844bXNs+8d33x1w' +
'4yr66ZcWPwpaLe5Jcg2GUwiEecBrtrKJAwLNVDIxOr9dDqayR STE8' +
'zcN6PHiR8GZQQymmTEsZlVS7PCEwZG2j1WUBbFub7thzPf94J HwSQ' +
'i6zAt7d5qtapK6kfOuggFLa2K4gj2g/v3ZvdKkVboQQGDWJzp8GLh' +
'1nX2u7nrlzIjByhcszA2GNvLyAB0hIy8J8JCJXj82kF9dEIB/Hqpr' +
'epbY5xjCQkJATOWMXDru/jBk2kayoLwXmbzkcuk71FVllqAQaNDQ0' +
'MCBAS92HP/4MiHl4+fP3OyV5zAqqRMG1Cyqrvh8YM7EDSCRER4qvD' +
'J1w0abhWZNyoyAqjd0FQxaMwesUIKHpWXZAIaX8UqnDXoiiM4 Z9dM' +
'W95OzaVgmscFcTmcFwtiMVERMiZ220dhZxcMsvpSE/zoBkNwjWuzf' +
'5miCaLB9hFp5xaPBJkJmdpiMVc5olbvzdajQ1WGs6SYTUUFc9 3bP+' +
'TS8rGQcyFFQqIM0gW+FvVFzvjFOYaniu/fuTUwWVSYWEO1DbeKgO/' +
'tpejRKHjrV22Pze1r8qE47NYXNxzBcjQaDaSSwgj2jT3L9g0I a2Pi' +
'FUWwS6I4MDpIyt5sHDgLOKleTMxLMvt4yfEveQsk8v4IL0Vrq 6ydm' +
'ffk98efZUpLozgvKxwEmaV3nKg4kn332KZFbdQyBha+AvqgCw yoLv' +
'HgkSrk0lIj1ylGVs2fBvGBjPNonJnqL/T8Mlf+9N61IaliBhENozM' +
'ajbVUnkcucAn4xRZvJQd/Ykb7H8p8IeCnx5kqb+U75UlYWFizcDaX' +
'jJlcoHh8/SzIWIYnKsqLDFzxfakbWTvATqkUclqcGawXpN+ZOd1Ap' +
'9y5fWvN5P67flu856uWJ2d3u7Zr6eAUcVe7IDzEQHz9ev7PTw vblE' +
'BXTv04eHc/g4KFByUC7K6KVcAnRUJhWU7i+Dz5o1uXejkESX7I6of' +
'TI5yrWOnxyAbuzfI1E/IUwO1zkyyIFK1hXM9f4tDOgbzE4dG9mzCD' +
'kGiyk+1VghWSRMj13Gw9OlTlr2YxmbkJyHnp5uHs+6d2zCryA YqIQ' +
'bllJVrp1Uoq1dqUG5vFLMpNWTog7fzG79MCGXEOu2dNF/FgICHBQR' +
'BYLh3aurK9uq2JV3GRzd3tubylNUqwgPeVTyw+MbVFjA+FgPG AIYN' +
'845AwwMHAcYDGF8SHh+gDmXTKyxZsK05FEuNsZjkTt7az5tQP/UJk' +
'pPykaBaj+gFXZKMc9KOIhu2XKHp05URJJBseCBBjiOQ1rkSBs 6uUv' +
'kBjwG3LP0vfvXElcADoIfz6oGQxtAAcGzgbfHWiw1ajUqvcFI igzC' +
'CGQ0W9tf/XAUliDhljjIzAoJ+Py/k6VGNUVOMQFvBMCEdP7l6dnK/' +
'gVRyGyUi0vdY0vcuoOLEsKjOJWUQ0aPDrW+b8+fTxs2fPHj18 cP/q' +
'2Zt7ltw7sfX6yf3LFv+SEMhjUQive1zEeZLZbjVDihyaKrl7f Euug' +
'UX3RKfEV61d6bwdkJqcCBT0+NLxh6e0jJCTgZO/qCWFCFUupyg54q' +
'NE4f3zB3P1zAQtckWiekp6cbukNCnEj++5//P8Y9PaQGttrFIfb68' +
'qLLGi1FV9NluPDlUZSJ4NDEjS0hVM7K7eAReXjIxVUbEot4JQ Fhjz' +
'a9UIcqbg3s0c+5dN2zK2KQTAyleQKo0XeX1bRnrat829b58/0sXGa' +
'5pielGUCRrx9fHO0DEgHv7xxx89Kzhk62R9dFSEXusb5iePDP QNVs' +
't9pHwWjYSp9UaE89h8qUmqFRAgTy1uo/Zi4c3mqouNYCEQ4aOiohr' +
'pmJDxD32Re2C4BSIwGe+RmRzLoNNqdHlkxcxfC7o4xpt8aGzm ufKt' +
'cwYXr16xZPPInLsnd2zr4a/mEZD96yTzK/evoalgfZCKR8gPZQFLg' +
'SiarKX7KxXOX4KsB7nDZjEl+tHYJHTvOAHQoXVd/JQV95FLYzWVV2' +
'vfd8BAAvz9gWkbpMQDw8yPrxwHDf7//vfn/wDPfv/j0R0II48f3t+' +
'/d3eX1EDn+djX2j6CiZCIRaVGPsTz8jGN9vQzCGlYkMlV/Ne5Y2Wz' +
'WiEvb/w48+rOhb3jhWAelVeenYVzu8cK1/SKOP3zx+GQkhKN1WuLg' +
'XWBtet0ujKHhkZA9YkX/vHkUe84oRcb77Dbql+iqfdm69GhKj8fBp' +
'2elWB2ko0HZ3ZPKfDikNAgc5AITHq9t2oik+6nGtPSeuXi2dn FPiW' +
'NbDWLFGTvgNsmP3XdV52P/jIyP4QVbYz6ewHHw90QHATpBrL2jZ0/' +
'29W0jlahv9aPUHE/z+Ovn7pYS8XmlCZCQbYpqde3/TAhVwHUN0Dzd' +
'7VJ5DYoGsViMUHD5oey4UvHZEl/v36mzIi8MbBVdFVzqtK4IThYK/' +
'CMU1Mhhj+4curu7Zu3L568vvMX4DYQyYGwFcXp5DLpK6M3fAD kJA1' +
'5AR/7z2dPwAYGN1LKWYhqw6BRQoEgNd4WISeJaJi+CaIbOxYcHGFz' +
'7s4naGjBwfq3UxXt7QDUlsVsAhLV3c6Hibi28VvgGI8uHfnj8 T3kj' +
'mcFIIQA+zh65PC8Od81t6rEdCxkzzpGj4q4pAU2Dury9oGVQ1 IleI' +
'xHeqKdVKn2pnPFIDwstKOVv6SN+v6V05DgYKIRXlfpmjYOi42 Ojk7' +
'2p51YNHrrR2GRCrLRGFVZ1DurQnHYbIvFUhzJoXmi0gLoJ6a2 PDqh' +
'QCfyhGAF7ly93/XebD061AsA2dBq/TKDmKDl93ykP/djf1NF0VcQP' +
'v+i+jEYcHSYfkZ70+Wju3rFCa0WU42iG3SU0lsxpEXK8V2/rf7I1j' +
'k1UCH7+3VaMMywYJ0n1h3k5MOrp7vZBdmN0qvXP68LkCcWFAB PLD2' +
'QcWP7/E2D4z5pGe/NRnSTe8XYqRSKWq3OSnGYfSngle1N3Kvrp23s' +
'ppUysKDUYu3WWu5UgkfDhFLwSJFteG6QCh+cLz8xrVX/RJEPRB2UW' +
'6toHnKVuw6rQ8iQDUEQqyEjPLp8bNNAy9ejB0Mkx6LdFRJBk2 STgo' +
'UDdvFpIynwdohRyVoaqFERHZsQa6WSyR+GQnH7awc22xEOHGD fkOi' +
'j4xvD7H+T77VrVKMLqyeBQnly6yLwDeSeOLCPp09uXDqzdfn3 06ZO' +
'bhQmgV/B1aEoPDzqEL0OZq1ZGOvpg1udrXyLL9WAHLL9xzFsXWBAx' +
'0TV+MaK+7evrevsB0Gj1OEnl8sqk38gojnxxoxA+r1LJweniD ta+N' +
'4yscdfxzKBJZJJJGDsBbmZbWN4GTp6j1hB+cfWZw9ubumuBVZ QVHO' +
'h3fpvth4d6sUjQqoBx1shXIPFAiccnSllEFGgoB02y+teQ4YP Q2dy' +
'srMXf1pavuSbAXmhamXVMvVOgPYJDlB/3S3jyrkTozJl2ekp1Eqjg' +
'EekUyk0fEJRJPvmgZWrxndrZFQxSK++lFcd0FSQxltEw+boGZ dXf3' +
'WxfNN3k8bikcu87hwmLTDAPz0xFoioLxcPcmNMtuzc/I+ub/0eeJe' +
'TbCjksloMEY/DOawmDAo5B3tlzcQnty+fmdMNgoaEjoXAC8EkJMRA' +
'qNuhAvgWvb8aAlp+CPPalrlXDm2eP/MbaBnCRYeCJNAm4XLSzObeN' +
'7bNu7BweMtoLqRjGFpBkpHH435I1QVhLCKhoIXNJ9fAvHd696 AUZF' +
'V5eJqk1Mjpnyhe2zv86Kye17bOu39619M7V5wB5MnjhxdPlK+ Z//W' +
'XY0cnBvJgrmvnHvDcgv1VAioG4gaE6CXt1B/nBaqk7Bd35YBpBAYE' +
'tM80DksV3zy5e+9QS4wXpYmBpQ/SVU6CFZJc1gqpBcH5/cGdMVmyF' +
'qXFdE+0868IeLxMKk1IiO+Ra5xeqDy0cNzlbQsubph15+ROZH//04' +
'RgCRHSAbPaKwsbotl6dCgnIHYplb7NwtiQXvcNNp6c3jpEihw XKbN' +
'6SSXi1zVI+DgEulZNMzfNGbXmi7atC9L5XHbNByMJ+DhL1IKP S4+t' +
'nTc8Q6EP9P/HXR43Nznbs4tNkBPMPLNg8OWL5yeNGsijYPBo5MTma' +
'3UKPuzNIwOXyw1mnftl+KN7t/bv2QUebZCQ2hQXwOw41LTxuYq9I1' +
'OOfV0CTOOP3x+UD4sJkZHgIaQl2GupGw9/DrEuwxEFJKFnrODukXU' +
'Xl4z8LEvmw4ak5wbKyGw2VSn9V3s/lVJeVhAjHajLT4Mf37+9d/dO' +
'FZcw4YsxTUJYeQbmxu7+t/YsBtL+SYYUXAO6B51XKX1f6wLXuw8wO' +
'R8veZ801foBtosrxtlUVC4Zk5OVGR1hKGmeP6JtZr9E8eQCr8 0DYk' +
'7O7Q0B5MHpnRCunSsep8t3LJ8xevSnwxP0Eki7ZDyqxjdTwB/5Sjh' +
'gA5l65uU1ky7uXjFv5lSIw2BZeCwG5DNyVy5VNyJdcvXwlgNj sxL8' +
'6BYlxWSqOpvQeIC/n7PiyvmVX62c+VmACNn8AurPYTEjI8LbZFn6J' +
'4m3TOl1/fjO3R/H/dRSuXLK0IM71t88XX706+IYb0pxYgj3r6tMDd' +
'psPTqU2197DUB0IZq1juGCfuyXICThPFQ8Asir6q/BeiWQE/ISUbd' +
'8+55lM37sEZudnV3lRvCL72Ux6SXN8tfPGrVhcu8OzdKrV0wF ydk4' +
'DbkfvX9c7t3zh8+fPf3jzMmFNrVBTpPzGSwaiUjAgcs4S1zCf 2DRK' +
'HDXGlkq8PnSwqZtTdwj0zuAjd27de3IgT3bt2xcPaZs27hmt8/sP7' +
'9szNFvyu5dOHL/7u2bB1bNK/WVM3ERcjLkl1rWhJHDonRK0/hQeP6' +
'zi31Aic8s9PEXIJc1gTYkOkAI17aBUh3gIG3zHGmBjGNT2/z57Mnl' +
'8g3lW1ad2rN+zxDzkS/z7h7dcOfAr2AkAUJPiEvR3uTIyMg6kpn3C' +
'JDu1RLmV31Lrpw5sraTn5yFK40WyGVSmG2wTIYnOsab/FHfviNzVT' +
'0cgq/yFFv6hh3/ruuVDd/ePbbp0dVTjx89PLlv85Ipwz8fMzIvISp' +
'QyuBR8UA/Kle9QyaOhG6VEwcp48jEwgfXzu3avlnGwEkZOFOItiQz' +
'tp2Zv7Ct/71b1/d+HJvsz4hSkKu8t/p5V93dDYEaaApC0PE5vbas/' +
'RWEDt0TFaYWFednd7ULFnaNunH5zOHJZX0ThH58T5Ab+UkxQ3 u02b' +
'5kxu6hyPIU5GtvqajqamfDNFuPDuUsGtzSLAExfnBM+qHRyRA x4GM' +
'FCeHIsZbXZ78wO75ycf9cw9GNP88s8bOaomouU+DuLhUJupdm 71v7' +
'04+9k1Li7URC1Vu68N1AUEcM6Ln6k4L718/fv3j0+vkT+7etnzN+2' +
'PD+vVq2KEuOtxtDdaGB6hCtd6hSAI8L5D9MvRcLB7nD/Z9NAc8fPa' +
'jnjllD7108dvHXL058237/yKQ9AyOXtVf3ihOafSjA/Jd9PXDex62' +
'PrZn9VWNkc7OtiSd/VTV1NhlT1shs8qEcn9Hu8Jg0kBI4tDuXjG6U' +
'aIPU8LpsDebIpOZ8lik9tXTc1Q0z9g2K2D0g4uqWeQ8uHXt87 fSDM' +
'7v3D46MU1MJGHcYTkr8a8el9wIwHhoB/fPPPx9eO6+nQ5CjZ4aGhF' +
'ROYWBjEAeEVGxyuO9HnVsOTRHDTI1Ik6zp5Hf4q8KLK8ff3Lv szrn' +
'D54+Xr/n202+Gde7RtbMjwt9PxhUwKWQC2vlKTTTKPUKJ1GXaOiDm' +
'/tl9kC727tqxcsWy2Z0sv3QIOrZiysUN380q8oHcESYjQQpg1rS hB' +
'n/gJ2EkaWldbHz43isXz/06f/rPP8ydPbTlor4JZ3atPL/6m++KfI' +
'EABAqJzZKN/n5qNp3sL/ScOOHLFX2sVl+qkIbVVBPyDdVs/TkUiDV' +
'jRJjFlzImW/r7zQutYrgg6lMD6CDuMNXKC9Rp0t3dfLikT1slnju6' +
'f3SmzBIdWeOSIMJFxdwxQ3qfP39+WnNlZEjNaR1ZIvNEj+7Xc eeyW' +
'Yendzw2vd2pHwefWj39xJ6N+7ZvWDP3y0UTPlo0+ZPlC2atXf vbiu' +
'+/mf95n7Fdm7RqUcqnVK13Cv/HJKLHD+n26/C8ISmSzCAm6Ah4IPA' +
'k8Wh3MR3bI9+mExFJONSunTt29o9A9kORl/XU9joDN6RSh3t2fPS0' +
'5j73bl93XiMCzdI42Szk8/5duTwIO50b27etWfxLKyVoqx/KlHsXT' +
'TpycP+5QzuPTGkFwc1ZEbd5YphQIPiQljUqA4b16YhhU8aPaV eSr9' +
'f5v2yRDfg8EYeSMnGpUX59OpQMT5UUhrO72QXTmnntHmI+Maf X+TV' +
'TzmxfenjfjlULZk6d/HW31s2S9CLkkmbFxgHMdfv8pJVj2z68f+fK' +
'pjnnVnx58qfhJ+b0PjAibkITRWogQ0jFJGjpsXYbg0Z9Wb01a GRQv' +
'z7L+9ge3r56af2MY7N67p9QtG9c3vZegWOz5clauoCCKQznxN rtfA' +
'4Lg0LmDnQB2MmQXh3bmnnNEiP43BoSdAM1Wy8OBf9ikgllRc3 mFPt' +
'c271kYzctUDWkiJDD8ibr85AL+rYp2LlqQe84od1uw2Fq5hsS Bm72' +
't1MPb1oEbFMf6Ofx8l0bSA3dmyd+U2boZOU3DmGB2AeHAm42I En8a' +
'YZkcIqkq50P7AuEG/yzZdMsf28RCV9z4RoQLJ2apXya5xchJ2n4BK' +
'M3uczIbZIUHR0RImEjr2YAUbxgaPNLm+Ygb+CNt7y491oLgP5 1zAj' +
'5dULPkigOnYBqnhgulYjreGu4RkC8aZ1i+KK1fWQj6eQvR7ez iQNF' +
'xJ++6A351KakELAexRFsP436A1vWqALkHCYOxaUAXX3FMN0rA gg4G' +
'gT/2CBpt45th+bpmoWxgKsXVhyGbB3DA1MckyWbUegzt03wlK4pow ' +
'b2yEmJBWMAZxjcvvHSz7uMz5WB8UA2MXqRFUwcGY9cIy2zKEJ DDGS' +
'SZy2kzpnExw7ssnJcu1GZUrBP4K5+fAKfgiHhUUBE85ItaqU3 iVC1' +
'7D+kFUjlfBq+xrLJDdTs88+8sUPBo+vbqax856Z9M3qkBDCQ8 xuOo' +
'JddnKk7YMY/HtCze6pfSLC+Rr7hXkE153w3Y+Hsye0KUiuqY9V+Js' +
'pdzsQXZif2ap7YycZHKqvzCMDV2SSMkkuIU9PamXiNU6xh+gA +6xV' +
'1Y6ApiI0wBYFeXI1CIOUx6SQ8roIcwI8PG//DJ20vbV+UEkCzW2u4' +
'iFojEE9PCx+YE1icFe+tkL75dVR4GJiK+A7uwCJhQJts+W35/nGNw' +
'QtsSqrJZKrlvPqHhNc+Pe7hDnGVS8aEychF+dl9msU2DWP5cg jwJ5' +
'CL6Uh9ISywyjwDMyU5kU7CQswnYj0yglhDuxQVR7KBZMIn4Z8 tjdy' +
'k+FiZWEh41UFrJyD+lCWHfVJqidNQgf/oxMRm4ezcRLM+wI9Jq+3g' +
'5SvYbMM061YfDpXoR/vmy8/GdW3cPV2XFylXeSvq5RY2OCLDE03Gv' +
'5Stg6v26NIhUUvzEjAgOL6ywedMDI+kFY2AqFOwg5XiYLVMp5 Kp5Q' +
'IJl04j4jCveI/rP1p78VMZEEinTfxi6/dj4EkG64PqflAWhknBI5v' +
'XL46FvyHcK16NRyTgwtTir4Z0vnL58o5P00DzZqbEvewavgsv ANOB' +
'reDtMnA3CcWgFIVqvcL8veFHr5arZHwmlYj+60aDR4VmQT4pp el9h' +
'ZBeJTwmiYB9rfrwIBVoBDTEHLBMrZdQxmfRwPpf560cb7NZt/pwKH' +
'Bh+F0ph8KmemLryezr1HOkkpLHv1gHcHd7XqfOWYqquvu/CUJlpGF' +
'DBjdKtHKY/7F7InVQZZIe7Uo3zBh8fuP3fROEZWlG6cuv4btQI/5h' +
'LbWWL3v+yTcwpzdv4W02W7X9f+VQDder9w6Qqkg4j3p/hdBroeLwP' +
'y0jOW5m78zrl84u7xLc3SEKCgz4kM6Tu+CCC/ULPA6n91d/2qXg+O' +
'51e6f1AL2ZkJBAefkhNBdccOH/OFAoD7FQ0LljhzXTh57djNTkL8x' +
'J4XM5H+rGqwsuuPCGqHgtCCnOHDG9X7MrF88u6xnTNTNcrfT5 sDde' +
'XXDBhTcBBoPW+HoN7dn24Kal+2YP7JsgMkXXXL/aBRdccMHteeE1R' +
'kFe1sLPOpzft/bLXHnTvEZIdSmXQnHBBRdeAhwWG+yvGtuj+fkTh9' +
'aOzO+ZE6FR+b5WvTUXXHDh/xQ8PNy5HFbrVi3XzBh+Yu3coSnihPg' +
'4MtG1h+KCCy68FEA2DP7K8X1KLl28sLRvXPsm8VKxyLWH4oIL LrwM' +
'7u7ubBazuFn+qhkjjqz89tMsH2NE6IfxXgMXXHChgYBUeVV6j R3U7' +
'eypY4v7pbZqmlXjVWgXXHDBBScgPtBo1Kzk2EVf9jq28afRTb SRIR' +
'9UiXIXXHCh3oFGoVQ+8o97tz22Z/OqkUXtCrOFfK6LbLjgggsvQ0V' +
'JeXJqQuy8QU3P7NswvkBtivpA3tjoggsuNBBQKA9vhfyjltn7 V83Z' +
'/HW3ngU2hVzq2kZxwQUXXoaKd5USHDbLpELtzetXJxd45WSmU9/gh' +
'TguuODCBw/na+hb58at/qzk2IopA5PFBr3OdYXNBRdcqAUoDw+10n' +
'tIru7EtqWr+8V2zgiRS8WuFVEXXHChFqA83AO9hZO7JF8/f3x4mqR' +
'xaiyDRnVFDRdccKEWALMQ03ELZk46vHJmszC2MSqqXupCu+CC Cx82' +
'MCj3IR2afDeqR+uS5q5jGy644EIdoWDhHf4cOZuI/VevyXPBBRf+b' +
'8LD3a3Or39xwYUPCv8fBu29Yg==');
TPH := High(TP);
for I := 0 to TPH do
begin
TTP := LoadTextTPA(TP[i], SmallChars, H);
for B := 0 to High(TTP) do
begin
Numb := ((I + 1) * 13);
FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
end;
end;
Canvas := TCANVAS.Create;
Canvas.Handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
DrawBitmap(Pic2, Canvas, 100,10);
FreeBitmap(Pic);
FreeBitmap(Pic2);
end;
Procedure OnScreen;
Var
XPH_F,XPH_M,TTB: Integer;
begin
XPH_F := Round((FishXP * 3600) / (GetTimeRunning / 1000));
XPH_M := Round((MagicXP * 3600) / (GetTimeRunning / 1000));
TTB := (((w) + (y) + BreakRounds)-GetTimeRunning);
PrintOnSmart(['Version: '+Version+' (by Flight)',
''+MsToTime(GetTimeRunning, Time_Abbrev),
'Fishing XP: '+IntToStr(FishXP)+' ('+IntToStr(XPH_F)+' / hour)',
'Magic XP: '+IntToStr(MagicXP)+' ('+IntToStr(XPH_M)+' / hour)'
],Point(15,236),16777215);
PrintOnSmart(['Time till break: '+MsToTime(TTB,Time_Bare)],Point(573,432),65280);
end;
Procedure Commit;
begin
stats_IncVariable('Leaping Trout (Caught)',(Trout_Caught-Trout_Ca));
stats_IncVariable('Leaping Salmon (Caught)',(Salmon_Caught-Salmon_Ca));
stats_IncVariable('Leaping Sturgeon (Caught)',(Sturgeon_Caught-Sturgeon_Ca));
stats_IncVariable('Fishing EXP (Gained)',(FishXP-Fish_XP));
stats_IncVariable('Magic EXP (Gained)',(MagicXP-Magic_XP));
Stats_Commit;
Trout_Ca := Trout_Caught;
Salmon_Ca := Salmon_Caught;
Sturgeon_Ca := Sturgeon_Caught;
Fish_XP := FishXP;
Magic_XP := MagicXP;
MarkTime(CommitTime);
end;
Function IsMoving_F: Boolean;
begin
Result := PixelShift(IntToBox(MMCX-30, MMCY-30, MMCX+30, MMCY+30), 200) > 200;
end;
//By Benland100, modified to paint mouse movements
procedure WindMouse2(xs, ys, xe, ye, gravity, wind, minWait, maxWait, maxStep, targetArea: extended);
var
veloX, veloY, windX, windY, veloMag, dist, randomDist, lastDist, step: extended;
lastX, lastY: integer;
sqrt2, sqrt3, sqrt5: extended;
begin
sqrt2:= sqrt(2);
sqrt3:= sqrt(3);
sqrt5:= sqrt(5);
while hypot(xs - xe, ys - ye) > 1 do
begin
dist:= hypot(xs - xe, ys - ye);
wind:= minE(wind, dist);
if dist >= targetArea then
begin
windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
end else
begin
windX:= windX / sqrt2;
windY:= windY / sqrt2;
if (maxStep < 3) then
begin
maxStep:= random(3) + 3.0;
end else
begin
maxStep:= maxStep / sqrt5;
end;
end;
veloX:= veloX + windX;
veloY:= veloY + windY;
veloX:= veloX + gravity * (xe - xs) / dist;
veloY:= veloY + gravity * (ye - ys) / dist;
if hypot(veloX, veloY) > maxStep then
begin
randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
veloMag:= sqrt(veloX * veloX + veloY * veloY);
veloX:= (veloX / veloMag) * randomDist;
veloY:= (veloY / veloMag) * randomDist;
end;
lastX:= Round(xs);
lastY:= Round(ys);
xs:= xs + veloX;
ys:= ys + veloY;
if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
MoveMouse(Round(xs), Round(ys));
step:= hypot(xs - lastX, ys - lastY);
wait(round((maxWait - minWait) * (step / maxStep) + minWait));
lastdist:= dist;
SMART_DrawDotsEx(False, [Point(lastX, lastY)], 65280);
end;
if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
MoveMouse(Round(xe), Round(ye));
end;
{************************************************* ******************************
Procedure HumanMMouse(eX, eY: Integer);
By: Flight
Description: Human-like miss-and-correct mouse movement
************************************************** *****************************}
Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y,X2,Y2,A,Dist,MP: integer;
begin
A := MouseSpeed;
GetMousePos(X, Y);
Dist := Distance(X, Y, eX, eY);
MP := Round(Dist/150);
if MP < 0 then
MP := 1;
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
X2 := RandomRange(eX-(A*MP), eX+(A*MP));
Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
WindMouse2(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
GetMousePos(X, Y);
MMouse(eX, eY, ranX, ranY);
MouseSpeed := A;
end;
Function AddToBelt(What: String): Boolean;
var
X,Y,Slot,T,Tool: Integer;
begin
Result := False;
case What of
'Tinderbox':
Tool := DTMFromString('mggAAAHicY2NgYDjMxMBwAojPAPFpID4IxD uA+CVQ7hkQPwLiN0D8AYpNdNgZoiPDgSwmFMwFJEEYHTDiwBAA AIohC78=');
'Barbarian rod':
Tool := DTMFromString('mggAAAHicY2NgYChlYmDIAOJKIC4C4hwgzg Xi+0C5d0B8D4ifAfFbIH4IxDaB0Qy6hiZAFhMK5gKSIIwOGHFg CAAAnhsJrw==');
'Knife':
Tool := DTMFromString('mbQAAAHicY2VgYHBkYmBwAGJzILYBYk8g5m JkYOAFYjEgFgZiBiBurK5miLfjBXKY4JgLSIIwMmDEgsEAAB4R A9I=');
'Hammer':
Tool := DTMFromString('mggAAAHicY2NgYLBnYmCwBmIPIDYHYisg9g XiUEYGhhAg9gTiWCCOA2IvILbT5GTw0Odi8PfxAepmgmMuIAnD yIARB4YAAPp7BZI=');
'Chisel':
Tool := DTMFromString('mbQAAAHicY2VgYNjNxMBwCIi3A/E+IN4BxCKMDAzsQCwIxSB+iDkPg56ODlAHExxzAUkQRgaMWDAY AADN9QVM');
'Small fishing net':
Tool := DTMFromString('mbQAAAHicY2VgYDjCxMBwGIjPAvFJIN4HxA aMDAwmQKwDxBZQtqOxKoORugxQBxMccwFJEEYGjFgwGAAAEFgG GQ==');
'Fishing rod':
Tool := DTMFromString('mbQAAAHicY2VgYOhjYmCYCMQLgHg2EE8FYl 5GBgY+IGYCYi4gFgZiPR0dhjB7HqAOJjjmApIgjAwYsWAwAACB xQSE');
'Harpoon':
Tool := DTMFromString('mggAAAHicY2NgYMhmYmAoBuIKIE4G4iwgLg ViLkYGhv9A+T9ALA5k8zFC2Gbq7Awerq4M/j4+QB4THHMBSRhGBow4MAQAAPbNCBs=');
'Lobster pot':
Tool := DTMFromString('mrAAAAHic42BgYJjFBMETgXgaEM8D4iVAPA XKfg5U8xGIPwDxJyB+C8RPgfgdEL8E4jALHjBmYGBCwcnx8WDM BeSBMDqAiTMSwDAAAK4jD/k=');
end;
if ExistsItemDTM(Tool, X, Y) then
begin
Slot := CoordsToItem(X, Y);
MouseItem(Slot, mouse_right);
Wait(RandomRange(20, 75));
WaitOption('toolbelt', 300);
end else
Result := False;
MarkTime(T);
repeat
if (TimeFromMark(T) > 3000) then
break;
if not ExistsItemDTM(Tool, X, Y) then
break;
if FindBlackChatMessage('already on') then
break;
until(false)
Result := not ExistsItemDTM(Tool, X, Y);
FreeDTM(Tool);
end;
Function FindFishSymbols: TPointArray;
var
B: TBox;
TPA,TPA2: TPointArray;
A,L,i,CTS,Cx,Cy: Integer;
ATPA,ATPA2: T2DPointArray;
begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsTolerance(TPA, 12632256, MMX1, MMY1, MMX2, MMY2, 5);
ColorToleranceSpeed(CTS);
if Length(TPA) < 1 then
Exit;
ATPA := TPAtoATPAEx(TPA, 13, 13);
L := High(ATPA);
SetArrayLength(ATPA2, L+1);
for i := 0 to L do
begin
B := GetTPABounds(ATPA[i]);
with B do
begin
FindColorsTolerance(ATPA2[i], 16279077, B.X1, B.Y1, B.X2, B.Y2, 1);
if (Length(ATPA2[i]) > 0) then
begin
SetArrayLength(TPA2, (Length(TPA2)+1));
MiddleTPAEx(ATPA2[i], Cx, Cy);
TPA2[A] := Point(Cx, Cy);
Inc(A);
end;
end;
end;
SortTPAFrom(TPA2, Point(MMCX, MMCY));
Result := TPA2;
end;
Procedure NextSpot;
var
TP: TPoint;
TPA: TPointArray;
begin
FindNormalRandoms;
TPA := FindFishSymbols;
if (Length(TPA) = 1) then
begin
Writeln('Only 1 spot found, relocating...');
HumanMMouse(TPA[0].X, TPA[0].X-5, 1, 1);
ClickMouse2(True);
SMART_ClearCanvas;
OnScreen;
FFlag(0);
While IsMoving_F do
Wait(1);
Wait(randomrange(1500, 2875));
Exit;
end else if (Length(TPA) > 1) then
begin
TP := Point(TPA[1].X, TPA[1].Y);
HumanMMouse(TP.X, TP.Y, 4, 4);
ClickMouse2(True);
SMART_ClearCanvas;
OnScreen;
FFlag(0);
While IsMoving_F do
Wait(1);
Wait(randomrange(900,1500));
end;
end;
Function InFishingArea: Boolean;
begin
Result := (Length(FindFishsymbols) > 0);
end;
Procedure AreaCheck;
begin
if not InFishingArea then
FindNormalRandoms;
end;
Function Antiban: Boolean;
var
i: Integer;
begin
if not LoggedIn then Exit;
AreaCheck;
i := Random(40)
case i of
1,2:
begin
RandomRClick;
Result := True;
end;
3,4:
begin
RandomMovement;
Result := True;
end;
5:
begin
HoverSkill('Fishing', False);
Result := True;
end;
end;
Wait(RandomRange(250,350));
end;
Procedure GetFishType;
var
A,B,C,X,Y: Integer;
begin
A := DTMFromString('mbQAAAHicY2VgYFjNxMCwAIjXA/FOJgg/gZGBIRaI04A4HYijgbi7OxuomgkF8zNgAkYsGAwARQMG9Q==') ;
B := DTMFromString('mbQAAAHicY2VgYLjCxMBwAogvAvEjID4LxD aMDAxmQGwPxE5AbAzEhUmJQNVMKJifARMwYsFgAABAigan');
C := DTMFromString('mbQAAAHicY2VgYLjMxMBwC4hPA/EpIL4PxImMDAwRQJwMxDlAHAPEmnZ2QNVMKJifARMwYsFgAABX gAbb');
if FindDTM(A, X, Y, 564,250,598,280) then
begin
Inc(Trout_Caught);
IncEx(FishXP, 50);
end else if FindDTM(B, X, Y, 564,250,598,280) then
begin
Inc(Salmon_Caught);
IncEx(FishXP, 70);
end else if FindDTM(C, X, Y, 564,250,598,280) then
begin
Inc(Sturgeon_Caught);
IncEx(FishXP, 80);
end;
FreeDTM(A);
FreeDTM(B);
FreeDTM(C);
end;
Procedure FastDropSlot(Slot: Integer);
Var
TB: TBox;
begin
Case Slot of
1: TB := IntToBox(564,214,598,244);
2: TB := IntToBox(606,214,640,244);
3: TB := IntToBox(648,214,682,244);
4: TB := IntToBox(690,214,724,244);
5: TB := IntToBox(564,250,598,280);
6: TB := IntToBox(606,250,640,280);
7: TB := IntToBox(648,250,682,280);
8: TB := IntToBox(690,250,724,280);
9: TB := IntToBox(564,286,598,316);
10: TB := IntToBox(606,286,640,316);
11: TB := IntToBox(648,286,682,316);
12: TB := IntToBox(690,286,724,316);
13: TB := IntToBox(564,322,598,352);
14: TB := IntToBox(606,322,640,352);
15: TB := IntToBox(648,322,682,352);
16: TB := IntToBox(690,322,724,352);
17: TB := IntToBox(564,358,598,388);
18: TB := IntToBox(606,358,640,388);
19: TB := IntToBox(648,358,682,388);
20: TB := IntToBox(690,358,724,388);
21: TB := IntToBox(564,394,598,424);
22: TB := IntToBox(606,394,640,424);
23: TB := IntToBox(648,394,682,424);
24: TB := IntToBox(690,394,724,424);
25: TB := IntToBox(564,430,598,460);
26: TB := IntToBox(606,430,640,460);
27: TB := IntToBox(648,430,682,460);
28: TB := IntToBox(690,430,724,460);
end;
MouseSpeed := RandomRange(26,39);
MouseBox(TB.X1, TB.Y1, TB.X2, TB.Y2, mouse_right);
WaitOptionMulti(['Drop', 'rop R', 'op R'], 400);
end;
Procedure DropRemaining;
Var
I,MS,T: Integer;
begin
MS := MouseSpeed;
T := GetTimeRunning;
if not AlchFish then
begin
FastDropSlot(2);
FastDropSlot(3);
end;
FastDropSlot(4);
For I := 8 downto 5 do
begin
if (I = 9) then
Break;
FastDropSlot(I);
end;
For I := 9 to high(12) do
begin
if (I = 13) then
Break;
FastDropSlot(I);
end;
For I := 16 downto 13 do
begin
if (I = 17) then
Break;
FastDropSlot(I);
end;
For I := 17 to high(20) do
begin
if (I = 21) then
Break;
FastDropSlot(I);
end;
For I := 24 downto 21 do
begin
if (I = 25) then
Break;
FastDropSlot(I);
end;
For I := 25 to high(28) do
begin
if (I = 29) then
Break;
FastDropSlot(I);
end;
Writeln('Dropped fish in '+IntToStr(GetTimeRunning-T)+' ms.');
MouseSpeed := MS;
OnScreen;
end;
Procedure ReadyAlch;
var
X,Y,AlchBMP: Integer;
begin
AlchBMP := BitmapFromString(9, 8, 'meJxjYEABTIxMQDR7Wj8QIYuz8EkD' +
'ya0bV9+6cg6IkKXYhdiBioGCv8EA1TyggbJwFHL7FRAJLDjEF tcE5' +
'P768Qguwrvvo8Sui6zl/XBxiAjvlHVAWSBi8cmGmAAUh4gADQHKAr' +
'XApSDqgSJAKQDeIUhV');
if FindBitmapIn(AlchBMP, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
HumanMMouse(X, Y, 5, 5);
ClickMouse2(True);
SMART_ClearCanvas;
OnScreen;
end else if not FindBitmapIn(AlchBMP, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
GameTab(tab_Magic);
if FindBitmapIn(AlchBMP, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
HumanMMouse(X, Y, 5, 5);
ClickMouse2(True);
SMART_ClearCanvas;
OnScreen;
end;
end;
FreeBitmap(AlchBMP);
end;
Procedure FishnAlch;
var
T: Integer;
RTA: Boolean;
begin
MarkTime(T);
RTA := False;
repeat
AreaCheck;
ClickToContinue;
if (TimeFromMark(T) > 6000) then
break;
if RTA then
begin
if ExistsItem(4) then
begin
MMouseItem(4);
//Give enough time for the previous alch to finish
Wait(RandomRange(1400, 1600));
//If this is too fast, the fishing event will reset for our player
if InvFull then
begin
GameTab(tab_Inv);
DropRemaining;
Exit;
end;
if WaitUpText('Cast', 200) then
begin
ClickMouse2(True);
IncEx(MagicXP, 65);
GetFishType;
ClickToContinue;
OnScreen;
MarkTime(T);
RTA := False;
Wait(RandomRange(1300, 1500));
end;
end;
end else
begin
ReadyAlch;
RTA := True;
end;
until(false)
end;
Procedure FishingWait;
var
T,I,I2: Integer;
begin
I := InvCount;
Marktime(T);
repeat
AreaCheck;
ClickToContinue;
if (TimeFromMark(T) > 6000) then
break;
if InvFull then
break;
GameTab(tab_Inv);
I2 := InvCount;
if (I <> I2) then
begin
Marktime(T);
GameTab(tab_Inv);
I := InvCount;
I2 := InvCount;
if AntiBan then
Marktime(T);
end;
until(false)
end;
Function FindObjSimple_F(Colors: TIntegerArray; TheUpText: TStringArray; midx, midy: integer): Boolean;
Var
T,i,X,Y: Integer;
TPA: TPointArray;
ATPA: Array of TPointArray;
Begin
MarkTime(T);
Repeat
SetArrayLength(ATPA, Length(Colors));
for i := 0 to High(Colors) do
FindColorsSpiralTolerance(midx, midy, ATPA[i], Colors[i], MSX1, MSY1, MSX2, MSY2, 10);
TPA := MergeATPA(ATPA);
ATPA := TPAtoATPAEx(TPA, 15, 15);
SortATPAFrom(ATPA, Point(MSCX, MSCY));
if (Length(ATPA) = 0) then
Exit;
MiddleTPAEx(ATPA[0], x, y);
if (TimeFromMark(T) > 5000) then
Exit;
HumanMMouse(x, y, 10, 10);
Wait(randomrange(75,125));
If(IsUpTextMultiCustom(TheUpText)) then
begin
ClickMouse2(True);
if DidRedClick then
begin
SMART_ClearCanvas;
OnScreen;
Result := True;
Break;
end;
end;
Until(Result)
end;
Procedure StartFishing;
var
XP1,XP2,XP3,TroutDTM,
SalmonDTM,SturgeonDTM,
TC,SaC,StC: Integer;
begin
if not LoggedIn then
Exit;
if InvFull then
begin
TroutDTM := DTMFromString('mbQAAAHicY2VgYFjNxMCwAIjXA/FOJgg/gZGBIRaI04A4HYijgbi7OxuomgkF8zNgAkYsGAwARQMG9Q==') ;
SalmonDTM := DTMFromString('mbQAAAHicY2VgYLjCxMBwAogvAvEjID4LxD aMDAxmQGwPxE5AbAzEhUmJQNVMKJifARMwYsFgAABAigan');
SturgeonDTM := DTMFromString('mbQAAAHicY2VgYLjMxMBwC4hPA/EpIL4PxImMDAwRQJwMxDlAHAPEmnZ2QNVMKJifARMwYsFgAABX gAbb');
TC := CountItems('dtm', TroutDTM, []);
SaC := CountItems('dtm', SalmonDTM, []);
StC := CountItems('dtm', SturgeonDTM, []);
IncEx(Trout_Caught, TC);
IncEx(Salmon_Caught, SaC);
IncEx(Sturgeon_Caught, StC);
XP1 := (TC*50);
XP2 := (SaC*70);
XP3 := (StC*80);
IncEx(FishXP, XP1+XP2+XP3);
Report;
FreeDTM(TroutDTM);
FreeDTM(SalmonDTM);
FreeDTM(SturgeonDTM);
DropRemaining;
end;
MakeCompass('W');
if FindObjSimple_F([11181203,11248801,11379872,11644073,11709866], ['se-Rod','Fishing','spot'], MSCX, MSCY) then
begin
FFlag(0);
Wait(RandomRange(2000,2500));
if AlchFish then
begin
FishnAlch;
end else
FishingWait;
end else
NextSpot;
end;
Function BreakHandler(BreakIn, BreakFor, randBreakIn, randBreakFor: Integer): Boolean;
Var
h,m,s: integer;
begin
if not LoggedIn then Exit;
if (HowManyPlayers = 1) then
begin
if (GetTimeRunning < ((w) + (y) + BreakRounds)) then Exit
else
if (GetTimeRunning > ((w) + (y) + BreakRounds)) then
begin
RealBTime := ((x+z)/60000);
Writeln('Taking a break for about ' + IntToStr(RealBTime) + ' minutes.');
Logout;
MarkTime(CurrentBTime);
repeat
Wait(21000);
ConvertTime((x+z)-TimeFromMark(CurrentBTime), h, m, s);
ClearDebug;
Writeln('Breaktime left: '+IntToStr(h)+':'+IntToStr(m)+':'+IntToStr(s));
until(TimeFromMark(CurrentBTime)>(x+z));
Writeln('Logging in.');
OnScreen;
if SwitchWorlds then
if LoginPlayerToLob then
ChangeWorld(RandomWorld(True, False))
else
LoginPlayer;
Wait(4000);
Result := LoggedIn;
SetAngle(SRL_ANGLE_HIGH);
MakeCompass('E');
IncEx(BreakRounds, (w) + (x));
Inc(TotalBreaks);
Writeln('The next break will occur in about ' + IntToStr(BreakIn) + ' minutes.');
w := (BreakIn * 60000);
x := (BreakFor * 60000);
y := RandomRange(-Bir * 60000, Bir * 60000);
z := RandomRange(-Bfr * 60000, Bfr * 60000);
end;
end;
end;
begin
Smart_Server := 86;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
setupSRL();
Loadvars;
DeclarePlayers;
CheckStats;
CheckVersion;
LogInPlayer;
SetAngle(SRL_ANGLE_HIGH);
SMART_ClearCanvas;
OnScreen;
AddToBelt('Barbarian rod');
Repeat
if not LoggedIn then LoginPlayer;
if (TimeFromMark(CommitTime)>=30000) then
Commit;
if (TimeFromMark(ReportTime)>=5000) then
Report;
BreakHandler(BreakIn,BreakFor,Bir,Bfr);
AreaCheck;
StartFishing;
Until(false)
end.
I used this method O_O i found a fastdrop procedure from one of flights barbarian fishing script and just replaced it.. i did try a fastdrop procedure that was linked by flight i think on the first page but.. that drop procedure sometimes missed some of the fish .. im not sure why O_O but im no scripter just posting this if any one wants to use it O_O ..I take no credits for the script modifing it what so ever.. all goes to its respective dev..
In other words.. Script works like a baws :D but with tht lil edit thingy i did above :D works for about 5hours 38 mins.. untill jagex "token failur" and i did have to do the randoms my self..
Kyle Undefined
02-17-2012, 03:32 PM
Holy wall of text batman! Wrap it up in Simba tags.
Holy wall of text batman! Wrap it up in Simba tags.
i did O_O i dont think i did it right or it didnt work? :L
"holly wall of text batman! :L! made my morning :L"
sorry dude..
Nvm .. i found out u need to place {simba} lalala {/simba} like so haha my bad..
lKris93
02-20-2012, 04:42 AM
[Error] (36:32): Type mismatch at line 35
Compiling failed.
Script wont start, what have I done wrong?
Probably something easy.. I am so blonde when it comes to botting;(
Flight
02-20-2012, 05:16 AM
[Error] (36:32): Type mismatch at line 35
Compiling failed.
Script wont start, what have I done wrong?
Probably something easy.. I am so blonde when it comes to botting;(
Simply delete line 35 for now.
Simply delete line 35 for now.
Lamp := Skill_Fishing;
Can that work for line 35? i typed it up O_O script compiles fine O_O
US Marine
02-20-2012, 05:24 PM
How interesting. My character just seems to run back and forth, back and forth.
Dosent even thing about fishing. just runs.
After about 20minutes of running, it finally gets a full inventory. Now its just clicking the fish over and over.
peanut591
02-20-2012, 10:45 PM
It wont drop the fish, help please?
Peanut, try using what big man 1 posted up. It's a few posts above. I had the same problem as what you're getting but haven't got round to trying the above. :)
EDIT: Thanks to big man 1 it's working fine =D Just started the script now and it fished and dropped perfectly. Hopefully a nice proggy soon ;)
Peanut, try using what big man 1 posted up. It's a few posts above. I had the same problem as what you're getting but haven't got round to trying the above. :)
EDIT: Thanks to big man 1 it's working fine =D Just started the script now and it fished and dropped perfectly. Hopefully a nice proggy soon ;)
damn haha i forgot all about the proggy :|.. but it got me from 83-90 fishing in like 2days 4hours i think :D
war_god215
02-21-2012, 05:17 AM
Here's a fresh proggy, still working great
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 8 Hours, 5 Minutes and 52 Seconds
Trout caught: 2613
Salmon caught: 2132
Sturgeon caught 2032
Fishing XP 442450
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Here's a fresh proggy, still working great
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 8 Hours, 5 Minutes and 52 Seconds
Trout caught: 2613
Salmon caught: 2132
Sturgeon caught 2032
Fishing XP 442450
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
HOLY FU@#$@##$ <---spazz sorry dude how in the name of hell did you get a 8hour proggy! omg teach me plz!!!! what did you do!?!? breaks?! did the randoms your self?! tell me!!! >:P but nicee!!!!!
Fuckthiswebsite
02-21-2012, 11:38 PM
[Error] (36:32): Type mismatch at line 35
Compiling failed.
any suggestions?
thank you :)
Edit: I just deleted the line and it runs.. New problem: It wont drop any fish.
Flight
02-22-2012, 01:43 AM
Ok if you guys are having problems with it dropping simply replace your entire 'FastDropProcedure' with this one:
Procedure FastDropSlot(Slot: Integer);
Var
TB: TBox;
begin
Case Slot of
1: TB := IntToBox(564,214,598,244);
2: TB := IntToBox(606,214,640,244);
3: TB := IntToBox(648,214,682,244);
4: TB := IntToBox(690,214,724,244);
5: TB := IntToBox(564,250,598,280);
6: TB := IntToBox(606,250,640,280);
7: TB := IntToBox(648,250,682,280);
8: TB := IntToBox(690,250,724,280);
9: TB := IntToBox(564,286,598,316);
10: TB := IntToBox(606,286,640,316);
11: TB := IntToBox(648,286,682,316);
12: TB := IntToBox(690,286,724,316);
13: TB := IntToBox(564,322,598,352);
14: TB := IntToBox(606,322,640,352);
15: TB := IntToBox(648,322,682,352);
16: TB := IntToBox(690,322,724,352);
17: TB := IntToBox(564,358,598,388);
18: TB := IntToBox(606,358,640,388);
19: TB := IntToBox(648,358,682,388);
20: TB := IntToBox(690,358,724,388);
21: TB := IntToBox(564,394,598,424);
22: TB := IntToBox(606,394,640,424);
23: TB := IntToBox(648,394,682,424);
24: TB := IntToBox(690,394,724,424);
25: TB := IntToBox(564,430,598,460);
26: TB := IntToBox(606,430,640,460);
27: TB := IntToBox(648,430,682,460);
28: TB := IntToBox(690,430,724,460);
end;
MouseSpeed := RandomRange(26,39);
MouseBox(TB.X1, TB.Y1, TB.X2, TB.Y2, mouse_right);
WaitOptionMulti(['Drop', 'rop R', 'op R'], 400);
end;
jouri1333
02-22-2012, 08:02 PM
nice man it works :D good job
jdrizzle
02-23-2012, 05:09 AM
make it gut the fish then drop the fish eggs !
phamxboa
02-23-2012, 05:34 AM
I'm gettin the error at line 35 with the fishing word
Flight
02-23-2012, 05:39 AM
I'm gettin the error at line 35 with the fishing word
Either change 'Fishing' to Skill_Fishing or comment that line out with //.
war_god215
02-23-2012, 09:49 PM
HOLY FU@#$@##$ <---spazz sorry dude how in the name of hell did you get a 8hour proggy! omg teach me plz!!!! what did you do!?!? breaks?! did the randoms your self?! tell me!!! >:P but nicee!!!!!
Haha, yeah I check every 10-20 mins for randoms and do them. I'm pretty sure this proggy was 8 hours non-stop so I just got lucky :P.
jack15
02-24-2012, 04:39 AM
keeps clicking the skill guide at the 20 min mark... happened to me 3 times... Anyway to fix it?
Castiel
02-25-2012, 10:50 PM
Great Script! but xp/h is not working :(
http://s9.postimage.org/muzpyw5gt/proggy.png
Castiel
02-25-2012, 10:58 PM
keeps clicking the skill guide at the 20 min mark... happened to me 3 times... Anyway to fix it?
Toogle XP pop-out off
imthecactus
02-26-2012, 12:09 AM
Seems good with the fishing, but isn't dropping the fish. Its just clicking use.
Thanks. :D
Harry
02-26-2012, 10:38 AM
Modified it to cut the fish (cooking XP + free bait), and also makes the dropping load shorter as some fish get discarded, along with some other small mods for dropping. Seems to be working flawless so far.
Pretty nice script as always Flight :)
DemiseScythe
02-26-2012, 10:52 AM
Modified it to cut the fish (cooking XP + free bait), and also makes the dropping load shorter as some fish get discarded, along with some other small mods for dropping. Seems to be working flawless so far.
Pretty nice script as always Flight :)
Post the modded version, isn't that the whole point of open source? You better someone's script or customize it and then post your version of it?
Harry
02-26-2012, 10:59 AM
Post the modded version, isn't that the whole point of open source? You better someone's script or customize it and then post your version of it?
If Flight requests I do so. Though I made it a bit of a mess. It's probably a bit quicker to just drop, but I want cooking xp too.
http://i.imgur.com/Qzdec.png
Flight
02-26-2012, 11:02 AM
Modified it to cut the fish (cooking XP + free bait), and also makes the dropping load shorter as some fish get discarded, along with some other small mods for dropping. Seems to be working flawless so far.
Pretty nice script as always Flight :)
Nicely done, Harry. And I sure appreciate the compliment. :) It's a bit old of a script, as you can see from some of the previous posts I have fixing to do. :S
Janizary
02-26-2012, 07:20 PM
You could also make it gut the fish. Just saying. ^^
Flight
02-27-2012, 02:12 AM
You could also make it gut the fish. Just saying. ^^
I think I will in the next version, along with low alching instead of high alching. With the small speed increase it 'should' give an infinite amount of inventory space.
Fuckthiswebsite
02-28-2012, 05:19 PM
Okay this is a great script and has been running for me for days but now just today it is clicking several times on a fishing spot and then starts fishing. It catches a few fish (sometimes) then it sprints back to another location and just goes back and forth. It is unusable like this. Im getting 8k xp/hr :( .. Is anyone else having the same problem or know what I can do to fix it?
Kidlington
02-28-2012, 06:11 PM
^ Yes i'm having the same problem.
Timba
02-29-2012, 12:26 AM
Line 314: .. note::
Error: Exception: FindDTMs: DTM[] is not valid. at line 314
The following DTMs were not freed: [SRL - Lamp bitmap, 1, 2]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
This is in the 2nd tab "Inventory". Why! Please someone reply this was working fine yesterday then I got this message today.. :(
Timba
02-29-2012, 12:35 AM
I'm sure this is an easy fix please reply :s
war_god215
02-29-2012, 01:38 AM
^ Make sure you have SRL5
I'm having the same problem as Kidlington, the script runs back and forth between fishing spots (was working fine yesterday)
Any help would be greatly appreciated :P.
Timba
02-29-2012, 02:47 AM
My frist prog :>
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 1 Hours, 26 Minutes and 55 Seconds
Trout caught: 453
Salmon caught: 350
Sturgeon caught 358
Fishing XP 75790
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
dylan7
02-29-2012, 06:25 AM
mine says "failed compiling" says:
[Error] (36:32): Type mismatch at line 35
Compiling failed.
its the line thats says "Fishing" for xp lamp reward... HELP PLEASE :c really wanna use this script
edit: everytime.....
imjesusbaby22
02-29-2012, 11:37 PM
same as guy above me!
Timba
02-29-2012, 11:56 PM
^That has been answered about 20 times.. read a couple pages back..
dylan7
03-01-2012, 01:34 AM
mine just keeps clicking the fishing spots.. then clicks other ones.. doesnt even give it anytime to fish.. just walks from spot to spot clicking a bunch.. anyways to fix this? if its been answered sorry, i didnt see it
LeafyGreens
03-01-2012, 02:27 PM
Procedure FastDropSlot(Slot: Integer);
Var
TB: TBox;
begin
Case Slot of
1: TB := IntToBox(564,214,598,244);
2: TB := IntToBox(606,214,640,244);
3: TB := IntToBox(648,214,682,244);
4: TB := IntToBox(690,214,724,244);
5: TB := IntToBox(564,250,598,280);
6: TB := IntToBox(606,250,640,280);
7: TB := IntToBox(648,250,682,280);
8: TB := IntToBox(690,250,724,280);
9: TB := IntToBox(564,286,598,316);
10: TB := IntToBox(606,286,640,316);
11: TB := IntToBox(648,286,682,316);
12: TB := IntToBox(690,286,724,316);
13: TB := IntToBox(564,322,598,352);
14: TB := IntToBox(606,322,640,352);
15: TB := IntToBox(648,322,682,352);
16: TB := IntToBox(690,322,724,352);
17: TB := IntToBox(564,358,598,388);
18: TB := IntToBox(606,358,640,388);
19: TB := IntToBox(648,358,682,388);
20: TB := IntToBox(690,358,724,388);
21: TB := IntToBox(564,394,598,424);
22: TB := IntToBox(606,394,640,424);
23: TB := IntToBox(648,394,682,424);
24: TB := IntToBox(690,394,724,424);
25: TB := IntToBox(564,430,598,460);
26: TB := IntToBox(606,430,640,460);
27: TB := IntToBox(648,430,682,460);
28: TB := IntToBox(690,430,724,460);
end;
MouseSpeed := RandomRange(26,39);
MouseBox(TB.X1, TB.Y1, TB.X2, TB.Y2, mouse_right);
WaitOptionMulti(['Drop', 'rop R', 'op R'], 400);
end;
I used this method O_O i found a fastdrop procedure from one of flights barbarian fishing script and just replaced it.. i did try a fastdrop procedure that was linked by flight i think on the first page but.. that drop procedure sometimes missed some of the fish .. im not sure why O_O but im no scripter just posting this if any one wants to use it O_O ..I take no credits for the script modifing it what so ever.. all goes to its respective dev..
In other words.. Script works like a baws :D but with tht lil edit thingy i did above :D works for about 5hours 38 mins.. untill jagex "token failur" and i did have to do the randoms my self..
Thanks a lot for hunting for a working drop mod. I shortened the script you posted to show what I changed in mine. This is the only section that needs to be echanged in your script. At least for me this worked jsut fine. I am not alching, only dropping. Not sure if this will fix alching or not.
thenewbie
03-01-2012, 08:26 PM
I love it!
kragon
03-01-2012, 08:44 PM
Mines not dropping. I don't understand why. It does the movements of dropping but doesn't.
I am Karma
03-01-2012, 08:46 PM
thanks man, awsome script been running for 36 hours row still going, you getting me 99 fishing! :D
SweDam
03-02-2012, 08:20 AM
Thanks for the script man it's awesome! Would appreciate it really much if you could make it compatible with decorated urns next! ;)
Here is an 6 hour proggie.
http://i1174.photobucket.com/albums/r611/Sweefs/untitled1.jpg
Leonoras
03-02-2012, 02:32 PM
I runs from 1 fish spot to another, clicks 5 times on fish spot, catch 1 fish and then run to another, it fills inventory in 10 minutes. Anybody know what's the problem?
LeafyGreens
03-02-2012, 04:06 PM
Mines not dropping. I don't understand why. It does the movements of dropping but doesn't.
read two comments before you bud.
Andres
03-02-2012, 05:40 PM
I runs from 1 fish spot to another, clicks 5 times on fish spot, catch 1 fish and then run to another, it fills inventory in 10 minutes. Anybody know what's the problem?
Try updating SRL.
I am Karma
03-02-2012, 10:38 PM
banking doesn't work so well, gets stuck but powermining is alright!
SweDam
03-02-2012, 11:59 PM
banking doesn't work so well, gets stuck but powermining is alright!
It's a very usual problem that the banking doesn't work when your post on the wrong scripts.. ;)
Timba
03-03-2012, 06:20 AM
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 1 Hours, 9 Minutes and 12 Seconds
Trout caught: 360
Salmon caught: 259
Sturgeon caught 271
Fishing XP 57810
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Andres
03-03-2012, 06:38 AM
banking doesn't work so well, gets stuck but powermining is alright!
Confused about the script or in the wrong place? :duh:
holy angel
03-03-2012, 09:38 PM
could there possibly be support for urns in the future?
Andres
03-04-2012, 05:00 AM
could there possibly be support for urns in the future?
I just modified the drop procedure to make room for urns and teleported them myself.
SweDam
03-04-2012, 10:01 AM
I just modified the drop procedure to make room for urns and teleported them myself.
Then we're two about it. ;)
This script is so awesome! From 70-85 fishing in like three days.
Here's another proggie just because! :)
http://i1174.photobucket.com/albums/r611/Sweefs/untitled3.jpg
holy angel
03-04-2012, 01:44 PM
I just modified the drop procedure to make room for urns and teleported them myself.
Could you tell me how to do that or show me how you did please?
boss11
03-05-2012, 12:32 AM
Type mismatch at line 35 !?!?!?
boss11
03-05-2012, 12:54 AM
how to i get it to drop once inventory is full , this is soooo annoying!!!!!!!!!
iPartyAlone
03-05-2012, 01:00 AM
interesting how well your script works with both alching and dropping fish :D, fast fish just end up being dropped, good job
Andres
03-05-2012, 03:29 AM
how to i get it to drop once inventory is full , this is soooo annoying!!!!!!!!!
Read through the thread. I have no scripting knowledge, and I figured it out.
Timba
03-05-2012, 04:15 AM
I have a question; is there a way I can modify the way this script drops fish so It only drops every slot except the first slot (feathers), and the last 10 slots (fishing urns)?
I am willing to activate the urns and restock myself. =]
Anyway, here is my longest proggy for this script
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 1 Hours, 56 Minutes and 41 Seconds
Trout caught: 681
Salmon caught: 486
Sturgeon caught 534
Fishing XP 110790
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Kidlington
03-05-2012, 07:04 AM
thanks man, awsome script been running for 36 hours row still going, you getting me 99 fishing! :D
Lol, I would love to see that proggy!
Andres
03-05-2012, 02:28 PM
I have a question; is there a way I can modify the way this script drops fish so It only drops every slot except the first slot (feathers), and the last 10 slots (fishing urns)?
I am willing to activate the urns and restock myself. =]
Anyway, here is my longest proggy for this script
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 1 Hours, 56 Minutes and 41 Seconds
Trout caught: 681
Salmon caught: 486
Sturgeon caught 534
Fishing XP 110790
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Just look through the drop procedure, it's not too hard to figure out.
Tocholoko
03-07-2012, 08:31 AM
I have a question; is there a way I can modify the way this script drops fish so It only drops every slot except the first slot (feathers), and the last 10 slots (fishing urns)?
I am willing to activate the urns and restock myself. =]
Anyway, here is my longest proggy for this script
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 1 Hours, 56 Minutes and 41 Seconds
Trout caught: 681
Salmon caught: 486
Sturgeon caught 534
Fishing XP 110790
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
I could give you my modified version of the script it maxes 60k an hour and you can manually use 14 urns. ofc ill only give it aslong as flight is okay with me giving to you.
Tocholoko
03-07-2012, 08:47 AM
here how im doing a little proggy :D
LeafyGreens
03-07-2012, 01:57 PM
Nice Tocho, I would like to see how you did this.
I would imagine you could just delete lines of the drop procedure and test to see if the inv. spaces you want left alone are left alone. But I am not able to test this atm.
JeanPaul
03-08-2012, 10:19 AM
[Hint] C:\Simba\Includes\SRL/SRL/core/login.simba(528:3): Variable 'X' never used at line 527
[Hint] C:\Simba\Includes\SRL/SRL/core/login.simba(528:3): Variable 'Y' never used at line 527
[Hint] C:\Simba\Includes\SRL/SRL/core/antirandoms\demon.simba(167:3): Variable 'C' never used at line 166
[Error] (36:32): Type mismatch at line 35
Compiling failed.
I keep getting that. Please help.
mastermen
03-08-2012, 04:42 PM
[Hint] C:\Simba\Includes\SRL/SRL/core/login.simba(528:3): Variable 'X' never used at line 527
[Hint] C:\Simba\Includes\SRL/SRL/core/login.simba(528:3): Variable 'Y' never used at line 527
[Hint] C:\Simba\Includes\SRL/SRL/core/antirandoms\demon.simba(167:3): Variable 'C' never used at line 166
[Error] (36:32): Type mismatch at line 35
Compiling failed.
I keep getting that. Please help.
Me too, please fix it!
LeafyGreens
03-08-2012, 07:42 PM
@Jean and Master,
Just delete Line 35 and you wil be able to compile.
The client doesn't really solve randoms anyhow, so there isn't much need for that line thankfully.
Timba
03-08-2012, 09:00 PM
I could give you my modified version of the script it maxes 60k an hour and you can manually use 14 urns. ofc ill only give it aslong as flight is okay with me giving to you.
Please do :{
la102
03-09-2012, 09:05 PM
got 100k xp using this script, hoping to get some 6 hr proggies for the thread
Ibotskillz
03-09-2012, 11:34 PM
Just hit 99 fishing last night, largely thanks to this script. I used this for 3.2m xp since October. Thanks bro!
la102
03-10-2012, 12:21 AM
nice work bro! im 3 hrs into the script, luckily checked cause i was stuck in a random. hoping to get a 6hr+ proggy today!
la102
03-10-2012, 03:15 AM
Here is a 6 hour proggy, dont want to get banned so im taking a break and will post another 6 hr one tonight, please show your support for 12 hrs fishing in a day :D
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 6 Hours, 10 Minutes and 27 Seconds
Trout caught: 1819
Salmon caught: 1400
Sturgeon caught 1074
Fishing XP 274870
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
EDIT: break is over, now for another 6 hrs, praying for no randoms as im going out tonight
megapro82
03-10-2012, 04:25 AM
this scrpt literly trolls me. its perfect fishing and getting to the fishing spot but it does not drop. it just righ clicks on the first fish, hovers over drop and then goes to the next fish and does the same thing and it does that till it gets past the full inventory and then trys to fish again. if any1 can come up with a solution to this, i would be very gratefull. thank you
Powerfrog
03-10-2012, 08:16 AM
In case you haven't worked out why it doesn't drop, i think i have. If you have a knife in your toolbox your first option is gut, making the previously second option, drop, third.
Seems easy enough to fix. For now i'm just gonna alch fish and manually drop when it gets full. I babysit anyway so it's a good way to force myself to not forget about it and end up banned :P
I plan on getting from 68 to 71 fishing today so I'll be sure to get a decent proggy.
la102
03-10-2012, 09:22 AM
there was an edit for the drop procedure earlier in this thread.
la102
03-10-2012, 09:53 AM
did 13 hrs on it today, lost last proggy cause i was copying and pasting URLs. it went for 7 hrs :D
ph0ne
03-10-2012, 05:49 PM
can't use, says mismatch in line 35 on the latest version
" LampSkill := 'Fishing'; "
irule4ever
03-10-2012, 06:31 PM
ph0ne delete that line :p
ph0ne
03-10-2012, 06:45 PM
Thank you so much to above.
brother287
03-10-2012, 08:31 PM
Line 35 Lampskill fishing. Mismatch?
la102
03-10-2012, 09:51 PM
Line 35 Lampskill fishing. Mismatch?
DELETE THE LINE. for goodness sake read the earlier pages in this thread.
Cheezburgar
03-10-2012, 10:07 PM
Working beautifully ever since I changed the drop function, and deleted a line. Thanks for telling us how to fix those, you guys. <3
Proggy:
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 1 Hours, 6 Minutes and 30 Seconds
Trout caught: 270
Salmon caught: 197
Sturgeon caught 154
Fishing XP 39610
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Ashihtaka
03-10-2012, 11:29 PM
Working beautifully ever since I changed the drop function, and deleted a line. Thanks for telling us how to fix those, you guys. <3
Proggy:
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 1 Hours, 6 Minutes and 30 Seconds
Trout caught: 270
Salmon caught: 197
Sturgeon caught 154
Fishing XP 39610
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
What did you change with the drop function, Cheez?
unvere
03-11-2012, 03:29 AM
Can't drop fish it only hovers over use option then trys to drops the next fish but hovers over use option again and again? Any ideas?
la102
03-11-2012, 05:21 AM
FOR THE LOVE OF GOD READ THE ENTIRE THREAD BEFORE POSTING A PROBLEM. everyone delete line 35 and here is the drop function remade.
Procedure FastDropSlot(Slot: Integer);
Var
TB: TBox;
begin
Case Slot of
1: TB := IntToBox(564,214,598,244);
2: TB := IntToBox(606,214,640,244);
3: TB := IntToBox(648,214,682,244);
4: TB := IntToBox(690,214,724,244);
5: TB := IntToBox(564,250,598,280);
6: TB := IntToBox(606,250,640,280);
7: TB := IntToBox(648,250,682,280);
8: TB := IntToBox(690,250,724,280);
9: TB := IntToBox(564,286,598,316);
10: TB := IntToBox(606,286,640,316);
11: TB := IntToBox(648,286,682,316);
12: TB := IntToBox(690,286,724,316);
13: TB := IntToBox(564,322,598,352);
14: TB := IntToBox(606,322,640,352);
15: TB := IntToBox(648,322,682,352);
16: TB := IntToBox(690,322,724,352);
17: TB := IntToBox(564,358,598,388);
18: TB := IntToBox(606,358,640,388);
19: TB := IntToBox(648,358,682,388);
20: TB := IntToBox(690,358,724,388);
21: TB := IntToBox(564,394,598,424);
22: TB := IntToBox(606,394,640,424);
23: TB := IntToBox(648,394,682,424);
24: TB := IntToBox(690,394,724,424);
25: TB := IntToBox(564,430,598,460);
26: TB := IntToBox(606,430,640,460);
27: TB := IntToBox(648,430,682,460);
28: TB := IntToBox(690,430,724,460);
end;
MouseSpeed := RandomRange(26,39);
MouseBox(TB.X1, TB.Y1, TB.X2, TB.Y2, mouse_right);
WaitOptionMulti(['Drop', 'rop R', 'op R'], 400);
end;
stray247
03-11-2012, 05:25 AM
amazing script. fearlessly got me to 99 fishing.
thanks alot flight :)
ph0ne
03-11-2012, 10:38 AM
Could someone please release a working version of this?
I've tried the fixes in the replies, but if i try to run it says compile fail.
Originally script just fishes full invo, then hovers over fish trying to drop them.
Flight
03-11-2012, 10:48 AM
Could someone please release a working version of this?
I've tried the fixes in the replies, but if i try to run it says compile fail.
Originally script just fishes full invo, then hovers over fish trying to drop them.
Give this proto-type a try:
program HeavyRodder;
{$DEFINE SRL5}
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i SRL/SRL/misc/paintsmart.simba}
Const
//SRL Stats
SRLStats_Username = '';
SRLStats_Password = '';
//General settings
AlchFish = False; //Fish 'n alch method? (False for standard fish 'n drop)
SwitchWorlds = True; //Switch worlds after break?
FishTimer = 6000;
//Break settings
BreakIn = 135; //How long before we take a break? (minutes)
BreakFor = 15; //How long will we break for? (minutes)
Bir = 13; //Random minutes to add/subtract from how long until we break
Bfr = 7; //Random minutes to add/subjtract from break duraction
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Fishing;
Active := True;
end;
end;
Var
Version: String;
ReportTime,CommitTime,PostID: Integer;
Trout_Caught,Trout_Ca,
Salmon_Caught,Salmon_Ca,
Sturgeon_Caught,Sturgeon_Ca,
FishXP,Fish_XP,MagicXP,Magic_XP: Integer;
//Break variables
w,x,y,z,RealBTime,CurrentBTime,
BreakRounds,TotalBreaks: Integer;
Procedure Loadvars;
begin
Version := '1.4';
PostID := 841068;
MarkTime(CommitTime);
MarkTime(ReportTime);
MouseSpeed := RandomRange(17, 19);
w := (BreakIn * 60000);
x := (BreakFor * 60000);
y := RandomRange(-Bir * 60000, Bir * 60000);
z := RandomRange(-Bfr * 60000, Bfr * 60000);
end;
Procedure Report;
begin
WriteLn('=-=-=-=-=-=-=-= Heavy-rodder '+Version+' by Flight =-=-=-=-=-=-=-=');
WriteLn('Time Running: '+TimeRunning);
WriteLn('Trout caught: '+IntToStr(Trout_Caught));
WriteLn('Salmon caught: '+IntToStr(Salmon_Caught));
WriteLn('Sturgeon caught '+IntToStr(Sturgeon_Caught));
WriteLn('Fishing XP '+IntToStr(FishXP));
WriteLn('Breaks: '+IntToStr(TotalBreaks));
WriteLn('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=');
MarkTime(ReportTime);
end;
Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
var
mx, my, Pic, Pic2, I, B, H, TPH, Numb: Integer;
TTP: TPointArray;
Canvas: TCanvas;
begin
SmartSetDebug(True);
GetClientDimensions(mx, my);
Pic := BitmapFromString(mx, my, '');
Pic2 := BitmapFromString(360, 71, 'meJztfQV4k9f7dtt44+5aiTRt0' +
'zT1tNGmblShBaq4uwyXsQEDtsFgQ8eQMcY2nCHD3Snu7m4Dtt/3PW' +
'/DWNeWUkbLgH/uq9cE0pNz3vPIfR95Xjc3F1xwoX7gDj/u702zLrj' +
'gwn8ODw93CslTwsBhUPXp5A3UrAsuuPAugIDHR4SGdLTwu5dk knGo' +
'+mIIDdTsuwYYl4e72wc6OBfqDe7u7igPDwwahUa5fwAGA6xAK BCUx' +
'Os6WvmbN6wrbpzBJKLf2WbfNYAxED0JEh6TTcKgPN53W3ChoQ B2gs' +
'fjZFJJRHh4uEGn9ZFKOFQKHvX+ZlMcFhsRERGlIE8u8Cr/aVSPWIF' +
'SJnxzD2igZt8OICnAnKLrIK9gmEG6wBZmychBvVunGDR8git6 uFAF' +
'SHIheur1+lKrN9hVuIzUP1HUs1l848zkAKEn6T2k4jAiLoeTH x/mx' +
'cIdHp+/rZdOwcIFB/p7vNlIGqjZtwMUykPA56WnpaYECzEwpS/vsn' +
'OYTZOjByWLz509802Rf2ZKPBmPeouddeFdh4eHB4VCjoyMaBP Dsyo' +
'pk/O9Dn1dcmzZpB1zhi0e3nRS76YtM6JxaI/3K9tg0OigIF2chtY4' +
'hPn4+tludqGMiQvWB72hgzdQs28B0EGip6fdZmkaxl72/eRubUtAX' +
'r2s0zDMwICA1jG8raPyjv8wMFlLt1vNBBzmrfbYhXcYEDSoVE pMTE' +
'wbE29Iivj82ulXN848OCbz9ILBD6+fv3/17KVDW/fv2vrN+HFWJZW' +
'A8fiv+1snQLqk02hZCWYWEb2yg/rM972CJSSHmqpWq97EwRuo2bcD' +
'iPtikahFrHpwivjy8X2944QBvpIacwEMk0ImpyXYU/xp1w6un1fqm' +
'2dgBvhrUR7vx+y70NBALIRCNptMLaK53xV637txcc9Qc3ogw1/o2c' +
'Mh3DR/wrWrV548fnjv/KGNw9LamXi28EDcS3PUOwQ0CqXRaPJD2Wk' +
'B9NuHfhuXKweOXWKSCPm82tj5f9Ts2wFQiGC9PklL29gr9Nic 3uFy' +
'UoheV2O4gwijkMvbx8rH5cjvnNgBQaPM7vtejNGFtwAwAzKZZ DQaW' +
'xi5U5t5P3pwf10XLZhTsIRYlmGKjwrwFxC+mzrx+Nrv/3jyqPyzdK' +
'MXuTQugMsgvePWg4yLREpyWL1Y+G299Wfn94tQkIk4D4fVRCQ Q3rV' +
'm3w7A40kkYrLDrBN5nv5p6LL2apMPJUgXWGPcwONwJlMMKNb9 E8vK' +
'v2is4RFS4iwkT8+3320X3jWAF3h6EkIMBtCwozNl96+f39RNG yolg' +
'ZKNj3MIeBw8xp2E80iL9h+RLrm46qvj09qAmzSP4CjEgnc8bq BQHl' +
'4KRTubpJ2Z9/jmxU8aSakEVGkUx0shfxM10UDNvh1AB/k8bmFsQIa' +
'O8eDKqc5Wfq6BpfL1qU4hgGzwuNxmCaHZesa9C0dHZUotvpRg fRBw' +
'rf+k5y68OwBrweGwfn6aNrHenW3864c37h4YGaUgx6ppNquVS iY5H' +
'QGN8jBGhsmYuN86a87/MixURsoNZvooZO/4AqkngWC3WRP8aOVT2h' +
'2f0iJUTgbiZIqJ9iTg36TjDdTs2wFEA18fnzIjd1Qj6Y3dS+x Kagu' +
'LTCzkV48bIGd0gYGgTeaW+l7ZOCtWRWtpEktEQpdIcQGNRkml 0sIE' +
'A8SK4/OHHplY6FDTQJ7Ex9poFPILC4G4ERUVicd4TGvqdeb7XloBo' +
'YmB5a2Qvssm5Fz9a50eMbnA69GtSwOSRFwyJjfJwmYx36TbDd TsWw' +
'OwBUOwPiOQsWdsk/IxjXy5hBy7gUGjVvkYjIVKoaTFW/US4qkFQ3f' +
'01onp2LQ4M4VE/E+67cK7A3ABFovZKNEqZeAm5Stula8qjuRo+ISM' +
'JAeLQa9MucHYjFGRBIzHTy2Vh8ZmimnY4gi2TCJ6lx0FtHlkR HhXm' +
'+DEyqnln+eGSIktbD7eXgoM6o32Ahqo2bcGIEXxjtiUAPqtY1 u+yZ' +
'dLGDiLKRqPw1b5GMoD0WJtzXzQYk8fP2hr4sV4k10ixQXnsgZ EgzA' +
'ZCcjqlXVTF7ZRQeosSw6BfIr+pwKpiBtRoOJ39w3a0l0L/1Fo8eFx' +
'2O+sTnFq8+KshPkt/e6cPTgoWZStZ4aGhlR3kHeh2bcGmHQOm9U83' +
'fJlnvzO6X35oawWUVwIetWXZZAV0Zhog4S4rV/kye+66sTEUrNcLB' +
'S8F5zq3wFGBmb/4Y6vfgAKxcfHp5VJyCKigUVcWjXB6kuBgGCzmgl' +
'4XJUPgxXF2u0KFu74jPbTm3mDYGkUG0Elk/6TntcFWAxGrw/qFSc8' +
'tHDc/kllDjU1LSmBRqG8oVE0ULNvDcAilL4+vdL8to5veWx2L0gZa' +
'Ql2CrnqvpgzPDaPN8AAb+xdNiXfi+GJTnJYP+CdFBTKg0omgh bz4e' +
'DR7/7q9n8EiKoMBj093kzGeTTSMW7vXzGpiYJGQOUEM8Guqjw2sCI' +
'ul1OYZkrS0u4c29wnTkT3RMfExGAx7+gdLmR0dHpuqqObnf/wwf3P' +
'c+Qd4n0hq77haaUGavZtgoDHW8zmltHcqwc3Lm2rLoxgB/hrq0sP5' +
'4poZhDzq8bym3uWJGvpyf50f63fWx5pxSVcd5QH8lNHT/7786/zRR' +
'gMmsflOKINY0aPnPXttPRI5ftyrPEtA/KmTqdL0tIldCzojguLRsT' +
'4kNEebnnxUQwatcozB7IRERERq6Z+W+h9Y9fCeA0tM4ihUvq+ s1EZ' +
'qJSfRtM6hreyvebC+plxGlp6UhyZRHzD7jZQs28N4HvAIorSz RMaK' +
'0BktYrmNk8K47JZ7tU+RqVQ0hOsAULP47N77vrIAEbS1KHnsJ hvba' +
'TQBzBRFpPh4+2l1wUYAjR+UhbktdotDofFCgWCAI0yUEIj4ur q+Fg' +
'sRiIWN87J+qJFzNH9O5aMad80J51OwtfDMD4swKSwWay8eGR/pGkY' +
'+96JrRObKBhElL+AAFIdck3lDwN/E4tFJQl6u4p6cd303zr7iWjYf' +
'IeBzWT85/7izEcVPxXVISr+CewIzD41wW70Ip/4YeCW/saMQIYhWF' +
'/3Bb0GavY/B3Q1MCCgnZm344vio7N6WnwpoD1ftiLazszvYOE9/f1' +
'hBzPPi40DeonDvo07KfCcwf35fF5YWFiuIyw/hB2pIEfIyX3ihf16' +
'dqYQUOiXrKnBL4pEwrwoeYwP5etC7aypE5ulRNdOG5yHEGCwz RvF9' +
'XIITmz66dCs3u0tfJvZRHhPFqzeJpwXsmwqqoKJ3d0n8NLysb EqKp' +
'CNEquPQPCPfXznOVKH3RIiJS5tp766aVZ6IMOPT4iMjHxzK3q TsOO' +
'0LgadJhEJvBUyXy+Zt0wsE/NFAq6Azw/WB3WJk0/Ikz+6caFtDK80' +
'igtyoi5Mt4GarXfAdwIVh946w1odf4VCJqfE2+I01Kv7Vv7YQ tkii' +
'qNRK6uTRtAyZpMpQk7aOcxxfHr7IAkRmIlMKmnokUL7oBdYLG ZISE' +
'iz+JBwOcmbjcvQMb7Mle8eaj0yf+jh/bvGtUuyBIhqvOAA4c4QHIx' +
'yd0vxp1/aumB5B/++mToFn15Lp4FpeHkpijKsrWO4x5dPOjG3T1kU' +
't62J916c33vLcNpPqi0Cg3JvEsK6c2jN9yU+PAqG7omuviIK8 6jRa' +
'EAOF4Wz757aPbO5D5eMKbL7VQkvrwWwdkh88EUMChG+9HUrOX h4eH' +
'gSCFKJxGiMyo4NbWmRtYrhdrLyuyfIuqbr22dGt8yy921TAAZ wetk' +
'XB0an+guJBWFskeAVVyoaqNk3BxgwuAn6L42PlEbB4bgcjtLH y1/t' +
'q/GWyQQsBvHV5XTgscuk0tYWSbMw1v0Lh2cU+rQtzOExKFW6/3xFN' +
'CEkR8+AGf8yV8EkopPjrGRiw8ox+F4i0VOlUuUkWkAI25SUqU 29ys' +
'dknlsw8ObOnx5eOPjnsycn5/bOD2UVhnO8BIzqTx05YhQZAfyil0M' +
'In881sPJDWEov+csmCIKGXCYrzLAVRbCPLxpz+seBEB4DBJ6x NuQg' +
'feXfeUciiPtz6ou4Dzgm/MCQK//UfRXoXwDahtRZbIUIgP65lfLmj' +
'h8b6RhYlFtxZNVj0uBKXC6ncYo1REIsn1h8fGqrKC9yoJAIZO PfbT' +
'uCbYBvggLVBwXF2cyNk6LbFDVOChbXvZ4YPCvokikmuoVFbpA Ss/T' +
'M8bnylZ381/YKX9vf/tuAuBW9YhZ1DFrYWrXz44Rnz55OaiI3+1Is' +
'MUYioTa52kDNvjmclw2D1fIUh1nKAu6MgZhvMBjyrdrMIEaSl t4mh' +
'tsjN6q0sMCXi689cgCPgolT8Qjwi2eXfrZm9jijN9lpaR4ezr VEMD' +
'wP4O0wO+Cev7bXXF47FVw4J5ipUatqWRH9a/XSw7kg+S+qwyErKlS' +
'KMSoSMpQ3Gz+qkfTqrsXnfhl+bFLRvbP7nz198r///e/J7cun53TP' +
'CWYJqJhgnX/1OIkcaY6KhGw4JEV8c/ciUGHIIr+PokZfApcD9V2Q7' +
'iiMYB+ZP+zswhEtjVw5C5edaOGwWFUoNxGPJeHeqhp9oZSdkw IRgk' +
'DA06gUPo/n4+0FvNcUHWU2m6KNUVGR4RAt4Z+RYSFhOo1GRGugrjq' +
'PGTcLY+tEnqdmdtw/IFTGxKE83FLjLBTS3/tx8LhIJKLVYrarqPPK' +
'fO+d2tnOxIMuNUk0stms141rziwJ8tNsiim2KkGBwhzFqWkTG isWz' +
'5ncxKSke76i7JRTiioUitxEE3LK3cDcPjT298cPT83tc3J2T7 Cuh9' +
'fPP7x09MH58nund989vgX5j5Pbx2XLO7QuEwv5L0vHDdTsX42/qUN' +
'BoNDrg4Crg7OXNGsi59GMYcEJfjQlF/9xhnTXuIITq789tmP1/j27' +
'Fn43Yeig/gIqtsalQxgmi8nMiwv3xHpAgjj109BNqxYDh6HgUf4yl' +
'j7ALzgoMDhIBwYJhtiyeV4yUP0t81d10ghp2Oz4GDq16lL5i2 bBpM' +
'GeQcX4a/0M+kBDoFbjLZEwcNjXqdKMx+PCwkJDpCQI2tv6hDy8eHh' +
'eqS+ErAHJ4tUzRx3Yv+/OrRvAN65v/f6LHFlJJEcXoK2uI5xHEyFu' +
'jEiXXN/2g8mHkq2vOW6gUB48HjcnNR749oEZ3c//+mVHC19CxzZJM' +
'omFgipzCvFWp5T069a+JNGAb+BNFnf351ScyaCLRUJfH+8Af3 +DIT' +
'g62hhvt2YnxJQk6Dvb+KkBDIOUlOhHyw9lQyBtFMQAaQY/WUGMz3J' +
'9e5Rk/gsa/0pUHDMONkiI2XrGo8vHBiSJCFiP9EC6n0b9Iqc4vQn6' +
'3N7M7+EQPLh0bEFLpZiOLQhlwcew6NcLaDBNNBoVsmRxgh4MQ y8hl' +
'hm5y9qpT8zo8OjGhe3DE/MMzNQ4KxFbS0ZD6hYCiS1KDIFwN6XA69' +
'658sPjsjpaeMESIjzABR0MBzYsvXvn9h9PHv3vzz/g5//9789b+38' +
'dn6foXuDQqrxrNOMGatatnhwK7J1GpWbYQsl4jyYhzMm9G0O8 HdG1' +
'GNLonqG2O0fWb+im/SRD2tMhBEkOEQ8yLDxhHhVX/QtgCtRqFfiRm' +
'IYB/n99x09XLl1YPvfrBXNmfNk8sL2J1yKaWxrFLY3klBk5feNFez' +
'5vdnnd9Fw9M9GPrgsMxNQ045Cy6XRaQIB/uiOmhZELn4xUkG0qyvB' +
's1Yj+3ZvHyITUOo0V+iaVSkoTgkJkpL0jEi+tmgDyEOKVDwc/uG93' +
'cAEuBbNhzmc39y774/cH+75p81ljNTzM6qdzoZPI4i3afSTQlfXTg' +
'BvDeH29q+oUYNEMBj05wQF/u21U7tWt8/rGC6UMXEFyjFQsQv+z2Y' +
'paZ+zS4sLFXw/5durXKp7nK93RmSNePex/AvE4LBbkp9bPz241Q4R' +
'vaZW3N/MgyDcL4+QZWG1ieMPSJLOKfX7rZz0wteOlTXPAd36/f+vp' +
'4wfwH7ePbbm2c+HlzXMvlW/c9uP44cXmIAnlZQvI/w6eBHyc3ULAe' +
'IzNll3b9B0YG9rDLTcxuvL2a8WlFUlxuqmJgXlu9eSDo9MivU igUC' +
'xmE9GT8No74zxugsMO1LdxCGt1R83BcdnnF31y59CaZw9vX13 7DTg' +
'plYByqKkiDu1lSQ2CmFKpLE0MjvEm7xhih9Q/rZmXVuCJx7hD5m2X' +
'FpIRpQQ3X/3zd5f3rX5y9yo4+J9PH8PoBiWLQZ5nWvQ0QtWjJg3Ur' +
'Fv9ORSkVEg6ZRY5j4weky3d/8vniycO3P7D2LMrJlxeM6mtmcejYG' +
'AewVMgD8IPZMyMEBGPVXUl0Fndy2GzkHEeZh/KkbHpv9849/Dq6Wu' +
'HNlw/tvPurWs3Tx+4Wr7h9KrJR38YdPzHYbdP7zv5XZcuNgGLhG6c' +
'GM1iVN04c8ZbuVyeGmcCZsIjY2wqKjyTrT0CyieVHJo35OSut UvHd' +
'uzXoxPwn1fSSIiNyYnxQKK2DTSBvmgVw6V5oiButCpuyiFhMB 7uDn' +
'8ueNCSNiqwmdsndv7Q1do0N4NJrmqHWAwalCY8h/F58osrxoVIiUA' +
'nfLxk1df5TaaYrCDmwlYqSBNjsmViBq4wKVIhk1YPjxW1zrSD c3VH' +
'Ni+d0SsTBGPtO8FA5hlUkk5KQwZeZz9BKhsQPXWBAQWJkc3D2 THeF' +
'HgIkMU2DI4/9OOIa0e2PLx1+dr2Bafm9S8fk7m9p//cEt9PG0k7Wf' +
'gQVTpbBd82994z1HJiVrcLy8ee/r7PkrZqsLfS9GgO9fVctdYeIvG' +
'zqSOIT8Hs/9i29yM92B484RBD8IuHBgGZw2Fnp8ZDQC6f1gWkX2MD' +
'U0jFZCRYEBN6HYUCQUMiEeek2JO1tNnFPrdO7bm0euLlbQtuX 7/88' +
'MH9Z78/vLxqPGQ6MP78WAOLQX9ZI3K5rDAlKlZF3fd506sbZ0KG5Z' +
'IxLCK6zOEfbYwUcZkEjDvM1JCPeoAxXFk3FSLSk1sXT83skKV n4tH' +
'uTew6Jq3q0daGaLYeHcqtYoPAT6PJDGL68Qkbu/vfPrrp9sWTl9bN' +
'KP/E0TSMxfBEQUYuzrDEOWIjgwNCA3wDfKUCNr06G0Q2KIXCEhsiB ' +
'gcni+8eWXdz1y8nvine3E07qYlicIoYOOfiNqpLa6c9/f3Rk/s3T3' +
'3XqSSSDYHRoqQE6XRV9uVhjKC1tVptUaw/BLQ4DXVFB/Xpub1AGtw' +
'/tePJzfPACkDVburuD/IqXKepJUQ6mwJx1CdRurpn5P2LR0dnysAg' +
'g8TE7MwMfsUj4lBwbQrS5EwcZNsb2+cD8TuydOLIJgGWUP8qe 6xYD' +
'MZmMcEfziz0OTW7Ozw08EGFTPzCYJ1fB7wXRHobE+/ehaPgYvAMW9' +
'qVSl+f6ocYnSXdstOTBiWJ7ty8NjhZEqoPqHWdxx3iszEitHd GQP8' +
'urUAD1jHhQw+lXFo7m6R3vHDDoNgre1fcOb71+PT2O3r5T873 6uUQ' +
'Ng1j21XUAKEnPAcwURoBRcQh+YJOQKl4BLMvBcwM7A38FKQKS Bj4a' +
'quS6iUV1lfcqDhm7AupH5zl9v4VMBeQW4vtaj6P43y8YGOQKx Pi40' +
'qjOFs/zb6+c2GvOCEEmaZJUSJE+r2GvgPHBNKSn2qFlL15SPzd03t' +
'/KPWFFDClqff8iR/v3fjr/dvXIYN8kSsDKQpMpsaNXQhiQFfyUmMT' +
'/KhAnq9s+BakE5h0kpaWmuiQiYU4LLInBz8sGqkwKxHy6d6BkY8 uH' +
'oLRgRQC44G5S7EZyUTPhmn27yo99ehQTjhr5kAcsympR8c3/uPRHU' +
'ijU5t6RypIYDZKLiE9MVYk4OGxCLl2bsjW2CI4PqKRvckwEWf n9z+' +
'3YOBnWbK0AHqgyBNmFsgem4QGy1w0rtuu7ZtPbV+xoYsW/gqFsNAY' +
'ENr/2FmoGGNgYGCLaD4J5wHh68y8vvdPbrt9YCUEnD//eAY6DijZr' +
'd0LIQkC/8mKj6aQXlrICIiZQi5r1zR9Qafwh/fu/NpeDYNKC2TE2u' +
'0MMvJbWLRHcKBfrJqm4uJXdNDcPboB2r++e+mEPEUbE9dPyqn smXg' +
'cNtZqgl6t7KA5ODpVTMeVRXEkIv6LuIHFYoBetrL7wKM4PrvX oc/z' +
'IhSklAB6SIihxnV+EFAqpbKrQ7q6j+nMqinNwtmGl1RFe9G+R qNuH' +
'68clyNbs3JZcqiCQcTUxXPhM+Dp48eNPn1oz8Gp7YBLwEPQCg iQd8' +
'h4FDAoEg4FwjlHz2xnFZemhOdnxKenpZmjQsMCVcF+Xnq1PEa vLC4' +
'u6tXECkNGwgsL2b8W8Tn1pVRAQxmNRhkD+1GC8M7htUlaOuhH R6yd' +
'gEWSlLOYpNlk6mzjr+lnv3Nqz1eN5WI6tjg+yEshr1HkvgxOp gFBA' +
'wTIjlE513f8PDRVImVg4zW0ovxsFhHzzZih++cMevrg1u4h5m gvck' +
'xMNBZdQ8CnUinxDhvQlU0DrDf2LOsTJwIjL4pgR0SEUymkF5M I/2L' +
'SaU0SI8FW5xb7AA8/MbkUYhRYkYZPAK+pfDqrXpv9e0WoHh3K7a+V' +
'zMYVK5kgdq789jXEWAhZQA6BBUHeSU90cFjMV6Y05yJJo0Qr2 OHeY' +
'bYLiz+FYQJ7hGwFfYfpaOFQN85uZPShw/8qeYS5w1ps7hsKDgVsUx' +
'+kqzzpTmWn0WhamCVErEdqAO3o+CYPzu49+/Pws9sXHzu079KlS48' +
'fPXx85fjJ6a3By+A5FBilXFbNNBLZreOwC/IbT20VevPK+V2fJAE/' +
'BxUfFhpC9kTKmMDIYIAFSUZwHOjMyWkt4fk/u3/94pKR3WMFHBI6O' +
'8FE9fw714AAT4w1c8iYfcPMG7ohVy+L7Boei+H8W+cGStPkKF Cg2/' +
'qEXFk7GVQz5Ov0RDuNWsP1ImRfgEhMcNggaJ/5deKG3qHAXvxeXjw' +
'WhUKJRMJmqSaHmnZyydj1Q5PABkL0urq8ZsIJiGbTxg4amyVL 8acD' +
'yQSp0jrBv1maLS01xRiqC1QpfKV8MYfGpuCpBDTQKgzq+ekd5 DCPu' +
'xtMKAxZwsD5i8haOUfEpeMw9bOxAu0z6LSsuCiguBu7+h0clS Rj4k' +
'Ai+Uq4ztxKJhEjI8J7JsqXdgm7d+XsD2W+Sg6hZaxKrVK+1ik vCNR' +
'8Pi8vxQ5BY+sg243dSz6KFwH/bB7GjokxsqjI4lLHti37xAvP/Djw' +
'3OKRQLSykqxUUtU7U8D5g/X6VtHc2cXej29f/ipPIaJhW5tFel2gJ' +
'x73zzyI1LAqsiNnWZe3Vz88f2BstgzcEz5TaNMIeP84ZVFfzf KRZp' +
'9/rB4d6sUzVKmU+aFsMQ0zp8T36b1rh0YlgkVBGCHjPXKTrRWXke t' +
'0kg1yeqcE5XdF3o9vnId8QfNEgY0VhrMzkuIC/FRCLgN5t4WbGxGH' +
'jtF5Te8Ue2nX0tbRvJZJQVXqiDpLtTSPDwZHtvpSdvUOuHdi6 6PLx' +
'y4d3r78h+m+HPzkEt2Na5cvr5n0Ra4cIhvMco5JzaJXrezh9t dR9l' +
'hL9NiymDN715VP75wTzGydEBDgr30xBcABwsPCQqUkLxZuVrE vaCs' +
'IvNe3zFnVUQPBE3wiL0rBolOeN4hYr2e6I0Yr8Dy36JOJTRTQ yaw4' +
'I9UTOY8ED4rFYqYnwJwR4K8g/vRLEDGIaBAsvj7eNbJo+EO5TNbaK' +
'u1g4f9+/1abGG4bs0AmEdeo0yEGMpmMtMRYoxd5Y0/D1c1zm0dwdC' +
'KiLqCG9dtaAH1WsHB+Mo5SypPz6XwGERgLzDj6rwN+dWQv7vV 65gR' +
'MyEuhKDNydWLi2QWDvi309mLjW5UWkrCIAZI8CRHhYT2SfH5p H3T/' +
'zo3VnTQgM1tZpVo/DR77Gqc1nEonKc6OlL3tbwFV/nG6FIJGO4sQl' +
'CyRgHeviI2JDpuKS9jcXXv78DpgZa1NAjGfU3mwYKUymbQsOa yjlX' +
'/rxI5tPbSgDkA9BekCCbiqWwYwAPhw6xgeDO34tDZHPs8KlZGAQ 4H' +
'WCwsLqxz0GqLZenSoF/AkEGJtFlCyIJGA5FzfPKt7rJBFQtRTSWKI' +
'TCpB180gQfWHh4V0tPDObZi7Z4jZX+gJQ8hJsat8vYHwvLj4i SgyJ' +
'r15VuK0pl7wWJqGshvFmyrfdwZ/AddA1riIaJ3I86dWKujSH4/vPX' +
'v65Oyp4+mBjDGFoXs3/frwwb3yj60xPmSYYnABSEPVJcDzdYaggEF' +
'F9j0LJ55a/lU3O79tarBWo35hadAvEJLNHDrwmsYGFsRb+K7rW79f' +
'18XPrqRA4IVs6zBHgdG6/dV/OpWSHW/M0NF/v3OlnYnHJmFMEQbnA' +
'MkkktVigoQOU3nvzN4fW/hC8AfmH/PyEm3IoVmzSS8mbukVfHJOTx' +
'hyXmwYkM8amQmFQob27chalujZ06df5im4ZEzT+DCI7f/iJJZ7A/j' +
'+mwAxofBwFY9QEMp6cvsy2HBbEw/UEPwVCY+ODAnqkeT1cxstKE1g' +
'IxDngTQGBgSAN9X9K5zvbIqKjMwMYkxv7v3oxoXxuQqYo/RAeoghm' +
'PBXKgGbDwnWRSnIX+TI7xxZD2kUNLtW/fc9XAg+YKWNkhyJWtqhmd' +
'1PzOqW5EcH9hJtNBIJNawSQ3bQ+vll6xktjJxnj+/3SxACZwOnS0+' +
'wMmh/z3U9Nkv/q9l6dKgXcL4+stiuBnn7Ubzw92unVnfyg/iG7HwF' +
'MwMD/Ot4E7lCpFCy0xJhru9eOQsED/oDspTNpFcJO8jCl9K3V6Ji6' +
'+clR+d+ZIdnEh1d+VvA00HERSrIwH8+yZCAWHh65wqIrz+ePb 125u' +
'jxg3uOb1t+acv8AyMceQYWPCUfDj7VYWIx6DWUH8SgIct3LEh aNqL' +
'gavn6SU28OsfJgwL9Kz8Q6F6gP8IrfNi4X1qr7h7dcHvfsi3d/WNV' +
'VBISd92KLD4QPP8+OQBxj0ErSIjoYObfPbM/R89sHcP14iClyfBYD' +
'CQs6FWCH+3s0jEHhltgmmCyMhJtTHoN3XPOKZDJQkcg8IfLm2 bPKv' +
'IFwmm1mKuzbucxp8jIiCw9E4z80sZZu/oEAquB79Lrg97ZC+N1Bzw' +
'eOo2aGRcNAXxoqgTixpYB5m8njMKikF286CBln3jJwjb+D+7e Xt9F' +
'GyYjAS0JDtJV4e2vBJiESqVqYxbmh7Kul69Z20ULkrlVDA/chEz8+' +
'+wuTLe/1g9c4Ot8r4tLR0coyBS8R3ClktpIQSFjVCMd45fWyjvHt/' +
'Z0CNU8QkqC42WVLvA4nMVsNkiI2/uFn5zRVi8hgm0VxwdJJOLKLLR' +
'em33+G8h7pevJoV4Ah8VChIeECLHiwHDr5dVfgcCHiQNdiZyC JnrW' +
'cVIqzpZLOmVGrBvZ5MSiMZAvQCwjg62pSg+MtCiCc/XghoWtlS2MX' +
'BCnL6YDRJNcLiuzeTOJ6M5W/ulZnYHq/++Pp88e3n506ci17QuOTW' +
'u9qI2qq40PZAb8Ol5Di3cg0an68ovzEHJ+ZvLIRtLbVy+u7xN ZFMk' +
'xm2KqxG08BmWOicKi3ZO1tJPftoevOzA0Oi2ADnYCTZY5NFW0 M/SU' +
'x2EVxek6mHnAl0oiOfnpcWDbwDd8FZJWdh+IFfvHZJ2Z18ehp kHoL' +
'orXV7GNykCjUEFBOosvpYuN/+B8eWYQMyWADsS7ijB0ZsnQ0NCCUH' +
'aQ2PPglwXQVYuSyvREpyXY36OqLLUAHjfoNbAHPgUzt8Tnjye Pjq5' +
'fMKAgGvgeRIlhOdrlXYLv37y0sgMS5MF+gB544l+vyi58BYfD zku2' +
'+gsIez/LPjW7u1VJNflSgA0Cn6xsQTBfwGRgcjcPsh4cnQpMXsXFQ' +
'yRxzgv8rUIub2kWgaPdPLLx1w4aZB0mPlgkEr7kHR/IckpRajRyie' +
'bM/s9z5XRPVJMQFojlyqbVEM3Wo0O9QEVJLnZ+fBjE85bR3Ifn9v3 ' +
'YQulcVGmeFCHg8ep+5Qqxf11AnwTRqU0L1vaO6GITaFTK6s4C 7bGY' +
'jII0+6QmirvnDoGRFMYHIxz7r/5QKZTkOKSYZK844bXNs+8d33x1w' +
'4yr66ZcWPwpaLe5Jcg2GUwiEecBrtrKJAwLNVDIxOr9dDqayR STE8' +
'zcN6PHiR8GZQQymmTEsZlVS7PCEwZG2j1WUBbFub7thzPf94J HwSQ' +
'i6zAt7d5qtapK6kfOuggFLa2K4gj2g/v3ZvdKkVboQQGDWJzp8GLh' +
'1nX2u7nrlzIjByhcszA2GNvLyAB0hIy8J8JCJXj82kF9dEIB/Hqpr' +
'epbY5xjCQkJATOWMXDru/jBk2kayoLwXmbzkcuk71FVllqAQaNDQ0' +
'MCBAS92HP/4MiHl4+fP3OyV5zAqqRMG1Cyqrvh8YM7EDSCRER4qvD' +
'J1w0abhWZNyoyAqjd0FQxaMwesUIKHpWXZAIaX8UqnDXoiiM4 Z9dM' +
'W95OzaVgmscFcTmcFwtiMVERMiZ220dhZxcMsvpSE/zoBkNwjWuzf' +
'5miCaLB9hFp5xaPBJkJmdpiMVc5olbvzdajQ1WGs6SYTUUFc9 3bP+' +
'TS8rGQcyFFQqIM0gW+FvVFzvjFOYaniu/fuTUwWVSYWEO1DbeKgO/' +
'tpejRKHjrV22Pze1r8qE47NYXNxzBcjQaDaSSwgj2jT3L9g0I a2Pi' +
'FUWwS6I4MDpIyt5sHDgLOKleTMxLMvt4yfEveQsk8v4IL0Vrq 6ydm' +
'ffk98efZUpLozgvKxwEmaV3nKg4kn332KZFbdQyBha+AvqgCw yoLv' +
'HgkSrk0lIj1ylGVs2fBvGBjPNonJnqL/T8Mlf+9N61IaliBhENozM' +
'ajbVUnkcucAn4xRZvJQd/Ykb7H8p8IeCnx5kqb+U75UlYWFizcDaX' +
'jJlcoHh8/SzIWIYnKsqLDFzxfakbWTvATqkUclqcGawXpN+ZOd1Ap' +
'9y5fWvN5P67flu856uWJ2d3u7Zr6eAUcVe7IDzEQHz9ev7PTw vblE' +
'BXTv04eHc/g4KFByUC7K6KVcAnRUJhWU7i+Dz5o1uXejkESX7I6of' +
'TI5yrWOnxyAbuzfI1E/IUwO1zkyyIFK1hXM9f4tDOgbzE4dG9mzCD' +
'kGiyk+1VghWSRMj13Gw9OlTlr2YxmbkJyHnp5uHs+6d2zCryA YqIQ' +
'bllJVrp1Uoq1dqUG5vFLMpNWTog7fzG79MCGXEOu2dNF/FgICHBQR' +
'BYLh3aurK9uq2JV3GRzd3tubylNUqwgPeVTyw+MbVFjA+FgPG AIYN' +
'845AwwMHAcYDGF8SHh+gDmXTKyxZsK05FEuNsZjkTt7az5tQP/UJk' +
'pPykaBaj+gFXZKMc9KOIhu2XKHp05URJJBseCBBjiOQ1rkSBs 6uUv' +
'kBjwG3LP0vfvXElcADoIfz6oGQxtAAcGzgbfHWiw1ajUqvcFI igzC' +
'CGQ0W9tf/XAUliDhljjIzAoJ+Py/k6VGNUVOMQFvBMCEdP7l6dnK/' +
'gVRyGyUi0vdY0vcuoOLEsKjOJWUQ0aPDrW+b8+fTxs2fPHj18 cP/q' +
'2Zt7ltw7sfX6yf3LFv+SEMhjUQive1zEeZLZbjVDihyaKrl7f Euug' +
'UX3RKfEV61d6bwdkJqcCBT0+NLxh6e0jJCTgZO/qCWFCFUupyg54q' +
'NE4f3zB3P1zAQtckWiekp6cbukNCnEj++5//P8Y9PaQGttrFIfb68' +
'qLLGi1FV9NluPDlUZSJ4NDEjS0hVM7K7eAReXjIxVUbEot4JQ Fhjz' +
'a9UIcqbg3s0c+5dN2zK2KQTAyleQKo0XeX1bRnrat829b58/0sXGa' +
'5pielGUCRrx9fHO0DEgHv7xxx89Kzhk62R9dFSEXusb5iePDP QNVs' +
't9pHwWjYSp9UaE89h8qUmqFRAgTy1uo/Zi4c3mqouNYCEQ4aOiohr' +
'pmJDxD32Re2C4BSIwGe+RmRzLoNNqdHlkxcxfC7o4xpt8aGzm ufKt' +
'cwYXr16xZPPInLsnd2zr4a/mEZD96yTzK/evoalgfZCKR8gPZQFLg' +
'SiarKX7KxXOX4KsB7nDZjEl+tHYJHTvOAHQoXVd/JQV95FLYzWVV2' +
'vfd8BAAvz9gWkbpMQDw8yPrxwHDf7//vfn/wDPfv/j0R0II48f3t+' +
'/d3eX1EDn+djX2j6CiZCIRaVGPsTz8jGN9vQzCGlYkMlV/Ne5Y2Wz' +
'WiEvb/w48+rOhb3jhWAelVeenYVzu8cK1/SKOP3zx+GQkhKN1WuLg' +
'XWBtet0ujKHhkZA9YkX/vHkUe84oRcb77Dbql+iqfdm69GhKj8fBp' +
'2elWB2ko0HZ3ZPKfDikNAgc5AITHq9t2oik+6nGtPSeuXi2dn FPiW' +
'NbDWLFGTvgNsmP3XdV52P/jIyP4QVbYz6ewHHw90QHATpBrL2jZ0/' +
'29W0jlahv9aPUHE/z+Ovn7pYS8XmlCZCQbYpqde3/TAhVwHUN0Dzd' +
'7VJ5DYoGsViMUHD5oey4UvHZEl/v36mzIi8MbBVdFVzqtK4IThYK/' +
'CMU1Mhhj+4curu7Zu3L568vvMX4DYQyYGwFcXp5DLpK6M3fAD kJA1' +
'5AR/7z2dPwAYGN1LKWYhqw6BRQoEgNd4WISeJaJi+CaIbOxYcHGFz' +
'7s4naGjBwfq3UxXt7QDUlsVsAhLV3c6Hibi28VvgGI8uHfnj8 T3kj' +
'mcFIIQA+zh65PC8Od81t6rEdCxkzzpGj4q4pAU2Dury9oGVQ1 IleI' +
'xHeqKdVKn2pnPFIDwstKOVv6SN+v6V05DgYKIRXlfpmjYOi42 Ojk7' +
'2p51YNHrrR2GRCrLRGFVZ1DurQnHYbIvFUhzJoXmi0gLoJ6a2 PDqh' +
'QCfyhGAF7ly93/XebD061AsA2dBq/TKDmKDl93ykP/djf1NF0VcQP' +
'v+i+jEYcHSYfkZ70+Wju3rFCa0WU42iG3SU0lsxpEXK8V2/rf7I1j' +
'k1UCH7+3VaMMywYJ0n1h3k5MOrp7vZBdmN0qvXP68LkCcWFAB PLD2' +
'QcWP7/E2D4z5pGe/NRnSTe8XYqRSKWq3OSnGYfSngle1N3Kvrp23s' +
'ppUysKDUYu3WWu5UgkfDhFLwSJFteG6QCh+cLz8xrVX/RJEPRB2UW' +
'6toHnKVuw6rQ8iQDUEQqyEjPLp8bNNAy9ejB0Mkx6LdFRJBk2 STgo' +
'UDdvFpIynwdohRyVoaqFERHZsQa6WSyR+GQnH7awc22xEOHGD fkOi' +
'j4xvD7H+T77VrVKMLqyeBQnly6yLwDeSeOLCPp09uXDqzdfn3 06ZO' +
'bhQmgV/B1aEoPDzqEL0OZq1ZGOvpg1udrXyLL9WAHLL9xzFsXWBAx' +
'0TV+MaK+7evrevsB0Gj1OEnl8sqk38gojnxxoxA+r1LJweniD ta+N' +
'4yscdfxzKBJZJJJGDsBbmZbWN4GTp6j1hB+cfWZw9ubumuBVZ QVHO' +
'h3fpvth4d6sUjQqoBx1shXIPFAiccnSllEFGgoB02y+teQ4YP Q2dy' +
'srMXf1pavuSbAXmhamXVMvVOgPYJDlB/3S3jyrkTozJl2ekp1Eqjg' +
'EekUyk0fEJRJPvmgZWrxndrZFQxSK++lFcd0FSQxltEw+boGZ dXf3' +
'WxfNN3k8bikcu87hwmLTDAPz0xFoioLxcPcmNMtuzc/I+ub/0eeJe' +
'TbCjksloMEY/DOawmDAo5B3tlzcQnty+fmdMNgoaEjoXAC8EkJMRA' +
'qNuhAvgWvb8aAlp+CPPalrlXDm2eP/MbaBnCRYeCJNAm4XLSzObeN' +
'7bNu7BweMtoLqRjGFpBkpHH435I1QVhLCKhoIXNJ9fAvHd696 AUZF' +
'V5eJqk1Mjpnyhe2zv86Kye17bOu39619M7V5wB5MnjhxdPlK+ Z//W' +
'XY0cnBvJgrmvnHvDcgv1VAioG4gaE6CXt1B/nBaqk7Bd35YBpBAYE' +
'tM80DksV3zy5e+9QS4wXpYmBpQ/SVU6CFZJc1gqpBcH5/cGdMVmyF' +
'qXFdE+0868IeLxMKk1IiO+Ra5xeqDy0cNzlbQsubph15+ROZH//04' +
'RgCRHSAbPaKwsbotl6dCgnIHYplb7NwtiQXvcNNp6c3jpEihw XKbN' +
'6SSXi1zVI+DgEulZNMzfNGbXmi7atC9L5XHbNByMJ+DhL1IKP S4+t' +
'nTc8Q6EP9P/HXR43Nznbs4tNkBPMPLNg8OWL5yeNGsijYPBo5MTma' +
'3UKPuzNIwOXyw1mnftl+KN7t/bv2QUebZCQ2hQXwOw41LTxuYq9I1' +
'OOfV0CTOOP3x+UD4sJkZHgIaQl2GupGw9/DrEuwxEFJKFnrODukXU' +
'Xl4z8LEvmw4ak5wbKyGw2VSn9V3s/lVJeVhAjHajLT4Mf37+9d/dO' +
'FZcw4YsxTUJYeQbmxu7+t/YsBtL+SYYUXAO6B51XKX1f6wLXuw8wO' +
'R8veZ801foBtosrxtlUVC4Zk5OVGR1hKGmeP6JtZr9E8eQCr8 0DYk' +
'7O7Q0B5MHpnRCunSsep8t3LJ8xevSnwxP0Eki7ZDyqxjdTwB/5Sjh' +
'gA5l65uU1ky7uXjFv5lSIw2BZeCwG5DNyVy5VNyJdcvXwlgNj sxL8' +
'6BYlxWSqOpvQeIC/n7PiyvmVX62c+VmACNn8AurPYTEjI8LbZFn6J' +
'4m3TOl1/fjO3R/H/dRSuXLK0IM71t88XX706+IYb0pxYgj3r6tMDd' +
'psPTqU2197DUB0IZq1juGCfuyXICThPFQ8Asir6q/BeiWQE/ISUbd' +
'8+55lM37sEZudnV3lRvCL72Ux6SXN8tfPGrVhcu8OzdKrV0wF ydk4' +
'DbkfvX9c7t3zh8+fPf3jzMmFNrVBTpPzGSwaiUjAgcs4S1zCf 2DRK' +
'HDXGlkq8PnSwqZtTdwj0zuAjd27de3IgT3bt2xcPaZs27hmt8/sP7' +
'9szNFvyu5dOHL/7u2bB1bNK/WVM3ERcjLkl1rWhJHDonRK0/hQeP6' +
'zi31Aic8s9PEXIJc1gTYkOkAI17aBUh3gIG3zHGmBjGNT2/z57Mnl' +
'8g3lW1ad2rN+zxDzkS/z7h7dcOfAr2AkAUJPiEvR3uTIyMg6kpn3C' +
'JDu1RLmV31Lrpw5sraTn5yFK40WyGVSmG2wTIYnOsab/FHfviNzVT' +
'0cgq/yFFv6hh3/ruuVDd/ePbbp0dVTjx89PLlv85Ipwz8fMzIvISp' +
'QyuBR8UA/Kle9QyaOhG6VEwcp48jEwgfXzu3avlnGwEkZOFOItiQz' +
'tp2Zv7Ct/71b1/d+HJvsz4hSkKu8t/p5V93dDYEaaApC0PE5vbas/' +
'RWEDt0TFaYWFednd7ULFnaNunH5zOHJZX0ThH58T5Ab+UkxQ3 u02b' +
'5kxu6hyPIU5GtvqajqamfDNFuPDuUsGtzSLAExfnBM+qHRyRA x4GM' +
'FCeHIsZbXZ78wO75ycf9cw9GNP88s8bOaomouU+DuLhUJupdm 71v7' +
'04+9k1Li7URC1Vu68N1AUEcM6Ln6k4L718/fv3j0+vkT+7etnzN+2' +
'PD+vVq2KEuOtxtDdaGB6hCtd6hSAI8L5D9MvRcLB7nD/Z9NAc8fPa' +
'jnjllD7108dvHXL058237/yKQ9AyOXtVf3ihOafSjA/Jd9PXDex62' +
'PrZn9VWNkc7OtiSd/VTV1NhlT1shs8qEcn9Hu8Jg0kBI4tDuXjG6U' +
'aIPU8LpsDebIpOZ8lik9tXTc1Q0z9g2K2D0g4uqWeQ8uHXt87 fSDM' +
'7v3D46MU1MJGHcYTkr8a8el9wIwHhoB/fPPPx9eO6+nQ5CjZ4aGhF' +
'ROYWBjEAeEVGxyuO9HnVsOTRHDTI1Ik6zp5Hf4q8KLK8ff3Lv szrn' +
'D54+Xr/n202+Gde7RtbMjwt9PxhUwKWQC2vlKTTTKPUKJ1GXaOiDm' +
'/tl9kC727tqxcsWy2Z0sv3QIOrZiysUN380q8oHcESYjQQpg1rS hB' +
'n/gJ2EkaWldbHz43isXz/06f/rPP8ydPbTlor4JZ3atPL/6m++KfI' +
'EABAqJzZKN/n5qNp3sL/ScOOHLFX2sVl+qkIbVVBPyDdVs/TkUiDV' +
'jRJjFlzImW/r7zQutYrgg6lMD6CDuMNXKC9Rp0t3dfLikT1slnju6' +
'f3SmzBIdWeOSIMJFxdwxQ3qfP39+WnNlZEjNaR1ZIvNEj+7Xc eeyW' +
'Yendzw2vd2pHwefWj39xJ6N+7ZvWDP3y0UTPlo0+ZPlC2atXf vbiu' +
'+/mf95n7Fdm7RqUcqnVK13Cv/HJKLHD+n26/C8ISmSzCAm6Ah4IPA' +
'k8Wh3MR3bI9+mExFJONSunTt29o9A9kORl/XU9joDN6RSh3t2fPS0' +
'5j73bl93XiMCzdI42Szk8/5duTwIO50b27etWfxLKyVoqx/KlHsXT' +
'TpycP+5QzuPTGkFwc1ZEbd5YphQIPiQljUqA4b16YhhU8aPaV eSr9' +
'f5v2yRDfg8EYeSMnGpUX59OpQMT5UUhrO72QXTmnntHmI+Maf X+TV' +
'TzmxfenjfjlULZk6d/HW31s2S9CLkkmbFxgHMdfv8pJVj2z68f+fK' +
'pjnnVnx58qfhJ+b0PjAibkITRWogQ0jFJGjpsXYbg0Z9Wb01a GRQv' +
'z7L+9ge3r56af2MY7N67p9QtG9c3vZegWOz5clauoCCKQznxN rtfA' +
'4Lg0LmDnQB2MmQXh3bmnnNEiP43BoSdAM1Wy8OBf9ikgllRc3 mFPt' +
'c271kYzctUDWkiJDD8ibr85AL+rYp2LlqQe84od1uw2Fq5hsS Bm72' +
't1MPb1oEbFMf6Ofx8l0bSA3dmyd+U2boZOU3DmGB2AeHAm42I En8a' +
'YZkcIqkq50P7AuEG/yzZdMsf28RCV9z4RoQLJ2apXya5xchJ2n4BK' +
'M3uczIbZIUHR0RImEjr2YAUbxgaPNLm+Ygb+CNt7y491oLgP5 1zAj' +
'5dULPkigOnYBqnhgulYjreGu4RkC8aZ1i+KK1fWQj6eQvR7ez iQNF' +
'xJ++6A351KakELAexRFsP436A1vWqALkHCYOxaUAXX3FMN0rA gg4G' +
'gT/2CBpt45th+bpmoWxgKsXVhyGbB3DA1MckyWbUegzt03wlK4pow ' +
'b2yEmJBWMAZxjcvvHSz7uMz5WB8UA2MXqRFUwcGY9cIy2zKEJ DDGS' +
'SZy2kzpnExw7ssnJcu1GZUrBP4K5+fAKfgiHhUUBE85ItaqU3 iVC1' +
'7D+kFUjlfBq+xrLJDdTs88+8sUPBo+vbqax856Z9M3qkBDCQ8 xuOo' +
'JddnKk7YMY/HtCze6pfSLC+Rr7hXkE153w3Y+Hsye0KUiuqY9V+Js' +
'pdzsQXZif2ap7YycZHKqvzCMDV2SSMkkuIU9PamXiNU6xh+gA +6xV' +
'1Y6ApiI0wBYFeXI1CIOUx6SQ8roIcwI8PG//DJ20vbV+UEkCzW2u4' +
'iFojEE9PCx+YE1icFe+tkL75dVR4GJiK+A7uwCJhQJts+W35/nGNw' +
'QtsSqrJZKrlvPqHhNc+Pe7hDnGVS8aEychF+dl9msU2DWP5cg jwJ5' +
'CL6Uh9ISywyjwDMyU5kU7CQswnYj0yglhDuxQVR7KBZMIn4Z8 tjdy' +
'k+FiZWEh41UFrJyD+lCWHfVJqidNQgf/oxMRm4ezcRLM+wI9Jq+3g' +
'5SvYbMM061YfDpXoR/vmy8/GdW3cPV2XFylXeSvq5RY2OCLDE03Gv' +
'5Stg6v26NIhUUvzEjAgOL6ywedMDI+kFY2AqFOwg5XiYLVMp5 Kp5Q' +
'IJl04j4jCveI/rP1p78VMZEEinTfxi6/dj4EkG64PqflAWhknBI5v' +
'XL46FvyHcK16NRyTgwtTir4Z0vnL58o5P00DzZqbEvewavgsv ANOB' +
'reDtMnA3CcWgFIVqvcL8veFHr5arZHwmlYj+60aDR4VmQT4pp el9h' +
'ZBeJTwmiYB9rfrwIBVoBDTEHLBMrZdQxmfRwPpf560cb7NZt/pwKH' +
'Bh+F0ph8KmemLryezr1HOkkpLHv1gHcHd7XqfOWYqquvu/CUJlpGF' +
'DBjdKtHKY/7F7InVQZZIe7Uo3zBh8fuP3fROEZWlG6cuv4btQI/5h' +
'LbWWL3v+yTcwpzdv4W02W7X9f+VQDder9w6Qqkg4j3p/hdBroeLwP' +
'y0jOW5m78zrl84u7xLc3SEKCgz4kM6Tu+CCC/ULPA6n91d/2qXg+O' +
'51e6f1AL2ZkJBAefkhNBdccOH/OFAoD7FQ0LljhzXTh57djNTkL8x' +
'J4XM5H+rGqwsuuPCGqHgtCCnOHDG9X7MrF88u6xnTNTNcrfT5 sDde' +
'XXDBhTcBBoPW+HoN7dn24Kal+2YP7JsgMkXXXL/aBRdccMHteeE1R' +
'kFe1sLPOpzft/bLXHnTvEZIdSmXQnHBBRdeAhwWG+yvGtuj+fkTh9' +
'aOzO+ZE6FR+b5WvTUXXHDh/xQ8PNy5HFbrVi3XzBh+Yu3coSnihPg' +
'4MtG1h+KCCy68FEA2DP7K8X1KLl28sLRvXPsm8VKxyLWH4oIL LrwM' +
'7u7ubBazuFn+qhkjjqz89tMsH2NE6IfxXgMXXHChgYBUeVV6j R3U7' +
'eypY4v7pbZqmlXjVWgXXHDBBScgPtBo1Kzk2EVf9jq28afRTb SRIR' +
'9UiXIXXHCh3oFGoVQ+8o97tz22Z/OqkUXtCrOFfK6LbLjgggsvQ0V' +
'JeXJqQuy8QU3P7NswvkBtivpA3tjoggsuNBBQKA9vhfyjltn7 V83Z' +
'/HW3ngU2hVzq2kZxwQUXXoaKd5USHDbLpELtzetXJxd45WSmU9/gh' +
'TguuODCBw/na+hb58at/qzk2IopA5PFBr3OdYXNBRdcqAUoDw+10n' +
'tIru7EtqWr+8V2zgiRS8WuFVEXXHChFqA83AO9hZO7JF8/f3x4mqR' +
'xaiyDRnVFDRdccKEWALMQ03ELZk46vHJmszC2MSqqXupCu+CC Cx82' +
'MCj3IR2afDeqR+uS5q5jGy644EIdoWDhHf4cOZuI/VevyXPBBRf+b' +
'8LD3a3Or39xwYUPCv8fBu29Yg==');
TPH := High(TP);
for I := 0 to TPH do
begin
TTP := LoadTextTPA(TP[i], SmallChars, H);
for B := 0 to High(TTP) do
begin
Numb := ((I + 1) * 13);
FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
end;
end;
Canvas := TCANVAS.Create;
Canvas.Handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
DrawBitmap(Pic2, Canvas, 100,10);
FreeBitmap(Pic);
FreeBitmap(Pic2);
end;
Procedure OnScreen;
Var
XPH_F,XPH_M,TTB: Integer;
begin
XPH_F := Round((FishXP * 3600) / (GetTimeRunning / 1000));
XPH_M := Round((MagicXP * 3600) / (GetTimeRunning / 1000));
TTB := (((w) + (y) + BreakRounds)-GetTimeRunning);
PrintOnSmart(['Version: '+Version+' (by Flight)',
''+MsToTime(GetTimeRunning, Time_Abbrev),
'Fishing XP: '+IntToStr(FishXP)+' ('+IntToStr(XPH_F)+' / hour)',
'Magic XP: '+IntToStr(MagicXP)+' ('+IntToStr(XPH_M)+' / hour)'
],Point(15,236),16777215);
PrintOnSmart(['Time till break: '+MsToTime(TTB,Time_Bare)],Point(573,432),65280);
end;
Procedure Commit;
begin
stats_IncVariable('Leaping Trout (Caught)',(Trout_Caught-Trout_Ca));
stats_IncVariable('Leaping Salmon (Caught)',(Salmon_Caught-Salmon_Ca));
stats_IncVariable('Leaping Sturgeon (Caught)',(Sturgeon_Caught-Sturgeon_Ca));
stats_IncVariable('Fishing EXP (Gained)',(FishXP-Fish_XP));
stats_IncVariable('Magic EXP (Gained)',(MagicXP-Magic_XP));
Stats_Commit;
Trout_Ca := Trout_Caught;
Salmon_Ca := Salmon_Caught;
Sturgeon_Ca := Sturgeon_Caught;
Fish_XP := FishXP;
Magic_XP := MagicXP;
MarkTime(CommitTime);
end;
Function IsMoving_F: Boolean;
begin
Result := PixelShift(IntToBox(MMCX-30, MMCY-30, MMCX+30, MMCY+30), 200) > 200;
end;
//By Bandland100, modified to shift mouse speeds after every step
procedure SuperWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, maxStep, targetArea: extended);
var
veloX,veloY,windX,windY,veloMag,dist,randomDist,la stDist,step: extended;
lastX,lastY,MSP,W: integer;
sqrt2,sqrt3,sqrt5: extended;
begin
MSP := MouseSpeed;
sqrt2:= sqrt(2);
sqrt3:= sqrt(3);
sqrt5:= sqrt(5);
while hypot(xs - xe, ys - ye) > 1 do
begin
dist:= hypot(xs - xe, ys - ye);
wind:= minE(wind, dist);
if dist >= targetArea then
begin
windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
end else
begin
windX:= windX / sqrt2;
windY:= windY / sqrt2;
if (maxStep < 3) then
begin
maxStep:= random(3) + 3.0;
end else
begin
maxStep:= maxStep / sqrt5;
end;
end;
veloX:= veloX + windX;
veloY:= veloY + windY;
veloX:= veloX + gravity * (xe - xs) / dist;
veloY:= veloY + gravity * (ye - ys) / dist;
if hypot(veloX, veloY) > maxStep then
begin
randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
veloMag:= sqrt(veloX * veloX + veloY * veloY);
veloX:= (veloX / veloMag) * randomDist;
veloY:= (veloY / veloMag) * randomDist;
end;
lastX:= Round(xs);
lastY:= Round(ys);
xs:= xs + veloX;
ys:= ys + veloY;
case Random(50) of
1..25: W := (MSP + (Random((MSP/4))));
26..50: W := (MSP - (RandomRange((MSP/2), MSP-1)));
end;
if (W < 1) then
W := 1;
if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
MoveMouse(Round(xs), Round(ys));
SMART_DrawDotsEx(False, [Point(lastX, lastY)], 65280);
step:= hypot(xs - lastX, ys - lastY);
//W := round((maxWait - minWait) * (step / maxStep) + minWait);
wait(W);
lastdist:= dist;
end;
if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
MoveMouse(Round(xe), Round(ye));
MouseSpeed := MSP;
end;
Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y,X2,Y2,A,Dist,MP: integer;
begin
A := MouseSpeed;
GetMousePos(X, Y);
Dist := Distance(X, Y, eX, eY);
MP := Round(Dist/150);
if MP < 0 then
MP := 1;
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
X2 := RandomRange(eX-(A*MP), eX+(A*MP));
Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
SuperWindMouse(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
GetMousePos(X, Y);
MMouse(eX, eY, ranX, ranY);
MouseSpeed := A;
end;
Procedure HumanRandomMouse;
var
randSpeed: extended;
x, y, firstSpeed: integer;
begin
case(Random(10)) of
2..8:
begin
firstSpeed := mouseSpeed;
mouseSpeed := RandomRange(5, 10);
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
GetMousePos(x, y);
SuperWindMouse(x, y, RandomRange(x - 75, x + 75), RandomRange(y - 75, y + 75),
30, 55, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
mouseSpeed := firstSpeed;
end;
end;
end;
Function AddToBelt(What: String): Boolean;
var
X,Y,Slot,T,Tool: Integer;
begin
Result := False;
case What of
'Tinderbox':
Tool := DTMFromString('mggAAAHicY2NgYDjMxMBwAojPAPFpID4IxD uA+CVQ7hkQPwLiN0D8AYpNdNgZoiPDgSwmFMwFJEEYHTDiwBAA AIohC78=');
'Barbarian rod':
Tool := DTMFromString('mggAAAHicY2NgYChlYmDIAOJKIC4C4hwgzg Xi+0C5d0B8D4ifAfFbIH4IxDaB0Qy6hiZAFhMK5gKSIIwOGHFg CAAAnhsJrw==');
'Knife':
Tool := DTMFromString('mbQAAAHicY2VgYHBkYmBwAGJzILYBYk8g5m JkYOAFYjEgFgZiBiBurK5miLfjBXKY4JgLSIIwMmDEgsEAAB4R A9I=');
'Hammer':
Tool := DTMFromString('mggAAAHicY2NgYLBnYmCwBmIPIDYHYisg9g XiUEYGhhAg9gTiWCCOA2IvILbT5GTw0Odi8PfxAepmgmMuIAnD yIARB4YAAPp7BZI=');
'Chisel':
Tool := DTMFromString('mbQAAAHicY2VgYNjNxMBwCIi3A/E+IN4BxCKMDAzsQCwIxSB+iDkPg56ODlAHExxzAUkQRgaMWDAY AADN9QVM');
'Small fishing net':
Tool := DTMFromString('mbQAAAHicY2VgYDjCxMBwGIjPAvFJIN4HxA aMDAwmQKwDxBZQtqOxKoORugxQBxMccwFJEEYGjFgwGAAAEFgG GQ==');
'Fishing rod':
Tool := DTMFromString('mbQAAAHicY2VgYOhjYmCYCMQLgHg2EE8FYl 5GBgY+IGYCYi4gFgZiPR0dhjB7HqAOJjjmApIgjAwYsWAwAACB xQSE');
'Harpoon':
Tool := DTMFromString('mggAAAHicY2NgYMhmYmAoBuIKIE4G4iwgLg ViLkYGhv9A+T9ALA5k8zFC2Gbq7Awerq4M/j4+QB4THHMBSRhGBow4MAQAAPbNCBs=');
'Lobster pot':
Tool := DTMFromString('mrAAAAHic42BgYJjFBMETgXgaEM8D4iVAPA XKfg5U8xGIPwDxJyB+C8RPgfgdEL8E4jALHjBmYGBCwcnx8WDM BeSBMDqAiTMSwDAAAK4jD/k=');
end;
if ExistsItemDTM(Tool, X, Y) then
begin
Slot := CoordsToItem(X, Y);
MouseItem(Slot, mouse_right);
Wait(RandomRange(20, 75));
WaitOption('toolbelt', 300);
end else
Result := False;
MarkTime(T);
repeat
if (TimeFromMark(T) > 3000) then
break;
if not ExistsItemDTM(Tool, X, Y) then
break;
if FindBlackChatMessage('already on') then
break;
until(false)
Result := not ExistsItemDTM(Tool, X, Y);
FreeDTM(Tool);
end;
Function IsFishing: Boolean;
var
CTS,i: Integer;
TPA: TPointArray;
PColors,Tols: TIntegerArray;
HMods,SMods: Array of Extended;
begin
CTS := GetColorToleranceSpeed;
PColors := [727590, 727848, 793897, 793897];
HMods := [0.26, 0.21, 0.15, 0.16];
SMods := [0.50, 1.39, 0.47, 0.78];
//Tols := [2, 2, 3, 5];
for i := 0 to High(PColors) do
begin
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(HMods[i], SMods[i]);
FindColorsSpiralTolerance(257, 200, TPA, PColors[i], 250, 190, 273, 225, 5);
ColorToleranceSpeed(CTS);
Result := (Length(TPA) > 0);
if Result then
Exit;
end;
end;
Function MagicTab: Boolean;
begin
Result := GameTab(Tab_Magic);
end;
Function FindFishSymbols: TPointArray;
var
B: TBox;
TPA,TPA2,TPA3: TPointArray;
A,i,CTS,Cx,Cy: Integer;
ATPA: T2DPointArray;
begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsTolerance(TPA, 12632256, MMX1, MMY1, MMX2, MMY2, 5);
ColorToleranceSpeed(CTS);
if Length(TPA) < 1 then
Exit;
ATPA := TPAtoATPAEx(TPA, 13, 13);
SortATPAFromFirstpoint(ATPA, Point(MMCX, MMCY));
for i := 0 to High(ATPA) do
begin
B := GetTPABounds(ATPA[i]);
with B do
begin
FindColorsTolerance(TPA2, 16279077, B.X1, B.Y1, B.X2, B.Y2, 1);
if (Length(TPA2) > 0) then
begin
SetArrayLength(TPA3, (Length(TPA3)+1));
MiddleTPAEx(TPA2, Cx, Cy);
TPA3[A] := Point(Cx, Cy);
Inc(A);
end;
end;
end;
SortTPAFrom(TPA3, Point(MMCX, MMCY));
Result := TPA3;
end;
Procedure NextSpot;
var
TP: TPoint;
TPA: TPointArray;
begin
FindNormalRandoms;
TPA := FindFishSymbols;
if (Length(TPA) = 1) then
begin
Writeln('Only 1 spot found, relocating...');
HumanMMouse(TPA[0].X, TPA[0].Y-5, 1, 1);
ClickMouse2(True);
SMART_ClearCanvas;
OnScreen;
FFlag(0);
While IsMoving_F do
Wait(1);
Wait(randomrange(1500, 2875));
Exit;
end else if (Length(TPA) > 1) then
begin
TP := Point(TPA[1].X, TPA[1].Y);
HumanMMouse(TP.X, TP.Y, 4, 4);
ClickMouse2(True);
SMART_ClearCanvas;
OnScreen;
FFlag(0);
While IsMoving_F do
Wait(1);
Wait(randomrange(900,1500));
end;
end;
Function InFishingArea: Boolean;
begin
Result := (Length(FindFishsymbols) > 0);
end;
Procedure AreaCheck;
begin
if not InFishingArea then
FindNormalRandoms;
end;
Function Antiban: Boolean;
var
i: Integer;
begin
if not LoggedIn then Exit;
FindNormalRandoms;
i := Random(300);
case i of
1:
begin
RandomRClick;
Result := True;
end;
2..5:
begin
KeyDown(40);
Wait(RandomRange(500, 1100));
KeyUp(40);
Wait(RandomRange(310, 865));
SetAngle(SRL_Angle_High);
Result := True;
end;
6:
begin
HoverSkill('Fishing', False);
Result := True;
end;
7..300:
begin
Wait(RandomRange(250, 350));
Exit;
end;
end;
Wait(RandomRange(250, 350));
end;
Procedure GetFishType;
var
A,B,C,X,Y: Integer;
begin
A := DTMFromString('mbQAAAHicY2VgYFjNxMCwAIjXA/FOJgg/gZGBIRaI04A4HYijgbi7OxuomgkF8zNgAkYsGAwARQMG9Q==') ;
B := DTMFromString('mbQAAAHicY2VgYLjCxMBwAogvAvEjID4LxD aMDAxmQGwPxE5AbAzEhUmJQNVMKJifARMwYsFgAABAigan');
C := DTMFromString('mbQAAAHicY2VgYLjMxMBwC4hPA/EpIL4PxImMDAwRQJwMxDlAHAPEmnZ2QNVMKJifARMwYsFgAABX gAbb');
if ExistsItemDTM(A, X, Y) then
begin
if (CoordsToItem(X, Y) = 4) then
begin
Inc(Trout_Caught);
IncEx(FishXP, 50);
end;
end else if ExistsItemDTM(B, X, Y) then
begin
if (CoordsToItem(X, Y) = 4) then
begin
Inc(Salmon_Caught);
IncEx(FishXP, 70);
end;
end else if ExistsItemDTM(C, X, Y) then
begin
if (CoordsToItem(X, Y) = 4) then
begin
Inc(Sturgeon_Caught);
IncEx(FishXP, 80);
end;
end;
FreeDTM(A);
FreeDTM(B);
FreeDTM(C);
end;
Procedure FastDropSlot(Slot: Integer);
Var
TB: TBox;
begin
Case Slot of
1: TB := IntToBox(564,214,598,244);
2: TB := IntToBox(606,214,640,244);
3: TB := IntToBox(648,214,682,244);
4: TB := IntToBox(690,214,724,244);
5: TB := IntToBox(564,250,598,280);
6: TB := IntToBox(606,250,640,280);
7: TB := IntToBox(648,250,682,280);
8: TB := IntToBox(690,250,724,280);
9: TB := IntToBox(564,286,598,316);
10: TB := IntToBox(606,286,640,316);
11: TB := IntToBox(648,286,682,316);
12: TB := IntToBox(690,286,724,316);
13: TB := IntToBox(564,322,598,352);
14: TB := IntToBox(606,322,640,352);
15: TB := IntToBox(648,322,682,352);
16: TB := IntToBox(690,322,724,352);
17: TB := IntToBox(564,358,598,388);
18: TB := IntToBox(606,358,640,388);
19: TB := IntToBox(648,358,682,388);
20: TB := IntToBox(690,358,724,388);
21: TB := IntToBox(564,394,598,424);
22: TB := IntToBox(606,394,640,424);
23: TB := IntToBox(648,394,682,424);
24: TB := IntToBox(690,394,724,424);
25: TB := IntToBox(564,430,598,460);
26: TB := IntToBox(606,430,640,460);
27: TB := IntToBox(648,430,682,460);
28: TB := IntToBox(690,430,724,460);
end;
MouseSpeed := RandomRange(26, 39);
MouseBox(TB.X1, TB.Y1, TB.X2, TB.Y2, mouse_right);
WaitOption('Drop', 400);
end;
Procedure DropRemaining;
Var
I,MS,T: Integer;
begin
MS := MouseSpeed;
T := GetTimeRunning;
if not AlchFish then
begin
FastDropSlot(2);
FastDropSlot(3);
end;
FastDropSlot(4);
For I := 8 downto 5 do
begin
if (I = 9) then
Break;
FastDropSlot(I);
end;
For I := 9 to high(12) do
begin
if (I = 13) then
Break;
FastDropSlot(I);
end;
For I := 16 downto 13 do
begin
if (I = 17) then
Break;
FastDropSlot(I);
end;
For I := 17 to high(20) do
begin
if (I = 21) then
Break;
FastDropSlot(I);
end;
For I := 24 downto 21 do
begin
if (I = 25) then
Break;
FastDropSlot(I);
end;
For I := 25 to high(28) do
begin
if (I = 29) then
Break;
FastDropSlot(I);
end;
Writeln('Dropped fish in '+IntToStr(GetTimeRunning-T)+' ms.');
MouseSpeed := MS;
OnScreen;
end;
Procedure ReadyAlch;
var
X,Y,AlchBMP: Integer;
begin
AlchBMP := BitmapFromString(10, 6, 'meJwLuf2Kd8o6JkYmVl1+sVgVpk0' +
'y8sez4Uhi10WILLsQO4sHG1MOC1ABHAGl2OKaILJABDQBGQGl IAii' +
'AFOWtbwfiICyaAq+n0oEigMNZ/HJZjFwhyuA2wIAwl0jlg==');
if FindBitmapIn(AlchBMP, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
HumanMMouse(X, Y, 5, 5);
ClickMouse2(True);
SMART_ClearCanvas;
OnScreen;
end else if not FindBitmapIn(AlchBMP, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
GameTab(tab_Magic);
if FindBitmapIn(AlchBMP, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
HumanMMouse(X, Y, 5, 5);
ClickMouse2(True);
SMART_ClearCanvas;
OnScreen;
MMouseItem(4);
end;
end;
FreeBitmap(AlchBMP);
end;
Procedure FishnAlch;
var
X,Y,T,DTM: Integer;
begin
MarkTime(T);
ReadyAlch;
repeat
AreaCheck;
ClickToContinue;
if FindNPCChatText('these fish', Nothing) then
Logout;
if IsFishing then
Marktime(T);
if InvFull then
break;
if ExistsItem(4) then
begin
MMouseItem(4);
if WaitUpTextMulti(['Cast', 'ow L', 'evel', 'lchem'], 400) then
begin
GetFishType;
ClickMouse2(True);
IncEx(MagicXP, 31);
ClickToContinue;
OnScreen;
DTM := DTMFromString('mQwAAAHicY2ZgYChiYmDIYILQEowMDFJALA jEMpuYGA4tEGA4d+UWAz9QHQwzIWEgAAD7eAaN');
WaitFindDTM(X, Y, DTM, 4000);
FreeDTM(DTM);
ReadyAlch;
MarkTime(T);
end else
ReadyAlch;
end;
until(TimeFromMark(T) >= FishTimer)
end;
Procedure FishingWait;
var
T: Integer;
begin
Marktime(T);
repeat
AreaCheck;
ClickToContinue;
if FindNPCChatText('these fish', Nothing) then
Logout;
if IsFishing then
Marktime(T);
if InvFull then
break;
if AntiBan then
Marktime(T);
until(TimeFromMark(T) >= FishTimer)
end;
Procedure ReturnValues(colors: TIntegerArray; var HueMods, SatMods: Extended; var color, Tolerance: Integer);
Var
h, s, t: Extended;
I,II : integer;
HSLColor : Array[1..3] of Extended;
HSL : Array[0..1] of Array[1..3] of Extended;
begin;
For I:= 1 to 3 do
begin;
HSL[0][i] := 255;
end;
For I:= 0 to High(Colors) do
begin;
ColortoHSL(Colors[i],HSLColor[1],HSLColor[2],HSLColor[3]);
For II:= 1 to 3 do
begin;
HSL[0][II] := MinE(HSLColor[II],HSL[0][II]);
HSL[1][II] := MaxE(HSLColor[II],HSL[1][II]);
end;
end;
H := (HSL[1][1] - HSL[0][1]);
S := (HSL[1][2] - HSL[0][2]);
T := (HSL[1][3] - HSL[0][3]);
try
HueMods := (H/T);
SatMods := (S/T);
Tolerance := Round(t);
except
HueMods := 0;
SatMods := 0;
Tolerance := Round(0.0);
end;
Color := HSLToColor((HSL[1][1] + HSL[0][1]) div 2,(HSL[1][2] + HSL[0][2]) div 2,(HSL[1][3] + HSL[0][3]) div 2);
end;
Function FindFishingSpot2(Var X,Y: Integer): Boolean;
var
B: TBox;
TPA: TPointArray;
Hmod,Smod: Extended;
i,Tol,CTS,Col: Integer;
ATPA: T2DPointArray;
begin
Result := False;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
ReturnValues([11970978, 12169386, 12433588], Hmod, Smod, Col, Tol);
SetColorSpeed2Modifiers(Hmod, SMod);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, Col, MSX1, MSY1, MSX2, MSY2, Tol);
ColorToleranceSpeed(CTS);
if (Length(TPA) < 1) then
Exit;
ATPA := TPAToATPAEx(TPA, 40, 40);
SortATPAFromFirstpoint(ATPA, Point(MSCX, MSCY));
for i := 0 to High(ATPA) do
begin
if (GetArrayLength(ATPA[i]) > 20) then
begin
B := GetTPABounds(ATPA[i]);
MiddleTPAEx(ATPA[i], X, Y);
MMouse(X, Y, 15, 15);
if WaitUpTextMulti(['se-Rod','Fishing','spot'], 555) then
begin
Result := True;
GetMousePos(X, Y);
SMART_ClearCanvas;
OnScreen;
Exit;
end else
Result := False;
end;
end;
end;
Function FindFishingSpot(Var X,Y: Integer): Boolean;
var
Loop: Boolean;
TPA: TPointArray;
i,CTS,F,MSP: Integer;
ATPA: T2DPointArray;
label
Start;
begin
Result := False;
Loop := False;
CTS := GetColorToleranceSpeed;
Start:
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.34, 0.66);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 12103593, MSX1, MSY1, MSX2, MSY2, 6);
ColorToleranceSpeed(CTS);
if (Length(TPA) < 1) then
Exit;
ATPA := TPAToATPAEx(TPA, 40, 40);
SortATPAFromFirstpoint(ATPA, Point(MSCX, MSCY));
for i := 0 to High(ATPA) do
begin
MiddleTPAEx(ATPA[i], X, Y);
MSP := MouseSpeed;
MouseSpeed := (RandomRange(13, 21));
HumanMMouse(X, Y, 15, 15);
MouseSpeed := MSP;
if WaitUpTextMulti(['se-Rod','Fishing','spot'], 400) then
begin
Result := True;
GetMousePos(X, Y);
SMART_ClearCanvas;
OnScreen;
Exit;
end else
begin
Inc(F);
if (F > 7) then
Exit;
Loop := True;
Break;
end;
end;
if Loop then
goto Start;
end;
Procedure StartFishing;
var
XP1,XP2,XP3,TroutDTM,
SalmonDTM,SturgeonDTM,
TC,SaC,StC,X,Y: Integer;
label
Start;
begin
if not LoggedIn then
Exit;
if InvFull then
begin
TroutDTM := DTMFromString('mbQAAAHicY2VgYFjNxMCwAIjXA/FOJgg/gZGBIRaI04A4HYijgbi7OxuomgkF8zNgAkYsGAwARQMG9Q==') ;
SalmonDTM := DTMFromString('mbQAAAHicY2VgYLjCxMBwAogvAvEjID4LxD aMDAxmQGwPxE5AbAzEhUmJQNVMKJifARMwYsFgAABAigan');
SturgeonDTM := DTMFromString('mbQAAAHicY2VgYLjMxMBwC4hPA/EpIL4PxImMDAwRQJwMxDlAHAPEmnZ2QNVMKJifARMwYsFgAABX gAbb');
TC := CountItems('dtm', TroutDTM, []);
SaC := CountItems('dtm', SalmonDTM, []);
StC := CountItems('dtm', SturgeonDTM, []);
IncEx(Trout_Caught, TC);
IncEx(Salmon_Caught, SaC);
IncEx(Sturgeon_Caught, StC);
XP1 := (TC*50);
XP2 := (SaC*70);
XP3 := (StC*80);
IncEx(FishXP, XP1+XP2+XP3);
Report;
FreeDTM(TroutDTM);
FreeDTM(SalmonDTM);
FreeDTM(SturgeonDTM);
DropRemaining;
end;
Start:
MakeCompass('W');
if (FindFishingSpot(X, Y) or FindFishingSpot2(X, Y)) then
begin
ClickMouse2(True);
if not DidRedClick then
goto Start;
case Random(5) of
1..3:
HumanRandomMouse;
end;
While IsMoving_F do
Wait(1);
Wait(RandomRange(2000, 2500));
if AlchFish then
FishnAlch
else
FishingWait;
end else
NextSpot;
end;
Function BreakHandler(BreakIn, BreakFor, randBreakIn, randBreakFor: Integer): Boolean;
Var
h,m,s: integer;
begin
if not LoggedIn then Exit;
if (HowManyPlayers = 1) then
begin
if (GetTimeRunning < ((w) + (y) + BreakRounds)) then Exit
else
if (GetTimeRunning > ((w) + (y) + BreakRounds)) then
begin
RealBTime := ((x+z)/60000);
Writeln('Taking a break for about ' + IntToStr(RealBTime) + ' minutes.');
Logout;
MarkTime(CurrentBTime);
repeat
Wait(21000);
ConvertTime((x+z)-TimeFromMark(CurrentBTime), h, m, s);
ClearDebug;
Writeln('Breaktime left: '+IntToStr(h)+':'+IntToStr(m)+':'+IntToStr(s));
until(TimeFromMark(CurrentBTime)>(x+z));
Writeln('Logging in.');
OnScreen;
if SwitchWorlds then
if LoginPlayerToLob then
ChangeWorld(RandomWorld(True, False))
else
LoginPlayer;
Wait(4000);
Result := LoggedIn;
SetAngle(SRL_ANGLE_HIGH);
MakeCompass('E');
IncEx(BreakRounds, (w) + (x));
Inc(TotalBreaks);
Writeln('The next break will occur in about ' + IntToStr(BreakIn) + ' minutes.');
w := (BreakIn * 60000);
x := (BreakFor * 60000);
y := RandomRange(-Bir * 60000, Bir * 60000);
z := RandomRange(-Bfr * 60000, Bfr * 60000);
end;
end;
end;
begin
Smart_Server := 86;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
setupSRL();
Loadvars;
DeclarePlayers;
SetupSRLStats(201, SRLStats_Username, SRLStats_Password);
LogInPlayer;
SetAngle(SRL_ANGLE_HIGH);
MakeCompass('W');
SMART_ClearCanvas;
OnScreen;
AddToBelt('Barbarian rod');
Repeat
if not LoggedIn then LoginPlayer;
if (TimeFromMark(CommitTime)>=30000) then
Commit;
if (TimeFromMark(ReportTime)>=5000) then
Report;
BreakHandler(BreakIn,BreakFor,Bir,Bfr);
AreaCheck;
StartFishing;
Until(false)
end.
ph0ne
03-11-2012, 10:58 AM
Alright thanks, testing, 88 fishing, 99 agility, 99 str
http://puu.sh/kk5q
ph0ne
03-11-2012, 03:18 PM
put bait in 1st slot so it drops the rod instead of the bait.
works flawless, 2 hours 17 mins before it got into a random, 45-46k xp per hour at 88 fishing. Impressed, well done
Kajutsky
03-12-2012, 12:24 AM
Give this proto-type a try:
program HeavyRodder;
{$DEFINE SRL5}
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i SRL/SRL/misc/paintsmart.simba}
Const
//SRL Stats
SRLStats_Username = '';
SRLStats_Password = '';
//General settings
AlchFish = False; //Fish 'n alch method? (False for standard fish 'n drop)
SwitchWorlds = True; //Switch worlds after break?
FishTimer = 6000;
//Break settings
BreakIn = 135; //How long before we take a break? (minutes)
BreakFor = 15; //How long will we break for? (minutes)
Bir = 13; //Random minutes to add/subtract from how long until we break
Bfr = 7; //Random minutes to add/subjtract from break duraction
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Fishing;
Active := True;
end;
end;
Var
Version: String;
ReportTime,CommitTime,PostID: Integer;
Trout_Caught,Trout_Ca,
Salmon_Caught,Salmon_Ca,
Sturgeon_Caught,Sturgeon_Ca,
FishXP,Fish_XP,MagicXP,Magic_XP: Integer;
//Break variables
w,x,y,z,RealBTime,CurrentBTime,
BreakRounds,TotalBreaks: Integer;
Procedure Loadvars;
begin
Version := '1.4';
PostID := 841068;
MarkTime(CommitTime);
MarkTime(ReportTime);
MouseSpeed := RandomRange(17, 19);
w := (BreakIn * 60000);
x := (BreakFor * 60000);
y := RandomRange(-Bir * 60000, Bir * 60000);
z := RandomRange(-Bfr * 60000, Bfr * 60000);
end;
Procedure Report;
begin
WriteLn('=-=-=-=-=-=-=-= Heavy-rodder '+Version+' by Flight =-=-=-=-=-=-=-=');
WriteLn('Time Running: '+TimeRunning);
WriteLn('Trout caught: '+IntToStr(Trout_Caught));
WriteLn('Salmon caught: '+IntToStr(Salmon_Caught));
WriteLn('Sturgeon caught '+IntToStr(Sturgeon_Caught));
WriteLn('Fishing XP '+IntToStr(FishXP));
WriteLn('Breaks: '+IntToStr(TotalBreaks));
WriteLn('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=');
MarkTime(ReportTime);
end;
Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
var
mx, my, Pic, Pic2, I, B, H, TPH, Numb: Integer;
TTP: TPointArray;
Canvas: TCanvas;
begin
SmartSetDebug(True);
GetClientDimensions(mx, my);
Pic := BitmapFromString(mx, my, '');
Pic2 := BitmapFromString(360, 71, 'meJztfQV4k9f7dtt44+5aiTRt0' +
'zT1tNGmblShBaq4uwyXsQEDtsFgQ8eQMcY2nCHD3Snu7m4Dtt/3PW' +
'/DWNeWUkbLgH/uq9cE0pNz3vPIfR95Xjc3F1xwoX7gDj/u702zLrj' +
'gwn8ODw93CslTwsBhUPXp5A3UrAsuuPAugIDHR4SGdLTwu5dk knGo' +
'+mIIDdTsuwYYl4e72wc6OBfqDe7u7igPDwwahUa5fwAGA6xAK BCUx' +
'Os6WvmbN6wrbpzBJKLf2WbfNYAxED0JEh6TTcKgPN53W3ChoQ B2gs' +
'fjZFJJRHh4uEGn9ZFKOFQKHvX+ZlMcFhsRERGlIE8u8Cr/aVSPWIF' +
'SJnxzD2igZt8OICnAnKLrIK9gmEG6wBZmychBvVunGDR8git6 uFAF' +
'SHIheur1+lKrN9hVuIzUP1HUs1l848zkAKEn6T2k4jAiLoeTH x/mx' +
'cIdHp+/rZdOwcIFB/p7vNlIGqjZtwMUykPA56WnpaYECzEwpS/vsn' +
'OYTZOjByWLz509802Rf2ZKPBmPeouddeFdh4eHB4VCjoyMaBP Dsyo' +
'pk/O9Dn1dcmzZpB1zhi0e3nRS76YtM6JxaI/3K9tg0OigIF2chtY4' +
'hPn4+tludqGMiQvWB72hgzdQs28B0EGip6fdZmkaxl72/eRubUtAX' +
'r2s0zDMwICA1jG8raPyjv8wMFlLt1vNBBzmrfbYhXcYEDSoVE pMTE' +
'wbE29Iivj82ulXN848OCbz9ILBD6+fv3/17KVDW/fv2vrN+HFWJZW' +
'A8fiv+1snQLqk02hZCWYWEb2yg/rM972CJSSHmqpWq97EwRuo2bcD' +
'iPtikahFrHpwivjy8X2944QBvpIacwEMk0ImpyXYU/xp1w6un1fqm' +
'2dgBvhrUR7vx+y70NBALIRCNptMLaK53xV637txcc9Qc3ogw1/o2c' +
'Mh3DR/wrWrV548fnjv/KGNw9LamXi28EDcS3PUOwQ0CqXRaPJD2Wk' +
'B9NuHfhuXKweOXWKSCPm82tj5f9Ts2wFQiGC9PklL29gr9Nic 3uFy' +
'UoheV2O4gwijkMvbx8rH5cjvnNgBQaPM7vtejNGFtwAwAzKZZ DQaW' +
'xi5U5t5P3pwf10XLZhTsIRYlmGKjwrwFxC+mzrx+Nrv/3jyqPyzdK' +
'MXuTQugMsgvePWg4yLREpyWL1Y+G299Wfn94tQkIk4D4fVRCQ Q3rV' +
'm3w7A40kkYrLDrBN5nv5p6LL2apMPJUgXWGPcwONwJlMMKNb9 E8vK' +
'v2is4RFS4iwkT8+3320X3jWAF3h6EkIMBtCwozNl96+f39RNG yolg' +
'ZKNj3MIeBw8xp2E80iL9h+RLrm46qvj09qAmzSP4CjEgnc8bq BQHl' +
'4KRTubpJ2Z9/jmxU8aSakEVGkUx0shfxM10UDNvh1AB/k8bmFsQIa' +
'O8eDKqc5Wfq6BpfL1qU4hgGzwuNxmCaHZesa9C0dHZUotvpRg fRBw' +
'rf+k5y68OwBrweGwfn6aNrHenW3864c37h4YGaUgx6ppNquVS iY5H' +
'QGN8jBGhsmYuN86a87/MixURsoNZvooZO/4AqkngWC3WRP8aOVT2h' +
'2f0iJUTgbiZIqJ9iTg36TjDdTs2wFEA18fnzIjd1Qj6Y3dS+x Kagu' +
'LTCzkV48bIGd0gYGgTeaW+l7ZOCtWRWtpEktEQpdIcQGNRkml 0sIE' +
'A8SK4/OHHplY6FDTQJ7Ex9poFPILC4G4ERUVicd4TGvqdeb7XloBo' +
'YmB5a2Qvssm5Fz9a50eMbnA69GtSwOSRFwyJjfJwmYx36TbDd TsWw' +
'OwBUOwPiOQsWdsk/IxjXy5hBy7gUGjVvkYjIVKoaTFW/US4qkFQ3f' +
'01onp2LQ4M4VE/E+67cK7A3ABFovZKNEqZeAm5Stula8qjuRo+ISM' +
'JAeLQa9MucHYjFGRBIzHTy2Vh8ZmimnY4gi2TCJ6lx0FtHlkR HhXm' +
'+DEyqnln+eGSIktbD7eXgoM6o32Ahqo2bcGIEXxjtiUAPqtY1 u+yZ' +
'dLGDiLKRqPw1b5GMoD0WJtzXzQYk8fP2hr4sV4k10ixQXnsgZ EgzA' +
'ZCcjqlXVTF7ZRQeosSw6BfIr+pwKpiBtRoOJ39w3a0l0L/1Fo8eFx' +
'2O+sTnFq8+KshPkt/e6cPTgoWZStZ4aGhlR3kHeh2bcGmHQOm9U83' +
'fJlnvzO6X35oawWUVwIetWXZZAV0Zhog4S4rV/kye+66sTEUrNcLB' +
'S8F5zq3wFGBmb/4Y6vfgAKxcfHp5VJyCKigUVcWjXB6kuBgGCzmgl' +
'4XJUPgxXF2u0KFu74jPbTm3mDYGkUG0Elk/6TntcFWAxGrw/qFSc8' +
'tHDc/kllDjU1LSmBRqG8oVE0ULNvDcAilL4+vdL8to5veWx2L0gZa' +
'Ql2CrnqvpgzPDaPN8AAb+xdNiXfi+GJTnJYP+CdFBTKg0omgh bz4e' +
'DR7/7q9n8EiKoMBj093kzGeTTSMW7vXzGpiYJGQOUEM8Guqjw2sCI' +
'ul1OYZkrS0u4c29wnTkT3RMfExGAx7+gdLmR0dHpuqqObnf/wwf3P' +
'c+Qd4n0hq77haaUGavZtgoDHW8zmltHcqwc3Lm2rLoxgB/hrq0sP5' +
'4poZhDzq8bym3uWJGvpyf50f63fWx5pxSVcd5QH8lNHT/7786/zRR' +
'gMmsflOKINY0aPnPXttPRI5ftyrPEtA/KmTqdL0tIldCzojguLRsT' +
'4kNEebnnxUQwatcozB7IRERERq6Z+W+h9Y9fCeA0tM4ihUvq+ s1EZ' +
'qJSfRtM6hreyvebC+plxGlp6UhyZRHzD7jZQs28N4HvAIorSz RMaK' +
'0BktYrmNk8K47JZ7tU+RqVQ0hOsAULP47N77vrIAEbS1KHnsJ hvba' +
'TQBzBRFpPh4+2l1wUYAjR+UhbktdotDofFCgWCAI0yUEIj4ur q+Fg' +
'sRiIWN87J+qJFzNH9O5aMad80J51OwtfDMD4swKSwWay8eGR/pGkY' +
'+96JrRObKBhElL+AAFIdck3lDwN/E4tFJQl6u4p6cd303zr7iWjYf' +
'IeBzWT85/7izEcVPxXVISr+CewIzD41wW70Ip/4YeCW/saMQIYhWF' +
'/3Bb0GavY/B3Q1MCCgnZm344vio7N6WnwpoD1ftiLazszvYOE9/f1' +
'hBzPPi40DeonDvo07KfCcwf35fF5YWFiuIyw/hB2pIEfIyX3ihf16' +
'dqYQUOiXrKnBL4pEwrwoeYwP5etC7aypE5ulRNdOG5yHEGCwz RvF9' +
'XIITmz66dCs3u0tfJvZRHhPFqzeJpwXsmwqqoKJ3d0n8NLysb EqKp' +
'CNEquPQPCPfXznOVKH3RIiJS5tp766aVZ6IMOPT4iMjHxzK3q TsOO' +
'0LgadJhEJvBUyXy+Zt0wsE/NFAq6Azw/WB3WJk0/Ikz+6caFtDK80' +
'igtyoi5Mt4GarXfAdwIVh946w1odf4VCJqfE2+I01Kv7Vv7YQ tkii' +
'qNRK6uTRtAyZpMpQk7aOcxxfHr7IAkRmIlMKmnokUL7oBdYLG ZISE' +
'iz+JBwOcmbjcvQMb7Mle8eaj0yf+jh/bvGtUuyBIhqvOAA4c4QHIx' +
'yd0vxp1/aumB5B/++mToFn15Lp4FpeHkpijKsrWO4x5dPOjG3T1kU' +
't62J916c33vLcNpPqi0Cg3JvEsK6c2jN9yU+PAqG7omuviIK8 6jRa' +
'EAOF4Wz757aPbO5D5eMKbL7VQkvrwWwdkh88EUMChG+9HUrOX h4eH' +
'gSCFKJxGiMyo4NbWmRtYrhdrLyuyfIuqbr22dGt8yy921TAAZ wetk' +
'XB0an+guJBWFskeAVVyoaqNk3BxgwuAn6L42PlEbB4bgcjtLH y1/t' +
'q/GWyQQsBvHV5XTgscuk0tYWSbMw1v0Lh2cU+rQtzOExKFW6/3xFN' +
'CEkR8+AGf8yV8EkopPjrGRiw8ox+F4i0VOlUuUkWkAI25SUqU 29ys' +
'dknlsw8ObOnx5eOPjnsycn5/bOD2UVhnO8BIzqTx05YhQZAfyil0M' +
'In881sPJDWEov+csmCIKGXCYrzLAVRbCPLxpz+seBEB4DBJ6x NuQg' +
'feXfeUciiPtz6ou4Dzgm/MCQK//UfRXoXwDahtRZbIUIgP65lfLmj' +
'h8b6RhYlFtxZNVj0uBKXC6ncYo1REIsn1h8fGqrKC9yoJAIZO PfbT' +
'uCbYBvggLVBwXF2cyNk6LbFDVOChbXvZ4YPCvokikmuoVFbpA Ss/T' +
'M8bnylZ381/YKX9vf/tuAuBW9YhZ1DFrYWrXz44Rnz55OaiI3+1Is' +
'MUYioTa52kDNvjmclw2D1fIUh1nKAu6MgZhvMBjyrdrMIEaSl t4mh' +
'tsjN6q0sMCXi689cgCPgolT8Qjwi2eXfrZm9jijN9lpaR4ezr VEMD' +
'wP4O0wO+Cev7bXXF47FVw4J5ipUatqWRH9a/XSw7kg+S+qwyErKlS' +
'KMSoSMpQ3Gz+qkfTqrsXnfhl+bFLRvbP7nz198r///e/J7cun53TP' +
'CWYJqJhgnX/1OIkcaY6KhGw4JEV8c/ciUGHIIr+PokZfApcD9V2Q7' +
'iiMYB+ZP+zswhEtjVw5C5edaOGwWFUoNxGPJeHeqhp9oZSdkw IRgk' +
'DA06gUPo/n4+0FvNcUHWU2m6KNUVGR4RAt4Z+RYSFhOo1GRGugrjq' +
'PGTcLY+tEnqdmdtw/IFTGxKE83FLjLBTS3/tx8LhIJKLVYrarqPPK' +
'fO+d2tnOxIMuNUk0stms141rziwJ8tNsiim2KkGBwhzFqWkTG isWz' +
'5ncxKSke76i7JRTiioUitxEE3LK3cDcPjT298cPT83tc3J2T7 Cuh9' +
'fPP7x09MH58nund989vgX5j5Pbx2XLO7QuEwv5L0vHDdTsX42/qUN' +
'BoNDrg4Crg7OXNGsi59GMYcEJfjQlF/9xhnTXuIITq789tmP1/j27' +
'Fn43Yeig/gIqtsalQxgmi8nMiwv3xHpAgjj109BNqxYDh6HgUf4yl' +
'j7ALzgoMDhIBwYJhtiyeV4yUP0t81d10ghp2Oz4GDq16lL5i2 bBpM' +
'GeQcX4a/0M+kBDoFbjLZEwcNjXqdKMx+PCwkJDpCQI2tv6hDy8eHh' +
'eqS+ErAHJ4tUzRx3Yv+/OrRvAN65v/f6LHFlJJEcXoK2uI5xHEyFu' +
'jEiXXN/2g8mHkq2vOW6gUB48HjcnNR749oEZ3c//+mVHC19CxzZJM' +
'omFgipzCvFWp5T069a+JNGAb+BNFnf351ScyaCLRUJfH+8Af3 +DIT' +
'g62hhvt2YnxJQk6Dvb+KkBDIOUlOhHyw9lQyBtFMQAaQY/WUGMz3J' +
'9e5Rk/gsa/0pUHDMONkiI2XrGo8vHBiSJCFiP9EC6n0b9Iqc4vQn6' +
'3N7M7+EQPLh0bEFLpZiOLQhlwcew6NcLaDBNNBoVsmRxgh4MQ y8hl' +
'hm5y9qpT8zo8OjGhe3DE/MMzNQ4KxFbS0ZD6hYCiS1KDIFwN6XA69' +
'658sPjsjpaeMESIjzABR0MBzYsvXvn9h9PHv3vzz/g5//9789b+38' +
'dn6foXuDQqrxrNOMGatatnhwK7J1GpWbYQsl4jyYhzMm9G0O8 HdG1' +
'GNLonqG2O0fWb+im/SRD2tMhBEkOEQ8yLDxhHhVX/QtgCtRqFfiRm' +
'IYB/n99x09XLl1YPvfrBXNmfNk8sL2J1yKaWxrFLY3klBk5feNFez' +
'5vdnnd9Fw9M9GPrgsMxNQ045Cy6XRaQIB/uiOmhZELn4xUkG0qyvB' +
's1Yj+3ZvHyITUOo0V+iaVSkoTgkJkpL0jEi+tmgDyEOKVDwc/uG93' +
'cAEuBbNhzmc39y774/cH+75p81ljNTzM6qdzoZPI4i3afSTQlfXTg' +
'BvDeH29q+oUYNEMBj05wQF/u21U7tWt8/rGC6UMXEFyjFQsQv+z2Y' +
'paZ+zS4sLFXw/5durXKp7nK93RmSNePex/AvE4LBbkp9bPz241Q4R' +
'vaZW3N/MgyDcL4+QZWG1ieMPSJLOKfX7rZz0wteOlTXPAd36/f+vp' +
'4wfwH7ePbbm2c+HlzXMvlW/c9uP44cXmIAnlZQvI/w6eBHyc3ULAe' +
'IzNll3b9B0YG9rDLTcxuvL2a8WlFUlxuqmJgXlu9eSDo9MivU igUC' +
'xmE9GT8No74zxugsMO1LdxCGt1R83BcdnnF31y59CaZw9vX13 7DTg' +
'plYByqKkiDu1lSQ2CmFKpLE0MjvEm7xhih9Q/rZmXVuCJx7hD5m2X' +
'FpIRpQQ3X/3zd5f3rX5y9yo4+J9PH8PoBiWLQZ5nWvQ0QtWjJg3Ur' +
'Fv9ORSkVEg6ZRY5j4weky3d/8vniycO3P7D2LMrJlxeM6mtmcejYG' +
'AewVMgD8IPZMyMEBGPVXUl0Fndy2GzkHEeZh/KkbHpv9849/Dq6Wu' +
'HNlw/tvPurWs3Tx+4Wr7h9KrJR38YdPzHYbdP7zv5XZcuNgGLhG6c' +
'GM1iVN04c8ZbuVyeGmcCZsIjY2wqKjyTrT0CyieVHJo35OSut UvHd' +
'uzXoxPwn1fSSIiNyYnxQKK2DTSBvmgVw6V5oiButCpuyiFhMB 7uDn' +
'8ueNCSNiqwmdsndv7Q1do0N4NJrmqHWAwalCY8h/F58osrxoVIiUA' +
'nfLxk1df5TaaYrCDmwlYqSBNjsmViBq4wKVIhk1YPjxW1zrSD c3VH' +
'Ni+d0SsTBGPtO8FA5hlUkk5KQwZeZz9BKhsQPXWBAQWJkc3D2 THeF' +
'HgIkMU2DI4/9OOIa0e2PLx1+dr2Bafm9S8fk7m9p//cEt9PG0k7Wf' +
'gQVTpbBd82994z1HJiVrcLy8ee/r7PkrZqsLfS9GgO9fVctdYeIvG' +
'zqSOIT8Hs/9i29yM92B484RBD8IuHBgGZw2Fnp8ZDQC6f1gWkX2MD' +
'U0jFZCRYEBN6HYUCQUMiEeek2JO1tNnFPrdO7bm0euLlbQtuX 7/88' +
'MH9Z78/vLxqPGQ6MP78WAOLQX9ZI3K5rDAlKlZF3fd506sbZ0KG5Z' +
'IxLCK6zOEfbYwUcZkEjDvM1JCPeoAxXFk3FSLSk1sXT83skKV n4tH' +
'uTew6Jq3q0daGaLYeHcqtYoPAT6PJDGL68Qkbu/vfPrrp9sWTl9bN' +
'KP/E0TSMxfBEQUYuzrDEOWIjgwNCA3wDfKUCNr06G0Q2KIXCEhsiB ' +
'gcni+8eWXdz1y8nvine3E07qYlicIoYOOfiNqpLa6c9/f3Rk/s3T3' +
'3XqSSSDYHRoqQE6XRV9uVhjKC1tVptUaw/BLQ4DXVFB/Xpub1AGtw' +
'/tePJzfPACkDVburuD/IqXKepJUQ6mwJx1CdRurpn5P2LR0dnysAg' +
'g8TE7MwMfsUj4lBwbQrS5EwcZNsb2+cD8TuydOLIJgGWUP8qe 6xYD' +
'MZmMcEfziz0OTW7Ozw08EGFTPzCYJ1fB7wXRHobE+/ehaPgYvAMW9' +
'qVSl+f6ocYnSXdstOTBiWJ7ty8NjhZEqoPqHWdxx3iszEitHd GQP8' +
'urUAD1jHhQw+lXFo7m6R3vHDDoNgre1fcOb71+PT2O3r5T873 6uUQ' +
'Ng1j21XUAKEnPAcwURoBRcQh+YJOQKl4BLMvBcwM7A38FKQKS Bj4a' +
'quS6iUV1lfcqDhm7AupH5zl9v4VMBeQW4vtaj6P43y8YGOQKx Pi40' +
'qjOFs/zb6+c2GvOCEEmaZJUSJE+r2GvgPHBNKSn2qFlL15SPzd03t' +
'/KPWFFDClqff8iR/v3fjr/dvXIYN8kSsDKQpMpsaNXQhiQFfyUmMT' +
'/KhAnq9s+BakE5h0kpaWmuiQiYU4LLInBz8sGqkwKxHy6d6BkY8 uH' +
'oLRgRQC44G5S7EZyUTPhmn27yo99ehQTjhr5kAcsympR8c3/uPRHU' +
'ijU5t6RypIYDZKLiE9MVYk4OGxCLl2bsjW2CI4PqKRvckwEWf n9z+' +
'3YOBnWbK0AHqgyBNmFsgem4QGy1w0rtuu7ZtPbV+xoYsW/gqFsNAY' +
'ENr/2FmoGGNgYGCLaD4J5wHh68y8vvdPbrt9YCUEnD//eAY6DijZr' +
'd0LIQkC/8mKj6aQXlrICIiZQi5r1zR9Qafwh/fu/NpeDYNKC2TE2u' +
'0MMvJbWLRHcKBfrJqm4uJXdNDcPboB2r++e+mEPEUbE9dPyqn smXg' +
'cNtZqgl6t7KA5ODpVTMeVRXEkIv6LuIHFYoBetrL7wKM4PrvX oc/z' +
'IhSklAB6SIihxnV+EFAqpbKrQ7q6j+nMqinNwtmGl1RFe9G+R qNuH' +
'68clyNbs3JZcqiCQcTUxXPhM+Dp48eNPn1oz8Gp7YBLwEPQCg iQd8' +
'h4FDAoEg4FwjlHz2xnFZemhOdnxKenpZmjQsMCVcF+Xnq1PEa vLC4' +
'u6tXECkNGwgsL2b8W8Tn1pVRAQxmNRhkD+1GC8M7htUlaOuhH R6yd' +
'gEWSlLOYpNlk6mzjr+lnv3Nqz1eN5WI6tjg+yEshr1HkvgxOp gFBA' +
'wTIjlE513f8PDRVImVg4zW0ovxsFhHzzZih++cMevrg1u4h5m gvck' +
'xMNBZdQ8CnUinxDhvQlU0DrDf2LOsTJwIjL4pgR0SEUymkF5M I/2L' +
'SaU0SI8FW5xb7AA8/MbkUYhRYkYZPAK+pfDqrXpv9e0WoHh3K7a+V' +
'zMYVK5kgdq789jXEWAhZQA6BBUHeSU90cFjMV6Y05yJJo0Qr2 OHeY' +
'bYLiz+FYQJ7hGwFfYfpaOFQN85uZPShw/8qeYS5w1ps7hsKDgVsUx' +
'+kqzzpTmWn0WhamCVErEdqAO3o+CYPzu49+/Pws9sXHzu079KlS48' +
'fPXx85fjJ6a3By+A5FBilXFbNNBLZreOwC/IbT20VevPK+V2fJAE/' +
'BxUfFhpC9kTKmMDIYIAFSUZwHOjMyWkt4fk/u3/94pKR3WMFHBI6O' +
'8FE9fw714AAT4w1c8iYfcPMG7ohVy+L7Boei+H8W+cGStPkKF Cg2/' +
'qEXFk7GVQz5Ov0RDuNWsP1ImRfgEhMcNggaJ/5deKG3qHAXvxeXjw' +
'WhUKJRMJmqSaHmnZyydj1Q5PABkL0urq8ZsIJiGbTxg4amyVL 8acD' +
'yQSp0jrBv1maLS01xRiqC1QpfKV8MYfGpuCpBDTQKgzq+ekd5 DCPu' +
'xtMKAxZwsD5i8haOUfEpeMw9bOxAu0z6LSsuCiguBu7+h0clS Rj4k' +
'Ai+Uq4ztxKJhEjI8J7JsqXdgm7d+XsD2W+Sg6hZaxKrVK+1ik vCNR' +
'8Pi8vxQ5BY+sg243dSz6KFwH/bB7GjokxsqjI4lLHti37xAvP/Djw' +
'3OKRQLSykqxUUtU7U8D5g/X6VtHc2cXej29f/ipPIaJhW5tFel2gJ' +
'x73zzyI1LAqsiNnWZe3Vz88f2BstgzcEz5TaNMIeP84ZVFfzf KRZp' +
'9/rB4d6sUzVKmU+aFsMQ0zp8T36b1rh0YlgkVBGCHjPXKTrRWXke t' +
'0kg1yeqcE5XdF3o9vnId8QfNEgY0VhrMzkuIC/FRCLgN5t4WbGxGH' +
'jtF5Te8Ue2nX0tbRvJZJQVXqiDpLtTSPDwZHtvpSdvUOuHdi6 6PLx' +
'y4d3r78h+m+HPzkEt2Na5cvr5n0Ra4cIhvMco5JzaJXrezh9t dR9l' +
'hL9NiymDN715VP75wTzGydEBDgr30xBcABwsPCQqUkLxZuVrE vaCs' +
'IvNe3zFnVUQPBE3wiL0rBolOeN4hYr2e6I0Yr8Dy36JOJTRTQ yaw4' +
'I9UTOY8ED4rFYqYnwJwR4K8g/vRLEDGIaBAsvj7eNbJo+EO5TNbaK' +
'u1g4f9+/1abGG4bs0AmEdeo0yEGMpmMtMRYoxd5Y0/D1c1zm0dwdC' +
'KiLqCG9dtaAH1WsHB+Mo5SypPz6XwGERgLzDj6rwN+dWQv7vV 65gR' +
'MyEuhKDNydWLi2QWDvi309mLjW5UWkrCIAZI8CRHhYT2SfH5p H3T/' +
'zo3VnTQgM1tZpVo/DR77Gqc1nEonKc6OlL3tbwFV/nG6FIJGO4sQl' +
'CyRgHeviI2JDpuKS9jcXXv78DpgZa1NAjGfU3mwYKUymbQsOa yjlX' +
'/rxI5tPbSgDkA9BekCCbiqWwYwAPhw6xgeDO34tDZHPs8KlZGAQ 4H' +
'WCwsLqxz0GqLZenSoF/AkEGJtFlCyIJGA5FzfPKt7rJBFQtRTSWKI' +
'TCpB180gQfWHh4V0tPDObZi7Z4jZX+gJQ8hJsat8vYHwvLj4i SgyJ' +
'r15VuK0pl7wWJqGshvFmyrfdwZ/AddA1riIaJ3I86dWKujSH4/vPX' +
'v65Oyp4+mBjDGFoXs3/frwwb3yj60xPmSYYnABSEPVJcDzdYaggEF' +
'F9j0LJ55a/lU3O79tarBWo35hadAvEJLNHDrwmsYGFsRb+K7rW79f' +
'18XPrqRA4IVs6zBHgdG6/dV/OpWSHW/M0NF/v3OlnYnHJmFMEQbnA' +
'MkkktVigoQOU3nvzN4fW/hC8AfmH/PyEm3IoVmzSS8mbukVfHJOTx' +
'hyXmwYkM8amQmFQob27chalujZ06df5im4ZEzT+DCI7f/iJJZ7A/j' +
'+mwAxofBwFY9QEMp6cvsy2HBbEw/UEPwVCY+ODAnqkeT1cxstKE1g' +
'IxDngTQGBgSAN9X9K5zvbIqKjMwMYkxv7v3oxoXxuQqYo/RAeoghm' +
'PBXKgGbDwnWRSnIX+TI7xxZD2kUNLtW/fc9XAg+YKWNkhyJWtqhmd' +
'1PzOqW5EcH9hJtNBIJNawSQ3bQ+vll6xktjJxnj+/3SxACZwOnS0+' +
'wMmh/z3U9Nkv/q9l6dKgXcL4+stiuBnn7Ubzw92unVnfyg/iG7HwF' +
'MwMD/Ot4E7lCpFCy0xJhru9eOQsED/oDspTNpFcJO8jCl9K3V6Ji6' +
'+clR+d+ZIdnEh1d+VvA00HERSrIwH8+yZCAWHh65wqIrz+ePb 125u' +
'jxg3uOb1t+acv8AyMceQYWPCUfDj7VYWIx6DWUH8SgIct3LEh aNqL' +
'gavn6SU28OsfJgwL9Kz8Q6F6gP8IrfNi4X1qr7h7dcHvfsi3d/WNV' +
'VBISd92KLD4QPP8+OQBxj0ErSIjoYObfPbM/R89sHcP14iClyfBYD' +
'CQs6FWCH+3s0jEHhltgmmCyMhJtTHoN3XPOKZDJQkcg8IfLm2 bPKv' +
'IFwmm1mKuzbucxp8jIiCw9E4z80sZZu/oEAquB79Lrg97ZC+N1Bzw' +
'eOo2aGRcNAXxoqgTixpYB5m8njMKikF286CBln3jJwjb+D+7e Xt9F' +
'GyYjAS0JDtJV4e2vBJiESqVqYxbmh7Kul69Z20ULkrlVDA/chEz8+' +
'+wuTLe/1g9c4Ot8r4tLR0coyBS8R3ClktpIQSFjVCMd45fWyjvHt/' +
'Z0CNU8QkqC42WVLvA4nMVsNkiI2/uFn5zRVi8hgm0VxwdJJOLKLLR' +
'em33+G8h7pevJoV4Ah8VChIeECLHiwHDr5dVfgcCHiQNdiZyC JnrW' +
'cVIqzpZLOmVGrBvZ5MSiMZAvQCwjg62pSg+MtCiCc/XghoWtlS2MX' +
'BCnL6YDRJNcLiuzeTOJ6M5W/ulZnYHq/++Pp88e3n506ci17QuOTW' +
'u9qI2qq40PZAb8Ol5Di3cg0an68ovzEHJ+ZvLIRtLbVy+u7xN ZFMk' +
'xm2KqxG08BmWOicKi3ZO1tJPftoevOzA0Oi2ADnYCTZY5NFW0 M/SU' +
'x2EVxek6mHnAl0oiOfnpcWDbwDd8FZJWdh+IFfvHZJ2Z18ehp kHoL' +
'orXV7GNykCjUEFBOosvpYuN/+B8eWYQMyWADsS7ijB0ZsnQ0NCCUH' +
'aQ2PPglwXQVYuSyvREpyXY36OqLLUAHjfoNbAHPgUzt8Tnjye Pjq5' +
'fMKAgGvgeRIlhOdrlXYLv37y0sgMS5MF+gB544l+vyi58BYfD zku2' +
'+gsIez/LPjW7u1VJNflSgA0Cn6xsQTBfwGRgcjcPsh4cnQpMXsXFQ' +
'yRxzgv8rUIub2kWgaPdPLLx1w4aZB0mPlgkEr7kHR/IckpRajRyie' +
'bM/s9z5XRPVJMQFojlyqbVEM3Wo0O9QEVJLnZ+fBjE85bR3Ifn9v3 ' +
'YQulcVGmeFCHg8ep+5Qqxf11AnwTRqU0L1vaO6GITaFTK6s4C 7bGY' +
'jII0+6QmirvnDoGRFMYHIxz7r/5QKZTkOKSYZK844bXNs+8d33x1w' +
'4yr66ZcWPwpaLe5Jcg2GUwiEecBrtrKJAwLNVDIxOr9dDqayR STE8' +
'zcN6PHiR8GZQQymmTEsZlVS7PCEwZG2j1WUBbFub7thzPf94J HwSQ' +
'i6zAt7d5qtapK6kfOuggFLa2K4gj2g/v3ZvdKkVboQQGDWJzp8GLh' +
'1nX2u7nrlzIjByhcszA2GNvLyAB0hIy8J8JCJXj82kF9dEIB/Hqpr' +
'epbY5xjCQkJATOWMXDru/jBk2kayoLwXmbzkcuk71FVllqAQaNDQ0' +
'MCBAS92HP/4MiHl4+fP3OyV5zAqqRMG1Cyqrvh8YM7EDSCRER4qvD' +
'J1w0abhWZNyoyAqjd0FQxaMwesUIKHpWXZAIaX8UqnDXoiiM4 Z9dM' +
'W95OzaVgmscFcTmcFwtiMVERMiZ220dhZxcMsvpSE/zoBkNwjWuzf' +
'5miCaLB9hFp5xaPBJkJmdpiMVc5olbvzdajQ1WGs6SYTUUFc9 3bP+' +
'TS8rGQcyFFQqIM0gW+FvVFzvjFOYaniu/fuTUwWVSYWEO1DbeKgO/' +
'tpejRKHjrV22Pze1r8qE47NYXNxzBcjQaDaSSwgj2jT3L9g0I a2Pi' +
'FUWwS6I4MDpIyt5sHDgLOKleTMxLMvt4yfEveQsk8v4IL0Vrq 6ydm' +
'ffk98efZUpLozgvKxwEmaV3nKg4kn332KZFbdQyBha+AvqgCw yoLv' +
'HgkSrk0lIj1ylGVs2fBvGBjPNonJnqL/T8Mlf+9N61IaliBhENozM' +
'ajbVUnkcucAn4xRZvJQd/Ykb7H8p8IeCnx5kqb+U75UlYWFizcDaX' +
'jJlcoHh8/SzIWIYnKsqLDFzxfakbWTvATqkUclqcGawXpN+ZOd1Ap' +
'9y5fWvN5P67flu856uWJ2d3u7Zr6eAUcVe7IDzEQHz9ev7PTw vblE' +
'BXTv04eHc/g4KFByUC7K6KVcAnRUJhWU7i+Dz5o1uXejkESX7I6of' +
'TI5yrWOnxyAbuzfI1E/IUwO1zkyyIFK1hXM9f4tDOgbzE4dG9mzCD' +
'kGiyk+1VghWSRMj13Gw9OlTlr2YxmbkJyHnp5uHs+6d2zCryA YqIQ' +
'bllJVrp1Uoq1dqUG5vFLMpNWTog7fzG79MCGXEOu2dNF/FgICHBQR' +
'BYLh3aurK9uq2JV3GRzd3tubylNUqwgPeVTyw+MbVFjA+FgPG AIYN' +
'845AwwMHAcYDGF8SHh+gDmXTKyxZsK05FEuNsZjkTt7az5tQP/UJk' +
'pPykaBaj+gFXZKMc9KOIhu2XKHp05URJJBseCBBjiOQ1rkSBs 6uUv' +
'kBjwG3LP0vfvXElcADoIfz6oGQxtAAcGzgbfHWiw1ajUqvcFI igzC' +
'CGQ0W9tf/XAUliDhljjIzAoJ+Py/k6VGNUVOMQFvBMCEdP7l6dnK/' +
'gVRyGyUi0vdY0vcuoOLEsKjOJWUQ0aPDrW+b8+fTxs2fPHj18 cP/q' +
'2Zt7ltw7sfX6yf3LFv+SEMhjUQive1zEeZLZbjVDihyaKrl7f Euug' +
'UX3RKfEV61d6bwdkJqcCBT0+NLxh6e0jJCTgZO/qCWFCFUupyg54q' +
'NE4f3zB3P1zAQtckWiekp6cbukNCnEj++5//P8Y9PaQGttrFIfb68' +
'qLLGi1FV9NluPDlUZSJ4NDEjS0hVM7K7eAReXjIxVUbEot4JQ Fhjz' +
'a9UIcqbg3s0c+5dN2zK2KQTAyleQKo0XeX1bRnrat829b58/0sXGa' +
'5pielGUCRrx9fHO0DEgHv7xxx89Kzhk62R9dFSEXusb5iePDP QNVs' +
't9pHwWjYSp9UaE89h8qUmqFRAgTy1uo/Zi4c3mqouNYCEQ4aOiohr' +
'pmJDxD32Re2C4BSIwGe+RmRzLoNNqdHlkxcxfC7o4xpt8aGzm ufKt' +
'cwYXr16xZPPInLsnd2zr4a/mEZD96yTzK/evoalgfZCKR8gPZQFLg' +
'SiarKX7KxXOX4KsB7nDZjEl+tHYJHTvOAHQoXVd/JQV95FLYzWVV2' +
'vfd8BAAvz9gWkbpMQDw8yPrxwHDf7//vfn/wDPfv/j0R0II48f3t+' +
'/d3eX1EDn+djX2j6CiZCIRaVGPsTz8jGN9vQzCGlYkMlV/Ne5Y2Wz' +
'WiEvb/w48+rOhb3jhWAelVeenYVzu8cK1/SKOP3zx+GQkhKN1WuLg' +
'XWBtet0ujKHhkZA9YkX/vHkUe84oRcb77Dbql+iqfdm69GhKj8fBp' +
'2elWB2ko0HZ3ZPKfDikNAgc5AITHq9t2oik+6nGtPSeuXi2dn FPiW' +
'NbDWLFGTvgNsmP3XdV52P/jIyP4QVbYz6ewHHw90QHATpBrL2jZ0/' +
'29W0jlahv9aPUHE/z+Ovn7pYS8XmlCZCQbYpqde3/TAhVwHUN0Dzd' +
'7VJ5DYoGsViMUHD5oey4UvHZEl/v36mzIi8MbBVdFVzqtK4IThYK/' +
'CMU1Mhhj+4curu7Zu3L568vvMX4DYQyYGwFcXp5DLpK6M3fAD kJA1' +
'5AR/7z2dPwAYGN1LKWYhqw6BRQoEgNd4WISeJaJi+CaIbOxYcHGFz' +
'7s4naGjBwfq3UxXt7QDUlsVsAhLV3c6Hibi28VvgGI8uHfnj8 T3kj' +
'mcFIIQA+zh65PC8Od81t6rEdCxkzzpGj4q4pAU2Dury9oGVQ1 IleI' +
'xHeqKdVKn2pnPFIDwstKOVv6SN+v6V05DgYKIRXlfpmjYOi42 Ojk7' +
'2p51YNHrrR2GRCrLRGFVZ1DurQnHYbIvFUhzJoXmi0gLoJ6a2 PDqh' +
'QCfyhGAF7ly93/XebD061AsA2dBq/TKDmKDl93ykP/djf1NF0VcQP' +
'v+i+jEYcHSYfkZ70+Wju3rFCa0WU42iG3SU0lsxpEXK8V2/rf7I1j' +
'k1UCH7+3VaMMywYJ0n1h3k5MOrp7vZBdmN0qvXP68LkCcWFAB PLD2' +
'QcWP7/E2D4z5pGe/NRnSTe8XYqRSKWq3OSnGYfSngle1N3Kvrp23s' +
'ppUysKDUYu3WWu5UgkfDhFLwSJFteG6QCh+cLz8xrVX/RJEPRB2UW' +
'6toHnKVuw6rQ8iQDUEQqyEjPLp8bNNAy9ejB0Mkx6LdFRJBk2 STgo' +
'UDdvFpIynwdohRyVoaqFERHZsQa6WSyR+GQnH7awc22xEOHGD fkOi' +
'j4xvD7H+T77VrVKMLqyeBQnly6yLwDeSeOLCPp09uXDqzdfn3 06ZO' +
'bhQmgV/B1aEoPDzqEL0OZq1ZGOvpg1udrXyLL9WAHLL9xzFsXWBAx' +
'0TV+MaK+7evrevsB0Gj1OEnl8sqk38gojnxxoxA+r1LJweniD ta+N' +
'4yscdfxzKBJZJJJGDsBbmZbWN4GTp6j1hB+cfWZw9ubumuBVZ QVHO' +
'h3fpvth4d6sUjQqoBx1shXIPFAiccnSllEFGgoB02y+teQ4YP Q2dy' +
'srMXf1pavuSbAXmhamXVMvVOgPYJDlB/3S3jyrkTozJl2ekp1Eqjg' +
'EekUyk0fEJRJPvmgZWrxndrZFQxSK++lFcd0FSQxltEw+boGZ dXf3' +
'WxfNN3k8bikcu87hwmLTDAPz0xFoioLxcPcmNMtuzc/I+ub/0eeJe' +
'TbCjksloMEY/DOawmDAo5B3tlzcQnty+fmdMNgoaEjoXAC8EkJMRA' +
'qNuhAvgWvb8aAlp+CPPalrlXDm2eP/MbaBnCRYeCJNAm4XLSzObeN' +
'7bNu7BweMtoLqRjGFpBkpHH435I1QVhLCKhoIXNJ9fAvHd696 AUZF' +
'V5eJqk1Mjpnyhe2zv86Kye17bOu39619M7V5wB5MnjhxdPlK+ Z//W' +
'XY0cnBvJgrmvnHvDcgv1VAioG4gaE6CXt1B/nBaqk7Bd35YBpBAYE' +
'tM80DksV3zy5e+9QS4wXpYmBpQ/SVU6CFZJc1gqpBcH5/cGdMVmyF' +
'qXFdE+0868IeLxMKk1IiO+Ra5xeqDy0cNzlbQsubph15+ROZH//04' +
'RgCRHSAbPaKwsbotl6dCgnIHYplb7NwtiQXvcNNp6c3jpEihw XKbN' +
'6SSXi1zVI+DgEulZNMzfNGbXmi7atC9L5XHbNByMJ+DhL1IKP S4+t' +
'nTc8Q6EP9P/HXR43Nznbs4tNkBPMPLNg8OWL5yeNGsijYPBo5MTma' +
'3UKPuzNIwOXyw1mnftl+KN7t/bv2QUebZCQ2hQXwOw41LTxuYq9I1' +
'OOfV0CTOOP3x+UD4sJkZHgIaQl2GupGw9/DrEuwxEFJKFnrODukXU' +
'Xl4z8LEvmw4ak5wbKyGw2VSn9V3s/lVJeVhAjHajLT4Mf37+9d/dO' +
'FZcw4YsxTUJYeQbmxu7+t/YsBtL+SYYUXAO6B51XKX1f6wLXuw8wO' +
'R8veZ801foBtosrxtlUVC4Zk5OVGR1hKGmeP6JtZr9E8eQCr8 0DYk' +
'7O7Q0B5MHpnRCunSsep8t3LJ8xevSnwxP0Eki7ZDyqxjdTwB/5Sjh' +
'gA5l65uU1ky7uXjFv5lSIw2BZeCwG5DNyVy5VNyJdcvXwlgNj sxL8' +
'6BYlxWSqOpvQeIC/n7PiyvmVX62c+VmACNn8AurPYTEjI8LbZFn6J' +
'4m3TOl1/fjO3R/H/dRSuXLK0IM71t88XX706+IYb0pxYgj3r6tMDd' +
'psPTqU2197DUB0IZq1juGCfuyXICThPFQ8Asir6q/BeiWQE/ISUbd' +
'8+55lM37sEZudnV3lRvCL72Ux6SXN8tfPGrVhcu8OzdKrV0wF ydk4' +
'DbkfvX9c7t3zh8+fPf3jzMmFNrVBTpPzGSwaiUjAgcs4S1zCf 2DRK' +
'HDXGlkq8PnSwqZtTdwj0zuAjd27de3IgT3bt2xcPaZs27hmt8/sP7' +
'9szNFvyu5dOHL/7u2bB1bNK/WVM3ERcjLkl1rWhJHDonRK0/hQeP6' +
'zi31Aic8s9PEXIJc1gTYkOkAI17aBUh3gIG3zHGmBjGNT2/z57Mnl' +
'8g3lW1ad2rN+zxDzkS/z7h7dcOfAr2AkAUJPiEvR3uTIyMg6kpn3C' +
'JDu1RLmV31Lrpw5sraTn5yFK40WyGVSmG2wTIYnOsab/FHfviNzVT' +
'0cgq/yFFv6hh3/ruuVDd/ePbbp0dVTjx89PLlv85Ipwz8fMzIvISp' +
'QyuBR8UA/Kle9QyaOhG6VEwcp48jEwgfXzu3avlnGwEkZOFOItiQz' +
'tp2Zv7Ct/71b1/d+HJvsz4hSkKu8t/p5V93dDYEaaApC0PE5vbas/' +
'RWEDt0TFaYWFednd7ULFnaNunH5zOHJZX0ThH58T5Ab+UkxQ3 u02b' +
'5kxu6hyPIU5GtvqajqamfDNFuPDuUsGtzSLAExfnBM+qHRyRA x4GM' +
'FCeHIsZbXZ78wO75ycf9cw9GNP88s8bOaomouU+DuLhUJupdm 71v7' +
'04+9k1Li7URC1Vu68N1AUEcM6Ln6k4L718/fv3j0+vkT+7etnzN+2' +
'PD+vVq2KEuOtxtDdaGB6hCtd6hSAI8L5D9MvRcLB7nD/Z9NAc8fPa' +
'jnjllD7108dvHXL058237/yKQ9AyOXtVf3ihOafSjA/Jd9PXDex62' +
'PrZn9VWNkc7OtiSd/VTV1NhlT1shs8qEcn9Hu8Jg0kBI4tDuXjG6U' +
'aIPU8LpsDebIpOZ8lik9tXTc1Q0z9g2K2D0g4uqWeQ8uHXt87 fSDM' +
'7v3D46MU1MJGHcYTkr8a8el9wIwHhoB/fPPPx9eO6+nQ5CjZ4aGhF' +
'ROYWBjEAeEVGxyuO9HnVsOTRHDTI1Ik6zp5Hf4q8KLK8ff3Lv szrn' +
'D54+Xr/n202+Gde7RtbMjwt9PxhUwKWQC2vlKTTTKPUKJ1GXaOiDm' +
'/tl9kC727tqxcsWy2Z0sv3QIOrZiysUN380q8oHcESYjQQpg1rS hB' +
'n/gJ2EkaWldbHz43isXz/06f/rPP8ydPbTlor4JZ3atPL/6m++KfI' +
'EABAqJzZKN/n5qNp3sL/ScOOHLFX2sVl+qkIbVVBPyDdVs/TkUiDV' +
'jRJjFlzImW/r7zQutYrgg6lMD6CDuMNXKC9Rp0t3dfLikT1slnju6' +
'f3SmzBIdWeOSIMJFxdwxQ3qfP39+WnNlZEjNaR1ZIvNEj+7Xc eeyW' +
'Yendzw2vd2pHwefWj39xJ6N+7ZvWDP3y0UTPlo0+ZPlC2atXf vbiu' +
'+/mf95n7Fdm7RqUcqnVK13Cv/HJKLHD+n26/C8ISmSzCAm6Ah4IPA' +
'k8Wh3MR3bI9+mExFJONSunTt29o9A9kORl/XU9joDN6RSh3t2fPS0' +
'5j73bl93XiMCzdI42Szk8/5duTwIO50b27etWfxLKyVoqx/KlHsXT' +
'TpycP+5QzuPTGkFwc1ZEbd5YphQIPiQljUqA4b16YhhU8aPaV eSr9' +
'f5v2yRDfg8EYeSMnGpUX59OpQMT5UUhrO72QXTmnntHmI+Maf X+TV' +
'TzmxfenjfjlULZk6d/HW31s2S9CLkkmbFxgHMdfv8pJVj2z68f+fK' +
'pjnnVnx58qfhJ+b0PjAibkITRWogQ0jFJGjpsXYbg0Z9Wb01a GRQv' +
'z7L+9ge3r56af2MY7N67p9QtG9c3vZegWOz5clauoCCKQznxN rtfA' +
'4Lg0LmDnQB2MmQXh3bmnnNEiP43BoSdAM1Wy8OBf9ikgllRc3 mFPt' +
'c271kYzctUDWkiJDD8ibr85AL+rYp2LlqQe84od1uw2Fq5hsS Bm72' +
't1MPb1oEbFMf6Ofx8l0bSA3dmyd+U2boZOU3DmGB2AeHAm42I En8a' +
'YZkcIqkq50P7AuEG/yzZdMsf28RCV9z4RoQLJ2apXya5xchJ2n4BK' +
'M3uczIbZIUHR0RImEjr2YAUbxgaPNLm+Ygb+CNt7y491oLgP5 1zAj' +
'5dULPkigOnYBqnhgulYjreGu4RkC8aZ1i+KK1fWQj6eQvR7ez iQNF' +
'xJ++6A351KakELAexRFsP436A1vWqALkHCYOxaUAXX3FMN0rA gg4G' +
'gT/2CBpt45th+bpmoWxgKsXVhyGbB3DA1MckyWbUegzt03wlK4pow ' +
'b2yEmJBWMAZxjcvvHSz7uMz5WB8UA2MXqRFUwcGY9cIy2zKEJ DDGS' +
'SZy2kzpnExw7ssnJcu1GZUrBP4K5+fAKfgiHhUUBE85ItaqU3 iVC1' +
'7D+kFUjlfBq+xrLJDdTs88+8sUPBo+vbqax856Z9M3qkBDCQ8 xuOo' +
'JddnKk7YMY/HtCze6pfSLC+Rr7hXkE153w3Y+Hsye0KUiuqY9V+Js' +
'pdzsQXZif2ap7YycZHKqvzCMDV2SSMkkuIU9PamXiNU6xh+gA +6xV' +
'1Y6ApiI0wBYFeXI1CIOUx6SQ8roIcwI8PG//DJ20vbV+UEkCzW2u4' +
'iFojEE9PCx+YE1icFe+tkL75dVR4GJiK+A7uwCJhQJts+W35/nGNw' +
'QtsSqrJZKrlvPqHhNc+Pe7hDnGVS8aEychF+dl9msU2DWP5cg jwJ5' +
'CL6Uh9ISywyjwDMyU5kU7CQswnYj0yglhDuxQVR7KBZMIn4Z8 tjdy' +
'k+FiZWEh41UFrJyD+lCWHfVJqidNQgf/oxMRm4ezcRLM+wI9Jq+3g' +
'5SvYbMM061YfDpXoR/vmy8/GdW3cPV2XFylXeSvq5RY2OCLDE03Gv' +
'5Stg6v26NIhUUvzEjAgOL6ywedMDI+kFY2AqFOwg5XiYLVMp5 Kp5Q' +
'IJl04j4jCveI/rP1p78VMZEEinTfxi6/dj4EkG64PqflAWhknBI5v' +
'XL46FvyHcK16NRyTgwtTir4Z0vnL58o5P00DzZqbEvewavgsv ANOB' +
'reDtMnA3CcWgFIVqvcL8veFHr5arZHwmlYj+60aDR4VmQT4pp el9h' +
'ZBeJTwmiYB9rfrwIBVoBDTEHLBMrZdQxmfRwPpf560cb7NZt/pwKH' +
'Bh+F0ph8KmemLryezr1HOkkpLHv1gHcHd7XqfOWYqquvu/CUJlpGF' +
'DBjdKtHKY/7F7InVQZZIe7Uo3zBh8fuP3fROEZWlG6cuv4btQI/5h' +
'LbWWL3v+yTcwpzdv4W02W7X9f+VQDder9w6Qqkg4j3p/hdBroeLwP' +
'y0jOW5m78zrl84u7xLc3SEKCgz4kM6Tu+CCC/ULPA6n91d/2qXg+O' +
'51e6f1AL2ZkJBAefkhNBdccOH/OFAoD7FQ0LljhzXTh57djNTkL8x' +
'J4XM5H+rGqwsuuPCGqHgtCCnOHDG9X7MrF88u6xnTNTNcrfT5 sDde' +
'XXDBhTcBBoPW+HoN7dn24Kal+2YP7JsgMkXXXL/aBRdccMHteeE1R' +
'kFe1sLPOpzft/bLXHnTvEZIdSmXQnHBBRdeAhwWG+yvGtuj+fkTh9' +
'aOzO+ZE6FR+b5WvTUXXHDh/xQ8PNy5HFbrVi3XzBh+Yu3coSnihPg' +
'4MtG1h+KCCy68FEA2DP7K8X1KLl28sLRvXPsm8VKxyLWH4oIL LrwM' +
'7u7ubBazuFn+qhkjjqz89tMsH2NE6IfxXgMXXHChgYBUeVV6j R3U7' +
'eypY4v7pbZqmlXjVWgXXHDBBScgPtBo1Kzk2EVf9jq28afRTb SRIR' +
'9UiXIXXHCh3oFGoVQ+8o97tz22Z/OqkUXtCrOFfK6LbLjgggsvQ0V' +
'JeXJqQuy8QU3P7NswvkBtivpA3tjoggsuNBBQKA9vhfyjltn7 V83Z' +
'/HW3ngU2hVzq2kZxwQUXXoaKd5USHDbLpELtzetXJxd45WSmU9/gh' +
'TguuODCBw/na+hb58at/qzk2IopA5PFBr3OdYXNBRdcqAUoDw+10n' +
'tIru7EtqWr+8V2zgiRS8WuFVEXXHChFqA83AO9hZO7JF8/f3x4mqR' +
'xaiyDRnVFDRdccKEWALMQ03ELZk46vHJmszC2MSqqXupCu+CC Cx82' +
'MCj3IR2afDeqR+uS5q5jGy644EIdoWDhHf4cOZuI/VevyXPBBRf+b' +
'8LD3a3Or39xwYUPCv8fBu29Yg==');
TPH := High(TP);
for I := 0 to TPH do
begin
TTP := LoadTextTPA(TP[i], SmallChars, H);
for B := 0 to High(TTP) do
begin
Numb := ((I + 1) * 13);
FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
end;
end;
Canvas := TCANVAS.Create;
Canvas.Handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
DrawBitmap(Pic2, Canvas, 100,10);
FreeBitmap(Pic);
FreeBitmap(Pic2);
end;
Procedure OnScreen;
Var
XPH_F,XPH_M,TTB: Integer;
begin
XPH_F := Round((FishXP * 3600) / (GetTimeRunning / 1000));
XPH_M := Round((MagicXP * 3600) / (GetTimeRunning / 1000));
TTB := (((w) + (y) + BreakRounds)-GetTimeRunning);
PrintOnSmart(['Version: '+Version+' (by Flight)',
''+MsToTime(GetTimeRunning, Time_Abbrev),
'Fishing XP: '+IntToStr(FishXP)+' ('+IntToStr(XPH_F)+' / hour)',
'Magic XP: '+IntToStr(MagicXP)+' ('+IntToStr(XPH_M)+' / hour)'
],Point(15,236),16777215);
PrintOnSmart(['Time till break: '+MsToTime(TTB,Time_Bare)],Point(573,432),65280);
end;
Procedure Commit;
begin
stats_IncVariable('Leaping Trout (Caught)',(Trout_Caught-Trout_Ca));
stats_IncVariable('Leaping Salmon (Caught)',(Salmon_Caught-Salmon_Ca));
stats_IncVariable('Leaping Sturgeon (Caught)',(Sturgeon_Caught-Sturgeon_Ca));
stats_IncVariable('Fishing EXP (Gained)',(FishXP-Fish_XP));
stats_IncVariable('Magic EXP (Gained)',(MagicXP-Magic_XP));
Stats_Commit;
Trout_Ca := Trout_Caught;
Salmon_Ca := Salmon_Caught;
Sturgeon_Ca := Sturgeon_Caught;
Fish_XP := FishXP;
Magic_XP := MagicXP;
MarkTime(CommitTime);
end;
Function IsMoving_F: Boolean;
begin
Result := PixelShift(IntToBox(MMCX-30, MMCY-30, MMCX+30, MMCY+30), 200) > 200;
end;
//By Bandland100, modified to shift mouse speeds after every step
procedure SuperWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, maxStep, targetArea: extended);
var
veloX,veloY,windX,windY,veloMag,dist,randomDist,la stDist,step: extended;
lastX,lastY,MSP,W: integer;
sqrt2,sqrt3,sqrt5: extended;
begin
MSP := MouseSpeed;
sqrt2:= sqrt(2);
sqrt3:= sqrt(3);
sqrt5:= sqrt(5);
while hypot(xs - xe, ys - ye) > 1 do
begin
dist:= hypot(xs - xe, ys - ye);
wind:= minE(wind, dist);
if dist >= targetArea then
begin
windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
end else
begin
windX:= windX / sqrt2;
windY:= windY / sqrt2;
if (maxStep < 3) then
begin
maxStep:= random(3) + 3.0;
end else
begin
maxStep:= maxStep / sqrt5;
end;
end;
veloX:= veloX + windX;
veloY:= veloY + windY;
veloX:= veloX + gravity * (xe - xs) / dist;
veloY:= veloY + gravity * (ye - ys) / dist;
if hypot(veloX, veloY) > maxStep then
begin
randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
veloMag:= sqrt(veloX * veloX + veloY * veloY);
veloX:= (veloX / veloMag) * randomDist;
veloY:= (veloY / veloMag) * randomDist;
end;
lastX:= Round(xs);
lastY:= Round(ys);
xs:= xs + veloX;
ys:= ys + veloY;
case Random(50) of
1..25: W := (MSP + (Random((MSP/4))));
26..50: W := (MSP - (RandomRange((MSP/2), MSP-1)));
end;
if (W < 1) then
W := 1;
if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
MoveMouse(Round(xs), Round(ys));
SMART_DrawDotsEx(False, [Point(lastX, lastY)], 65280);
step:= hypot(xs - lastX, ys - lastY);
//W := round((maxWait - minWait) * (step / maxStep) + minWait);
wait(W);
lastdist:= dist;
end;
if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
MoveMouse(Round(xe), Round(ye));
MouseSpeed := MSP;
end;
Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y,X2,Y2,A,Dist,MP: integer;
begin
A := MouseSpeed;
GetMousePos(X, Y);
Dist := Distance(X, Y, eX, eY);
MP := Round(Dist/150);
if MP < 0 then
MP := 1;
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
X2 := RandomRange(eX-(A*MP), eX+(A*MP));
Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
SuperWindMouse(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
GetMousePos(X, Y);
MMouse(eX, eY, ranX, ranY);
MouseSpeed := A;
end;
Procedure HumanRandomMouse;
var
randSpeed: extended;
x, y, firstSpeed: integer;
begin
case(Random(10)) of
2..8:
begin
firstSpeed := mouseSpeed;
mouseSpeed := RandomRange(5, 10);
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
GetMousePos(x, y);
SuperWindMouse(x, y, RandomRange(x - 75, x + 75), RandomRange(y - 75, y + 75),
30, 55, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
mouseSpeed := firstSpeed;
end;
end;
end;
Function AddToBelt(What: String): Boolean;
var
X,Y,Slot,T,Tool: Integer;
begin
Result := False;
case What of
'Tinderbox':
Tool := DTMFromString('mggAAAHicY2NgYDjMxMBwAojPAPFpID4IxD uA+CVQ7hkQPwLiN0D8AYpNdNgZoiPDgSwmFMwFJEEYHTDiwBAA AIohC78=');
'Barbarian rod':
Tool := DTMFromString('mggAAAHicY2NgYChlYmDIAOJKIC4C4hwgzg Xi+0C5d0B8D4ifAfFbIH4IxDaB0Qy6hiZAFhMK5gKSIIwOGHFg CAAAnhsJrw==');
'Knife':
Tool := DTMFromString('mbQAAAHicY2VgYHBkYmBwAGJzILYBYk8g5m JkYOAFYjEgFgZiBiBurK5miLfjBXKY4JgLSIIwMmDEgsEAAB4R A9I=');
'Hammer':
Tool := DTMFromString('mggAAAHicY2NgYLBnYmCwBmIPIDYHYisg9g XiUEYGhhAg9gTiWCCOA2IvILbT5GTw0Odi8PfxAepmgmMuIAnD yIARB4YAAPp7BZI=');
'Chisel':
Tool := DTMFromString('mbQAAAHicY2VgYNjNxMBwCIi3A/E+IN4BxCKMDAzsQCwIxSB+iDkPg56ODlAHExxzAUkQRgaMWDAY AADN9QVM');
'Small fishing net':
Tool := DTMFromString('mbQAAAHicY2VgYDjCxMBwGIjPAvFJIN4HxA aMDAwmQKwDxBZQtqOxKoORugxQBxMccwFJEEYGjFgwGAAAEFgG GQ==');
'Fishing rod':
Tool := DTMFromString('mbQAAAHicY2VgYOhjYmCYCMQLgHg2EE8FYl 5GBgY+IGYCYi4gFgZiPR0dhjB7HqAOJjjmApIgjAwYsWAwAACB xQSE');
'Harpoon':
Tool := DTMFromString('mggAAAHicY2NgYMhmYmAoBuIKIE4G4iwgLg ViLkYGhv9A+T9ALA5k8zFC2Gbq7Awerq4M/j4+QB4THHMBSRhGBow4MAQAAPbNCBs=');
'Lobster pot':
Tool := DTMFromString('mrAAAAHic42BgYJjFBMETgXgaEM8D4iVAPA XKfg5U8xGIPwDxJyB+C8RPgfgdEL8E4jALHjBmYGBCwcnx8WDM BeSBMDqAiTMSwDAAAK4jD/k=');
end;
if ExistsItemDTM(Tool, X, Y) then
begin
Slot := CoordsToItem(X, Y);
MouseItem(Slot, mouse_right);
Wait(RandomRange(20, 75));
WaitOption('toolbelt', 300);
end else
Result := False;
MarkTime(T);
repeat
if (TimeFromMark(T) > 3000) then
break;
if not ExistsItemDTM(Tool, X, Y) then
break;
if FindBlackChatMessage('already on') then
break;
until(false)
Result := not ExistsItemDTM(Tool, X, Y);
FreeDTM(Tool);
end;
Function IsFishing: Boolean;
var
CTS,i: Integer;
TPA: TPointArray;
PColors,Tols: TIntegerArray;
HMods,SMods: Array of Extended;
begin
CTS := GetColorToleranceSpeed;
PColors := [727590, 727848, 793897, 793897];
HMods := [0.26, 0.21, 0.15, 0.16];
SMods := [0.50, 1.39, 0.47, 0.78];
//Tols := [2, 2, 3, 5];
for i := 0 to High(PColors) do
begin
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(HMods[i], SMods[i]);
FindColorsSpiralTolerance(257, 200, TPA, PColors[i], 250, 190, 273, 225, 5);
ColorToleranceSpeed(CTS);
Result := (Length(TPA) > 0);
if Result then
Exit;
end;
end;
Function MagicTab: Boolean;
begin
Result := GameTab(Tab_Magic);
end;
Function FindFishSymbols: TPointArray;
var
B: TBox;
TPA,TPA2,TPA3: TPointArray;
A,i,CTS,Cx,Cy: Integer;
ATPA: T2DPointArray;
begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsTolerance(TPA, 12632256, MMX1, MMY1, MMX2, MMY2, 5);
ColorToleranceSpeed(CTS);
if Length(TPA) < 1 then
Exit;
ATPA := TPAtoATPAEx(TPA, 13, 13);
SortATPAFromFirstpoint(ATPA, Point(MMCX, MMCY));
for i := 0 to High(ATPA) do
begin
B := GetTPABounds(ATPA[i]);
with B do
begin
FindColorsTolerance(TPA2, 16279077, B.X1, B.Y1, B.X2, B.Y2, 1);
if (Length(TPA2) > 0) then
begin
SetArrayLength(TPA3, (Length(TPA3)+1));
MiddleTPAEx(TPA2, Cx, Cy);
TPA3[A] := Point(Cx, Cy);
Inc(A);
end;
end;
end;
SortTPAFrom(TPA3, Point(MMCX, MMCY));
Result := TPA3;
end;
Procedure NextSpot;
var
TP: TPoint;
TPA: TPointArray;
begin
FindNormalRandoms;
TPA := FindFishSymbols;
if (Length(TPA) = 1) then
begin
Writeln('Only 1 spot found, relocating...');
HumanMMouse(TPA[0].X, TPA[0].Y-5, 1, 1);
ClickMouse2(True);
SMART_ClearCanvas;
OnScreen;
FFlag(0);
While IsMoving_F do
Wait(1);
Wait(randomrange(1500, 2875));
Exit;
end else if (Length(TPA) > 1) then
begin
TP := Point(TPA[1].X, TPA[1].Y);
HumanMMouse(TP.X, TP.Y, 4, 4);
ClickMouse2(True);
SMART_ClearCanvas;
OnScreen;
FFlag(0);
While IsMoving_F do
Wait(1);
Wait(randomrange(900,1500));
end;
end;
Function InFishingArea: Boolean;
begin
Result := (Length(FindFishsymbols) > 0);
end;
Procedure AreaCheck;
begin
if not InFishingArea then
FindNormalRandoms;
end;
Function Antiban: Boolean;
var
i: Integer;
begin
if not LoggedIn then Exit;
FindNormalRandoms;
i := Random(300);
case i of
1:
begin
RandomRClick;
Result := True;
end;
2..5:
begin
KeyDown(40);
Wait(RandomRange(500, 1100));
KeyUp(40);
Wait(RandomRange(310, 865));
SetAngle(SRL_Angle_High);
Result := True;
end;
6:
begin
HoverSkill('Fishing', False);
Result := True;
end;
7..300:
begin
Wait(RandomRange(250, 350));
Exit;
end;
end;
Wait(RandomRange(250, 350));
end;
Procedure GetFishType;
var
A,B,C,X,Y: Integer;
begin
A := DTMFromString('mbQAAAHicY2VgYFjNxMCwAIjXA/FOJgg/gZGBIRaI04A4HYijgbi7OxuomgkF8zNgAkYsGAwARQMG9Q==') ;
B := DTMFromString('mbQAAAHicY2VgYLjCxMBwAogvAvEjID4LxD aMDAxmQGwPxE5AbAzEhUmJQNVMKJifARMwYsFgAABAigan');
C := DTMFromString('mbQAAAHicY2VgYLjMxMBwC4hPA/EpIL4PxImMDAwRQJwMxDlAHAPEmnZ2QNVMKJifARMwYsFgAABX gAbb');
if ExistsItemDTM(A, X, Y) then
begin
if (CoordsToItem(X, Y) = 4) then
begin
Inc(Trout_Caught);
IncEx(FishXP, 50);
end;
end else if ExistsItemDTM(B, X, Y) then
begin
if (CoordsToItem(X, Y) = 4) then
begin
Inc(Salmon_Caught);
IncEx(FishXP, 70);
end;
end else if ExistsItemDTM(C, X, Y) then
begin
if (CoordsToItem(X, Y) = 4) then
begin
Inc(Sturgeon_Caught);
IncEx(FishXP, 80);
end;
end;
FreeDTM(A);
FreeDTM(B);
FreeDTM(C);
end;
Procedure FastDropSlot(Slot: Integer);
Var
TB: TBox;
begin
Case Slot of
1: TB := IntToBox(564,214,598,244);
2: TB := IntToBox(606,214,640,244);
3: TB := IntToBox(648,214,682,244);
4: TB := IntToBox(690,214,724,244);
5: TB := IntToBox(564,250,598,280);
6: TB := IntToBox(606,250,640,280);
7: TB := IntToBox(648,250,682,280);
8: TB := IntToBox(690,250,724,280);
9: TB := IntToBox(564,286,598,316);
10: TB := IntToBox(606,286,640,316);
11: TB := IntToBox(648,286,682,316);
12: TB := IntToBox(690,286,724,316);
13: TB := IntToBox(564,322,598,352);
14: TB := IntToBox(606,322,640,352);
15: TB := IntToBox(648,322,682,352);
16: TB := IntToBox(690,322,724,352);
17: TB := IntToBox(564,358,598,388);
18: TB := IntToBox(606,358,640,388);
19: TB := IntToBox(648,358,682,388);
20: TB := IntToBox(690,358,724,388);
21: TB := IntToBox(564,394,598,424);
22: TB := IntToBox(606,394,640,424);
23: TB := IntToBox(648,394,682,424);
24: TB := IntToBox(690,394,724,424);
25: TB := IntToBox(564,430,598,460);
26: TB := IntToBox(606,430,640,460);
27: TB := IntToBox(648,430,682,460);
28: TB := IntToBox(690,430,724,460);
end;
MouseSpeed := RandomRange(26, 39);
MouseBox(TB.X1, TB.Y1, TB.X2, TB.Y2, mouse_right);
WaitOption('Drop', 400);
end;
Procedure DropRemaining;
Var
I,MS,T: Integer;
begin
MS := MouseSpeed;
T := GetTimeRunning;
if not AlchFish then
begin
FastDropSlot(2);
FastDropSlot(3);
end;
FastDropSlot(4);
For I := 8 downto 5 do
begin
if (I = 9) then
Break;
FastDropSlot(I);
end;
For I := 9 to high(12) do
begin
if (I = 13) then
Break;
FastDropSlot(I);
end;
For I := 16 downto 13 do
begin
if (I = 17) then
Break;
FastDropSlot(I);
end;
For I := 17 to high(20) do
begin
if (I = 21) then
Break;
FastDropSlot(I);
end;
For I := 24 downto 21 do
begin
if (I = 25) then
Break;
FastDropSlot(I);
end;
For I := 25 to high(28) do
begin
if (I = 29) then
Break;
FastDropSlot(I);
end;
Writeln('Dropped fish in '+IntToStr(GetTimeRunning-T)+' ms.');
MouseSpeed := MS;
OnScreen;
end;
Procedure ReadyAlch;
var
X,Y,AlchBMP: Integer;
begin
AlchBMP := BitmapFromString(10, 6, 'meJwLuf2Kd8o6JkYmVl1+sVgVpk0' +
'y8sez4Uhi10WILLsQO4sHG1MOC1ABHAGl2OKaILJABDQBGQGl IAii' +
'AFOWtbwfiICyaAq+n0oEigMNZ/HJZjFwhyuA2wIAwl0jlg==');
if FindBitmapIn(AlchBMP, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
HumanMMouse(X, Y, 5, 5);
ClickMouse2(True);
SMART_ClearCanvas;
OnScreen;
end else if not FindBitmapIn(AlchBMP, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
GameTab(tab_Magic);
if FindBitmapIn(AlchBMP, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
HumanMMouse(X, Y, 5, 5);
ClickMouse2(True);
SMART_ClearCanvas;
OnScreen;
MMouseItem(4);
end;
end;
FreeBitmap(AlchBMP);
end;
Procedure FishnAlch;
var
X,Y,T,DTM: Integer;
begin
MarkTime(T);
ReadyAlch;
repeat
AreaCheck;
ClickToContinue;
if FindNPCChatText('these fish', Nothing) then
Logout;
if IsFishing then
Marktime(T);
if InvFull then
break;
if ExistsItem(4) then
begin
MMouseItem(4);
if WaitUpTextMulti(['Cast', 'ow L', 'evel', 'lchem'], 400) then
begin
GetFishType;
ClickMouse2(True);
IncEx(MagicXP, 31);
ClickToContinue;
OnScreen;
DTM := DTMFromString('mQwAAAHicY2ZgYChiYmDIYILQEowMDFJALA jEMpuYGA4tEGA4d+UWAz9QHQwzIWEgAAD7eAaN');
WaitFindDTM(X, Y, DTM, 4000);
FreeDTM(DTM);
ReadyAlch;
MarkTime(T);
end else
ReadyAlch;
end;
until(TimeFromMark(T) >= FishTimer)
end;
Procedure FishingWait;
var
T: Integer;
begin
Marktime(T);
repeat
AreaCheck;
ClickToContinue;
if FindNPCChatText('these fish', Nothing) then
Logout;
if IsFishing then
Marktime(T);
if InvFull then
break;
if AntiBan then
Marktime(T);
until(TimeFromMark(T) >= FishTimer)
end;
Procedure ReturnValues(colors: TIntegerArray; var HueMods, SatMods: Extended; var color, Tolerance: Integer);
Var
h, s, t: Extended;
I,II : integer;
HSLColor : Array[1..3] of Extended;
HSL : Array[0..1] of Array[1..3] of Extended;
begin;
For I:= 1 to 3 do
begin;
HSL[0][i] := 255;
end;
For I:= 0 to High(Colors) do
begin;
ColortoHSL(Colors[i],HSLColor[1],HSLColor[2],HSLColor[3]);
For II:= 1 to 3 do
begin;
HSL[0][II] := MinE(HSLColor[II],HSL[0][II]);
HSL[1][II] := MaxE(HSLColor[II],HSL[1][II]);
end;
end;
H := (HSL[1][1] - HSL[0][1]);
S := (HSL[1][2] - HSL[0][2]);
T := (HSL[1][3] - HSL[0][3]);
try
HueMods := (H/T);
SatMods := (S/T);
Tolerance := Round(t);
except
HueMods := 0;
SatMods := 0;
Tolerance := Round(0.0);
end;
Color := HSLToColor((HSL[1][1] + HSL[0][1]) div 2,(HSL[1][2] + HSL[0][2]) div 2,(HSL[1][3] + HSL[0][3]) div 2);
end;
Function FindFishingSpot2(Var X,Y: Integer): Boolean;
var
B: TBox;
TPA: TPointArray;
Hmod,Smod: Extended;
i,Tol,CTS,Col: Integer;
ATPA: T2DPointArray;
begin
Result := False;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
ReturnValues([11970978, 12169386, 12433588], Hmod, Smod, Col, Tol);
SetColorSpeed2Modifiers(Hmod, SMod);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, Col, MSX1, MSY1, MSX2, MSY2, Tol);
ColorToleranceSpeed(CTS);
if (Length(TPA) < 1) then
Exit;
ATPA := TPAToATPAEx(TPA, 40, 40);
SortATPAFromFirstpoint(ATPA, Point(MSCX, MSCY));
for i := 0 to High(ATPA) do
begin
if (GetArrayLength(ATPA[i]) > 20) then
begin
B := GetTPABounds(ATPA[i]);
MiddleTPAEx(ATPA[i], X, Y);
MMouse(X, Y, 15, 15);
if WaitUpTextMulti(['se-Rod','Fishing','spot'], 555) then
begin
Result := True;
GetMousePos(X, Y);
SMART_ClearCanvas;
OnScreen;
Exit;
end else
Result := False;
end;
end;
end;
Function FindFishingSpot(Var X,Y: Integer): Boolean;
var
Loop: Boolean;
TPA: TPointArray;
i,CTS,F,MSP: Integer;
ATPA: T2DPointArray;
label
Start;
begin
Result := False;
Loop := False;
CTS := GetColorToleranceSpeed;
Start:
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.34, 0.66);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 12103593, MSX1, MSY1, MSX2, MSY2, 6);
ColorToleranceSpeed(CTS);
if (Length(TPA) < 1) then
Exit;
ATPA := TPAToATPAEx(TPA, 40, 40);
SortATPAFromFirstpoint(ATPA, Point(MSCX, MSCY));
for i := 0 to High(ATPA) do
begin
MiddleTPAEx(ATPA[i], X, Y);
MSP := MouseSpeed;
MouseSpeed := (RandomRange(13, 21));
HumanMMouse(X, Y, 15, 15);
MouseSpeed := MSP;
if WaitUpTextMulti(['se-Rod','Fishing','spot'], 400) then
begin
Result := True;
GetMousePos(X, Y);
SMART_ClearCanvas;
OnScreen;
Exit;
end else
begin
Inc(F);
if (F > 7) then
Exit;
Loop := True;
Break;
end;
end;
if Loop then
goto Start;
end;
Procedure StartFishing;
var
XP1,XP2,XP3,TroutDTM,
SalmonDTM,SturgeonDTM,
TC,SaC,StC,X,Y: Integer;
label
Start;
begin
if not LoggedIn then
Exit;
if InvFull then
begin
TroutDTM := DTMFromString('mbQAAAHicY2VgYFjNxMCwAIjXA/FOJgg/gZGBIRaI04A4HYijgbi7OxuomgkF8zNgAkYsGAwARQMG9Q==') ;
SalmonDTM := DTMFromString('mbQAAAHicY2VgYLjCxMBwAogvAvEjID4LxD aMDAxmQGwPxE5AbAzEhUmJQNVMKJifARMwYsFgAABAigan');
SturgeonDTM := DTMFromString('mbQAAAHicY2VgYLjMxMBwC4hPA/EpIL4PxImMDAwRQJwMxDlAHAPEmnZ2QNVMKJifARMwYsFgAABX gAbb');
TC := CountItems('dtm', TroutDTM, []);
SaC := CountItems('dtm', SalmonDTM, []);
StC := CountItems('dtm', SturgeonDTM, []);
IncEx(Trout_Caught, TC);
IncEx(Salmon_Caught, SaC);
IncEx(Sturgeon_Caught, StC);
XP1 := (TC*50);
XP2 := (SaC*70);
XP3 := (StC*80);
IncEx(FishXP, XP1+XP2+XP3);
Report;
FreeDTM(TroutDTM);
FreeDTM(SalmonDTM);
FreeDTM(SturgeonDTM);
DropRemaining;
end;
Start:
MakeCompass('W');
if (FindFishingSpot(X, Y) or FindFishingSpot2(X, Y)) then
begin
ClickMouse2(True);
if not DidRedClick then
goto Start;
case Random(5) of
1..3:
HumanRandomMouse;
end;
While IsMoving_F do
Wait(1);
Wait(RandomRange(2000, 2500));
if AlchFish then
FishnAlch
else
FishingWait;
end else
NextSpot;
end;
Function BreakHandler(BreakIn, BreakFor, randBreakIn, randBreakFor: Integer): Boolean;
Var
h,m,s: integer;
begin
if not LoggedIn then Exit;
if (HowManyPlayers = 1) then
begin
if (GetTimeRunning < ((w) + (y) + BreakRounds)) then Exit
else
if (GetTimeRunning > ((w) + (y) + BreakRounds)) then
begin
RealBTime := ((x+z)/60000);
Writeln('Taking a break for about ' + IntToStr(RealBTime) + ' minutes.');
Logout;
MarkTime(CurrentBTime);
repeat
Wait(21000);
ConvertTime((x+z)-TimeFromMark(CurrentBTime), h, m, s);
ClearDebug;
Writeln('Breaktime left: '+IntToStr(h)+':'+IntToStr(m)+':'+IntToStr(s));
until(TimeFromMark(CurrentBTime)>(x+z));
Writeln('Logging in.');
OnScreen;
if SwitchWorlds then
if LoginPlayerToLob then
ChangeWorld(RandomWorld(True, False))
else
LoginPlayer;
Wait(4000);
Result := LoggedIn;
SetAngle(SRL_ANGLE_HIGH);
MakeCompass('E');
IncEx(BreakRounds, (w) + (x));
Inc(TotalBreaks);
Writeln('The next break will occur in about ' + IntToStr(BreakIn) + ' minutes.');
w := (BreakIn * 60000);
x := (BreakFor * 60000);
y := RandomRange(-Bir * 60000, Bir * 60000);
z := RandomRange(-Bfr * 60000, Bfr * 60000);
end;
end;
end;
begin
Smart_Server := 86;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
setupSRL();
Loadvars;
DeclarePlayers;
SetupSRLStats(201, SRLStats_Username, SRLStats_Password);
LogInPlayer;
SetAngle(SRL_ANGLE_HIGH);
MakeCompass('W');
SMART_ClearCanvas;
OnScreen;
AddToBelt('Barbarian rod');
Repeat
if not LoggedIn then LoginPlayer;
if (TimeFromMark(CommitTime)>=30000) then
Commit;
if (TimeFromMark(ReportTime)>=5000) then
Report;
BreakHandler(BreakIn,BreakFor,Bir,Bfr);
AreaCheck;
StartFishing;
Until(false)
end.
when i try copy and paste it, it always goes in the first line of simba so how 2 copy it?
Flight
03-12-2012, 12:39 AM
when i try copy and paste it, it always goes in the first line of simba so how 2 copy it?
Copy everything in the 'Simba Tags' and inside your Simba click 'New', now highlight everything inside the "code area", delete that (so now there's no lines of code at all), and paste the script you just copied from my post in this thread.
Type mismatch at line 35
Compiling failed.
any fixes haven't touched the line.
Flight
03-12-2012, 01:47 AM
Type mismatch at line 35
Compiling failed.
any fixes haven't touched the line.
Try my proto-type V1.4 on page 18 of this thread.
la102
03-12-2012, 02:22 AM
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 7 Hours, 13 Minutes and 25 Seconds
Trout caught: 2046
Salmon caught: 1529
Sturgeon caught 1312
Fishing XP 314290
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
longest proggy? prob get banned tomorrow lollolololo
edit: actually i hope i dont get banned..
Timba
03-12-2012, 02:28 AM
^Holy cow!!
..Let me know IF you get banned lol
Harry
03-12-2012, 02:48 AM
^Holy cow!!
..Let me know IF you get banned lol
I do 10 hr proggies on scripts like this and others for months now with no ban.
la102
03-12-2012, 08:04 AM
awesome bro, not banned so got another proggy in the same day :"D
Time Running: 4 Hours, 58 Minutes and 9 Seconds
Trout caught: 1445
Salmon caught: 1098
Sturgeon caught 913
Fishing XP 222150
Breaks: 0
casual 12 hr day botting
edit: turning off my pc to save on the power bill lawl
Ashihtaka
03-12-2012, 08:18 AM
wow, seems like this is one of those few scripts that work until client token expires.
Time to give this a go
Ashihtaka
03-12-2012, 10:15 PM
First time run through:
- Very stable, accurate clicking
- Excellent dropping speed and method
- Very quick pool change
- Long lasting, 4 hours and still running!
-------------------------------------
Overall, GREAT Script!
la102
03-13-2012, 04:40 AM
First time run through:
- Very stable, accurate clicking
- Excellent dropping speed and method
- Very quick pool change
- Long lasting, 4 hours and still running!
-------------------------------------
Overall, GREAT Script!
agreed, some randoms it can solve for you! sadly I got the maze one (it cant do it) and i was out for a few hrs. ahwell back to fishing
la102
03-13-2012, 10:11 AM
holy saradomin of varrock, it is crowded at this fishing place now! offered a free 1m for 5mins and no one responded.... your loss!
la102
03-13-2012, 11:32 AM
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 9 Hours, 43 Minutes and 26 Seconds
Trout caught: 2835
Salmon caught: 2161
Sturgeon caught 1779
Fishing XP 435340
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
client token failure, damn my life i was going for a 10hr+ proggy. try beat me !! 0 breaks !
anden05
03-13-2012, 11:54 AM
It doesn't drop the fishes, why? :norris:
Flight
03-13-2012, 12:38 PM
Ok I uploaded V1.4. It's really experimental and I've not tested it much at all, but the dropping should, once again, be working. Alching is now done through low-alching; this literally gives an infinite inventory space, but only use it if you're willing to lose $$. Fishing detection was reworked in a similar fashion to Barb Fly-Fisher 1.5+.
Lemme know how it works because I really haven't test it that much. :S
adaaaam_d
03-13-2012, 03:46 PM
Thanks for the script
I tested it out for nearly an hour and a half
Here's my log
=-=-=-=-=-=-=-= Heavy-rodder 1.4 by Flight =-=-=-=-=-=-=-=
Time Running: 1 Hours, 24 Minutes and 48 Seconds
Trout caught: 384
Salmon caught: 311
Sturgeon caught 249
Fishing XP 60890
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
la102
03-13-2012, 08:02 PM
im going to stay with the older version as it is very reliable :)
adaaaam_d
03-14-2012, 09:34 AM
What#s difference with the old one to the new?
adaaaam_d
03-14-2012, 10:21 AM
This is another proggy, would of got more hours but a random executed it! '¬_¬
=-=-=-=-=-=-=-= Heavy-rodder 1.4 by Flight =-=-=-=-=-=-=-=
Time Running: 1 Hours, 59 Minutes and 46 Seconds
Trout caught: 569
Salmon caught: 416
Sturgeon caught 365
Fishing XP 86770
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
la102
03-14-2012, 10:54 AM
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 4 Hours, 49 Minutes and 35 Seconds
Trout caught: 1415
Salmon caught: 1094
Sturgeon caught 919
Fishing XP 220850
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
on old script.
new one just makes it so you dont have to alter the dropping method
maybe if you read like 4 posts above you wouldnt have asked a stupid question
"Ok I uploaded V1.4. It's really experimental and I've not tested it much at all, but the dropping should, once again, be working. Alching is now done through low-alching; this literally gives an infinite inventory space, but only use it if you're willing to lose $$. Fishing detection was reworked in a similar fashion to Barb Fly-Fisher 1.5+.
Lemme know how it works because I really haven't test it that much. :S" from the boss
adaaaam_d
03-14-2012, 12:42 PM
No need to be rude and blunt...
adaaaam_d
03-14-2012, 01:45 PM
=-=-=-=-=-=-=-= Heavy-rodder 1.4 by Flight =-=-=-=-=-=-=
Time Running: 3 Hours, 12 Minutes and 13 Seconds
Trout caught: 822
Salmon caught: 635
Sturgeon caught 514
Fishing XP 126670
Breaks: 1
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
My longest run so far...
=-=-=-=-=-=-=-= Heavy-rodder 1.4 by Flight =-=-=-=-=-=-=-=
Time Running: 4 Hours, 51 Minutes and 15 Seconds
Trout caught: 1262
Salmon caught: 938
Sturgeon caught 796
Fishing XP 192440
Breaks: 2
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
la102
03-14-2012, 09:42 PM
bro take breaks off, you will be fine. i did almost 10 hrs no breaks and im not banned.
just reached 90 fishing :)
what i must say to people wondering what fishing script to use: Use barbarian fishing, its safe, reliable and you get strength and agility xp each time you catch a fish!
not bragging, but once i reach 99 fishing, i should have 99 strength too and around 75 agility :) very happy. should be another 11-13 days to get 99 from 90 :D
I love your scripts Flight, gotten 77-91 RC, and 83-92 Fishing with your scripts so far. Once I hit 95 fishing, I'll use your Granite Miner for 99 Mining :D
DarkKnight
03-15-2012, 04:19 AM
The new version is working good for me, thx
=-=-=-=-=-=-=-= Heavy-rodder 1.4 by Flight =-=-=-=-=-=-=-=
Time Running: 6 Hours, 22 Minutes and 52 Seconds
Trout caught: 1735
Salmon caught: 1266
Sturgeon caught 1156
Fishing XP 267850
Breaks: 1
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Dropped fish in 24742 m :spot:
adaaaam_d
03-15-2012, 11:09 AM
bro take breaks off, you will be fine. i did almost 10 hrs no breaks and im not banned.
just reached 90 fishing :)
what i must say to people wondering what fishing script to use: Use barbarian fishing, its safe, reliable and you get strength and agility xp each time you catch a fish!
not bragging, but once i reach 99 fishing, i should have 99 strength too and around 75 agility :) very happy. should be another 11-13 days to get 99 from 90 :D
Good luck bro, the previous version of this script seems to be awesome for you, would you be able to help me set it up im nearly 90 fishing! haha (:
Just took breaks off,
=-=-=-=-=-=-=-= Heavy-rodder 1.4 by Flight =-=-=-=-=-=-=-=
Time Running: 2 Hours, 50 Minutes and 18 Seconds
Trout caught: 708
Salmon caught: 570
Sturgeon caught 504
Fishing XP 115620
Breaks: 1
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
la102
03-15-2012, 08:51 PM
nice, I levelled to 91 in the same day also haha
burni
03-16-2012, 07:54 AM
excellent script.
=-=-=-=-=-=-=-= Heavy-rodder 1.4 by Flight =-=-=-=-=-=-=-=
Time Running: 8 Hours, 54 Minutes and 19 Seconds
Trout caught: 2592
Salmon caught: 2016
Sturgeon caught 1816
Fishing XP 416000
Breaks: 1
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
la102
03-16-2012, 08:20 AM
=-=-=-=-=-=-=-= Heavy-rodder 1.35 by Flight =-=-=-=-=-=-=-=
Time Running: 5 Hours, 43 Minutes and 44 Seconds
Trout caught: 1677
Salmon caught: 1280
Sturgeon caught 1173
Fishing XP 267290
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
peekaboo123
03-16-2012, 09:20 AM
Anyone can help? It low alchs instead of high alching when I runs the script. Thanks in advance for helping :D
Flight
03-16-2012, 10:24 AM
Anyone can help? It low alchs instead of high alching when I runs the script. Thanks in advance for helping :D
Yes this was added in V.1.4. High-alching was actually too slow previous so the fish stacked in the inventory. So I switched it over to use Low-alching instead, which in turn gives the user an infinite inventory.
peekaboo123
03-16-2012, 10:49 AM
I see. May I know if low alching it still gives an extra 40-50k Magic xp/hour? Also, thanks for the amazing script! Now I don't have to waste 6 hours during bonus exp weekend :D
hellohappy22
03-16-2012, 11:25 AM
Hey, I was wondering if someone would be able to tell me:
Const
//SRL Stats
SRLStats_Username = '';
SRLStats_Password = '';
To long back in after a break, do I just need to put my runescape name and password, in between the 2 ''? Thanks!
adaaaam_d
03-16-2012, 12:05 PM
This script is insanely awesome! 87-90 fishing in 2 days :D Currently using now whilst bonus exp is taking place, I'll let you know what level I will achieve over 16th-19th of march! :D
LeafyGreens
03-16-2012, 01:58 PM
Hey, I was wondering if someone would be able to tell me:
To long back in after a break, do I just need to put my runescape name and password, in between the 2 ''? Thanks!
Yes happy, exactly as you say. What I normally do is type im my username then save the script. That way every time I open it I only need to enter my password. When I close the script I make sure that the password doesn't save. Not that I don't trust Flight, but if someone gets onto my comp for what ever reason and knows what to look for, my password won't be compromised.
Edit* And as I was typing this I achieved 83 fish which makes fishing no longer my lowest skill! Thanks, Flight!
holy angel
03-16-2012, 03:09 PM
Yes happy, exactly as you say. What I normally do is type im my username then save the script. That way every time I open it I only need to enter my password. When I close the script I make sure that the password doesn't save. Not that I don't trust Flight, but if someone gets onto my comp for what ever reason and knows what to look for, my password won't be compromised.
Edit* And as I was typing this I achieved 83 fish which makes fishing no longer my lowest skill! Thanks, Flight!
Gratz on fishing level and I've been using this while double xp has been going and got from 88-90 so far and I'm still going thanks Flight
la102
03-16-2012, 10:06 PM
This script is insanely awesome! 87-90 fishing in 2 days :D Currently using now whilst bonus exp is taking place, I'll let you know what level I will achieve over 16th-19th of march! :D
i started bonus xp weekend with 92 fishing, im hoping for 94 maybe 95 at the end of this weekend. ill let you guys know.buying fishing bait is the only problem i am having at the moment, put it at 100gp each and still didnt buy in ge
Jfalko
03-17-2012, 02:42 AM
Time Running: 6 Hours, 15 Minutes and 13 Seconds
Trout caught: 1474
Salmon caught: 1078
Sturgeon caught 903
Fishing XP 221400
Breaks: i turned it off and on. so i wouldve gotten more but fantastic script!#@$!@$@#%@#$
Killerftw
03-17-2012, 12:05 PM
Please set the option for High Alchemy, because there is quite large difference between low alchemy xp and high .. :/!
Flight
03-17-2012, 12:13 PM
Please set the option for High Alchemy, because there is quite large difference between low alchemy xp and high .. :/!
For high-alching you can simply use V1.35, I'm quite sure it still uses that method. I switched the methods in V1.4 because the whole purpose of alching fish was to increase the inventory size, not so much for the Magic xp, that was just a bonus. Low-alching is faster, and in V1.4 it gives an infinite amount of inventory space.
Killerftw
03-17-2012, 03:21 PM
Really thanks, I will be using this tomorrow, would it work over night or it shall be baby sitted? :P
Andres
03-17-2012, 04:53 PM
Really thanks, I will be using this tomorrow, would it work over night or it shall be baby sitted? :P
You should babysit everything. Simba does very few randoms and failing randoms is a very big indicator that you're botting.
Killerftw
03-17-2012, 06:31 PM
Nah, I ran pickpocketting script for 8 hours, flawless :P
Littellj
03-17-2012, 07:57 PM
i started bonus xp weekend with 92 fishing, im hoping for 94 maybe 95 at the end of this weekend. ill let you guys know.buying fishing bait is the only problem i am having at the moment, put it at 100gp each and still didnt buy in ge
buy it at the fishing store in port sarim :P
Killerftw
03-17-2012, 08:39 PM
Do we use Feathers or Bait? whats difference 'o'?
la102
03-18-2012, 12:16 AM
You should babysit everything. Simba does very few randoms and failing randoms is a very big indicator that you're botting.
this scripts logs out of all the randoms it cannot complete. so it is not obvious. i had some 10hr proggies with all randoms completed and i never touched a thing.
sleep it up bro and bot away it bonus xp so jagex wont care
ph0ne
03-18-2012, 12:16 AM
Do we use Feathers or Bait? whats difference 'o'?
use bait because it's cheaper, buys 7-8gp each in G.E and it's the same as feathers, no difference.
la102
03-18-2012, 12:18 AM
Do we use Feathers or Bait? whats difference 'o'?
bait is cheaper
adaaaam_d
03-18-2012, 09:58 AM
Very impressed with the script, most exp achieved in a day was 1m exp but with the bonus exp in place, I am now 93 fishing! Been botting with this script since 87, I'm very happy! This is the way to go people if you want a fast and useful 99 :D
With the bonus exp at 1.1 I'm averaging between 700k-800k exp
With normal exp (No Bunus exp) I averaged between 400k -600k exp
This all depended on game time, and no errors to stop the script like randoms.
Sockz
03-18-2012, 01:36 PM
Amazing script, I apsire to be able to failsafe a script like you. You should make a tut on it if you get any free time :D
Cheers flight, I respect you work.
Heres a few proggies I got over bonus xp weekend
=-=-=-=-=-=-=-= Heavy-rodder 1.4 by Flight =-=-=-=-=-=-=-=
Time Running: 5 Hours, 29 Minutes and 40 Seconds
Trout caught: 1592
Salmon caught: 1193
Sturgeon caught 1048
Fishing XP 246950
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
=-=-=-=-=-=-=-= Heavy-rodder 1.4 by Flight =-=-=-=-=-=-=-=
Time Running: 4 Hours, 19 Minutes and 22 Seconds
Trout caught: 1284
Salmon caught: 960
Sturgeon caught 833
Fishing XP 198040
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
=-=-=-=-=-=-=-= Heavy-rodder 1.4 by Flight =-=-=-=-=-=-=-=
Time Running: 4 Hours, 47 Minutes and 56 Seconds
Trout caught: 1426
Salmon caught: 1069
Sturgeon caught 933
Fishing XP 220770
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
=-=-=-=-=-=-=-= Heavy-rodder 1.4 by Flight =-=-=-=-=-=-=-=
Time Running: 5 Hours, 1 Minutes and 18 Seconds
Trout caught: 1435
Salmon caught: 1081
Sturgeon caught 965
Fishing XP 224620
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
=-=-=-=-=-=-=-= Heavy-rodder 1.4 by Flight =-=-=-=-=-=-=-=
Time Running: 6 Hours, 25 Minutes and 43 Seconds
Trout caught: 1887
Salmon caught: 1404
Sturgeon caught 1217
Fishing XP 289990
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
=-=-=-=-=-=-=-= Heavy-rodder 1.4 by Flight =-=-=-=-=-=-=-=
Time Running: 5 Hours, 55 Minutes and 37 Seconds
Trout caught: 1741
Salmon caught: 1292
Sturgeon caught 1124
Fishing XP 267410
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
=-=-=-=-=-=-=-= Heavy-rodder 1.4 by Flight =-=-=-=-=-=-=-=
Time Running: 6 Hours, 44 Minutes and 52 Seconds
Trout caught: 1852
Salmon caught: 1406
Sturgeon caught 1249
Fishing XP 290940
Breaks: 0
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Killerftw
03-18-2012, 03:11 PM
Can you please add that it tells proggy of magic + agility + str + fishing at each?
Flight
03-18-2012, 04:36 PM
Can you please add that it tells proggy of magic + agility + str + fishing at each?
Yeah I could do that some time I suppose. Good suggestion.
@umadbro?:
Thank you very much. :)
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.