Minkino
2009-06-12 10:26:56
How Long have You Played Runescape?
6 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
No
What is your general programming knowledge?
A little C++ and VB6
Are you a member of any other communities?
www.voide.org
Tell us about yourself…
Please show us one (or multiple) of your scripts.
Here is an Updated Script.
6 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
No
What is your general programming knowledge?
A little C++ and VB6
Are you a member of any other communities?
www.voide.org
Tell us about yourself…
From: Minkino
I enjoy almost everything about computers and have been using them since i was 3. I enjoy modding my asus eee pc 1000h. I found srl-forums after being bored downloading dodgy *autoers* so i joined the forums planning to leech. I then got interested in the programming off and on. And now i finished my willow cutter and banker, which has spurred me to make more scripts.
Please show us one (or multiple) of your scripts.
Here is an Updated Script.
// Thanks to Rubix and TViYHU and OSMM this could not be possible without them.
{ }
{ Place character in Draynor Bank then log out }
{ }
{ }
{ }
program MyFirstWoodCut;
{.include SRL/SRL/misc/SMART.scar}
{.include SRL\SRL.Scar}
{.include SRL\SRL\Reflection\Reflection.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
const
//<><><><><>Loads<><><><><>\\
LoadsPerPlayer = 40; //Loads per player before switching
// Player Setup \\
{<><><><><><><><><><><><><><><><><><><><>}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Pin := '';
Players[0].Active := True;
end;
{<><><><><><><><><Do Not Edit Below this Line><><><><><><><><><><><>}
label
lblPlayers;
var
x, y, LoadsNum, LoadsNum2, StartTime: integer;
Banked: boolean;
//<><><><><><><><><><>Anti Randoms<><><><><><><><><><>\\
procedure AntiRandoms;
begin
if (FindFight) then
RunAway('N', True, 1, 1500);
FindNormalRandoms;
FindNonInventoryRandoms;
FindBirdsNest;
end;
//<><><><><><><><><><>Anti Ban<><><><><><><><><><>\\
procedure AntiBan;
begin
if not LoggedIn then Exit;
case Random(11) of
1: RandomRClick;
2: HoverSkill(LampSkill, False);
3: RandomMovement;
4: BoredHuman;
5: DoEmote(400 + Random(90));
6: SleepAndMoveMouse(500 + random(500));
7: Pickupmouse;
8: GameTab(4);
9: RandomMovement;
10: ChooseOption('Cancel');
11: IdleTime(250 + random(750), 450, 0.5);
end;
end;
//<><><><><><><><><><>Chop Tree<><><><><><><><><><>\\
procedure CutTree;
var
WillowPoint: TPointArray;
ArrayLength, I, H, Attempts, ClickCount: Integer;
WillowATPA: T2DPointArray;
ClickedTree: Boolean;
begin
MakeCompass('N')
FindColorsSpiralTolerance(MSCX, MSCY, WillowPoint, 6307183, MSX1, MSY1, MSX2, MSY2, 15);
WillowATPA := TPAtoATPA(WillowPoint, 25)
ArrayLength := GetArrayLength(WillowATPA);
writeln('Tpas found: ' + IntToStr(ArrayLength));
H := High(WillowATPA);
for I := 0 to H do
begin
repeat
ClearDebug;
ArrayLength := Length(WillowATPA)
WriteLn(ArrayLength)
MiddleTPAEx(WillowATPA[i], x, y); //Used to get the middle of the current sorted tpa
MMouse(x, y, 3, 3);
Wait(50 + Random(50));
if IsUpText('illow') then
begin
AntiBan;
WriteLn('Found Willow Clicking On it....');
Mouse(x, y, 0, 0, True);
writeln('Clicked On Willow');
AntiRandoms;
AntiBan;
ClickedTree := True;
Wait(10000 + Random(2000));
if (ClickedTree = True) then
ClickCount := ClickCount + 1;
end;
if (Length(WillowATPA) = 0) then
begin
Wait(100 + random(100));
Attempts := Attempts + 1;
end;
until (invfull) or (ClickCount = 15) or (Attempts = 50)
end;
end;
//<><><><><><><><><><>Walk To Bank<><><><><><><><><><>\\
function WalkToBank: boolean;
begin
if (not (LoggedIn)) then
begin
NextPlayer(false);
end else
WalkToTile(Point(3095, 3242), 2, 0);
end;
//<><><><><><><><><><>Banking<><><><><><><><><><>\\
procedure Bank;
var
LoadBanked: boolean;
begin
if not LoggedIn then Exit;
Wait(300 + random(160));
R_SetAngle(50);
R_OpenBankBooth('db');
wait(2000 + Random(500))
if (R_BankScreen) then
begin
LoadBanked := True;
DepositAll;
Banked := True;
LoadsNum := LoadsNum + 1;
LoadsNum2 := LoadsNum2 + 1;
CloseBank;
writeln('Load Banked');
Wait(150 + random(278));
MakeCompass('S');
end;
if (not (LoadBanked)) then
begin
Writeln('Could Not Find Bank')
NextPlayer(False);
end;
end;
//<><><><><><><><><><>Walk to Willows<><><><><><><><><><>\\
function WalkToWillows: boolean;
begin
if (not (LoggedIn)) then
begin
NextPlayer(false);
end else
WalkToTile(Point(3087, 3234), 2, 0);
end;
function CheckInventory: boolean;
begin
if InvFull then
Result := True;
end;
//<><><><><><><><><><>Setup Script<><><><><><><><><><>\\
procedure SetupScript;
begin
MarkTime(StartTime);
keydown(VK_UP);
end;
procedure MainProc;
begin
CheckInventory;
if (not (CheckInventory)) then
begin
CutTree;
AntiBan;
WalkToBank;
Bank;
AntiBan;
WalkToWillows;
AntiBan;
end else
WalkToBank;
Bank;
AntiBan;
WalkToWillows;
CutTree;
AntiBan;
end;
begin
SMARTSetUpEX(55, False, True, False);
SetTargetDC(SMARTGetDC);
SetupSRL;
DeclarePlayers;
lblPlayers:
LoginPlayer;
SetupScript;
repeat
MainProc;
if (not LoggedIn) then
NextPlayer(false);
until (LoadsNum = LoadsPerPlayer) or (StartTime = 21600000);
NextPlayer(true);
if AllPlayersInactive then
begin
exit;
end else
goto lblPlayers;
end.