Mine was doing that too.. try restarting your simba mine been running for a half hour now, its sad to see how fast this is going to get abused lol oh well
Can you add f2p options..? :L
Im sure f2p will be updated shortly this is an extremly easy minigame to code and bot so it shouldnt take too long
This should work longer than 5 minutes.
Code:program BloodEsswraithExtractor; {$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.12, 0.72); FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6263962, MSX1, MSY1, MSX2, MSY2, 15); 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(['lood ess', 'iphon Bl', 'ood essw', 'Siphon Blood esswraith'], 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; function FindJumper(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.02, 1.70); FindColorsSpiralTolerance(MSCX, MSCY, TPA, 16624975, MSX1, MSY1, MSX2, MSY2, 7); 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(['Siphon Jumper', 'on Jum', 'Jumper', 'mper'], 750)) Then begin ClickMouse2(True); ColorToleranceSpeed(tmpCTS); SetColorSpeed2Modifiers(0.2, 0.2); Result:= True; break; end; end; ColorToleranceSpeed(tmpCTS); SetColorSpeed2Modifiers(0.2, 0.2); if Result then begin repeat Wait(100); FindNormalRandoms; until(not(IsUpTextMultiCustom(['Siphon Jumper', 'on Jum', 'Jumper', 'mper']))); end; end; function FindBloodPool(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.02, 1.70); FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1252488, MSX1, MSY1, MSX2, MSY2, 7); 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(['Siphon Blood Pool', 'on blo', 'blood', 'od poo'], 750)) Then begin ClickMouse2(True); ColorToleranceSpeed(tmpCTS); SetColorSpeed2Modifiers(0.2, 0.2); Result:= True; break; end; end; ColorToleranceSpeed(tmpCTS); SetColorSpeed2Modifiers(0.2, 0.2); if Result then begin repeat Wait(100); FindNormalRandoms; until(not(IsUpTextMultiCustom(['Siphon Blood Pool', 'on blo', 'blood', 'od poo']))); end; end; function FindNebula(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.54, 1.05); FindColorsSpiralTolerance(MSCX, MSCY, TPA, 11951253, MSX1, MSY1, MSX2, MSY2, 7); 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(['Siphon Nebula', 'on Neb', 'Nebula', 'bula'], 750)) Then begin ClickMouse2(True); ColorToleranceSpeed(tmpCTS); SetColorSpeed2Modifiers(0.2, 0.2); Result:= True; break; end; end; ColorToleranceSpeed(tmpCTS); SetColorSpeed2Modifiers(0.2, 0.2); if Result then begin repeat Wait(100); FindNormalRandoms; until(not(IsUpTextMultiCustom(['Siphon Nebula', 'on Neb', 'Nebula', 'bula']))); end; end; function FindSkulls(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.02, 1.70); FindColorsSpiralTolerance(MSCX, MSCY, TPA, 9748431, MSX1, MSY1, MSX2, MSY2, 7); 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(['Siphon Skulls', 'on Sku', 'Skulls', 'ulls'], 750)) Then begin ClickMouse2(True); ColorToleranceSpeed(tmpCTS); SetColorSpeed2Modifiers(0.2, 0.2); Result:= True; break; end; end; ColorToleranceSpeed(tmpCTS); SetColorSpeed2Modifiers(0.2, 0.2); if Result then begin repeat Wait(100); FindNormalRandoms; until(not(IsUpTextMultiCustom(['Siphon Skulls', 'on Sku', 'Skulls', 'ulls']))); end; end; function FindBloodySkulls(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.15, 1.52); FindColorsSpiralTolerance(MSCX, MSCY, TPA, 396358, MSX1, MSY1, MSX2, MSY2, 2); 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(['Bloody', 'skulls', 'oody', 'kulls'], 750)) Then begin ClickMouse2(True); ColorToleranceSpeed(tmpCTS); SetColorSpeed2Modifiers(0.2, 0.2); Result:= True; break; end; end; ColorToleranceSpeed(tmpCTS); SetColorSpeed2Modifiers(0.2, 0.2); if Result then begin repeat Wait(100); FindNormalRandoms; until(not(IsUpTextMultiCustom(['Bloody', 'skulls', 'oody', 'kulls']))); end; end; function FindShifter(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.02, 1.70); FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1830421, MSX1, MSY1, MSX2, MSY2, 7); 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(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'], 750)) Then begin ClickMouse2(True); ColorToleranceSpeed(tmpCTS); SetColorSpeed2Modifiers(0.2, 0.2); Result:= True; break; end; end; ColorToleranceSpeed(tmpCTS); SetColorSpeed2Modifiers(0.2, 0.2); if Result then begin repeat Wait(100); FindNormalRandoms; until(not(IsUpTextMultiCustom(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter']))); end; 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(FindBloodySkulls(x, y))then begin Wait(RandomRange(500, 750)); repeat Wait(100); FindNormalRandoms; Until(not(IsupTextMultiCustom(['Bloody', 'skulls', 'oody', 'kulls']))); end; if(FindBloodPool(x, y))then begin Wait(RandomRange(500, 750)); repeat Wait(100); FindNormalRandoms; Until(not(IsupTextMultiCustom(['Siphon Blood Pool', 'on blo', 'blood', 'od poo']))); end; if(FindSkulls(x, y))then begin Wait(RandomRange(500, 750)); repeat Wait(100); FindNormalRandoms; Until(not(IsupTextMultiCustom(['Siphon Skulls', 'on Sku', 'Skulls', 'ulls']))); end; if(FindJumper(x, y))then begin wait(RandomRange(500, 750)); repeat Wait(100); FindNormalRandoms; Until(not(IsupTextMultiCustom(['Siphon Jumper', 'on Jum', 'Jumper', 'mper']))); end; if(FindMonster(x, y))then begin Wait(RandomRange(500, 750)); repeat Wait(100); FindNormalRandoms; until(not(IsUpTextMultiCustom(['lood ess', 'iphon Bl', 'ood essw', 'Siphon Blood esswraith']))); end; if(FindNebula(x, y))then begin Wait(RandomRange(500, 750)); repeat Wait(100); FindNormalRandoms; Until(not(IsupTextMultiCustom(['Siphon Nebula', 'on Neb', 'Nebula', 'bula']))); end; if(FindShifter(x, y))then begin Wait(RandomRange(500, 750)); repeat Wait(100); FindNormalRandoms; Until(not(IsupTextMultiCustom(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter']))); end; FindNormalRandoms; AntiBan(); until(not(LoggedIn)); end; begin Smart_Server := 10; Smart_Members := True; Smart_Signed := True; SetupSRL(); ActivateClient(); DeclarePlayers(); LoginPlayer(); while(not(RSReady()))do Wait(9000); StartXP := GetXPBarTotal; MarkTime(T); SetAngle(SRL_ANGLE_HIGH); MainLoop(); end.
You're reading what I am doing. Absolutely nothing.
What RC level do you need for this sorry?
Im 50 RC would I be able to use this script.
Im blown away by all of the editing everyone is doing for this script great learning and practicing script it seems
you can start this minigame at lvl 1 the higher your rc is the better exp and runes u can make inside
Here's a progress report.
You're reading what I am doing. Absolutely nothing.
next step is adding records right?
Currently: Very busy
Future Goals: finish nursing school, RS later.
Doing that now![]()
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.
Alright, i restarded simba and this time it ran for 20 minutes before saying succesfully executed.
Any ideas?
Time Running: 19 Minutes and 1 Seconds
Experience Earned: 22874252
Experience/Hour: 72169200
Successfully executed.
if only.......![]()
HUGE update! Please read the first post!Thank you all!
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.
Hey, first post here on this forum, and first time really using any of these scripts.
An issue I've noticed as of now with the updated script is that, on the account I'm running it on, I only have 80 runecrafting, however it keeps attempting to siphon the bloody skulls which require 83 runecrafting. It only attempts this right after the blood wraith dies. I simply commented out the part about bloody skulls on the script for my personal use, as I am very inexperienced with Simba and don't know how to check my own runecrafting level and compare it to 83. Just a possible fix that you could include in the future![]()
I'm attempting to add a LvlReq field to the records to deal with this, anybody else got any better ideas?
Currently: Very busy
Future Goals: finish nursing school, RS later.
You set it to 0 if you don't want to use it correct?
{* Object Constants *}
objBloodWraith = 1;
objDeathWraith = 0;
objSoulWraith = 0;
objJumper = 2;
objBloodPool = 3;
objNebula = 4;
objSkulls = 5;
objBloodySkulls = 6;
objShifter = 7;
You're reading what I am doing. Absolutely nothing.
That's what I would do, just haven't done it yet
That works, a future update will fix this.
No, as of now it searches for all of those. I could add a flag to the record so a object could be turned off from being searched.
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.
That could work man. Because I'm not 90 as of yet :P
You're reading what I am doing. Absolutely nothing.
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.
Constants reworked:
Simba Code:const
{* Object Constants *}
objUndeadSoul = 0;
objLivingSoul = 1;
objSoulWraith = 2;
objBloodySkulls = 3; //ggaah can't get um strait on here I swear they are on mine :0(
objBloodPool = 4;
objBloodWraith = 5;
objSkulls = 6;
objDeathWraith = 7;
objJumper = 8;
objShifter = 9;
objNebula = 10;
Records:
Simba Code:procedure SetupObjects();
begin
SetLength(Objects, 11);
with Objects[objUndeadSoul] do
begin
Name := 'Undead Soul';
UpText := ['ndead', 'oul', 'ndead So', 'd Soul'];
Color := 10979231;
Tol := 4;
Hue := 0.48;
Sat := 0.61;
LvlReq := 95;
end;
with Objects[objSoulWraith] do
begin
Name := 'Soul esswraith';
UpText := ['oul ess', 'iphon So', 'oul essw', 'Siphon Soul esswraith'];
Color := 6251056;
Tol := 24;
Hue := 0.25;
Sat := 1.01;
LvlReq := 90;
end;
with Objects[objLivingSoul] do
begin
Name := 'Living Soul';
UpText := ['Siphon Living', 'on Liv', 'iving', 'oul'];
Color := 12867973;
Tol := 9;
Hue := 0.51;
Sat := 0.99;
LvlReq := 90;
end;
with Objects[objBloodySkulls] do
begin
Name := 'Bloody Skulls';
UpText := ['Bloody', 'skulls', 'oody', 'kulls'];
Color := 396358;
Tol := 2;
Hue := 0.15;
Sat := 1.52;
LvlReq := 83;
end;
with Objects[objBloodWraith] do
begin
Name := 'Blood esswraith';
UpText := ['lood ess', 'iphon Bl', 'ood essw', 'Siphon Blood esswraith'];
Color := 6263962;
Tol := 15;
Hue := 0.12;
Sat := 0.72;
LvlReq := 77;
end;
with Objects[objBloodPool] do
begin
Name := 'Blood Pool';
UpText := ['Siphon Blood Pool', 'on blo', 'blood', 'od poo'];
Color := 1252488;
Tol := 7;
Hue := 0.02;
Sat := 1.70;
LvlReq := 77;
end;
with Objects[objDeathWraith] do
begin
Name := 'Death esswraith';
UpText := ['eath ess', 'iphon De', 'ath essw', 'Siphon Death esswraith'];
Color := 5278586;
Tol := 26;
Hue := 0.04;
Sat := 0.58;
LvlReq := 65;
end;
with Objects[objSkulls] do
begin
Name := 'Skulls';
UpText := ['Siphon Skulls', 'on Sku', 'Skulls', 'ulls'];
Color := 9748431;
Tol := 7;
Hue := 0.02;
Sat := 1.70;
LvlReq := 65;
end;
with Objects[objJumper] do
begin
Name := 'Jumper';
UpText := ['Siphon Jumper', 'on Jum', 'Jumper', 'mper'];
Color := 16624975;
Tol := 7;
Hue := 0.02;
Sat := 1.70;
LvlReq := 54;
end;
with Objects[objShifter] do
begin
Name := 'Shifter';
UpText := ['Siphon Shifter', 'on Shi', 'Shifter', 'ifter'];
Color := 1830421;
Tol := 7;
Hue := 0.02;
Sat := 1.70;
LvlReq := 44;
end;
with Objects[objNebula] do
begin
Name := 'Nebula';
UpText := ['Siphon Nebula', 'on Neb', 'Nebula', 'bula'];
Color := 11951253;
Tol := 7;
Hue := 0.54;
Sat := 1.05;
LvlReq := 40;
end;
end;
there u go! o and I ordered the nodes from best xp to worst so it searches from undeadSoul -> Nebula. Also it would be nice if there was an option to make it not find nodes 30 levels under you (for points).
Last edited by JN13; 05-01-2012 at 08:59 PM.
Currently: Very busy
Future Goals: finish nursing school, RS later.
working on adding more angles it finds the thing but its nonhuman like its blocked by a wall but still clicks probably make it click face north and camera angle high.
Kyle
F2p option pleeaseee?<3
There are currently 1 users browsing this thread. (0 members and 1 guests)