Xx Carter xX
2011-12-14 18:22:53
How Long have You Played Runescape?
6 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
VB.Net, C#, Java
Are you a member of any other communities?
rsbuddy but i no longer contribute to that forum.
Tell us about yourself…
Please show us one (or multiple) of your scripts.
6 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
VB.Net, C#, Java
Are you a member of any other communities?
rsbuddy but i no longer contribute to that forum.
Tell us about yourself…
From: Xx Carter xX
My name's carter, i'm 17 years old, and im from beaverton, oregon. I have had an interest in computers and software developing for about three months now and im loving it. Please ignore the fact that i have a low postcount. I want to contribute to this community and learn a lot.
Please show us one (or multiple) of your scripts.
program HerbCleaner;
{$DEFINE SMART}
{$i SRL/SRL.scar}
var
AntiBanCounter, MainAntiBanCounter: integer;
RandomLevel: string;
{
Setup:
- Have herbs in first bank slot
- Be sure to have your character in bank facing the bank lady
- Fill in information below and hit go
}
Const
HowManyCleaned = 1000; //How many herbs do you want to clean?
WhichBank = ''; // Which bank are you in? vwb, veb, feb, fwb, etc. (All SRL banks supported)
Member = true; // you're obviously a member...
LampSkillxp = 'Herblore'; //Where do you want your experience to go to from a random event?
FrequencyOfAntiBan = 3; // how many loads before you want to preform anti ban? 1-3
procedure DeclarePlayers;
begin
HowManyPlayers := 1; // Total amount, multiple players not supported
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
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].Pin := ''; // Leave blank if the player doesn't have a bank pin
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;
{
}
Procedure FreeAllDTMs;
begin
Writeln('Freed all DTMs');
end;
procedure StartSmart;
begin
Smart_Server := (155); // Smart Server
Smart_Members := (Member);
Smart_Signed := True;
Smart_SuperDetail := False;
end;
Procedure CheckLevel;
begin
writeln('Checking herblore level');
Mouse(599, 189, 4, 4, true);
MMouse(591, 337, 8, 8)
wait(2000 + random (1000));
GameTab(25); //inv
end;
Procedure MoveCompassRandom;
begin
writeln('moving compass');
Case Random(4) of
0: MakeCompass('N');
1: MakeCompass('E');
2: MakeCompass('S');
3: MakeCompass('W');
end;
end;
Procedure RandomLevelPicker;
begin
Case Random(15) of
0: RandomLevel := 'mining';
1: RandomLevel := 'attack';
2: RandomLevel := 'defense';
3: RandomLevel := 'strength';
4: RandomLevel := 'range';
5: RandomLevel := 'herblore';
6: RandomLevel := 'magic';
7: RandomLevel := 'runecrafting';
8: RandomLevel := 'smithing';
9: RandomLevel := 'fishing';
10: RandomLevel := 'cooking';
11: RandomLevel := 'crafting';
12: RandomLevel := 'woodcutting';
13: RandomLevel := 'firemaking';
end;
end;
procedure AntiRandoms; // ---Calls Anti-randoms---
begin
if not LoggedIn then exit;
FindNonInventoryRandoms;
FindNormalRandoms;
LampSkill := (LampSkillxp);
LevelUp;
end;
procedure Clean;
var
Slots: TIntegerArray;
i: integer;
begin
if not LoggedIn then Exit;
Slots := [1, 2, 3, 4, 8, 7, 6, 5, 9, 10, 11, 12, 16, 15, 14, 13, 17, 18, 19,
20, 24, 23, 22, 21, 25, 26, 27, 28];
for i := 0 to 27 do
begin
if not ExistsItem(Slots[i]) then Continue;
MouseItem(Slots[i], True);
Inc(Players[CurrentPlayer].Integers[0]);
Wait(450 + random(80));
FindNormalRandoms;
end;
end;
procedure WithdrawHerbs;// -Gets herbs from bank-
var
x, y: integer;
begin
if OpenBank(Players[CurrentPlayer].Loc, False, False) then
begin
MouseBox(45, 100, 60, 113, 3);
if WaitUptext('rimy', 4000) then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, false);
Wait(380 + random(50));
ChooseOption('raw-All');
end;
end;
CloseBank;
Wait(750 + random(200));
end;
procedure WithdrawBank; // -Opens bank to retrieve herbs-
var
Tr, Bo: integer;
begin
if BankScreen = false then
begin
AntiRandoms;
writeln('Trying to open bank..');
MakeCompass('N');
SetAngle(true);
OpenBankFast(WhichBank);
end;
repeat
wait(10);
Tr := Tr +1;
until (Tr = 1000) or (BankScreen = true);
if BankScreen = True then
begin
Writeln('opened bank successfully');
wait(1000 + random(1000));
if BankScreen then
begin
Wait(200 + Random(300));
FixBank;
if (not(InvEmpty)) then
DepositAll;
end;
ActivateClient;
WithdrawHerbs;
end else
if BankScreen = False then
begin
Bo := Bo +1;
writeln('Tried opening bank ' + IntToStr(Bo) + ' Times');
if (Bo >= 5) then
begin
writeln('Opening bank failed, logging out.');
//Logout;
NextPlayer(false);
FreeAllDTMs;
TerminateScript;
end;
end;
CloseBank;
end;
procedure SetupScript;
begin
SetupSRL;
DeclarePlayers;
StartSmart;
ActivateClient;
LoginPlayer;
end;
begin;
SetupScript;
repeat
ActivateClient;
WithdrawBank;
Clean;
until AllPlayersInactive;
FreeAllDTMs;
endprogram new;
begin
end.