Mattie403
2012-02-19 17:16:04
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?
Java, Visual Basic
Are you a member of any other communities?
One: RSPortal.org
Tell us about yourself…
Please show us one (or multiple) of your scripts.
10 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
Java, Visual Basic
Are you a member of any other communities?
One: RSPortal.org
Tell us about yourself…
From: Mattie403
Well this is my second application, and this time, I actually put a lot of work into this one. If you've been checking the help forum, I've actually been there a lot. I know YoHoJo has been there and helped me out a lot. Thank you Jo. Now I do love coding a lot and would like help people the best I can. The script I have created is quite good (IMO) and I have tested out a few of the other public scripts. I have not released this to the public yet and would like for it to be tested out by a member and to get some feedback first. Thank you all for your time and consideration for reading this.
Please show us one (or multiple) of your scripts.
program MattiesPooter;
{$DEFINE SMART}
{$i SRL/SRL.Simba}
//**********SETUP**************
const
SERVER = 0; // Enter "0" to pick a random server.
MEMBERS = True; //False if F2P.
WORLDSELECT = 0; //What world? Enter "0" for random world.
//BreakEvery = 250; // *** No breaks ***
//BreakFor = 10; // *** as of now. ***
NumbOfPlayers = 1; //*** Don't change *** Only does one
StartPlayer = 0; //*** Don't change *** account as of now.
AntibanAttempt = 6; //How much Antiban? 1=Always 10+=Rare
PlayerTab = 9; //What bank tab are your pots in?
Username = ''; //Username.
Password = ''; //Password.
BPin = ''; //Bank Pin.
ExRange = False; //Making extreme range pots? True=Yes
TotalPots = 20000; //How many pots to make?
//Check forum for additional settings.
//********STOP HERE************
var Counter,Start:Integer;
procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer
for i := 0 to NumbOfPlayers-1 do
Players[i].BoxRewards := ['XP'];
With Players[0] do
begin
Name := Username;
Pass := Password;
Active := True;
Pin := BPin;
end;
end;
procedure FailSafe (Reason:String);
begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
TerminateScript;
end;
procedure ProgressReport;
var
Total:Integer;
begin
Total := GetXP('Herblore')-Start;
GameTab(Tab_Inv);
Writeln('**************************');
Writeln('Matties Pooter v1');
Writeln('');
Writeln('Total Time: '+MsToTime(GetTimeRunning, Time_Formal));
Writeln('Total XP: '+IntToStr(Total));
Writeln('XP/Hour: '+IntToStr((Total*3600)/(GetTimeRunning/1000)))
if not(ExRange) then
Writeln('Total Pots Made: '+IntToStr(Counter*14));
if (ExRange) then
Writeln('Total Pots Made: '+IntToStr(Counter*27));
Writeln('Total Invs Made: '+IntToStr(Counter));
Writeln('**************************');
end;
procedure AntiBan;
begin
Writeln('Antiban attempt..');
case random(AntibanAttempt) of
0: case random(3) of
//0: begin Writeln('Performing Antiban!'); HoverSkill('Herblore',false); GameTab(Tab_Inv); end;
0: begin Writeln('Performing Antiban!'); PickUpMouse; end;
1: begin Writeln('Performing Antiban!'); RandomMovement; end;
2: begin Writeln('Performing Antiban!'); RandomAngle(SRL_ANGLE_HIGH); end;
end;
end;
end;
procedure ProggyCheck;
var
PCounter:Integer;
begin
PCounter := Counter mod 8;
if (PCounter = 1) then
ProgressReport;
end;
procedure Range;
var
Time,Pot,Pot2:Integer;
begin
Writeln('Making range pots..');
Pot := GetColor(704,452);
Mouse(579,234,10,10,True);
Mouse(620,234,10,10,True);
Wait(800+random(200));
Mouse(256,430,50,20,True);
ProggyCheck;
MarkTime(Time);
repeat
FindNormalRandoms;
Pot2 := GetColor(704,452);
Wait(1500);
Pot2 := GetColor(704,452);
Antiban;
Pot2 := GetColor(704,452);
until (Pot2 <> Pot) or (TimeFromMark(Time)>40000+random(1000))
end;
procedure Herb;
var
Time,Pot,Pot2:Integer;
begin
Writeln('Herblore-ing..');
Pot := GetColor(622,344);
Mouse(621,340,10,10,False);
WaitOption('Use', 500);
Wait(200+random(100));
Mouse(663,339,10,10,True);
Wait(800+random(200));
Mouse(256,430,50,20,True);
ProggyCheck;
MarkTime(Time);
repeat
FindNormalRandoms;
Pot2 := GetColor(622,344);
Wait(1500);
Pot2 := GetColor(622,344);
Antiban;
Pot2 := GetColor(622,344);
until (Pot2 <> Pot) or (TimeFromMark(Time)>25000+random(1000))
end;
procedure ExBanking;
begin
Wait(400+random(200));
Writeln('Banking..');
BankTab(PlayerTab);
Mouse(620,234,10,10,False);
WaitOption('All', 500);
FindNormalRandoms;
Withdraw(0,0,0);
CloseBank;
end;
procedure Banking;
begin
Wait(400+random(200));
Writeln('Banking..');
BankTab(PlayerTab);
DepositAll;
FindNormalRandoms;
Withdraw(0,0,14);
Withdraw(1,0,14);
CloseBank;
end;
procedure FindingBank;
var
x,y,Time:Integer;
begin
MakeCompass('E');
SetAngle(SRL_ANGLE_HIGH);
MarkTime(Time);
repeat
FindNormalRandoms;
MMouse(225,165,10,24);
GetMousePos(x,y);
Wait(500+random(200));
if IsUpText('ank') then
Mouse(x,y,0,0,True);
Wait(800+random(200));
until(PinScreen or BankScreen) or (TimeFromMark(Time)>15000)
Writeln('Found bank :D');
if PinScreen then
begin
Writeln('Entering bank pin.');
InPin(Players[0].Pin);
if not(ExRange) then
Banking;
if ExRange then
ExBanking;
end else if BankScreen then
begin
if not(ExRange) then
Banking;
if ExRange then
ExBanking;
end else
begin
Writeln('********************');
Writeln(' Script ended:');
Writeln('Could not find bank!');
Writeln('********************');
FailSafe('No bank found');
end;
end;
begin
Smart_Server := SERVER;
Smart_Signed := True;
Smart_Members:= MEMBERS;
SetupSRL;
Disguise('Matties Pooter!');
DeclarePlayers;
repeat
if (WORLDSELECT <> 0) then
begin
LoginPlayerToLob;
OpenWorldScreen;
SelectWorld(WORLDSELECT);
end;
LogInPlayer;
until (LoggedIn);
wait(5000+random(500));
Start := GetXP('Herblore');
GameTab(Tab_Inv);
Repeat
FindNormalRandoms;
FindingBank;
if ExRange then
Range;
if not(ExRange) then
Herb;
Inc(Counter);
FindNormalRandoms;
until(Counter >= TotalPots/14);
ProgressReport;
//Logout;
end.
