http://services.runescape.com/m=rswi...-_The_Runespan
as long as you Autocolor the cyclone, Air, and mind esslings, you can use it.
fill out the record with what ACA gives u, assign a number to it in your constants, and there u go
Currently: Very busy
Future Goals: finish nursing school, RS later.
Alright, I feel this needs looked at. When I am on a Blood Esswraith and blood skulls pop up I hesitate to click them and when I do I switch back to Blood Esswraith. I have blood skulls has my highest object.
You're reading what I am doing. Absolutely nothing.
Simba Code:{$DEFINE SMART}
{$i srl/srl.simba}
var
StartXP, XPH, XP, T : Integer;
procedure DeclarePlayers();
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; // Your RuneScape Account Name
Pass := ''; // Your RuneScape Account Password
Active := True; // Use in the Script. True / False.
end;
end;
(* Credits to Flight *)
procedure BrakeWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, targetArea: extended);
var
veloX,veloY,windX,windY,veloMag,dist,randomDist,lastDist: extended;
lastX,lastY,MSP,W,maxStep,D: integer;
sqrt2,sqrt3,sqrt5: extended;
begin
MSP := MouseSpeed;
sqrt2:= sqrt(2);
sqrt3:= sqrt(3);
sqrt5:= sqrt(5);
repeat
dist:= hypot(xs - xe, ys - ye);
wind:= minE(wind, dist);
D := Random((Round(dist)/3));
if (D > 100) then
D := RandomRange(90, 100);
if (D < 5) then
D := RandomRange(5, 8);
maxStep := D;
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;
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));
W := (Random(100/MSP))*3;
if (W < 5) then
W := 5;
wait(W);
lastdist:= dist;
until(hypot(xs - xe, ys - ye) < 1)
if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
MoveMouse(Round(xe), Round(ye));
MouseSpeed := MSP;
end;
(* Credits to Flight *)
procedure BrakeMMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y: integer;
begin
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
GetMousePos(X, Y);
BrakeWindMouse(X, Y, eX, eY, 9, 5, 10.0 / randSpeed, 15.0 / randSpeed, 10.0 * randSpeed);
end;
function FindMonster(var x, y : Integer) : Boolean;
var
a, h: Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
tmpCTS : Integer;
begin
if(not(LoggedIn))then Exit;
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.26, 1.50);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 14981481, MSX1, MSY1, MSX2, MSY2, 18);
ATPA := TPAtoATPAEx(TPA, 20, 20);
SortATPASize(ATPA,True);
H := High(ATPA);
for a := 0 to H do
begin
MiddleTPAEx(atpa[a], X, Y);
MMouse(X, Y, 5, 5);
If (WaitUpTextMulti(['ir ess', 'iphon A', 'Siphon Air esshound'], 750)) Then
begin
ClickMouse2(True);
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Result:= True;
Exit;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
end;
procedure AntiBan();
begin
if(not(LoggedIn))then Exit;
FindNormalRandoms;
case (Random(350)) of
0 : RandomRClick;
1 : HoverSkill('random', False);
2 : ExamineInv;
3 : MouseSpeed := (RandomRange(10, 12));
4 : begin HoverSkill('Runecrafting', False); Wait(RandomRange(2000, 4000)); end;
5 : begin PickUpMouse; SleepAndMoveMouse(1500 + Random(500)); end;
6 : begin GameTab(tab_Stats); Wait(1500 + Random(500)); GameTab(tab_Inv); end;
7 .. 14 : HoverSkill('Runecrafting', False);
15 .. 40 : Wait(RandomRange(750, 2000));
41: begin BoredHuman; SetAngle(SRL_ANGLE_HIGH); end;
end;
end;
procedure Proggy;
begin
ClearDebug();
XP := (GetXPBarTotal - StartXP);
XPH:= Round(((XP) / (GetTimeRunning / 1000)) * 3600);
Writeln('Time Running: ' + TimeRunning);
Writeln('Experience Earned: ' + IntToStr(XP));
Writeln('Experience/Hour: ' + IntToStr(XPH));
MarkTime(T);
end;
procedure MainLoop();
var
x, y : Integer;
begin
repeat
if TimeFromMark(T) > 120000 then
Proggy;
if(FindMonster(x, y))then
begin
Wait(RandomRange(500, 750));
repeat
Wait(100);
FindNormalRandoms;
until(not(IsUpTextMultiCustom(['ir ess', 'iphon A', 'Siphon Air esshound'])));
end;
FindNormalRandoms;
AntiBan();
until(not(LoggedIn));
end;
begin
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;
SetupSRL();
ActivateClient();
DeclarePlayers();
LoginPlayer();
SmartSetGraphics(False);
SmartSetGraphics(False);
while(not(RSReady()))do
Wait(9000);
StartXP := GetXPBarTotal;
MarkTime(T);
SetAngle(SRL_ANGLE_HIGH);
MainLoop();
end.
I have no knowledge either, but that should work hopefully - It's what i'm using for Nature esshound's, but i've switched in Air. That's all kyle's work - I just switched in esshound values.
Last edited by Solitude; 05-01-2012 at 11:41 PM.
ACA can be downloaded on the site. http://villavu.com/forum/showthread.php?t=26944 Here ya go.
You're reading what I am doing. Absolutely nothing.
why does it just sit there hoovering over my stats instead of attacking?
To add a critter to the script:
Download ACA and read a Tutorial on how to use it, I advise YoHoJo's here
After you find some unique colors for the object, put them here, you should only change where it is ALL CAPS:
Simba Code:with Objects[objPUTYOUROBJECTNAMEHERE] do
begin
Name := 'OBJECTNAME';
UpText := ['ody', 'ody ess', 'Body', 'Siphon Body']; // This is the text in the upper left hand corner. every quote is text the script will look for. separate them with commas.
Color := COLORHERE;//This is the color found by ACA on the left side.
Tol := TOLERANCE;//Right under the color on ACA
Hue := HUE;//Hue and Sat are found on ACA next to color
Sat := SATURATION;
LvlReq := WHICHLVL; //when can you use it
end;
Place that Record(thats what it is) in the GetObject section of the script and changeto how ever many objects you have in there.SetLength(Objects, 11); //Change the 11 to whatever.
Next,
Where it says constants, put "obj" followed by your object name. like this:
Your doneobjOBJECTHERE = NUMBERHERE;
Currently: Very busy
Future Goals: finish nursing school, RS later.
my longest proggie on deaths:
Time Running: 3 Hours, 15 Minutes and 33 Seconds
Experience Earned: 97789
Experience/Hour: 28800
All you have to do is add a const at the top, with the next number that's logical. Then, follow the SetupObjects procedure and copy one of the object setups, and change it to your need! That is it! Script takes care of the rest
I don't understand, can someone show an example?
Quite easily achieving 60k xp/h here. Thanks a lot for this, Doubt I'll be using it much though.
Amazing script!!!!
Wow what an explosion on this script, Awesome job kyle and the rest of you guys !!!!!!
This script is def pushed me over the edge to actually get my ass in gear to learn more.
Mind if i use some of the code to make my own personal script?
To Do List!
Reach 100 posts.
Learn Basic Scripting
Make First Script.
Make Flawless Public Script
Progress Report:Time Running: 55 Minutes and 51 Seconds Experience Earned: 51234 Experience/Hour: 54000
Soul Esswraiths
Last edited by Hazzah; 05-02-2012 at 02:28 AM.
In Free to Play (Body Esshounds)
Progress Report:Time Running: 3 Hours, 13 Minutes and 23 Seconds Experience Earned: 91507 Experience/Hour: 25200
Still running.
Simba Code:const
{* Object Constants *}
objUndeadSoul = 0;
objLivingSoul = 1;
objSoulWraith = 2;
objBloodySkulls = 3;
objBloodPool = 4;
objBloodWraith = 5;
objSkulls = 6;
objDeathWraith = 7;
objJumper = 8;
objShifter = 9;
objNebula = 10;
objEssHound = 11; //here
//in setupobjects ...
SetLength(Objects, 12); //change this to the number of objects you're using
//add this object
with Objects[objEssHound] do
begin
Name := 'Esshound';
UpText := ['aw ess', 'iphon L', 'Siphon Law esshound'];
Color := 14981481;
Tol := 18;
Hue := 0.26;
Sat := 1.50;
LvlReq := 54;
end;
My guy just sits there checking his rc experience over and over haha. I broke physics. D:
deaths
Time Running: 5 Hours, 55 Minutes and 33 Seconds
Experience Earned: 181789
Experience/Hour: 28800
nvm got it to work
Last edited by wakka165; 05-02-2012 at 04:12 AM.
92, and it has been fairly consistent, this is the same run.
Progress Report:Time Running: 2 Hours, 33 Minutes and 17 Seconds Experience Earned: 138304 Experience/Hour: 54000
Botting is almost never as efficient as legit, but 54k xp/hr I can deal with. Would LOVE LOVE LOVE to see SPS maps made for the area (I would be interested in learning how to do it, but don't have time at the moment). SPS maps would make finding the wizard in the yellow robe a little easier I think, or perhaps it can be done with radial walking, who knows though, maybe Flight will be able to get it down to an almost perfect.
Last edited by Hazzah; 05-02-2012 at 04:15 AM.
^ It's basically a free 54k xp/hr. Can't complain.
EDIT: I feel comfortable enough to run this overnight. Anyone going to talk me out of it? :P
Last edited by b_lone; 05-02-2012 at 04:40 AM.
Just as a heads-up, I got a molly's twin random, which made me log-out, and when I got back it had transferred my runes to points (trapping me on an island).
I can house port, but still :/
Currently: Very busy
Future Goals: finish nursing school, RS later.
There are currently 1 users browsing this thread. (0 members and 1 guests)