DAT NEW LONGEST PROGGY!
http://puu.sh/B7vQ
Printable View
DAT NEW LONGEST PROGGY!
http://puu.sh/B7vQ
Last request please,
Could you add anti-leech?
Rocktails are dropping like hell D:
Wait dafuq...Quote:
Originally Posted by MotorMouse
You Joined THIS YEAR >,<
SCAR Code:************************ Als LRC Fisher ****************************
====================================================================
You have caught 571 fish. That equals 95 fish per hour!
You have gained 216980 xp. That equals xp per hour!
====================================================================
************************ Als LRC Fisher ****************************
====================================================================
Thanks!
Whats the problem with that mate?Quote:
Originally Posted by Mew
i start the script it stops and this error shows
[Error] (43:35): Unknown identifier 'MMCX' at line 42
Compiling failed.
could you tell me how to fix it or help me through team viewer please?
i start it and it just stands there near bank, then i added the img as it says, and then the bot stops with an error as line 42.
Quote:
Originally Posted by N3mo
All I can suggest is make sure everything is up to date and if that doesn't work you could try reinstalling Java and Simba from scratch.Quote:
Originally Posted by N3mo
Exp/hr?
Well its leech free I assume because we don't care about the prices... it makes cooking cheaper / rocktail cheaper for PVM/PVP situationsQuote:
Originally Posted by MotorMouse
Doesn't work for me :/
How do I put the map in the program?
you have to actually go into the simba files in simba in your desktop browser thing, then follow the instructions. (sorry about my bad explanation)Quote:
Originally Posted by TrueExpressions
also
90-95 fishing doing this going for 99
================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================
You have caught 262 fish. That equals 93 fish per hour!
You have gained 99560 xp. That equals xp per hour!
not my best proggy but one for the thread, another will be here when i have 99!
Fixed.
Nice script.. im almost 90 fishinig now, so will soon catch rocktails! Thank you! :)
the same place as where you can DL the script, bottom of the very first posts :)Quote:
Originally Posted by Bot4Fun
Sorry for editing my post.. lol must have done it just before u answered. I found it my self, and then i thought my post was really dumb. :)Quote:
Originally Posted by ekolan88
When i try to run the script, it opens a new tab named "sps" and i get this error,
[Error] C:\Simba\Includes\sps/sps.simba(38:17): Unknown type 'T4DIntegerArray' at line 37
Compiling failed.
[Error] (38:17): Unknown type 'T4DIntegerArray' at line 37
Compiling failed.
It is this script:
Simba Code:*
SPS ~ SRL Positioning System
============================
Concept and original work done by marpis @ SRL-Forums.
*)
{$loadlib sps}
const
// Path where all the SPS files are
SPS_IMG_PATH = IncludePath + 'SPS\img\';
SPS_IMG_FMT = '.png';
// Supported SPS surfaces
RUNESCAPE_SURFACE = 1;
DUNGEON_ESSENCE_MINE = 2;
DWARVEN_MINE = 3;
RUNECRAFTING_ALTARS = 4;
DOMINION_TOWER = 5;
type
TSPSSurface = record
Name, ImagePath: string;
Constant: integer;
FactorX, FactorY: integer; // used in SPS_LocalToGlobal
TileOffsetX, TileOffSetY: extended; // used for tile <-> SPS conversions
Tolerance: extended;
end;
// SPS Global variables
var
SPS_Loaded, SPS_Debug, SPS_Continue: boolean;
SPS_Areas: TStringArray;
SPS_Surface: TSPSSurface;
SPS_Worldmap: T4DIntegerArray;
procedure SPS_DebugStr(msg: string);
begin
if (SPS_Debug) then
Writeln('[SPS] '+msg);
end;
// Should be called in scripts to setup SPS
// Needs to be called each time the surface changes (i.e. from runescape_surface to essence_mine)
procedure SPS_Setup(surface: integer; areas: TStringArray);
begin
SPS_Areas := areas;
case surface of
RUNESCAPE_SURFACE:
with SPS_Surface do
begin
Name := 'Runescape Surface';
ImagePath := SPS_IMG_PATH + 'runescape_surface\';
FactorX := 400;
FactorY := 400;
TileOffsetX := -1;
TileOffSetY := -1;
Tolerance := 0.3;
end;
DUNGEON_ESSENCE_MINE:
with SPS_Surface do
begin
Name := 'Essence Mine';
ImagePath := SPS_IMG_PATH + 'essence_mine\';
FactorX := 400;
FactorY := 1;
TileOffsetX := -1;
TileOffSetY := -1;
Tolerance := 0.5;
end;
DWARVEN_MINE:
with SPS_Surface do
begin
Name := 'Dwarven Mine';
ImagePath := SPS_IMG_PATH + 'dwarven_mine\';
FactorX := 400;
FactorY := 340;
TileOffsetX := -1;
TileOffSetY := -1;
Tolerance := 0.35;
end;
RUNECRAFTING_ALTARS:
with SPS_Surface do
begin
Name := 'Runecrafting Altars';
ImagePath := SPS_IMG_PATH + 'runecrafting_altars\';
FactorX := 400;
FactorY := 400;
TileOffsetX := -1;
TileOffSetY := -1;
Tolerance := 0.5;
end;
DOMINION_TOWER:
with SPS_Surface do
begin
Name := 'Dominion Tower';
ImagePath := SPS_IMG_PATH + 'dominion\';
FactorX := 400;
FactorY := 400;
TileOffsetX := -1;
TileOffSetY := -1;
Tolerance := 0.3;
end;
end;
SPS_Surface.Constant := surface;
if (SPS_Debug) then
begin
SPS_DebugStr('[SPS] SPS_Surface: ' + SPS_Surface.Name);
SPS_DebugStr('[SPS] SPS_Areas: ' + toStr(SPS_Areas));
end;
SPS_Loaded := false;
end;
procedure SPS_WarnUser(proc, error: string);
begin
if (not SPS_Continue) then
begin
ShowMessage('SPS: ' + error + ' in ' + proc + #10+#13+#10+#13+
'Please run Simba as an administrator by right clicking and ' + #10+#13+
'choosing "Run as administrator." You may also have to restart ' + #10+#13+
'Simba a few times. ' + #10+#13+#10+#13+'Sorry for the inconvenience.');
TerminateScript();
end;
end;
// Gets the map pieces that appear on the minimap
function SPS_GatherMinimap: T3DIntegerArray;
var
bmp: TMufasaBitmap;
c: TClient;
begin
try
bmp := TMufasaBitmap.Create;
bmp.SetSize(100, 100);
c := getTClient;
bmp.CopyClientToBitmap(
c.IOManager, false, 0,0, MMCX-50, MMCY-50, MMCX+50, MMCY+50
);
Result := SPS_BitmapToMap(bmp);
finally
bmp.free;
except
SPS_DebugStr('[ERROR] in SPS_GatherMinimap: '+ExceptionToString(ExceptionType, ExceptionParam));
SPS_WarnUser('SPS_GatherMinimap', ExceptionToString(ExceptionType, ExceptionParam));
end;
end;
procedure SPS_GetAreaCoords(Area: string; var x, y: integer);
var
p: integer;
begin
p := pos('_', Area);
if (p <= 0) then
// raise an exception if Area is of wrong format
RaiseException(erCustomError, 'Invalid Area passed: ' + area);
x := StrToIntDef(copy(Area, 1, p-1), -1);
y := StrToIntDef(copy(Area, p+1, Length(Area)-p), -1);
SPS_DebugStr(format('[SPS] Area coords (%d, %d)', [x, y]));
end;
// Converts a point from a map piece to a point on the entire map
function SPS_LocalToGlobal(Area: string; x, y: integer): TPoint;
var
cx, cy: integer;
begin
SPS_GetAreaCoords(Area, cx, cy);
Result.x := cx * SPS_Surface.FactorX + x;
Result.y := cy * SPS_Surface.FactorY + y;
end;
// Gets SPS ready to be used (this doesn't have to be called in scripts)
procedure SPS_Load;
var
L, i, timer : integer;
img: TMufasaBitmap;
begin
timer := getSystemTime;
L := Length(SPS_Areas);
if (L <= 0) then
begin
SPS_DebugStr('[SPS] WARNING: SPS_Areas hasn''t been set');
exit;
end;
if (SPS_Surface.Name = '') then
begin
SPS_DebugStr('[SPS] WARNING: SPS_Surface isn''t set! Using Runescape Surface as default');
SPS_Setup(RUNESCAPE_SURFACE, SPS_Areas);
end;
// clean up the old one just in case, we do not want copies in wrong places.
SetLength(SPS_WorldMap, 0);
SetLength(SPS_Worldmap, L);
for i := L-1 downto 0 do
begin
try
img := TMufasaBitmap.Create;
img.LoadFromFile(SPS_Surface.ImagePath + SPS_Areas[i] + SPS_IMG_FMT);
SPS_Worldmap[i] := SPS_BitmapToMap(img);
finally
img.free;
except
SPS_DebugStr('[SPS] ERROR: SPS_Load: '+ExceptionToString(ExceptionType, ExceptionParam));
SPS_WarnUser('SPS_Load', ExceptionToString(ExceptionType, ExceptionParam));
end;
end;
SPS_DebugStr('[SPS] Maps loaded in '+ToStr(getSystemTime - timer)+'ms.');
SPS_Loaded := True;
end;
// Returns the SPS position of the player
function SPS_GetMyPos: TPoint;
var
Minimap: T3DIntegerArray;
t, map, ang: integer;
begin
Result := Point(-1, -1);
if not LoggedIn then
Exit;
if not SPS_Loaded then
SPS_Load;
// we should just rotate the minimap according to the minimap angle.
ang := round(rs_GetCompassAngleDegrees());
SPS_DebugStr('[SPS] Compass Angle: '+toStr(ang));
if (inRange(ang, 10, 350)) then
{$IFDEF SRL5}
ClickNorth(SRL_ANGLE_HIGH);
{$ELSE}
ClickNorth(True);
{$ENDIF}
t := getSystemTime;
Minimap := SPS_GatherMinimap;
if (High(Minimap) < 0) then
begin
SPS_DebugStr('[SPS] Did not gather Minimap.');
Exit;
end;
try
map := SPS_FindMapInMapEx(
Result.X, Result.Y, SPS_Worldmap, Minimap, SPS_Surface.Tolerance
);
if ((Result.X > 0) and (Result.Y > 0)) then
begin
Result := SPS_LocalToGlobal(SPS_Areas[map], Result.X, Result.Y);
end;
SPS_DebugStr(format('[SPS] GetMyPos: Finished in %d ms. Location = %s',
[getSystemTime - t, toStr(result)]));
except
SPS_DebugStr('[SPS] ERROR in SPS_GetMyPos: ' + ExceptionToString(ExceptionType, ExceptionParam));
SPS_WarnUser('SPS_GetMyPos', ExceptionToString(ExceptionType, ExceptionParam));
end;
end;
// Converts an SPS pos to a tile
function SPS_PosToTile(pos: TPoint): TPoint;
begin
result := point(-1, -1);
if (SPS_Surface.TileOffsetX = -1) then
begin
SPS_DebugStr('No conversion available for ' + SPS_Surface.Name);
exit;
end;
result.X := round(SPS_Surface.TileOffsetX + (pos.x / 4));
result.Y := round(SPS_Surface.TileOffsetY - (pos.y / 4));
end;
// Converts a tile to and SPS point, or "pos"
function SPS_TileToPos(tile: TPoint): TPoint;
begin
result := point(-1, -1);
if (SPS_Surface.TileOffsetX = -1) then
begin
SPS_DebugStr('No conversion available for ' + SPS_Surface.Name);
exit;
end;
result.X := round((tile.x - SPS_Surface.TileOffsetX) * 4);
result.Y := round((SPS_Surface.TileOffsetY - tile.y) * 4);
end;
// Converts a tile path to an SPS path
function SPS_TilePathToPos(tiles: TPointArray): TPointArray;
var
i: integer;
begin
setLength(result, length(tiles));
for i := 0 to high(result) do
result[i] := SPS_TileToPos(tiles[i]);
end;
// Finds position P in minimap by checking your own location
function SPS_PosToMM(P: TPoint): TPoint;
var
MyPos: TPoint;
begin
if not LoggedIn then Exit;
Result := Point(-1, -1);
MyPos := SPS_GetMyPos;
if Distance(MyPos.X, MyPos.Y, P.X, P.Y) < 72 then
Result := Point(MMCX + P.X - MyPos.X,
MMCY + P.Y - MyPos.Y);
end;
// Walks to position. If walking paths, please use WalkPath.
function SPS_WalkToPos(P: TPoint): boolean;
var
MM: TPoint;
begin
if not LoggedIn then Exit;
MM := SPS_PosToMM(P);
if (MM.X > 0) then
begin
Mouse(MM.X, MM.Y, 0, 0, True);
if WaitFunc(@IsMoving, 1, 3000 + random(500)) then
while IsMoving do
Flag;
Result := True;
end;
end;
// Returns true if the point "Pt" is on the minimap
function SPS_PosOnMM(Pt: TPoint): Boolean;
var
p: TPoint;
begin
p := SPS_PosToMM(Pt);
Result := rs_OnMinimap(p.x, p.y);
end;
// Walks the path "Path"; always walks to the furthest point possible
function SPS_WalkPath(Path: TPointArray): boolean;
var
I, H, T, D: integer;
P, MM: TPoint;
begin
H := High(Path);
T := GetSystemTime + 20000 + Random(5000);
while (not Result) and (GetSystemTime < T) do
begin
RunEnergy(20);
FindNormalRandoms();
P := SPS_GetMyPos;
for I := H downto 0 do
begin
MM.X := MMCX + Path[I].X - P.X;
MM.Y := MMCY + Path[I].Y - P.Y;
D := Distance(MM.X, MM.Y, MMCX, MMCY);
if (D < 10) then
break
else begin
if (D < 70) then
begin
MouseFlag(MM.X, MM.Y, 0, 0, Integer(I<>H)*15);
T := getSystemTime + 20000 + Random(1000);
Break;
end;
end;
end;
Result := (I = H);
end;
end;
Have you read the entire first post regarding the img?
There is a quote that explains about the picture, that seems to be the common problem
Click on the picture to enlarge it, then right click it to download it.
Move it into the proper folder, and hit F5 to refresh.
Restart Simba and it should work
If this had supported familiar's i would had married it and had it's babies.
Plan on running this to 99' will keep you guys updated :)
Can see how this problem should have any connection to the picture anyway? It seems to be a problem with my sps?
And i cant "download" the picture, i can only "save picture as?"
My account never got stuck and i have been running this script for 48+ hours right now.
Small proggy:
Simba Code:====================================================================
************************ Als LRC Fisher ****************************
====================================================================
You have caught 258 fish. That equals 108 fish per hour!
You have gained 98040 xp. That equals xp per hour!
====================================================================
************************ Als LRC Fisher ****************************
====================================================================
you get banned?Quote:
Originally Posted by allanlin
Would it be possible to have it anti-banning or something while waiting for hp to get back up? It normally logs me out and then doesn't manage to realise that it is logged out. >.<
""Quote:
Originally Posted by N3mo
i start the script it stops and this error shows
[Error] (43:35): Unknown identifier 'MMCX' at line 42
Compiling failed.
could you tell me how to fix it or help me through team viewer please?
Quote:
Originally Posted by N3mo
i start it and it just stands there near bank, then i added the img as it says, and then the bot stops with an error as line 42.
All I can suggest is make sure everything is up to date and if that doesn't work you could try reinstalling Java and Simba from scratch.""
Everything is up to date, i've reinstalled java and simba several times still doesnt work.
I start the scrip (picture is in place), runescpae loads, my account is logged into world 88, the this error comes up.
Error: Exception: Access violation at line 305
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, 4]
Anybody please help.
$5 donation for your help if it works.
Did you copy paste the script og DL it to Simba?Quote:
Originally Posted by N3mo
The most common issues:
Simba SRL / SPS and so on is out of date
-Try to update everything, if not reinstall simba and run updates again
Copy pasted the script into Simba
-Download it instead
The last option could be the picture.
-Remember to left click on the small picture on the first page, when it pops up to the larger version, right click and save it (make sure to check the spelling!)
I had a few problems myself with it since im new to Simba, but doing thoose 3 steps made everything work
Are you using world 88?Quote:
Originally Posted by TehNeonFishy
If not do that, and just wear some basic armour like granite or so..
36 hours not, and i haven't been hit one time
Looks like this script has gotten alot of attention, perhaps on your top post it would be neat to post where it fishes etc, what requirements you need etc.
OMG, Great script running it for 3 hours now.
When I first ran this script and it was still very new, I kept getting killed by the orge deals, but now with the LRC miner and this fisher, It's like the old reflection days down there
Thank you so much for this script, I'll try to get a proggy to you ASAP.
Once again such an amazing script! and i will keep firing these proggy's at you!
http://img189.imageshack.us/img189/6598/awesomexg.png
http://img411.imageshack.us/img411/9171/awesome1.png
Hey Al, just dropping by to let you know that this script is a masterpiece, :) can run for aslong as 6 hours (The Browser Timeout). I have used this bot from 90-95 fishing so far and it is great. It makes an occasional mistake, but then it loops and fixes itself right back up again. Hopefully ill try to get a screenshot of 99 for you, but I may not be around to see, again thank you for this incredible script!
Could someone please explain to me how you're supposed to add the picture correctly? I can't even find Simba/Includes/...
Should be in your "C drive" aka the harddisk, open that by "my computer"Quote:
Originally Posted by Athymy
There's a simba case, and just follow the directions from there on.
If not reinstall simba and make sure you know where it's installed
Just experienced something new:
When there's still fish at fishing spot 1, it runs to fishing spot 2 for no reason?
Eko, I have experianced this aswell. This is really no biggie at all the script still runs fine its probably just a failsafe incase the spot were to dissapear and also to stop you from going inactive and getting auto logged out by Runescape.
Lol i died with 4,2k minerals i dont blame you! just come here to warn the people that to not take all the minerals with you, you might die.
I haven't died once, also if you dont feel safe, bring a ring of life.Quote:
Originally Posted by Bob The Cat
I do feel save but currently not taking more then 2k minerals with me.Quote:
Originally Posted by vengeofw71
E: Still love this script.
SCAR Code:====================================================================
************************ Als LRC Fisher ****************************
====================================================================
You have caught 383 fish. That equals 101 fish per hour!
You have gained 145540 xp. That equals xp per hour!
====================================================================
************************ Als LRC Fisher ****************************
====================================================================
My script just runs to one cavefishing shoal, fishes it until the shoal dissappears, then the bot just stands there. It wont walk to any other cavefish shoals.
Are you starting it at the bank pulley?Quote:
Originally Posted by Cujjoz