[XoL]
2012-01-05 23:20:30
How Long have You Played Runescape?
10 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
VB, A little XNA/C#, Simba.
Are you a member of any other communities?
My RS Clan (I am leader)
Zybez (Was Moderator; quit)
Official Middleman (With colored rank at PB; VERY long time ago)
Moderator at Powerbot (Before corruption, very short time; quit due to school work)
Official Blogger at RsBots.net (I retired)
My Last community was RsBuddy; member.
SRL! wooo (I will stay here for the long run, I have never imagined a community like this existed :P I love it.)
Tell us about yourself…
Please show us one (or multiple) of your scripts.
Alright, thanks :)
10 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
VB, A little XNA/C#, Simba.
Are you a member of any other communities?
My RS Clan (I am leader)
Zybez (Was Moderator; quit)
Official Middleman (With colored rank at PB; VERY long time ago)
Moderator at Powerbot (Before corruption, very short time; quit due to school work)
Official Blogger at RsBots.net (I retired)
My Last community was RsBuddy; member.
SRL! wooo (I will stay here for the long run, I have never imagined a community like this existed :P I love it.)
Tell us about yourself…
From: R4nd0m
I am R4nd0m; Joshua.
I am born and brought up in a suburb of Chicago. I play basketball and do quite a bit of running in my free time. I enjoy anything computer related: Web Design, Gaming, and I have taken quite a liking to scripting. My favorite thing to do on the web would be helping others (Yeah, weird I know!) but I can't think of something that makes me feel better than helping whether it be Guides/Tutorials/even just simple Q/A.
I have played Runescape since 2002 (10th year this year!). I joined runescape with little computer knowledge, throughout the years I eventually went rouge and joined Botting communities. This was a great learning experience. I was then able to climb the ranks at many botting communities; increasing my people skills, while also helping me become a better communicator.
For scripting section below:
Here is where my application falls short! My scripting isn't fantastic; I am sure most of you know that already though. I was just told by a regular member (begginer) to apply for SRL Members (So I went "alright whats there to lose!")
I took that "test to see if you qualify for SRL members", got an 89% :P. (Its pretty dated I think).
I am just going to post all my scripts (Even the ones from my "Pure: Simba; thread". (Best to worst)
http://villavu.com/forum/showthread.php?t=68721
http://villavu.com/forum/showthread.php?t=70369
http://villavu.com/forum/showthread.php?t=71015
Please show us one (or multiple) of your scripts.
[simba]
program R4_ManThief;
{$i srl/srl/misc/smart.scar}
{$i srl/srl.scar}
{$i sps/sps.simba}
{$i SRL/SRL/Misc/stats.simba}
{$i SRL/SRL/misc/paintsmart.scar}
//{$i VVForm.simba}
{Welcome to R4nd0m's Man Thief, this script steals from men/women giving
you coins and XP!.
Features:
Death Walk
Anti-Ban/Anti-Random
Eating (50%-) Any food (Just keep in inventory)
SRL Stats
An Interesting Paint/Painted Mouse
Human like Mouse moments (Thanks Flight)
Progress Reports}
Var
man, Location, TimeLast, x, y :Integer;
Lumbridge, Stairs: TPoint;
WalkHome: TPointArray;
CStatus: String;
Const
Version = 3; //Please do not change.
//SRL info HERE!
SRLStats_Username = '';
SRLStats_Password = '';
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; // This is the player to start with
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // 3-4 lowercase letters from username;
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;
Procedure CheckStats;
begin
if ((SRLStats_Username = '') And (SRLStats_Password = '')) then
begin
SetupSRLStats(201,'Anonymous','anon1337');
Exit;
end;
end;
procedure ClearSmartCanvas;
{$IFDEF SMART}
var
drawing : TBitmap;
begin
drawing := TBitmap.Create;
drawing.canvas.handle := SmartGetDebugDC;
ClearRSCanvas(drawing.canvas);
try
FreeBitmap(drawing);
except
end;
{$ELSE}
begin
{$ENDIF}
end;
Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
var
mx, my, Pic, I, B, H, TPH, Numb: Integer;
TTP: TPointArray;
Canvas: TCanvas;
begin
SmartSetDebug(True);
GetClientDimensions(mx, my);
Pic := BitmapFromString(mx, my, '');
TPH := High(TP);
for I := 0 to TPH do
begin
TTP := LoadTextTPA(TP[i], SmallChars, H);
for B := 0 to High(TTP) do
begin
Numb := ((I + 1) * 13);
FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
end;
end;
Canvas := TCANVAS.Create;
Canvas.Handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
FreeBitmap(Pic);
end;
Procedure Painting;
begin
PrintOnSmart(['R4_ManThief','-----------', 'Status:', CStatus],
Point(40, 50),60928);
end;
procedure ProgressReport;
begin
ClearDebug;
WriteLn('[R4nd0m] ManThief');
WriteLn('===================================================');
WriteLn('===================================================');
WriteLn('Running for: ' + TimeRunning);
WriteLn('Times PickPocketed: ' + IntToStr(man));
Writeln('XP gained:'+ IntToStr(man*8));
WriteLn('===================================================');
WriteLn('===================================================');
end;
//By Benland100, modified to paint mouse movements
procedure WindMouse2(xs, ys, xe, ye, gravity, wind, minWait, maxWait, maxStep, targetArea: extended);
var
veloX, veloY, windX, windY, veloMag, dist, randomDist, lastDist, step: extended;
lastX, lastY: integer;
sqrt2, sqrt3, sqrt5: extended;
begin
sqrt2:= sqrt(2);
sqrt3:= sqrt(3);
sqrt5:= sqrt(5);
while hypot(xs - xe, ys - ye) > 1 do
begin
dist:= hypot(xs - xe, ys - ye);
wind:= minE(wind, dist);
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;
if (maxStep < 3) then
begin
maxStep:= random(3) + 3.0;
end else
begin
maxStep:= maxStep / sqrt5;
end;
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));
step:= hypot(xs - lastX, ys - lastY);
wait(round((maxWait - minWait) * (step / maxStep) + minWait));
lastdist:= dist;
SMART_DrawDotsEx(False, [Point(lastX, lastY)], 65280);
end;
if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
MoveMouse(Round(xe), Round(ye));
end;
{*******************************************************************************
Procedure HumanMMouse(eX, eY: Integer);
By: Flight
Description: Human-like miss-and-correct mouse movement
*******************************************************************************}
Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y,X2,Y2,A,Dist,MP: integer;
begin
A := MouseSpeed;
GetMousePos(X, Y);
Dist := Distance(X, Y, eX, eY);
MP := Round(Dist/150);
if MP < 0 then
MP := 1;
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
X2 := RandomRange(eX-(A*MP), eX+(A*MP));
Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
WindMouse2(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
GetMousePos(X, Y);
MMouse(eX, eY, ranX, ranY);
MouseSpeed := A;
ClearSmartCanvas;
end;
procedure Antiban;
begin
CStatus := 'AntiBan working'
Painting;
case Random(60) of
20: HoverSkill('Thieving', False);
30: PickUpMouse;
40: RandomMovement;
50: BoredHuman;
59: ExamineInv;
end;
Writeln('Antiban in action!');
end;
procedure AntiRandom;
begin
CStatus := 'Checking for randoms'
Painting;
FindNormalRandoms;
LampSkill := 'thieving';
LevelUp;
Writeln('Checking for randoms');
end;
procedure HpCheck; //Thanks Narcle, used your script to learn how to do this
var
a, t, b, x, y:Integer;
begin
CStatus := 'Checking Health/Eating'
Painting;
if (HPPercent < 50) and LoggedIn then
begin
if not InvEmpty then
for a := 0 to 2 do
for b := 1 to 28 do
if ExistsItem(b) then
begin
MMouseItem(b);
GetMousePos(x, y);
if WaitUptext('Eat', 400) then
begin
Mouse(x,y,0,0,false);
if WaitOption('Eat', 400) then
begin
t := GetSystemTime;
while ExistsItem(b) and ((GetSystemTime-t) < 2000) do
wait(20);
if (HPPercent > 70) then
Exit;
end;
end;
end;
if (not LoggedIn) or (HPPercent > 50) then
Exit;
end;
end;
Procedure Climb;
begin
Wait(RandomRange(200, 700));
FindObjCustom(x, y, ['tairs'], [4083549, 4215135, 4017499], 10);
Mouse(x, y, 5, 5, false);
ChooseOption('limb');
end;
Procedure Door;
begin
WriteLn('Upstairs!');
Wait(RandomRange(200, 700));
FindObjCustom(x, y, ['oor'], [3555142, 3291713, 3686729], 10);
Mouse(x, y, 5, 5, false);
ChooseOption('pen');
end;
Procedure WalkToHouse;
begin
CStatus := 'Walking...'
Painting;
Antirandom;
HumanMMouse(X, Y, 5, 5);
WalkHome := [Point(4725, 3785), Point(4755, 3740),
Point(4705, 3710), Point(4645, 3675)];
If(SPS_WalkPath(WalkHome)) then
WriteLn('At Stairs');
Climb;
Door;
end;
function Live: Boolean;
begin
CStatus := 'Are we alive?'
Painting;
Result := False;
if FindTextTPA(0, 0, MCX1, MCY1, MCX2, MCY2, 'dear', SmallChars, Nothing) then
if FindTextTPA(0, 0, MCX1, MCY1, MCX2, MCY2, 'dead', SmallChars, Nothing) then
begin
Inc(RandSolved[rand_Death]);
Result := True;
SaveToChatLog;
if (SRL_Procs[srl_OnFindDead] <> nil) then
SRL_Procs[srl_OnFindDead]();
if (Reincarnate) then
begin
WalkToHouse;
TakeScreen('Found Dead');
Players[CurrentPlayer].Rand := 'Oh Dear You Are in Lumby';
Players[CurrentPlayer].Active := False;
end;
end;
end;
function Steal(): Boolean;
begin
repeat
Antiban;
Antirandom;
CStatus := 'Stealing'
Painting;
Wait(RandomRange(200, 700));
FindObjCustom(x, y, ['man'], [532535, 400175, 399144, 466225], 10);
Mouse(x, y, 5, 5, false);
ChooseOption('ocket');
until false;
end;
//reminder: Switch to TPA or DMT (Need to figure this out...)
function FindMan(): Boolean;
begin
repeat
Steal;
HpCheck;
Live;
ProgressReport;
HumanMMouse(X, Y, 5, 5);
{if(StrInArr('our gravestone', ChatBoxTextArray(clMessage)))
then
begin
HumanMMouse(X, Y, 5, 5);
WalkToHouse;
end;}
{(Use for Master Farmers/Ham members)
if InvFull then
begin
HumanMMouse(X, Y, 5, 5);
Wait(RandomRange(100, 200));
DropAll;
Writeln('Dropping inventory')
end;}
until false;
end;
procedure Sequence;
begin
SetAngle(true)
SetRun(true)
FindMan;
end;
begin
CStatus := 'Logging in...'
Lumbridge := Point(4720, 3785)
SPS_Areas := ['11_9'];
SPS_Setup(RUNESCAPE_SURFACE, SPS_Areas);
Smart_Server := 77;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
ClearDebug;
ClearSmartCanvas;
Painting;
DeclarePlayers;
CheckStats;
LoginPlayer;
Sequence;
ProgressReport;
end.
program R4StayLoggedIn;
{$i srl/srl/misc/smart.scar}
{$i srl/srl.scar}
{$i SRL/SRL/misc/paintsmart.scar}
var
CStatus: String;
x, y :Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; // This is the player to start with
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // 3-4 lowercase letters from username;
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;
Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
var
mx, my, Pic, I, B, H, TPH, Numb: Integer;
TTP: TPointArray;
Canvas: TCanvas;
begin
SmartSetDebug(True);
GetClientDimensions(mx, my);
Pic := BitmapFromString(mx, my, '');
TPH := High(TP);
for I := 0 to TPH do
begin
TTP := LoadTextTPA(TP[i], SmallChars, H);
for B := 0 to High(TTP) do
begin
Numb := ((I + 1) * 13);
FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
end;
end;
Canvas := TCANVAS.Create;
Canvas.Handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
FreeBitmap(Pic);
end;
function GetRandomFact: string;
//This function returns a random fact from
// the website 'http://randomfactgenerator.net/'
// Author: kanah
// Special thanks to Euphemism for the idea
var
SearchString0, SearchString1, Text: string;
begin
//Search strings are used to mark the begining and end of useful info
SearchString0 := '<div id="facts">';
SearchString1 := '<br/><br/>';
//Text is loaded with the raw html text from the website
Text := GetPage('http://randomfactgenerator.net/');
//Text is now broken down from the entire html page into the random fact
Text := Between(SearchString0,SearchString1,Text);
//Now trim to remove spaces and get rid of the "<div>" text
Trim(Text);
delete(Text,1,pos('>',Text));
Result := Text;
Wait(randomrange(5000, 10000));
end;
Procedure Painting;
begin
PrintOnSmart(['R4_StayLoggedIn','-----------', 'Status:', CStatus,
'-----------', 'Fact:', GetRandomFact], Point(40, 50),16777215);
end;
procedure Antiban;
begin
case Random(60) of
10: RandomRClick;
20: HoverSkill('Cooking', False);
30: PickUpMouse;
40: RandomMovement;
50: BoredHuman;
59: ExamineInv;
end;
end;
procedure RandomComments;
begin
case Random(60) of
10: CStatus := 'Randomly Moving';
20: CStatus := 'So so bored';
30: CStatus := 'Lifting the mouse';
40: CStatus := 'Randomly moving...';
50: CStatus := 'I bored.';
59: CStatus := 'Staying logged in...';
end;
Painting;
end;
Procedure Loop();
begin
repeat
RandomRClick;
HoverSkill('Cooking', False);
HoverSkill('Mining', False);
HoverSkill('Firemaking', False);
HoverSkill('Attack', False);
HoverSkill('Strength', False);
HoverSkill('Defence', False);
HoverSkill('Prayer', False);
HoverSkill('Ranged', False);
HoverSkill('Magic', False);
PickUpMouse;
RandomMovement;
BoredHuman;
ExamineInv;
Antiban;
SetAngle(true)
SetRun(true)
RandomComments;
FindNormalRandoms;
until false;
end;
begin
Smart_Server := 77;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LoginPlayer;
Painting;
Loop;
case Random(60) of
10: CStatus := 'Randomly Moving';
20: CStatus := 'So so bored';
30: CStatus := 'Lifting the mouse';
40: CStatus := 'Randomly moving...';
50: CStatus := 'I bored.';
59: CStatus := 'Staying logged in...';
end;
end.
program R4_EdgeManKiller;
{.include SRL/SRL/Misc/Smart.simba}
{.include SRL/SRL.simba}
{.include SRL/SRL/Skill/Fighting.simba}
Var
man, x, y :Integer;
ManC :TIntegerArray;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; // This is the player to start with
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // 3-4 lowercase letters from username;
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;
procedure Antiban;
begin
case Random(60) of
20: HoverSkill('Thieving', False);
30: PickUpMouse;
40: RandomMovement;
50: BoredHuman;
59: ExamineInv;
end;
Writeln('Antiban in action!');
end;
procedure AntiRandom;
begin
FindNormalRandoms;
LampSkill := 'attack';
LevelUp;
end;
procedure HpCheck; //Thanks Narcle, used your script to learn how to do this
var
a, t, b, x, y:Integer;
begin
if (HPPercent < 50) and LoggedIn then
begin
if not InvEmpty then
for a := 0 to 2 do
for b := 1 to 28 do
if ExistsItem(b) then
begin
MMouseItem(b);
GetMousePos(x, y);
if WaitUptext('Eat', 400) then
begin
Mouse(x,y,0,0,false);
if WaitOption('Eat', 400) then
begin
t := GetSystemTime;
while ExistsItem(b) and ((GetSystemTime-t) < 2000) do
wait(20);
if (HPPercent > 70) then
Exit;
end;
end;
end;
if (not LoggedIn) or (HPPercent > 50) then
Exit;
end;
end;
function Kill(): Boolean;
begin
ManC := [3028013 ,3752248 ,4081726 ,3291441];
repeat
Antiban;
Antirandom;
Wait(RandomRange(200, 700));
FindObjCustom(x, y, ['an'], ManC, 3);
Mouse(x, y, 2, 2, true);
ChooseOption('ttack');
HpCheck;
Wait(RandomRange(10000, 15000));
HpCheck;
until false;
end;
function List(): Boolean;
begin
repeat
HpCheck;
Kill;
until false;
end;
begin
Smart_Server := 77;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
ClearDebug;
DeclarePlayers;
LoginPlayer;
List;
end.
program R4_C_Spell;
{$i srl/srl/misc/smart.scar}
{$i srl/srl.scar}
{Combat Spells only, make sure you select autofire before running
-r4nd0m}
Var
x, y :Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; // This is the player to start with
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // 3-4 lowercase letters from username;
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;
procedure Antiban;
begin
case Random(60) of
20: HoverSkill('Magic', False);
30: PickUpMouse;
40: RandomMovement;
50: BoredHuman;
59: ExamineInv;
end;
Writeln('Antiban in action!');
end;
function mage(): Boolean;
begin
Makecompass('w');
repeat
Antiban;
FindNormalRandoms;
Wait(RandomRange(2000, 7000));
FindObjCustom(x, y, ['amorak'], [2897508, 3029096, 3555706, 3423860], 5);
Mouse(x, y, 5, 5, false);
Wait(RandomRange(250, 500));
ChooseOption('ttack');
until false;
end;
begin
Smart_Server := 77;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
ClearDebug;
DeclarePlayers;
LoginPlayer;
mage;
end.
program R4_Alch;
{$i srl/srl/misc/smart.scar}
{$i SRL/SRL.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //
NumberOfPlayers(HowManyPlayers); //
CurrentPlayer := 0; //
Players[0].Name := ''; //
Players[0].Pass := ''; //
Players[0].Nick := ''; //
Players[0].Active := True; //
end;
procedure Alching;
var
Waits: Integer;
begin
repeat
Mouse(698,351,0,0,true);
Wait(111 + Random(60));
Mouse(698,351,0,0,true);
Wait(1211 + Random(60));
Inc(Waits);
until(Waits = 800);
Logout;
end;
begin
Smart_Server := 77;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
DeclarePlayers;
LoginPlayer;
Mouse(744,188,5,6,true);
Alching;
end.
program R4_LumbTele;
{$i srl/srl/misc/smart.scar}
{$i srl/srl.scar}
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //
NumberOfPlayers(HowManyPlayers); //
CurrentPlayer := 0; //
Players[0].Name := ''; //
Players[0].Pass := ''; //
Players[0].Nick := ''; //
Players[0].Active := True;
end;
procedure Tele;
var
Waits: Integer;
begin
Wait(5000 + Random(95));
Mouse(744,188,5,6,true);
repeat
Mouse(598,302,0,0,true);
Wait(99 + Random(65));
Inc(Waits);
until(Waits = 3600);
Logout;
end;
begin
Smart_Server := 77;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
DeclarePlayers;
LoginPlayer;
Tele;
end.Alright, thanks :)