Frogger
2013-02-28 21:12:35
How Long have You Played Runescape?
8 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
Pascal Script
Are you a member of any other communities?
No
Tell us about yourself…
Please show us one (or multiple) of your scripts.
8 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
Pascal Script
Are you a member of any other communities?
No
Tell us about yourself…
From: Frogger
My name is Christian Veir, people call me Chris. I'm 15, a freshman in highschool, smart (taking AP classes), in the top 5% of my class, 3.78GPA weighted, athletic (powerlift, football, MMA), interested in sports, Runescape, scripting and not being a leech. I'm an outgoing, fun guy. I get along with all types of people. My aspirations are to go into the police force and then to hopefully become an F.B.I. agent later on in life.
Please show us one (or multiple) of your scripts.
program Chopper;
{$DEFINE SMART}
{$include_once SRL/SRL.simba}
{$include_once SRL/SRL/Misc/Debug.simba}
{$include_once SRL/SRL/core/animation.simba}
{$include_once SRL/SRL/skill/magic.simba}
{$include_once SRL/SRL/misc/smartgraphics.simba}
Const
SRLStats_Username = '';// Your SRL Stats Username
SRLStats_Password = '';// Your SRL Stats Password
BreakEvery = 360; //How Many Minutes You Want TO Break After Starting
BreakFor = 10; // How Many Minutes To Break
Version = '1.0';
NumberOfPlayer = 1; //How many players you are using
StartPlayer = 0; //Players wanted to bot with (Starts at 0)
procedure DeclarePlayers;
var i:Integer;
begin
NumberOfPlayers(0);
CurrentPlayer := StartPlayer;
for i := 0 to 0-1 do
Players[i].BoxRewards :=['ostume', 'XP', 'Gem', 'old', 'ron', 'ithril', 'oal', 'oins'];
With Players[0] do
begin
Name := '';//Player Username
Pass := '';//Player Password
Active := True;
Integers[1] := 1; //1=Tree,
Integers[2] := 8; //Seconds until trying to mine another rock
end;
end;
procedure StatsGuise(wat:String);
begin
Status(wat);
Disguise(wat);
end;
Procedure Antiban;
Begin
Case Random(100) Of
1: HoverSkill('woodcutting', True);
2: HoverSkill('random', False);
3: Boredhuman;
4: Wait(2500 + random(4500));
5: HoverSkill('smithing', False);
6: PickUpMouse;
7: RandomMovement;
8: RandomRClick;
end;
end;
Procedure MiniBreaker;
Begin
Case Random (160) Of
1: Wait(40000 + random(7400));
2: Wait(25500 + random(8550));
3: Wait(60040 + random(6759));
4: Wait(20400 + random(2549));
end;
end;
procedure FailSafe(Reason:String);
begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
//ProgressReport;
TerminateScript;
end;
Function ChopDown:Boolean;
var
X, Y, Z, Count:Integer;
begin
Z:= InvCount + 1;
If FindObjTPA(X, Y, 2965842, 10, 1, 15, 60, 600, ['Cho']) Then
X:=MSCX
Y:=MSCY
begin
StatsGuise('Finally. We found a tree!!');
GetMousePos(X, Y);
Case Random(2) of
0: Mouse(X, Y, 5, 5, True);
1: begin
Mouse(X, Y, 5, 5, False);
Wait(150+Random(200));
WaitOption('Chop', 750);
end;
end;
Repeat
MarkTime(Count);
Antiban;
Wait(1500);
If Invcount=Z Then
writeln ('Finally got done chopping!');
Until (InvCount=Z) Or (TimeFromMark(Count) > 7500)
end;
end;
begin
SetupSRL;
DeclarePlayers;
Repeat
ChopDown
Until(False);