Ilya
2012-02-16 16:01:27
How Long have You Played Runescape?
6 Year(s)
Are you affilated in anyway with Jagex LTD?
Absolutely Not
Were you Referred to SRL?
Found Out on Sythe.
What is your general programming knowledge?
Zero, but attempting to learn Pascal.
Are you a member of any other communities?
Sythe and RiD
Tell us about yourself…
Please show us one (or multiple) of your scripts.
6 Year(s)
Are you affilated in anyway with Jagex LTD?
Absolutely Not
Were you Referred to SRL?
Found Out on Sythe.
What is your general programming knowledge?
Zero, but attempting to learn Pascal.
Are you a member of any other communities?
Sythe and RiD
Tell us about yourself…
From: Ilya
Hello Simbaers.
I go by Ilya. I am in my senior year of college. My interests include videogames, partying, skiing, politics, college football, and maybe coding in the near future.
I've been playing RS entirely too long, but I can't seem to kick the habbit. I swear it's worse than cigarettes.
Please show us one (or multiple) of your scripts.
A Druid killing/looting script I attempted.
program Druids;
//by Ilya\\
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i SRL/SRL/skill/fighting.simba}
var
DruidColours, LootColours: TIntegerArray;
x, y, xx, yy , reportcount,
KillCount, LootCount, LevelPopUp, NoThanks : Integer;
frmDesign: TForm;
StartReady: Boolean;
PlayerList: TListBox;
npcname,Username,Password,AttackingOption: String;
Edits: Array [0..9] of TEdit;
foodnumber: integer;
Drops: Array of String;
HerbColours: TIntegerArray;
const
Tolerance = 3;
LootHerbs = true;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := 'chief ilya'; //Character Name
Pass := '460159865'; //Character Pass
Pin := ''; //Pin for bank
Active := true;
end;
end;
procedure CheckRandoms;
begin
if (FindBitMap(LevelPopUp, x, y)) then
begin
FindBitMap(NoThanks, xx, yy)
Mouse(xx, yy, 3, 3, true);
end;
FindNormalRandoms;
end;
procedure Attack;
var
Xi, Yi, X1, Y1, X2, Y2: Integer;
begin
if InFight then
begin
repeat
FindNormalRandoms;
until (not (OthersInFight) or (not LoggedIn) or (not InFight))
end;
x := Random(8) case x of 4:
end;
if FindObjEx(Xi, Yi, ['ttack', 'ranarr', 'kwuarm', 'irit', 'dwarf', 'avantoe', 'cadantine'], DruidColours, Tolerance, 50, 1, 5, 689, 390) then
begin
if not (IsFightAt(Xi, Yi) and not InFight) then
begin
GetMousePos(Xi, Yi);
Mouse(Xi, Yi, 5, 5, false);
if WaitOptionMulti(['ttack Chaos', 'attack druid', 'haos druid', 'haos', 'ranarr', 'kwuarm', 'irit', 'dwarf', 'avantoe', 'cadantine'], 200)then
WaitOptionMulti(['ttack Chaos', 'attack druid', 'haos druid', 'haos', 'ranarr', 'kwuarm', 'irit', 'dwarf', 'avantoe', 'cadantine'], 200);
end;
while IsMoving do
begin
Wait(350);
end;
end
else
begin
repeat
FindNormalRandoms;
until (not InFight) or (not OthersInFight) or (not LoggedIn)
end;
end;
procedure CheckLoot;
var
Xi, Yi, X1, Y1, X2, Y2: Integer;
begin
if LootHerbs then
begin
if InFight then
begin
repeat
FindNormalRandoms;
until (not (OthersInFight) or (not LoggedIn) or (not InFight))
end;
if FindObjEx(Xi, Yi, ['take', 'grimy', 'ake', 'ranarr', 'kwuarm', 'irit', 'dwarf', 'avantoe', 'cadantine'], LootColours, Tolerance, 50, 1, 5, 689, 390) then
begin
if not InFight then
begin
GetMousePos(Xi, Yi);
Mouse(Xi, Yi, 5, 5, false);
if WaitOptionMulti(['take', 'grimy', 'ake', 'ranarr', 'kwuarm', 'irit', 'dwarf', 'avantoe', 'cadantine'], 200) then
WaitOptionMulti(['take', 'grimy', 'ake', 'ranarr', 'kwuarm', 'irit', 'dwarf', 'avantoe', 'cadantine'], 200);
Wait(RandomRange(1000, 1500));
end;
while IsMoving do
begin
Wait(250);
end;
end
else
begin
wait(300)
end;
end;
end;
procedure Hungry;
var
c, T, i, x, y: Integer;
begin
if (HPPercent < RandomRange(45, 65)) and LoggedIn then
begin
if not InvEmpty then
for c := 0 to 2 do
for i := 1 to 28 do
if ExistsItem(i) then
begin
MMouseItem(i);
GetMousePos(x, y);
if WaitUptext('Eat', 400) then
begin
Mouse(x, y, 0, 0, false);
if WaitOption('Eat', 400) then
begin
t := GetSystemTime;
while ExistsItem(i) and ((GetSystemTime - t) < 2000) do
wait(20);
end;
Exit;
end;
end;
end;
end;
begin
Cleardebug;
ClearReport;
Smart_Server := 97;
Smart_Members := true;
Smart_Signed := true;
Smart_SuperDetail := false;
DruidColours := [8228496, 3297136, 2506837, 12500935];
LootColours := [2256450, 2388541, 1923356, 5069084, 5200669, 1009756, 1076320, 2256457, 2189895];
SetupSRL;
DeclarePlayers;
LoginPlayer;
Writeln('Welcome to DruidRaper!');
Wait(600);
SetAngle(SRL_ANGLE_HIGH);
repeat
Hungry;
CheckLoot;
Attack;
CheckLoot;
CheckRandoms;
until (false)
end.