hmm so i dont need the speeds after all! kk im add jumper and skulls! might take a sec!
hmm so i dont need the speeds after all! kk im add jumper and skulls! might take a sec!
I will try to answer all Runescape related questions!
Sorry I wasn't paying attention I assumed it would've just added onto the same post like some do, I'll delete it. My apologies.
You're reading what I am doing. Absolutely nothing.
Could someone post the correct code for deaths? i might have screwed mine up. also how do u copy it from villa and paste it into simba without it all going onto one line?
v2 Blood with jumper,skulls,shifter
[/QUOTE]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); BrakeMMouse(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 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); BrakeMMouse(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 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); BrakeMMouse(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(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(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.
v2 death with jumper,skulls,shifter
Not fully tested so don't flame me! Need more colors! would make my life much easier! Time to go to work!Code:program DeathEsswraithExtractor; {$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 := (Round(dist)/7) if (D > 200) then D := RandomRange(180, 200); if (D < 10) then D := RandomRange(4, 7); 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; W := Round(W*1.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; 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.04, 0.58); FindColorsSpiralTolerance(MSCX, MSCY, TPA, 5278586, MSX1, MSY1, MSX2, MSY2, 26); 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(['eath ess', 'iphon De', 'ath essw', 'Siphon Death 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); BrakeMMouse(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 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); BrakeMMouse(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 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); BrakeMMouse(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) > 12000000 then Proggy; 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(FindShifter(x, y))then begin Wait(RandomRange(500, 750)); repeat Wait(100); FindNormalRandoms; Until(not(IsupTextMultiCustom(['Siphon Shifter', 'on Shi', 'Shifter', 'ifter']))); end; if(FindMonster(x, y))then begin Wait(RandomRange(500, 750)); repeat Wait(100); FindNormalRandoms; until(not(IsUpTextMultiCustom(['eath ess', 'iphon De', 'ath essw', 'Siphon Death esswraith']))); 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.
I see this script is very popular![]()
Blood Pool added to the blood version
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); BrakeMMouse(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); BrakeMMouse(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 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); BrakeMMouse(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 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); BrakeMMouse(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(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(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.
kyle, is it alright il steal ur script to try make one that goes for all the nodes too :P
their spawnrate is insane atm
and how do i add support for multiply things?![]()
Time Running: 1 Hours, 59 Minutes and 22 Seconds
Experience Earned: 0
Experience/Hour: 0
Going well but like I said the exp doesnt work for me![]()
Blood skull colors.
![]()
You're reading what I am doing. Absolutely nothing.
this looks like an awesome script, too bad i dont have members and the level required.
@ Riotday, Flight's FindBloodySkull function is working great for meis it not working for u?
O and thanks Rules of Joe for the blood pool!
Currently: Very busy
Future Goals: finish nursing school, RS later.
Loving all the edits and team work going on for this! Keep it up guys!![]()
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.
Nebula colors
![]()
You're reading what I am doing. Absolutely nothing.
all nodes with every skull and nebula i just added everything Blood Version!
Enjoy!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); BrakeMMouse(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); BrakeMMouse(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); BrakeMMouse(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); BrakeMMouse(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); BrakeMMouse(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); BrakeMMouse(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.
Alright I made a 4:30 second video of the script running without the nebula and blood skull update and it will point out what needs fixed etc. One moment.
You're reading what I am doing. Absolutely nothing.
Here is the script working for Soul esswraith´s
Simba Code:program SoulEsswraithExtractor;
{$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, 13478981, MSX1, MSY1, MSX2, MSY2, 25);
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(['oul ess', 'iphon So', 'oul essw', 'Siphon Soul 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);
BrakeMMouse(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);
BrakeMMouse(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 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);
BrakeMMouse(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 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);
BrakeMMouse(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(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(['oul ess', 'iphon So', 'oul essw', 'Siphon Soul esswraith'])));
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.
I would suggest botting it at this spot because there are 2 Soul esswraith´s on a small Island and no others else.
![]()
Last edited by Imanoobbot; 05-02-2012 at 03:15 PM.
I will try to answer all Runescape related questions!
Hope everything works right! =P
Last edited by BigRedJapan; 05-01-2012 at 06:13 PM.
Code:type ColorObject = record Uptexts: TStringArray; Color: Integer; Tolerance: Integer; Hue: Extended; Sat: Extended; Width: Integer; Heigth: Integer; end;Code:Function GetColorObject( name:String ): ColorObject; begin case name of 'Body Esshound': with result do begin Uptexts := ['Body Esshound', 'iphon ess', 'sshound']; Color := 3037545; Tolerance := 12; Hue := 0.09; Sat := 2.59; Width := 20; Heigth := 20; end; end;Code:function FindMonster(var x, y : Integer,obj : ColorObject) : Boolean; var a, h: Integer; TPA : TPointArray; ATPA : T2DPointArray; tmpCTS : Integer; begin if(not(LoggedIn))then Exit; tmpCTS := GetColorToleranceSpeed; ColorToleranceSpeed(2); SetColorSpeed2Modifiers(obj.hue, obj.sat); FindColorsSpiralTolerance(MSCX, MSCY, TPA, obj.Color, MSX1, MSY1, MSX2, MSY2, obj.Tolerance); ATPA := TPAtoATPAEx(TPA, obj.width, obj.heigth); SortATPASize(ATPA,True); H := High(ATPA); for a := 0 to H do begin MiddleTPAEx(atpa[a], X, Y); BrakeMMouse(X, Y, 5, 5); If (WaitUpTextMulti(obj.Uptexts, 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;Some code cleanup would do nice (record for each monster and 1 finder function)Code:then you can do something like this: monsters := ['Body Esshound','fire storm']; for i := 0 in high(monsters) do begin findmonster(x,y,getcolorobject(monsters[i])) ... bla bla end;
edit:codes are not tested:P
Last edited by nokkasiili; 05-01-2012 at 06:21 PM.
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.
Send SMS messages using Simba
Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!
Okay, im having a problem where it will just shut off after like 5 mintues and say successfully executed
Simba Code:program esshoundExtractor;
{$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(['smic ess', 'iphon Co', 'mic essh', 'Siphon Cosmic 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(['smic ess', 'iphon Co', 'mic essh', 'Siphon Cosmic esshound'])));
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.
Same thing happend when i tried the soulwraith one, any help?
This is what the log says:
Time Running: 4 Minutes and 54 Seconds
Experience Earned: 1486
Experience/Hour: 18000
Successfully executed.
Last edited by ne lg; 05-01-2012 at 06:25 PM.
Alright video rendering. Will be up within the hour.
You're reading what I am doing. Absolutely nothing.
kk the reason why it stops after 5 mins is because you need to change a code!
new:
OLD:Code:MMouse(x, y, 5, 5);
i think that should work!Code:BrakeMMouse(x, y, 5, 5);
This are the colors of the "undead soul".
![]()
I will try to answer all Runescape related questions!
There are currently 1 users browsing this thread. (0 members and 1 guests)