Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
{ MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }
When posting a bug, please post debug! Help us, help you!
I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.
SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.
Make a Advanced Gnome Agility Course it's much needed!!!
Or a flawless master farmer thiever would be epic too!
Currently Working on: Runite Miner W/ World Hop (Fally) 80% complete
Next: Advanced Gnome Agility Course!
monkey knife fighter!or msi
you can buy me, my work, my goals, even you can buy my spirit, but Theres something youll never buy. my indomitable thirst of life.
I havea semi working advanced agility runner. Ill work on it more and release soon. As for an idea, some quest runners(f2p), msi, anti random.
don't release this but apparently using color to detect the ball floating around a frost dragon. That's the hardest thing i can think of.
2 words. Counting is key. Alright now that you've read the joke, I vote for an LRC Roctail fisher. I'm 99 fishing but broke as heck.
It's not brainfreeze. It's Flavo-Masochism.
I have never seen a Pyramid Plunder script come from SRL. Fastest Thieving XP in the game, as far as I know. Next to that monkey thing.
"Failure is the opportunity to begin again more intelligently" (Henry Ford)
jadinko hunter. Dont make me make my own.
Nearly maxed, woowweee.
release the fungus!
Did someone say GDK?
Sin why not make a experiment killer that runs to npc by yellow dot on the map and uses B2P i will love you long time![]()
(\__/)
( O.o )This is Bunny.
( > < )Copy Bunny into your signature to help him on his way to world domination.
Experiments -
Simba Code:program new;
{$include srl/srl/misc/smart.simba}
{$I SRL/SRL.simba}
{$I srl/srl/misc/debug.simba}
{$I sps/sps.simba}
{$Include SRL/SRL/skill/fighting.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True;
Players[0].Pin := '';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players
procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 87;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
end;
function FindNearestNPC(var x,y:Integer;Click:Boolean):Boolean;
var
NPC:TPoint;
begin
if FindColorSpiralTolerance(NPC.x,NPC.y,65536,558,6,690,153,4) then
begin
Result := True;
if Click = True then
Mouse(NPC.x,NPC.y,1,1,True);
end;
end;
function FindSheep(var fx, fy: Integer): Boolean;
var
arP, arAP: TPointArray;
arC, arUC: TIntegerArray;
ararP: T2DPointArray;
tmpCTS, i, j, arL, arL2: Integer;
P: TPoint;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.02, 1.58);
if not(FindColorsTolerance(arP, 6868413, MSX1, MSY1, MSX2, MSY2, 25)) then
begin
Writeln('Failed to find the color, no object found.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
arUC := arC;
ClearSameIntegers(arUC);
arL := High(arUC);
arL2 := High(arC);
for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 16.08) and (X <= 73.37) and (Y >= 18.80) and (Y <= 85.97) and (Z >= 10.95) and (Z <= 48.33) then
begin
for j := 0 to arL2 do
begin
if (arUC[i] = arC[j]) then
begin
SetLength(arAP, Length(arAP) + 1);
arAP[High(arAP)] := arP[j];
end;
end;
end;
end;
SortTPAFrom(arAP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arAP, 10, 10);
arL := High(ararP);
for i := 0 to arL do
begin
if (Length(ararP[i]) < 10) then Continue;
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
Wait(100 + Random(100));
if (WaitUptext('ttack',750)) then
begin;
Result := True;
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
begin
Writeln('FindObject could not find object.');
Exit;
end;
GetMousePos(fx, fy);
end;
function FindSpider(var fx, fy: Integer): Boolean;
var
arP, arAP: TPointArray;
arC, arUC: TIntegerArray;
ararP: T2DPointArray;
tmpCTS, i, j, arL, arL2: Integer;
P: TPoint;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.35, 2.63);
if not(FindColorsTolerance(arP, 2047561, MSX1, MSY1, MSX2, MSY2, 8)) then
begin
Writeln('Failed to find the color, no object found.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
arUC := arC;
ClearSameIntegers(arUC);
arL := High(arUC);
arL2 := High(arC);
for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 2.52) and (X <= 6.12) and (Y >= 2.60) and (Y <= 6.30) and (Z >= 1.51) and (Z <= 3.49) then
begin
for j := 0 to arL2 do
begin
if (arUC[i] = arC[j]) then
begin
SetLength(arAP, Length(arAP) + 1);
arAP[High(arAP)] := arP[j];
end;
end;
end;
end;
SortTPAFrom(arAP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arAP, 15, 15);
arL := High(ararP);
for i := 0 to arL do
begin
if (Length(ararP[i]) < 10) then Continue;
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
Wait(100 + Random(100));
if (IsUpText('ttack')) then
begin;
Result := True;
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
begin
Writeln('FindObject could not find object.');
Exit;
end;
GetMousePos(fx, fy);
end;
function FindWolf(var fx, fy: Integer): Boolean;
var
arP, arAP: TPointArray;
arC, arUC: TIntegerArray;
ararP: T2DPointArray;
tmpCTS, i, j, arL, arL2: Integer;
P: TPoint;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.24, 0.07);
if not(FindColorsTolerance(arP, 6052190, MSX1, MSY1, MSX2, MSY2, 12)) then
begin
Writeln('Failed to find the color, no object found.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
arUC := arC;
ClearSameIntegers(arUC);
arL := High(arUC);
arL2 := High(arC);
for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 6.87) and (X <= 14.21) and (Y >= 7.02) and (Y <= 14.52) and (Z >= 7.81) and (Z <= 16.25) then
begin
for j := 0 to arL2 do
begin
if (arUC[i] = arC[j]) then
begin
SetLength(arAP, Length(arAP) + 1);
arAP[High(arAP)] := arP[j];
end;
end;
end;
end;
SortTPAFrom(arAP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arAP, 10, 10);
arL := High(ararP);
for i := 0 to arL do
begin
if (Length(ararP[i]) < 10) then Continue;
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
Wait(100 + Random(100));
if (IsUpText('ttack')) then
begin;
Result := True;
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
begin
Writeln('FindObject could not find object.');
Exit;
end;
GetMousePos(fx, fy);
end;
function WalkBack:boolean;
var
x,y,DTM:Integer;
aFound:Extended;
begin
Result := True;
end;
procedure Attack;
var
x,y,t:Integer;
begin
if FindSheep(x,y) or FindSpider(x,y) or FindWolf(x,y) then
begin
Mouse(x,y,1,1,False);
WaitOption('ttack',750);
MarkTime(t);
repeat
wait(10);
if TimeFromMark(t) > 5000 then
exit;
until(InFight);
while InFight do
begin
wait(10);
end;
end else
begin
FindNearestNPC(x,y,True);
FFlag(1);
wait(750);
end;
if not InFight then
exit;
end;
begin
ClearDebug;
SetupLogin;
DeclarePlayers;
LoginPlayer;
MouseSpeed := RandomRange(22,25);
repeat
Attack;
until(Not LoggedIn);
end.
You could make functions/procedures for the xp counters.
One that tells you what stat whichever counter is, and one that will change whichever counter to a specific stat![]()
Simple dungeon script that does one floornot impossible
something that helps legit players not the gold farmers. E.g. castle wars bot, mobilizing armies, Fog(potential for abuse), or like the previous poster said, something like a dungeoneering skilling bot
A summoning script that banks at castle wars and teleports with spirit kyatt to the obelisk.
Sin make a script that repeatedly does the Troll Invasion(easy 20 wave) mini game. I dunno if thats a challenge or not.
How about an easy script that stuns the Monk of Zamorak at Varrock Castle and has support for all stun spells.
stunalcher would be legit.
E: Weekend is almost over hurryyyyyy.
CASTLE WARSS!!!!I wants my halo XD
Ski-U-Mah
There are currently 1 users browsing this thread. (0 members and 1 guests)