Justin
2011-12-22 04:18:44
How Long have You Played Runescape?
4 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
Java, HTML, php, mysql database
Are you a member of any other communities?
Yes; RSBuddy (Dead), Powerbot, RSBots
Tell us about yourself…
Please show us one (or multiple) of your scripts.
4 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
Java, HTML, php, mysql database
Are you a member of any other communities?
Yes; RSBuddy (Dead), Powerbot, RSBots
Tell us about yourself…
From: ~Justin
Im a relaxed kind of guy, I work as a IT Admin at a school, finished my schooling, currently 19.
I enjoy listing to music and socialization
Please show us one (or multiple) of your scripts.
***UNABLE TO MANAGE ATTACHMENTS***
**START OF WINE MAKER**
//WINE MAKER AT SOUL WARS - MADE BY ~JUSTIN
program WineMaker;
{$i srl/srl/misc/Smart.scar}
{$i srl/srl.scar}
Var total,counter :integer;
procedure DeclarePlayers;
begin
total:=8; //How many loads to do before stopping - to calculate, 'lowest amount of supplies / 14' eg: if you have 487 grapes, and 598 jugs, it would be 487/14= 34 loads
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] do
begin
Name := ''; //Character Name
Pass := ''; //Character Pass
Pin := ''; //Pin for bank
Active := True;
end;
end;
procedure OpenChest;
var x,y:integer;
begin
repeat until (FindObjCustom(x,y,['Bank','nk ch','k che','est'], [2963780,10790316,10000542,5921374],3))
Mouse(x,y,1,1,False);
WaitOptionMulti(['se B', 'ank C'], 2200); //Ensure that we don't click on Nomad
end;
procedure DoBanking;
var F, Mark :Integer;
begin
OpenChest;
repeat
Wait(50+random(20));
until PinScreen or BankScreen;
if PinScreen then
begin
F := 0;
repeat
InPin(Players[CurrentPlayer].Pin);
Inc(F);
until (BankScreen) or ( F > 5 )
if (F > 5) then
begin
writeln('Failed to enter bank pin > 5 times... Stopping');
TerminateScript;
end;
end;
if BankScreen then
Mark := GetSystemTime;
DepositAll;
Withdraw(0,0,14);
Withdraw(1,0,14);
Repeat
Wait(50);
until (InvFull or (TimeFromMark(Mark) < 10000));
CloseBank;
end;
procedure MakeWine;
var x, y, Mark:Integer;
begin
MMouseItem(14);
ClickMouse2(True);
MMouseItem(15);
ClickMouse2(True);
Wait(800 + Random(300));
if IsChatBoxTextAnyLine ('interesting',clBlack ) then //wrong item detected
begin
writeln('I think we are out of supplies, logging out');
logout;
TerminateScript;
end;
if FindTextTpaEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, x, y, 'rment',statchars, Nothing) then
begin
Wait(RandomRange(150, 350));
MouseBox(x-20, y-30, x+20, y+8, 1);
Mark := GetSystemTime;
end;
repeat
wait(50);
until ((InvCount = 14) or (TimeFromMark(Mark) < 20000));
end;
begin
Smart_Server := 97;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
cleardebug;
DeclarePlayers;
LoginPlayer;
counter:= 0;
Writeln('Welcome to ~Justin''s Wine Maker! Verson: 0.1');
Writeln('Please make sure you are running the latest script!');
Writeln('Make sure you start at Soul Wars chest!');
Repeat
DoBanking;
Wait(RandomRange(550, 850));
MakeWine;
Inc(counter);
until(counter = total)
end.
**END OF WINE MAKER**
**START OF EDGEVILLE MAN KILLER**
//EDGEVILLE MAN KILLER - MADE BY ~JUSTIN
program EdgeManKiller;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fighting.scar}
{$i sps/sps.simba}
var
ManColours : TIntegerArray;
x : integer;
InFightBox: TBox;
FightBarColors: TIntegerArray;
WalkBank,WalkMen: TPointArray;
const
NCPColour1 = 7843032; //Colours of Men NPC (Hair or chest works best)
NCPColour2 = 7511246;
NCPColour3 = 1715516;
NCPColour4 = 5669499;
NCPColour5 = 2835811;
NCPColour6 = 5474966;
HPGreenTop = 10240;
HPGreenBot = 9728;
HPRed = 132923;
Tolerance = 3;
WaitTime = 1324;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] do
begin
Name := ''; //Character Name
Pass := ''; //Character Pass
Pin := ''; //Pin for bank
Active := True;
end;
end;
function WalkToBank: Boolean;
begin
WalkBank := [Point(4224, 2633),Point(4208, 2649),Point(4210, 2667)]
If(SPS_WalkPath(WalkBank)) then
end;
function WalkToMen: Boolean;
begin
WalkMen := [Point(4208, 2649),Point(4232, 2608)]
If(SPS_WalkPath(WalkMen)) then
end;
procedure CheckRandoms;
begin
FindNormalRandoms;
if not(LoggedIn) then
begin
WriteLn('I think we failed a random - I will just Check');
LoginPlayer;
FindNormalRandoms;
if not(LoggedIn) then
begin
WriteLn('Client has Logged Out So Probably Failed a Random - Terminating Script');
TerminateScript;
end
end;
end;
procedure Attack;
var Xi, Yi,Mark, TimeOut :integer;
begin
if not (srl_InFight) then
begin
x := Random(8)
TimeOut := 1000;
case x of
4: WalkToMen; //Failsafe if we get lured
end;
if FindObjCustom(Xi, Yi, ['ttack'], ManColours, Tolerance) then
begin
GetMousePos(Xi, Yi);
Mouse(Xi, Yi, 0, 0, false);
WaitOptionMulti(['ttack', 'attack Man'], 1000);
FFlag(10);
Mark := GetSystemTime;
while (InFight) and (TimeFromMark(Mark) < TimeOut) and (not FindNormalRandoms) do
begin
Wait(1000 + Random(500));
if (srl_Procs[srl_AntiBan] <> nil) then
srl_Procs[srl_AntiBan]();
end;
end;
end;
SetAngle(True);
end;
procedure AntiBan;
begin
begin
x := Random(151)
case x of
0: HoverSkill('Attack', False); //Beautiful Antiban
1: HoverSkill('Strength', False);
2: HoverSkill('Defence', False);
3: HoverSkill('hitpoints', False);
4: HoverSkill('smithing', False);
5: HoverSkill('woodcutting', False);
6: HoverSkill('firemaking', False);
7: HoverSkill('magic', False);
8: HoverSkill('woodcutting', False);
9: HoverSkill('fishing', False);
10: HoverSkill('prayer', False);
11: HoverSkill('runecrafting', False);
12..15: PickUpMouse;
16..25: RandomMovement;
26..27: RandomRClick;
28..32: BoredHuman;
33: ExamineInv;
34: RandomAngle(True);
35..48: Wait(1000+random(1000));
49..50: Wait(1000+Random(20000));
end;
Wait(2000+Random(500));
end;
end;
function DoBanking: Boolean;
var
TPA: TPointArray;
ATPA: T2DPointArray;
i, cts, F: integer;
T: TPoint;
begin
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.33, 0.22);
FindColorsTolerance(TPA, 3688009, MSX1, MSY1, MSX2, MSY2, 3)
ColorToleranceSpeed(cts);
SetColorSpeed2Modifiers(0.2, 0.2);
if Length(TPA) < 1 then
Exit;
ATPA := SplitTPAEx(TPA, 1, 4);
SortATPASize(ATPA, True);
SetArrayLength(ATPA, Min(4, Length(ATPA)));
SortATPAFromFirstPoint(ATPA, Point(MSCX, MSCY));
for i := 0 to High(ATPA) do
begin
T := MiddleTPA(ATPA[i]);
MMouse(T.x-5, T.y-5, 10, 10);
If WaitUptext('ounter', 400) then
begin
ClickMouse2(false);
Result := WaitOptionMulti(['Use-quickly', 'se-q'], 1000);
end;
repeat
Wait(50+random(20));
until PinScreen or BankScreen;
if PinScreen then
begin
F := 0;
repeat
InPin(Players[CurrentPlayer].Pin);
Inc(F);
until (BankScreen) or ( F > 5 )
if (F > 5) then
begin
writeln('Failed to enter bank pin > 5 times... Stopping');
TerminateScript;
end;
end;
if BankScreen then
begin
Withdraw(0,0,24);
Wait(984);
CloseBank;
WalkToMen;
Exit;
end;
end;
end;
procedure HpCheck;
var
c, T, i, x, y:Integer;
RunDir: String;
begin
if (HPPercent < 50) and LoggedIn then
begin
if not InvEmpty then
for c := 0 to 2 do
for i := 1 to 28 do
if ExistsItem(i) then
begin
MMouseItem(i);
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(i) and ((GetSystemTime-t) < 2000) do
wait(20);
end;
Exit;
end;
end;
if InvEmpty then
begin
WalkToBank;
Wait(2474);
DoBanking;
WalkToMen;
Exit;
end;
end;
end;
begin
ClearDebug;
ManColours := [NCPColour1,NCPColour2,NCPColour3,NCPColour4, NCPColour5, NCPColour6];
Smart_Server := 97;
Smart_Members := False;
Smart_Signed := False;
Smart_SuperDetail := False;
SetupSRL;
cleardebug;
DeclarePlayers;
LoginPlayer;
FightBarColors := [HPGreenTop, HPGreenBot, HPRed];
InFightBox := IntToBox(224, 115, 294, 150);
SPS_Areas := ['10_6'];
SPS_Setup(RUNESCAPE_SURFACE, SPS_Areas);
Writeln('Welcome to ~Justin''s Edgeville Man Killer! Verson: 0.1r');
Writeln('Please make sure you are running the latest script!');
repeat
Attack;
AntiBan;
HpCheck;
CheckRandoms;
until(false)
end.
** END OF EDGEVILLE MAN KILLER**
**START OF BANDITHELPER**
program BanditHelper;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}
{$i SRL/SRL/SKILL/prayer.scar}
{$i sps/sps.simba}
{$i SRL/SRL/Misc/stats.simba}
{$i SRL/SRL/misc/paintsmart.scar}
{.include SRL/SRL/Skill/Fighting.scar}
var
x, y :Integer;
Colours, PrayerPotColours: TIntegerArray;
const
Version = 1;
NCPColour1 = 15788788;
NCPColour2 = 1250879;
NCPColour3 = 14014175;
PrayerPot1 = 9741932;
PrayerPot2 = 8762422;
PrayerPot3 = 8762166;
PrayerPot4 = 9948222;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active := True;
end;
procedure CheckRandoms;
begin
FindNormalRandoms;
if not(LoggedIn) then
begin
LoginPlayer;
FindNormalRandoms;
if not(LoggedIn) then
begin
TerminateScript;
end
end;
end;
function GetPrayerPoints: Integer;
var
TmpStr: string;
begin
Result := GetMMLevels('prayer', TmpStr);
end;
procedure CheckPrayer;
var
c, i: integer;
begin
if(GetPrayerPoints < 503) then
begin
WriteLn('We are low in prayer... drinking a potion!');
c := 0;
i := 0;
if not InvEmpty then
for c := 0 to 2 do
for i := 1 to 28 do
if ExistsItem(i) then
begin
MMouseItem(i);
GetMousePos(x, y);
if ItemActivated(i) then
begin
Mouse(x,y,0,0,true);
end;
if WaitUptext('Vial', 400) then
begin
DropItem(I);
Wait(1000);
end;
if WaitUptext('Drink', 800) then
begin
Mouse(x,y,0,0,true);
Wait(1500);
if WaitUptext('xtreme', 800) then
begin
Mouse(x,y,0,0,true);
Wait(1500);
end;
if WaitUptext('Vial', 400) then
begin
DropItem(I);
Wait(2000);
end;
exit;
end
end;
end
end;
procedure Attack;
begin
If(srl_InFight) then
begin
x := random(100)
case x of
2: HoverSkill('Defence', False);
3: HoverSkill('hitpoints', False);
16..25: RandomMovement;
34: RandomAngle(True);
46..50: Wait(1000+Random(20000));
end;
wait(2000);
end
end;
begin
Colours := [NCPColour1,NCPColour2,NCPColour3]
PrayerPotColours := [PrayerPot1,PrayerPot2,PrayerPot3,PrayerPot4];
Smart_Server := 124;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
cleardebug;
DeclarePlayers;
LoginPlayer;
repeat
Attack;
CheckRandoms;
CheckPrayer;
until(false)
end.
**END OF BANDITHELPER**