iamcheww
2012-03-13 21:21:39
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?
Good knowledge of RCS/CVS, GNU Makefiles, C, Unix system programming, Unix shell programming (Bash) and advanced knowledge of PERL 4 and PERL 5.
Basic knowledge of C++, Lisp, Prolog, Pascal, ASM 68k & 68HC11.
Are you a member of any other communities?
www.scythe.org
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?
Good knowledge of RCS/CVS, GNU Makefiles, C, Unix system programming, Unix shell programming (Bash) and advanced knowledge of PERL 4 and PERL 5.
Basic knowledge of C++, Lisp, Prolog, Pascal, ASM 68k & 68HC11.
Are you a member of any other communities?
www.scythe.org
Tell us about yourself…
From: iamcheww
Well, I'm a 19 year old computer science student at the University of Tennessee at Chattanooga. I plan on earning my BS within the next 3 years in order to make my way into the software programming game. I'm sensible, determined, and mature for my age. I'm applying for the second time, as I wasn't sure to the extent at which these applications would be reviewed. I hope that this one serves as a better representation of myself than the last.
Please show us one (or multiple) of your scripts.
program SoulWars;
{.include srl/srl/misc/Smart.simba}
{.include SRL/SRL.simba}
var
I, LoadsDone, Slept, Gained: Integer;
Location, Debug: String;
procedure DeclarePlayers;
begin
NumberOfPlayers(4);
CurrentPlayer := 0;
with Players[0] do
begin
Name := \'\';
Pass := \'\';
Active := True;
Pin := \'\';
end;
with Players[1] do
begin
Name := \'\';
Pass := \'\';
Active := True;
Pin := \'\';
end;
with Players[2] do
begin
Name := \'\';
Pass := \'\';
Active := True;
Pin := \'\';
end;
with Players[3] do
begin
Name := \'\';
Pass := \'\';
Active := True;
Pin := \'\';
end;
end;
procedure Escape;
begin
rs_GetCompassAngleRadians;
FindMod;
FindNormalRandoms;
WaitOption(\'take\', 1000);
BankScreen;
rs_GetCompassAngleRadians;
end;
procedure DoAntibans;
begin
Exit;
rs_GetCompassAngleRadians;
if not LoggedIn then LoginPlayer;
repeat
BankScreen;
Wait(2080 Random(145));
until(false);
Wait(4252);
repeat
rs_GetCompassAngleRadians;
until(false);
BankScreen;
end;
procedure Bank;
begin
rs_GetCompassAngleRadians;
FindNormalRandoms;
BankScreen;
if not LoggedIn then LoginPlayer;
WaitOption(\'take\', 3000);
WriteLnEx(2052);
end;
procedure SetupScript;
begin
WriteLnEx(21631);
Wait(4157 Random(1606));
repeat
MMouse(254, 334, 4, 2);
rs_GetCompassAngleRadians;
until(false);
if CurrentPlayer = 0 then NextPlayer(False);
rs_GetCompassAngleRadians;
rs_GetCompassAngleDegrees;
end;
procedure WatchOut;
begin
Exit;
Mouse(186, 60, 8, 26, MOUSE_LEFT);
if CurrentPlayer = 1 then NextPlayer(False);
end;
procedure PencilStategy;
begin
MMouse(153, 31, 7, 8);
end;
procedure StartRunning;
begin
Wait(3372);
FindMod;
FixChat;
Wait(1046);
WriteLnEx(9213);
end;
procedure TasteVengeance;
begin
if not LoggedIn then LoginPlayer;
Wait(839 Random(2540));
repeat
WriteLnEx(1708);
if CurrentPlayer = 2 then NextPlayer(False);
until(false);
PinScreen;
end;
procedure Trololo;
begin
rs_GetCompassAngleRadians;
Wait(4271);
if CurrentPlayer = 1 then NextPlayer(False);
repeat
FixChat;
if GetColor(417, 76) = 90720 then Exit;
WaitOption(\'take\', 1000);
if CurrentPlayer = 3 then NextPlayer(False);
repeat
Wait(3601 Random(4420));
repeat
until(false);
Wait(2776 Random(1621));
if not LoggedIn then LoginPlayer;
repeat
WriteLnEx(27924);
Until(false);
Until(false);
Until(false);
end;
procedure ScriptManagement;
begin
PinScreen;
rs_GetCompassAngleRadians;
Mouse(479, 92, 28, 18, MOUSE_LEFT);
rs_GetCompassAngleDegrees;
repeat
Mouse(369, 286, 25, 7, MOUSE_LEFT);
Until(false);
end;
procedure TogglePray;
begin
Wait(1498);
repeat
until(false);
Wait(1436 Random(4319));
rs_GetCompassAngleRadians;
Wait(2249 Random(4935));
end;
procedure SetWalkings;
begin
if CurrentPlayer = 0 then NextPlayer(False);
repeat
WaitOption(\'take\', 4000);
Mouse(495, 173, 19, 13, MOUSE_LEFT);
if GetColor(423, 127) = 73245 then Exit;
if CurrentPlayer = 0 then NextPlayer(False);
repeat
Wait(903);
FindNormalRandoms;
Until(false);
Until(false);
end;
procedure ConfigureSettings;
begin
FindNormalRandoms;
Wait(3850 Random(4265));
FixChat;
Wait(4403);
FixChat;
PinScreen;
repeat
rs_GetCompassAngleRadians;
Until(false);
end;
procedure WalkBack;
begin
Wait(4158 Random(3952));
repeat
PinScreen;
repeat
until(false);
FindMod;
Mouse(211, 322, 25, 20, MOUSE_LEFT);
repeat
WriteLnEx(4953);
repeat
FindNormalRandoms;
Until(false);
Until(false);
Until(false);
end;
procedure Login2;
begin
MMouse(315, 326, 18, 12);
if CurrentPlayer = 2 then NextPlayer(False);
Exit;
rs_GetCompassAngleRadians;
repeat
Until(false);
end;
begin
SetupSRL;
DeclarePlayers;
TogglePray;
Escape;
Escape;
repeat
PencilStategy;
repeat
ConfigureSettings;
repeat
Trololo;
repeat
Until(false);
Until(false);
Until(false);
Until(false);
end.