Aegis
2011-12-04 23:24:43
How Long have You Played Runescape?
7 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
No
What is your general programming knowledge?
I know solid basics of: Java, VB, HTML, and now Pascal ;)
Are you a member of any other communities?
Yes; Sythe, RSCheata, numerous others (Not under the same username)
Tell us about yourself…
Please show us one (or multiple) of your scripts:
(Updated)
Additional Comments..
7 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
No
What is your general programming knowledge?
I know solid basics of: Java, VB, HTML, and now Pascal ;)
Are you a member of any other communities?
Yes; Sythe, RSCheata, numerous others (Not under the same username)
Tell us about yourself…
From: Aegis
I'm not the best at programming, but for the most part, I've been completely self-taught. This year, since transferring schools, I'm currently taking a college-level programming course in Java, and have learned TONS. In-fact, I've been able to apply my learnings from SRL to in-class, and vise-versa. (And I'm passing with flying colors!) Prior to starting late October/early November, I had no experience whatsoever with Pascal/Simba/Scar, but I've been able to learn very quickly. I achieved 99 Herblore using my first script (although, I used quite a lot from other, old scripts), and I'm going to be getting 95/99 Prayer next using this next script, a Gilded Altar script, which was nearly completely written from scratch! (Thanks to the large amounts of awesome tutorials!)
Please show us one (or multiple) of your scripts:
(Updated)
program Gilded_Altar;
{$DEFINE SMART}
{$i SRL\SRL.scar}
{$i SPS\SPS.simba}
const
S_World = 65;
S_Signed = True;
S_Member = True;
var
HouseTab, EdgeHome, Marrentil, DragonBones: Integer;
procedure DeclarePlayer;
begin
with Players[0] do
begin
Name := '';
Pass := '';
Active := True;
Strings[0] := 'eb';
Players[0].BoxRewards := ['Xp'];
end;
end;
procedure AntiRandoms;
begin
FindNormalRandoms;
LampSkill := 'prayer';
LevelUp;
end;
procedure ProgressReport;
begin
ClearDebug;
WriteLn('Running for: ' + TimeRunning);
end;
procedure FailSafe;
var
X, Y: Integer;
begin
EdgeHome := DTMFromString('mbQAAAHicY2VgYOBggABeIBYAYmYgZgdibiDmA2IWqPy+I58Y2ubcQMFuDJiAEQsGAwBv+wr5');
Writeln('Error, using failsafe!');
repeat
if GameTab(tab_Magic) then
if FindDTM(EdgeHome, X, Y, MIX1, MIY1, MIX2, MIY2) then
Mouse(x, y, 5, 5, false);
until ChooseOption('Cast');
Wait(12000 + Random(1000));
begin
SPS_Setup(RUNESCAPE_SURFACE, ['10_6']);
SPS_Continue := true;
SPS_WalkPath([Point(4214, 2686)]);
FFlag(5);
AntiRandoms;;
end;
end;
procedure AntiBan;
begin
If(not LoggedIn)then Exit;
MouseSpeed := 12 + Random(5);
Case Random(20) of
0: MMouse(Random(MIX2), Random(MIY2), 10, 10);
1: HoverSkill(SKILL_prayer, False);
2: PickUpMouse;
3: GameTab(RandomRange(tab_Combat, tab_Notes));
4: SleepAndMoveMouse(400+Random(Random(4000)));
5: IdleTime(100+random(700), 100+Random(100), 0.2+RandomE/2);
6: MakeCompass(IntToStr(Random(360)));
7:
begin
SetAngle(False);
SetAngle(True);
end;
8, 9, 10, 11, 12, 13, 15, 16: Wait(1000 + Random(800));
17, 18, 19, 20: Exit;
end;
end;
procedure TeleToBank;
var
x, y, w, N: Integer;
begin
N:= 0;
ClickNorth(True);
AntiRandoms;
repeat
Inc(N);
if FindObjTPA(x, y, 6982558, 10, -1, 25, 20, w, ['mulet']) then
GetMousePos(X, Y);
Mouse(x, y, 0, 0, false);
AntiRandoms;
until ChooseOption('Rub') or (N > 3);
if (N > 3) then
begin
FailSafe;
Exit;
End;
FFlag(5);
Wait(2000 + Random(150));
FindNpcChatText('dgev', ClickLeft);
Wait(4912 + Random(957));
begin
SPS_Setup(RUNESCAPE_SURFACE, ['10_6']);
SPS_Continue := true;
SPS_WalkPath([Point(4214, 2686)]);
FFlag(5);
AntiRandoms;;
end;
end;
procedure StartAltar;
var
x, y, w, T, N: Integer;
DoorTPA:TPointArray;
begin
N:=0
SetAngle(False);
Wait(5500 + Random(200));
repeat
Inc(N);
FindObjCustom(X, Y, ['oor','Doo'], [4740445,3883076,5400700], 3);
GetMousePos(X, Y);
Mouse(x, y, 0, 0, false);
AntiRandoms;
until ChooseOption('Open') or (N > 3);
if (N > 3) then
Exit;
SetAngle(True);
FFlag(5);
Wait(900 + Random(100));
Mouse(185, 37, 130, 50, true);
FFlag(5);
Wait(1000 + Random(300));
N:=0
repeat
Inc(N);
if FindObjTPA(x, y, 16119542, 10, -1, 35, 50, w, ['nse b']) then
GetMousePos(X, Y);
Mouse(x, y, 0, 0, false);
AntiRandoms;
until ChooseOption('Light') or (N > 3);
if (N > 3) then
Exit;
FFlag(5);
Wait(2000 + Random(300));
N:=0
repeat
Inc(N);
if FindObjTPA(x, y, 16119542, 10, -1, 35, 50, w, ['nse b']) then
GetMousePos(X, Y);
Mouse(x, y, 0, 0, false);
AntiRandoms;
until ChooseOption('Light') or (N > 3);
if (N > 3) then
Exit;
FFlag(5);
InvMouse(5, 2);
ChooseOption('Use');
ProgressReport;
Wait(600 + Random(250));
FindObjCustom(X, Y, ['Alt', 'tar'], [10525081], 3)
Mouse(x, y, 0, 0, true)
MouseBox(227, 405, 284, 435, 3);
T := GetSystemTime + 42000;
while (GetSystemTime < T) and not(FindColor(x, y, 2070783, 251, 434, 286, 446)) do
Wait(100 + Random(100));
if not(FindColor(x, y, 2070783, 251, 434, 286, 446)) then
Exit;
GetMousePos(x, y);
if not(PointInBox(Point(x, y), IntToBox(227, 405, 284, 435))) then
MouseBox(227, 405, 284, 435, 1)
else
ClickMouse2(True);
while (GetSystemTime < T) do
begin
if LevelUp then
Wait(800 + Random(100));
AntiBan;
AntiRandoms;
end;
end;
procedure BankandTele;
begin
Wait(800 + Random(200));
AntiRandoms;
if OpenBankNPC then
begin
if Withdraw(8, 0, 1) then
if Withdraw(8, 0, 1) then
if Withdraw(9, 0, 25) then
if BankScreen then
CloseBank;
Wait(1000 + Random(350))
AntiRandoms;
KeyDown(VK_F1);
Wait(300 + Random(100))
KeyUp(VK_F1);
InvMouse(1, 1);
end;
end;
procedure Main;
begin
repeat
ProgressReport;
BankandTele;
StartAltar;
TeleToBank;
until not(LoggedIn);
end;
begin
NumberOfPlayers(1);
CurrentPlayer := 0;
Players[0].Active:= True;
Smart_Server := S_World;
Smart_Signed := S_Signed;
Smart_Members := S_Member;
Smart_SuperDetail := False;
SetupSRL;
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
DeclarePlayer;
if not(LoggedIn) then
begin
LogInPlayer;
Wait(3000 + Random(2000));
AntiRandoms;
end;
SetRun(True);
MakeCompass('n');
Main;
end.Additional Comments..
So far, I've been able to run very long, fairly flawless progress reports, and have already nearly achieved my high-level goal from testing and re-working the script. I'll be publicly posting this script soon, and have already posted the Herblore script I used for 99.
Anyways, I'm not really sure what to expect here, as I'm not completely sure what level you guys are looking for. I just thought it'd be nice to see where I'm at, and how I'm getting along. Just know that I'm a little intimidated by some of the levels of expertise shown here in these forums, and I'm far from some of those levels. Anyways, If it's good enough, awesome. If not, then I'll be back another time! Thanks!
Tips and comments are much appreciated :)
The End!