joshie
2007-05-15 15:18:20
<!– BEGIN TEMPLATE: formanswers –>
joshie - SRL Member Application Form
joshie
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
wyn10
Programming Knowledge
some java. very little lmao.
Other Communitys
rsr(banned lel) mopar…umm impsoft fagex sythe(omg lel)
How Long have You Played Runescape
4 years or more.
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
hmm well, a whole paragraph? ugh this might take a while.
well my names joshie i made a little scrript java(aryan) that chopped normal trees and banked and got axe of it lost one, sadly due to a new compuer i lost it ha ha.
i got involved with scar erm.. 2 years ago? i'm not sure ha ha. found it kinda hard but in the end i got the jist of it(jist, that's a word probably)
hmm what else? my grammer is pretty good, better them summilion muahaha(we was joking on msn lel)
well, that's it really. i actually did it!! w00t w00t i'm gonna go get high. well lets get SRL member status 1st, ok?
oh noes, a script oh wait heres one.
ohh also i have a shitty eye today, got a infection so any spelling mistakes thats why.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
hope you nubs accept me;)
——————————————————
<!– END TEMPLATE: formanswers –>
ALSO remember my old application when i used someone else script, that was because i was t3h leech0r back then and i r sory 4 it:) *bends over waiting for a massive spank* lel.
joshie - SRL Member Application Form
joshie
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
wyn10
Programming Knowledge
some java. very little lmao.
Other Communitys
rsr(banned lel) mopar…umm impsoft fagex sythe(omg lel)
How Long have You Played Runescape
4 years or more.
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
hmm well, a whole paragraph? ugh this might take a while.
well my names joshie i made a little scrript java(aryan) that chopped normal trees and banked and got axe of it lost one, sadly due to a new compuer i lost it ha ha.
i got involved with scar erm.. 2 years ago? i'm not sure ha ha. found it kinda hard but in the end i got the jist of it(jist, that's a word probably)
hmm what else? my grammer is pretty good, better them summilion muahaha(we was joking on msn lel)
well, that's it really. i actually did it!! w00t w00t i'm gonna go get high. well lets get SRL member status 1st, ok?
oh noes, a script oh wait heres one.
ohh also i have a shitty eye today, got a infection so any spelling mistakes thats why.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program Our_official_island;
{.include srl/srl.scar}
var FishingSymbol, Arrow, RedArrow, MovingOn, FirstKill, MovingAround: integer;
FindYourNextInstructor, GainedXp, TalkToChef, Emotes, QuestGuide, Combat: integer;
Attacking, Finantial, Prayer, YourFinalInstructor, AlmostDone, pros1, pros2, mine1, mine2: integer;
road1, road2, road3, road4, road5, DeadBmp, WaterSymbol, FlagBmp, m1bmp, BlueBubble, RedBubble: integer;
BubbleMark: Longint;
gUser, gPass, gTempStr : string;
procedure dpm(mx, my, rx, ry: integer; left: boolean; area: string);
var WaitMs: integer;
begin
if (area = 'inv') then begin
WaitMs := 300;
end else begin
if (area = 'ms') then begin
WaitMs := 350;
end else begin
if (area = 'chat') then begin
WaitMs := 200;
end else begin
WaitMs := 250;
end;
end;
end;
WaitMs := WaitMs + random(WaitMs / 5);
MMouse(mx, my, rx, ry);
getmousepos(x, y);
wait(WaitMs);
Mouse(x, y, 0, 0, left);
end;
function dpmText(mx, my, rx, ry: integer; left: boolean; area, text: string): boolean;
var WaitMs: integer;
begin
if (area = 'inv') then begin
WaitMs := 300;
end else begin
if (area = 'ms') then begin
WaitMs := 350;
end else begin
WaitMs := 250;
end;
end;
WaitMs := WaitMs + random(WaitMs / 5);
MMouse(mx, my, rx, ry);
getmousepos(x, y);
wait(WaitMs);
Result := IsUpText(text);
if (Result) then Mouse(x, y, 0, 0, left);
end;
procedure the_start;
begin
Writeln(' I hope you read the readme before you started this');
Writeln('')
Writeln(' Also credits to dontpanic for his include');
Wait(7000);
Cleardebug;
Writeln('Form coming up in 3 seconds');
Wait(1000);
Writeln(' 2 Seconds');
Wait(1000);
Writeln(' 1 Second');
Wait(1000);
ClearDebug;
end;
procedure DPSetupNoLogout;
begin
SetupSRL;
MouseSpeed := 6;
RoadColor := 0;
Road1 := BitmapFromString(7, 7, 'z78DA33B334333233341B25F1920018' +
'BF3CDF');
Road2 := BitmapFromString(5, 7, 'z78DA337731373137351F46240010BE' +
'2E37');
Road3 := BitmapFromString(7, 8, 'z78DA337533B500C251924A240020D7' +
'4A99');
Road4 := BitmapFromString(6, 6, 'z78DA3373310381614702002A1C2F89' +
'');
Road5 := BitmapFromString(6, 5, 'z78DA333337333075331B522400D3B5' +
'2725');
WaterSymbol := BitmapFromString(7, 6, 'z78DA8DCE310AC0300C03C02F352484' +
'7894ACF6FF4FEAE045C54B1761EC43F8E8E8DE6BEDEB199E0982F' +
'4ACBD22A1AC79CC491108C44796E9B2F24F676FF6DFDC74D9AF6E' +
'5CBE58533B7B');
FlagBmp := BitmapFromString(1, 2, 'FF0000FF0000');
m1bmp := BitmapFromString(4, 3, 'z78DA33753135313137C5411A60005C' +
'E20023EC0E8F');
DeadBmp := BitmapFromString(30, 1, 'z78DA7373330002B721450200CCCB2' +
'6E9');
ActivateClient;
wait(500 + random(100));
end;
procedure DPSetup;
begin
Cleardebug;
DPSetupNoLogout;
if (LoggedIn) then Logout;
end;
procedure DPFlag;
var FlagMark: longint;
begin
MarkTime(FlagMark);
wait(50 + random(10));
repeat
wait(10);
until (not (FindBitmapIn(FlagBmp, x, y, 559, 0, 735, 166)) or (TimeFromMark(FlagMark) > 45000));
wait(300 + random(50));
end;
function DPInFight: boolean;
begin
if (FindColor(x, y, 65899, 116, 50, 380, 266) or FindColor(x, y, 7668995, 116, 50, 380, 266)) then MarkTime(BubbleMark);
Result := TimeFromMark(BubbleMark) < 700;
end;
function DPFindObj(var cx, cy: Integer; Text: string; color, tolerance: Integer): Boolean;
var
x, y, a, c, i, x1, y1, x2, y2: Integer;
begin
if (FindMSColorTol(x, y, color, tolerance)) then
begin
x1 := 245;
y1 := 165;
x2 := 277;
y2 := 185;
repeat
if (not (Loggedin)) then
break;
a := a + 1;
if (a = 1) then
c := c + 1;
if (a = 3) then
c := c + 1;
for i := 1 to c do
begin
if (a = 1) then
begin
x1 := x1 + 30;
x2 := x2 + 30;
end;
if (a = 2) then
begin
y1 := y1 - 20;
y2 := y2 - 20;
end;
if (a = 3) then
begin
x1 := x1 - 30;
x2 := x2 - 30;
end;
if (a = 4) then
begin
y1 := y1 + 20;
y2 := y2 + 20;
end;
if (x1 = 485) and (x2 = 517) then
x2 := x2 - 2;
if (y1 = 325) and (y2 = 345) then
y2 := y2 - 7;
if (x2 > 515) then
Break;
if (FindColorTolerance(x, y, color, x1, y1, x2, y2, tolerance)) then
begin
x := x + 0;
y := y + 0;
MMouse(x, y, 0, 0)
cx := x; cy := y;
wait(100 + random(10));
if (IsUpText(Text)) then
begin
Result := True;
Break;
end;
end;
end;
if (a = 4) then
a := 0;
until (x2 > 515) or (Result = True);
end;
end;
function DPFindObjMultiText(var cx, cy: Integer; Text1, Text2, Text3: string; color, tolerance: Integer): Boolean;
var
x, y, a, c, i, x1, y1, x2, y2: Integer;
begin
if (FindMSColorTol(x, y, color, tolerance)) then
begin
x1 := 245;
y1 := 165;
x2 := 277;
y2 := 185;
repeat
if (not (Loggedin)) then
break;
a := a + 1;
if (a = 1) then
c := c + 1;
if (a = 3) then
c := c + 1;
for i := 1 to c do
begin
if (a = 1) then
begin
x1 := x1 + 30;
x2 := x2 + 30;
end;
if (a = 2) then
begin
y1 := y1 - 20;
y2 := y2 - 20;
end;
if (a = 3) then
begin
x1 := x1 - 30;
x2 := x2 - 30;
end;
if (a = 4) then
begin
y1 := y1 + 20;
y2 := y2 + 20;
end;
if (x1 = 485) and (x2 = 517) then
x2 := x2 - 2;
if (y1 = 325) and (y2 = 345) then
y2 := y2 - 7;
if (x2 > 515) then
Break;
if (FindColorTolerance(x, y, color, x1, y1, x2, y2, tolerance)) then
begin
x := x + 0;
y := y + 0;
MMouse(x, y, 0, 0)
cx := x; cy := y;
wait(100 + random(10));
if (IsUpText(Text1) or IsUpText(Text2) or IsUpText(Text3)) then
begin
Result := True;
Break;
end;
end;
end;
if (a = 4) then
a := 0;
until (x2 > 515) or (Result = True);
end;
end;
function DPClickMenuOption(MenuOption: string): boolean;
var
mx1, my1: integer;
TempRe, TR2: boolean;
begin
if (FindBitMapIn(m1bmp, mx1, my1, 1, 1, 753, 485)) then begin
mx1 := mx1;
my1 := my1 + 18;
TempRe := ClickText(MenuOption, mx1, my1, 760, 502);
TR2 := true;
end;
if (not (TR2)) then begin
TempRe := ClickText(MenuOption, 1, 1, 753, 485);
end;
Result := TempRe;
end;
function DPAtObjCol(ObjCol, Tolerance: integer; UpText, Option: string): boolean;
var
re2: boolean;
begin
if (DPFindObj(x, y, UpText, ObjCol, Tolerance)) then begin
Mouse(x, y, 0, 0, false);
wait(100 + random(50));
re2 := DPClickMenuOption(Option);
if (re2) then begin
wait(50 + random(50));
DPFlag;
wait(600 + random(200));
end;
end;
Result := re2;
end;
function DPAtObjCol2(ObjCol, Tolerance: integer; UpText: string): boolean;
var
re2: boolean;
begin
if (DPFindObj(x, y, UpText, ObjCol, Tolerance)) then begin
ClickMouse(x, y, true);
re2 := true;
if (re2) then begin
wait(50 + random(50));
DPFlag;
wait(600 + random(200));
end;
end;
Result := re2;
end;
function DPAtObjColMulti(ObjCol, Tolerance: integer; UpText1, UpText2, UpText3, Option: string): boolean;
var
re2: boolean;
begin
if (DPFindObjMultiText(x, y, UpText1, UpText2, UpText3, ObjCol, Tolerance)) then begin
Mouse(x, y, 0, 0, false);
wait(100 + random(50));
re2 := DPClickMenuOption(Option);
if (re2) then begin
wait(50 + random(50));
DPFlag;
wait(600 + random(200));
end;
end;
Result := re2;
end;
function DPInNpcTalk: boolean;
begin
Result := FindColor(x, y, 16711680, 183, 445, 374, 453) or FindColor(x, y, 16777215, 183, 445, 374, 453);
end;
function DPAtObjDeformed(BMP: integer; UpText, Option: string): boolean;
begin
Result := FindObjectDeformed(x, y, UpText, UpText, BMP, MSX1, MSY1, MSX2, MSY2);
if (Result) then begin
Mouse(x, y, 0, 0, false);
wait(100 + random(50));
Result := DPClickMenuOption(Option);
if (not (Result)) then MMouse(x - 100, y - 100, 50, 50);
wait(50 + random(50));
DPFlag;
wait(900 + random(200));
end;
end;
procedure DPToDeformed(bitmap, xdiff, ydiff: integer);
var dx, dy: integer;
begin
if (not (LoggedIn)) then Exit;
FindDeformed(dx, dy, bitmap, 576, 3, 727, 160);
wait(50 + random(50));
Mouse(dx + xdiff, dy + ydiff, 0, 0, true);
wait(200 + random(100));
DPFlag;
wait(100 + random(100));
end;
procedure DPToDeformedArea(bitmap, xdiff, ydiff, a, b, c, d: integer);
var dx, dy: integer;
begin
if (not (LoggedIn)) then Exit;
FindDeformed(dx, dy, bitmap, a, b, c, d);
wait(50 + random(50));
Mouse(dx + xdiff, dy + ydiff, 0, 0, true);
wait(200 + random(100));
DPFlag;
wait(100 + random(100));
end;
procedure DPTalkNpc;
begin
while (FindColor(x, y, 16711680, 98, 446, 435, 449) or FindColor(x, y, 16777215, 98, 446, 435, 449)) do begin dpm(304, 447, 20, 1, true, 'chat');
wait(1000 + random(100));
end;
end;
var
frmDesign: TForm;
Names, Passes, Nicks, Location, Skill: array of TEdit;
Active: array of TCheckBox; NewUserButton, Ok: TButton;
cFile: string;
function getNumber: Integer;
var
i: Integer;
begin
for i := 0 to i + 1 do
begin
if (Pos('name' + IntToStr(i) + '=', cFile) = 0) then
begin
Result := i;
Exit;
end;
end;
end;
function getData(aChar: Integer; dName: string): string;
var
tString: string;
begin
Result := '';
tString := dName + IntToStr(aChar) + '=';
if (Pos(tString, cFile) = 0) then
Exit;
Result := cFile;
Delete(Result, 1, Pos(tString, cFile));
Result := Copy(Result, Length(tString), Pos(Chr(13), Result) -
Length(tString));
end;
procedure AddUser;
var
I: Integer;
begin
I := GetArrayLength(Names);
SetArrayLength(Names, I + 1);
SetArrayLength(Passes, I + 1);
SetArrayLength(Nicks, I + 1);
SetArrayLength(Active, I + 1);
SetArrayLength(Location, I + 1);
SetArrayLength(Skill, I + 1);
Names[I] := TEdit.Create(frmDesign);
Names[I].Parent := frmDesign;
Names[I].Left := 13;
if (I = 0) then
Names[I].Top := 54
else
Names[I].Top := Skill[i - 1].Top + 30;
Names[I].Width := 121;
Names[I].Height := 21;
Names[I].Text := 'Username ' + IntToStr(i);
Passes[I] := TEdit.Create(frmDesign);
Passes[I].Parent := frmDesign;
Passes[I].Left := 13;
Passes[I].Top := Names[I].Top + 21;
Passes[I].Width := 121;
Passes[I].Height := 21;
Passes[I].Text := 'Password '
Passes[I].PasswordChar := '*';
Active[I] := TCheckBox.Create(frmDesign);
Active[I].Parent := frmDesign;
Active[I].Left := 155;
Active[I].Top := Passes[I].Top;
Active[I].Width := 79;
Active[I].Height := 17;
Active[I].Caption := 'Active?';
Nicks[I] := TEdit.Create(frmDesign);
Nicks[I].Parent := frmDesign;
Nicks[I].Left := 13;
Nicks[I].Top := Passes[I].Top + 21;
Nicks[I].Width := 121;
Nicks[I].Height := 21;
Nicks[I].Text := 'NOT NEEDED'
Location[I] := TEdit.Create(frmDesign);
Location[I].Parent := frmDesign;
Location[I].Left := 13;
Location[I].Top := Nicks[I].Top + 21;
Location[I].Width := 121;
Location[I].Height := 21;
Location[I].Text := 'NOT NEEDED'
Skill[I] := TEdit.Create(frmDesign);
Skill[I].Parent := frmDesign;
Skill[I].Left := 13;
Skill[I].Top := Location[I].Top + 21;
Skill[I].Width := 121;
Skill[I].Height := 21;
Skill[I].Text := 'NOT NEEDED'
end;
procedure SaveSettings;
var
afile, i, p, t: Integer;
begin
aFile := RewriteFile(AppPath + FileName + '.srl', False);
t := 0;
p := 0;
for i := 0 to GetArrayLength(Names) - 1 do
begin
if (not (Names[I].text = 'Username ' + IntToStr(i)) and
(Length(Names[I].text) > 2)) then
begin
WriteFileString(aFile, 'name' + IntToStr(t) + '=' + Names[I].text +
Chr(13));
WriteFileString(aFile, 'pass' + IntToStr(t) + '=' + Passes[I].text +
Chr(13));
WriteFileString(aFile, 'nick' + IntToStr(t) + '=' + Nicks[I].text +
Chr(13));
WriteFileString(aFile, 'location' + IntToStr(i) + '=' + Location[I].text +
Chr(13));
WriteFileString(aFile, 'skill' + IntToStr(i) + '=' + Skill[I].text +
Chr(13));
if (Active[I].state) then
begin
WriteFileString(aFile, 'active' + IntToStr(t) + '=true' + Chr(13));
SetArrayLength(players, p + 1);
Players[p].Name := Names[I].text;
Players[p].Pass := Passes[I].text;
Players[p].Nick := Nicks[I].text;
Players[p].Loc := Location[I].text;
Players[p].Skill := Skill[I].text;
Players[p].Active := True;
p := p + 1;
end;
t := t + 1;
end;
end;
CloseFile(aFile);
WriteLn('Wrote ' + IntToStr(t) + ' users to ' + FileName + '.srl');
WriteLn('There is ' + IntToStr(p) + ' active users')
end;
procedure LoadSettings;
var
i, t, afile: Integer;
begin
afile := OpenFile(AppPath + FileName + '.srl', False);
if (aFile < 0) then
Exit;
ReadFileString(aFile, cFile, FileSize(aFile));
CloseFile(aFile);
t := getNumber;
for i := 0 to t - 1 do
AddUser;
for i := 0 to t - 1 do
begin
Names[I].Text := getData(i, 'name');
Passes[I].Text := getData(i, 'pass');
Nicks[I].Text := getData(i, 'nick');
Location[I].Text := getData(i, 'location');
Skill[I].Text := getData(i, 'skill');
Active[I].state := (getData(i, 'active') = 'true');
end;
WriteLn('Loaded ' + IntToStr(t) + ' users from ' + FileName + '.srl');
end;
procedure buttonclick(sender: tobject);
var
v: TVariantArray;
begin
SetArrayLength(V, 0);
if (Sender is TButton) then
case (TButton(Sender).tag) of
-1: ThreadSafeCall('AddUser', v);
-2:
begin
frmDesign.ModalResult := mrOk;
ThreadSafeCall('SaveSettings', v);
end;
end;
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 259;
frmDesign.Top := 132;
frmDesign.Width := 400;
frmDesign.Height := 620;
frmDesign.Caption := 'The Tutorial Island Runner By Wyn10 and Josh';
frmDesign.Color := $FF4D4D;
frmDesign.Font.Height := -14;
frmDesign.Font.Name := 'Modern No. 20';
frmDesign.Font.Style := [fsbold, fsunderline];
frmDesign.Font.Color := $0024FF;
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 76;
NewUserButton := TButton.Create(frmDesign);
NewUserButton.Parent := frmDesign;
NewUserButton.Left := 190;
NewUserButton.Top := 8;
NewUserButton.Width := 75;
NewUserButton.Height := 35;
NewUserButton.Caption := 'New User';
NewUserButton.OnClick := @buttonclick;
NewUserButton.Tag := -1;
Ok := TButton.Create(frmDesign);
Ok.Parent := frmDesign;
Ok.Left := 264;
Ok.Top := 44;
Ok.Width := 75;
Ok.Height := 35;
Ok.Caption := 'Done';
Ok.OnClick := @buttonclick;
Ok.Tag := -2;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('InitForm', v);
SetArrayLength(V, 0);
ThreadSafeCall('LoadSettings', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure SetupPlayers;
begin
if FileName = '' then FileName := 'tutplayers';
SetSCARWindow(wsMinimized);
SafeInitForm;
SafeShowFormModal;
FreeForm(FrmDesign);
SetSCARWindow(wsNormal);
frmDesign := nil;
ok := nil;
NewUserButton := nil;
SetArrayLength(Names, 0);
SetArrayLength(Passes, 0);
SetArrayLength(Nicks, 0);
SetArrayLength(Location, 0);
SetArrayLength(Skill, 0);
SetArrayLength(Active, 0);
HowManyPlayers := GetArrayLength(players);
if (howmanyplayers = 0) then
begin
ClearDebug;
WriteLn('CANT RUN NO ACTIVE PLAYERS!!!!');
TerminateScript;
end;
end;
procedure Auth;
begin
gUser := Readln('Auth username?');
gPass := Readln('Auth password?');
gTempStr := GetPage('http://www.YOURSITENAMEHERE.freehostia.com/?username=' + gUser + '&password=' + gPass + '&auth=AUTH1');
if (gTempStr = 'ACCEPTED') then
Writeln('Auth accepted')
else begin
Writeln('Error authenticating! Ending script.');
TerminateScript;
end;
end;
procedure ranclothes;
var
ran1, m, left, right: integer;
begin
wait(7000);
ran1 := 10 + random(30)
for m := 1 to ran1 do
begin
left := random(10)
right := random(10)
if left >= right then mouse(52 + (random(2) * 112), 90 + (random(7) * 36), 10, 7, true)
if right > left then mouse(350 + (random(2) * 112), 96 + (random(5) * 36), 10, 7, true)
end
mouse(248, 276, 5, 5, true)
wait(1000)
lowestangle;
highestangle;
end;
function HighestBrightNess: Boolean;
begin
GameTab(11);
Wait(400);
if GetColor(712, 226) <> 16777215 then
begin
Mouse(712, 226, 2, 2, True);
Result := True;
Wait(500);
Mouse(614, 268, 2, 2, True);
end;
end;
function ChatBmp(bmp: integer): boolean;
begin
Result := findbitmapspiraltolerance(bmp, x, y, 2, 342, 510, 464, 5);
end;
procedure SpecialLogin;
begin
MMouse(458, 291, 10, 5);
MMouse(458, 291, 10, 5);
getmousepos(x, y);
wait(200 + random(200));
ClickMouse(x, y, true);
wait(200 + random(500));
Writeln(Players[CurrentPlayer].Name);
TypeSend(Players[CurrentPlayer].Name);
Wait(100 + Random(100));
TypeSend(Players[CurrentPlayer].Pass);
Wait(100 + Random(100));
MMouse(305, 323, 10, 5);
getmousepos(x, y);
wait(200 + random(200));
ClickMouse(x, y, true);
wait(5000 + random(500));
end;
procedure NextPlayer1(Active: Boolean);
begin
WriteLn('Guy done now next one');
if not Active then
Players[CurrentPlayer].Active := False;
Logout;
PlayerCurTime := (GetSystemTime div 1000);
Players[CurrentPlayer].Worked := Players[CurrentPlayer].Worked +
((PlayerCurTime - PlayerStartTime) / 60);
CurrentPlayer := CurrentPlayer + 1;
if CurrentPlayer > HowManyPlayers - 1 then
CurrentPlayer := 0;
while Players[CurrentPlayer].Active = False do
begin
CurrentPlayer := CurrentPlayer + 1;
if CurrentPlayer > HowManyPlayers - 1 then
begin
CurrentPlayer := 0;
Wait(10000); // Everybody False. Endless Loop.
end;
end;
if Players[CurrentPlayer].Active = True then
begin
Logs := Logs + 1;
end;
repeat
wait(100 + random(100));
until (not (DPInFight));
SpecialLogin;
end;
function DPAtObjColEdited(ObjCol, Tolerance: integer; UpText, Option: string): boolean;
var re2: boolean;
begin
FindObj(x, y, UpText, ObjCol, Tolerance);
wait(100);
if (IsUpText(UpText)) then begin
Mouse(x, y, 0, 0, false);
wait(100 + random(50));
re2 := ClickText(Option, MSX1, MSY1, MSX2, MSY2);
wait(50 + random(50));
DPFlag;
wait(900 + random(200));
end;
Result := re2;
end;
procedure MoveMWFlag;
var
timeout: Integer;
begin
if (FindColor(x, y, 255, MMX1,MMY1,MMX2,MMY2)) then
begin
repeat
SleepAndMoveMouse(4000+random(350));
until (not FindColor(x, y, 255, MMX1,MMY1,MMX2,MMY2))
end;
end;
procedure TiAtObj(objcol, tol: integer; uptext, opt: string);
begin
repeat
wait(100);
until (DPAtObjColEdited(objcol, tol, uptext, opt));
end;
procedure WalkToArrow;
begin
repeat
wait(100);
until(FindBitmapToleranceIn(Arrow,x,y,MMX1,MMY1,MMX2,MMY2,5));
Mouse(x + 2,y + 7,0,0,true);
wait(100);
MoveMWFlag;
Flag;
wait(900+random(200));
end;
procedure WalkToArrow2;
begin
repeat
wait(100);
until (FindBitmapToleranceIn(Arrow, x, y, MMX1, MMY1, MMX2, MMY2, 5));
Mouse(x + 9, y + 15, 0, 0, true);
wait(500 + random(400));
end;
procedure WalkToRedArrow;
begin
repeat
wait(100);
until (FindBitmapToleranceIn(RedArrow, x, y, MMX1, MMY1, MMX2, MMY2, 5));
Mouse(x, y + 7, 0, 0, true);
wait(100);
DPFlag;
wait(900 + random(200));
end;
procedure DoorWait;
begin
wait(600 + random(115));
end;
///////MAIN LINE
begin
ClearDebug;
the_start;
SetupPlayers;
MoveToTray;
FishingSymbol := BitmapFromString(2, 4, 'A3ADB5A3ADB507B0F5015DF3015DF30' +
'15DF3015DF3015DF3');
Arrow := BitmapFromString(3, 9, 'z78DA73737573713272C34FBAB8399A' +
'3B11209DDD1C4DDC08904E6E96C62628A4A39BB9A1237E120025A' +
'628BD');
RedArrow := BitmapFromString(3, 4, 'z78DA7373330002378A49003C8E0F91' +
'');
MovingOn := BitmapFromString(28, 1, 'z78DA73727474B27074B27434B5307' +
'402B30D80C0CDCD09491C2A02518344628A63518969260E11FCE2' +
'00CD652733');
FirstKill := BitmapFromString(81, 1, 'z78DA73727474B27074B27434B5307' +
'482B0C1A40110B8B9E114717274B534C2A5925AE2B854524E52E4' +
'3648588149A838920879E228369268028A080E5F0000C90C7304');
MovingAround := BitmapFromString(31, 1, 'z78DA73B27434B5307402930640E0E' +
'6E684578428958E8E4E168E10921233514C40321342020048D42A' +
'55');
GainedXp := BitmapFromString(72, 2, 'z78DA73B27434B5307402930660E06' +
'46469696E8A2282A466A0C4B1A8747474B270849028B248E2C490' + '50BD1011FCB623EBA5DC5F982E27C2045CA40112C0691A52CC52E' +
'47E0A520831B14942AC619A4F56A852940EF1AA04009BC7BE28');
FindYourNextInstructor := BitmapFromString(52, 2, 'z78DA33303030707333C0413A393A3' +
'A5938628A383939BA5A1A1910A1171749895E62CC74B27434B530' +
'4426718923CBE277038A2C38048821B1A847320DEA060C5B70D98' +
'EDFEFE4851B79F61210C711C2002CFA92A5');
TalkToChef := BitmapFromString(151, 2, 'z78DAB555410E80200CFB929210E1' +
'B825FEFF4B1EE681647496193CF4B0D55AE81655449BA86197DAC' +
'E033CD63526E4988ECADDCB881366D8F51C1D7D3ACFDE39AA43CF' +
'00997763B58FFB0C7D2E9C82D6C969EEC35C3AAB3932297B57C82' +
'D336FB1FE043D3FAC5075B765683719E604C126A27BF8759638BB' +
'5C25CC979F04BEFBD64BEF5735CCE9ECDB442AC754BEF1B4F8FFC' +
'BE45B8B49313A1E1F8FE68FA9');
Emotes := BitmapFromString(56, 4, 'z78DAA593B11280200C437F4907EF7' +
'06C07FEFF93F084211C340475C850726D7854BFED4AA75735F364' +
'4DDFCAF17C393B7A14853EAD03760EEABAB3CB267488EED25594B' +
'98A52320ACFEA9938311566E6347806854F70533CD559F1578EDE' +
'FA0F4FEE5C70DEE549EBD1AC05814F9BBFCB13FD8A4ADB4BF34C9' +
'C34CFB8B17CE23825CA3F3995FFF702080C3705');
QuestGuide := BitmapFromString(153, 5, 'z78DAC557410E84200CFC926B6256' +
'8E90ECFFBFB409E15003AD33A5A887C654A5D3D2616AC9B99C79A' +
'B57A9F7904DF9383FB4C5D7576CC329D6EC91D3B92CB0C1A864F5' +
'ECDAF6FE3DA5EFD1EC93FBA5ADA921A97E757F7D68E1378928F31' +
'543BE2DF997F686AADE2FE1A3D639B1FDCFE60273EA6556E27B61' +
'3FC5B9B91AA7625B95C449E26425797685B1923D1FCC3AD83DB37' +
'5171DCBD5B1D2AFE1BC7050B252F07460811CED8876DD625909C5' +
'52BA6E8016EE01FB2B96BF3892817AFAB4DE55819BACC95C34F5B' +
'FF123BCF09D2DE62486F46D94274A25673818ACBFC05E107E570F' +
'5C76599B4C948838B6C19BF04C4EC70D453EE5EFA73E4D7790EE4' +
'2E60AFB0F51AB15FC173940084FB32C2B9FD1CAE5AC74F96FB412' +
'D0EE191EB1EAC9C67D97957F5261191E');
Combat := BitmapFromString(28, 1, 'z78DA73B27434B5307402930640E0E' +
'6E6E4E8E864E1884C522E8E2202B191447100249427C7');
Attacking := BitmapFromString(48, 1, 'z78DA73B27434B53074727474B270C' +
'4451A00819B1B7E12AA1E6C1A540462320649942C86EDB85C4540' +
'25A68D78C531DD060090C94284');
Finantial := BitmapFromString(27, 2, 'z78DA73B27434B5307442220D80C0C' +
'D0D4242C51D1D9D2C1CA124921A271C7A718A239B8383C4A21287' +
'F9B8ECA2C885C8FE455683E9772417020024E34A5B');
Prayer := BitmapFromString(24, 2, 'z78DA73B27434B53074C2200D80C0C' +
'D0D423A393A3A5938629298B238D5239909B505973832498CC978' +
'DD46AAFB31C5012AD4442E');
YourFinalInstructor := BitmapFromString(12, 7, 'z78DA73727474B2707442220D80C0C' +
'D0D423A593A9A5A1842485CE2C8B24E384C1B74E2B8DC0F11A1D8' +
'1C5CBAB09018BAB0E845B685183389B01100171D7761');
AlmostDone := BitmapFromString(39, 2, 'z78DA73B27434B5303400023737274' +
'747270B4708499E087E712A98E3E4E86A690421A1B248220448B2' +
'FC45AA5F28320787CB49F529009A7D7030');
pros1 := BitmapFromString(132, 4, 'z78DAC556CB0E843008FC25D6C4AC' +
'3DB6C9FEFF2FEDC1268BC1C14188CB81C3405B5E238AFC64B4BE6' +
'EAF5D0BC0AD15F930DADE50F5AE0019BD8FADEF9AF1993A91573E' +
'237125ECAF32E2EBC3D40D56CF3D0BFD47FFB4C56AA1659E6262B' +
'66F997AE6910BBDB4F65EA726B8E0BF02E331BD403DA2F02023EE' +
'455E8013D91DACEA54419582F889A79A64C40BCD8E0BABB9F3044' +
'7B795F634B335EEF964780A3BA53DD3BC40B73DC417227EFFEB5D' +
'8533569F0B615E64F0C48C05D8E1FE998479A136CE4D5EA09DFE0' +
'8C7FFB047DC0AA4E6DF7CE1FD89E57D8AF74590175F2FEDBD98');
mine1 := BitmapFromString(194, 2, 'z78DACD94C10AC02008865F690B62' +
'7554D8FBBFD2607530C4D2B2B11D3C7CD8BF34FD11E1CE01BBF17' +
'83F4E245E09002628B17242E6B8350EF433C47496C889C4A54CAB' +
'4EC343CE579CD36FDE42CA74EAAD6FEDFA38F93AD64923A7BE9C5' +
'87E96EF11DF35693745CEFF6555E8729C72127EC3267675A8DAC0' +
'8BF49DA137A1F93FF022CDD67BEDA3AFBEB946A993DB7C98EBEFA' +
'8BAE1EA8AF49EB37156179C41CFD733BDBCE801981A11E0');
pros2 := BitmapFromString(157, 3, 'z78DAC595410EC3200C04BFD4468A' +
'1A8E46EAFFBF5429E4600486B1495B0E165AAF9C857871CEF24E5' +
'B16C9873CCE55F61652E149F6E3596285007E2C923A9692896650' +
'53AFE02942776231BF8D5B9CA5FAA0BB1047F56D67AFE255A1C13' +
'9B3C5274CA5245673ACB9CA72B75A88FE4743CE8A5B1D3DE3742B' +
'615EC896D26B77F8F4D657E5376EB5F40475AE7797E55CDEDB7FF' +
'22061129F7638E03E75768C905794B8984F373E0D09B3CA16879E' +
'D1AC8CCF75AF4EA2B6C53B59F0DD898B87DDC27147E780194D6A9' +
'ACCC6171DE6D05F5E3FB6FC0FD64E7253');
mine2 := BitmapFromString(194, 1, 'z78DAA593510A00210844AFB4BBB0' +
'509F0A7BFF2B056D1F868D8CD5C710AFC1545455BEFA5CFD68BF5' +
'B457CA1225A049111E727463D474EEF999C55DE725B1DAF34F79E' +
'D8C9C7674856A9DC50B7AD1F746FB36A132DDBFF4D4EFC38554A6' +
'83C81FC242F78B859FC0E26B612281FE13C2BDED900BD2407EE');
DPSetup;
if not (LoggedIn) then SpecialLogin;
repeat
Mousespeed := 2 - random(4);
BenMouse := False;
begin
ranclothes;
wait(200 + random(138));
HighestAngle;
PerfectNorth;
WalkToArrow;
repeat
TiAtObj(397186, 10, 'une', 'alk-');
until (DPInNpcTalk);
DPTalkNpc;
GameTab(11);
repeat
TiAtObj(397186, 10, 'une', 'alk-');
until (DPInNpcTalk);
DPTalkNpc;
HighestBrightNess;
repeat
wait(100+random(250));
TiAtObj(1791600, 10, 'oor', 'pen');
DoorWait;
until (ChatBmp(MovingAround));
repeat
WalkToArrow;
TiAtObj(3817064, 10, 'urv', 'alk-');
until (DPInNpcTalk);
DPTalkNpc;
GameTab(4);
repeat
wait(100+random(250));
TiAtObj(1397318, 10, 'ree', 'down');
wait(8000 + random(1492));
until (DPInNpcTalk);
Mouse(648, 76, 3, 3, true);
wait(100);
DPFlag;
repeat
Mouse(628, 228, 2, 2, true);
wait(500 + random(500));
Mouse(660, 227, 2, 2, true);
wait(10000 + random(1000));
until (ChatBmp(GainedXp));
GameTab(2);
repeat
TiAtObj(3817064, 10, 'urv', 'alk-');
until (DPInNpcTalk);
DPTalkNpc;
DPToDeformed(FishingSymbol, 0, -5);
GameTab(4);
TiAtObj(15780000, 15, 'ishi', 'Net');
wait(6000 + random(1000));
TiAtObj(15780000, 15, 'ishi', 'Net');
wait(6000 + random(1000));
DPToDeformed(FishingSymbol, 5, -15);
Mouse(708, 229, 2, 2, true);
TiAtObj(5161203, 15, 'ire', 'ire');
wait(1500 + random(500));
Mouse(582, 266, 2, 2, true);
TiAtObj(3387879, 15, 'ire', 'ire');
wait(1500 + random(500));
Mouse(635, 83, 1, 1, true);
wait(100);
DPFlag;
wait(300 + random(100));
WalkToArrow;
repeat
TiAtObj(540510, 10, 'ate', 'pen');
DoorWait;
until (ChatBmp(FindYourNextInstructor));
WalkToArrow;
LowestAngle;
MakeCompass('W');
LowestAngle;
MakeCompass('W');
repeat
TiAtObj(1660014, 10, 'oor', 'pen');
DoorWait;
DoorWait;
Highestangle;
Perfectnorth;
Highestangle;
Perfectnorth;
until (ChatBmp(TalkToChef));
repeat
TiAtObj(14671843, 10, 'alk-', 'alk-');
until (DPInNpcTalk);
DPTalkNpc;
Mouse(626, 267, 2, 2, true);
wait(500 + random(500));
MMouse(667, 266, 2, 2);
wait(100);
Mouse(667, 266, 2, 2, true)
wait(500 + random(100));
WalkToArrow;
Mouse(713, 266, 2, 2, true);
TiAtObj(1518023, 10, 'ange', 'ange');
wait(3000 + random(200));
GameTab(13);
WalkToArrow;
repeat
TiAtObj(1858937, 10, 'oor', 'pen');
DoorWait;
until (ChatBmp(Emotes));
GameTab(12);
wait(1000)
Mouse(623, 281, 1, 1, true);
wait(3000 + random(100));
GameTab(11);
wait(1000 + random(500));
Mouse(647, 431, 1, 1, true);
wait(500 + random(100));
WalkToRedArrow;
WalkToRedArrow;
DPFlag;
WalkToArrow;
MoveMWFlag;
repeat
TiAtObj(1461090, 10, 'oor', 'pen');
DoorWait;
until (ChatBmp(QuestGuide));
repeat
TiAtObj(4024613, 10, 'uest', 'alk-');
until (DPInNpcTalk);
DPTalkNpc;
GameTab(3);
repeat
TiAtObj(4024613, 10, 'uest', 'alk-');
until (DPInNpcTalk);
DPTalkNpc;
WalkToArrow;
TiAtObj(532037, 10, 'adde', 'own');
wait(2000 + random(1000));
Mouse(647, 151, 1, 1, true);
wait(100);
DPFlag;
WalkToArrow;
WalkToArrow;
repeat
TiAtObj(7878515, 10, 'ini', 'alk-');
until (DPInNpcTalk);
DPTalkNpc;
repeat
WalkToArrow;
TiAtObj(6710894, 5, 'ock', 'Pros');
wait(3000 + random(1000));
until (ChatBmp(pros1));
repeat
WalkToArrow;
TiAtObj(4546685, 5, 'ock', 'Pros');
wait(3000 + random(1000));
until (ChatBmp(pros2));
WalkToArrow;
repeat
TiAtObj(7878515, 10, 'ini', 'alk-');
until (DPInNpcTalk);
DPTalkNpc;
repeat
WalkToArrow;
DPFlag;
TiAtObj(6710894, 5, 'ock', 'Mine');
wait(3000 + random(1000));
until (ChatBmp(mine1));
repeat
WalkToArrow;
TiAtObj(4546685, 5, 'ock', 'Mine');
wait(3000 + random(1000));
until (ChatBmp(mine2));
WalkToArrow;
GameTab(4);
Mouse(670, 300, 2, 2, true);
LowestAngle;
MakeCompass('S');
LowestAngle;
LowestAngle;
MakeCompass('S');
TiAtObj(3092275, 10, 'urn', 'urn');
wait(3000 + random(1000));
WalkToArrow;
WalkToArrow;
MakeCompass('N')
HighestAngle;
HighestAngle;
PerfectNorth;
DPflag;
repeat
TiAtObj(7878515, 10, 'ini', 'alk-');
until (DPInNpcTalk);
DPTalkNpc;
WalkToArrow;
Mouse(627, 301, 1, 1, true);
TiAtObj(4737103, 10, 'nvi', 'nvi');
MMouse(35, 62, 1, 1);
wait(100);
ClickMouse(35, 62, true);
wait(2000 + random(1000));
WalkToArrow;
WalkToArrow;
repeat
TiAtObj(9342618, 10, 'ate', 'Open');
DoorWait;
until (ChatBmp(Combat));
WalkToArrow;
repeat
TiAtObj(6654901, 10, 'omb', 'alk-');
until (DPInNpcTalk);
DPTalkNpc;
wait(1000);
GameTab(5);
Mouse(653, 432, 1, 1, true);
wait(1000);
DoorWait;
Mouse(629, 297, 1, 1, true);
wait(3000);
DoorWait;
Mouse(485, 41, 1, 1, true);
wait(1000);
Mouse(485, 41, 1, 1, true);
DPFlag;
WalkToArrow;
WalkToArrow;
repeat
TiAtObj(6654901, 10, 'omb', 'alk-');
until (DPInNpcTalk);
DPTalkNpc;
Mouse(595, 303, 1, 1, true);
DoorWait;
wait(1000);
GameTab(4);
wait(1000);
Mouse(629, 297, 1, 1, true);
wait(1000);
DoorWait;
Mouse(712, 300, 1, 1, true);
DoorWait;
Mouse(558, 189, 1, 1, true);
wait(1000);
GameTab(4);
WalkToArrow;
repeat
TiAtObj(9474203, 10, 'ate', 'Open');
DoorWait;
until (ChatBmp(Attacking));
Mouse(585, 64, 3, 3, True);
DPFlag;
repeat
TiAtObj(7371129, 10, 'ian', 'tta');
wait(7500 + random(1000));
until (FindBitMapToleranceIn(FirstKill, x, y, 116, 358, 448, 418, 20));
Mouse(717, 89, 2, 2, true);
wait(1000 + random(530));
TiAtObj(9474203, 10, 'ate', 'Open');
DoorWait;
WalkToArrow;
repeat
TiAtObj(6654901, 10, 'omb', 'alk-');
until (DPInNpcTalk);
DPTalkNpc;
Mouse(627, 301, 1, 1, true);
DoorWait;
Mouse(710, 301, 1, 1, true);
DoorWait;
Mouse(654, 69, 1, 1, true);
wait(100);
DPFlag;
Wait(900 + random(200));
repeat
TiAtObj(7371129, 10, 'ian', 'tta')
wait(4000+random(1000));
until (FindBitMapToleranceIn(MovingOn, x, y, 179, 344, 341, 397, 20));
Mouse(645, 49, 1, 1, true);
wait(100);
DPFlag;
Mouse(645, 49, 1, 1, true);
wait(100);
DPFlag;
Mouse(649, 95, 1, 1, true);
wait(100);
DPFlag;
wait(500 + random(500));
TiAtObj(2114653, 20, 'adde', 'limb');
wait(2000 + random(1000));
FindSymbol(x, y, 'bank');
Mouse(x, y, 3, 3, true);
DPFlag;
TiAtObj(607324, 10, 'ooth', 'Use');
DPTalkNpc;
Mouse(254, 398, 1, 1, true);
DoorWait;
Mouse(486, 41, 1, 1, true);
DoorWait;
repeat
WalkToArrow;
MakeCompass('E');
LowestAngle;
TiAtObj(1791857, 10, 'pen', 'pen');
DoorWait;
until (ChatBmp(Finantial));
DoorWait;
repeat
wait(100+random(250));
TiAtObj(2302757, 10, 'ina', 'alk-');
until (DPInNpcTalk);
PerfectNorth;
HighestAngle;
DPTalkNpc;
repeat
WalkToArrow;
WalkToArrow;
TiAtObj(1791857, 10, 'oor', 'pen');
DoorWait;
until (ChatBmp(Prayer));
DoorWait;
Mouse(657, 140, 2, 2, True);
DPFlag;
wait(600 + random(100));
WalkToArrow;
wait(300 + random(100));
if (DPAtObjCol(3823739, 10, 'arg', 'pen')) then begin
DoorWait;
WalkToArrow;
end;
repeat
TiAtObj(2508906, 10, 'Ta', 'ro');
until (DPInNpcTalk);
DPTalkNpc;
GameTab(6);
repeat
TiAtObj(2508906, 10, 'Ta', 'ro');
until (DPInNpcTalk);
DPTalkNpc;
Mouse(586, 484, 1, 1, true);
wait(600 + random(500));
Mouse(613, 485, 1, 1, true);
wait(600 + random(500));
repeat
TiAtObj(2508906, 10, 'oth', 'alk-');
until (DPInNpcTalk);
DPTalkNpc;
repeat
WalkToArrow;
TiAtObj(2386826, 10, 'oor', 'pen')
DoorWait;
until (ChatBmp(YourFinalInstructor));
Mouse(700, 109, 1, 1, true);
DPFlag;
wait(600 + random(100));
WalkToArrow;
repeat
TiAtObj(9658898, 10, 'agi', 'alk-');
wait(1000);
until (DPInNpcTalk);
wait(1000);
DPTalkNpc;
GameTab(7);
wait(1000);
DPTalkNpc;
TiAtObj(9658898, 10, 'agi', 'alk-');
wait(1000 + random(550));
TiAtObj(9658898, 10, 'agi', 'alk-');
wait(1000 + random(450));
TiAtObj(9658898, 10, 'agi', 'alk-');
wait(1000 + random(350));
TiAtObj(9658898, 10, 'agi', 'alk-');
wait(1000 + random(500));
repeat
WalkToArrow2;
wait(1000);
Mouse(601, 237, 1, 1, true);
TiAtObj(8233655, 16, 'ick', 'ick');
DoorWait;
until (ChatBmp(AlmostDone));
repeat
TiAtObj(9658898, 10, 'agi', 'alk-');
wait(1000);
until (DPInNpcTalk);
DPTalkNpc;
Mouse(258, 398, 1, 1, true);
wait(600 + random(500));
DPTalkNpc;
wait(1000 + random(500));
GameTab(4);
MMouse(626, 336, 1, 1);
wait(200 + random(100));
HoldMouse(626, 336, true);
MMouse(584, 228, 1, 1);
wait(200 + random(100));
releasemouse(584, 228, true);
wait(1000 + random(500));
MMouse(668, 336, 1, 1);
wait(200 + random(100));
HoldMouse(668, 336, true);
MMouse(627, 228, 1, 1);
wait(200 + random(100));
releasemouse(627, 228, true);
wait(1000 + random(500));
Mouse(589, 43, 1, 1, true);
wait(2000 + random(238));
DPFlag;
wait(1000 + random(1000));
Mouse(648, 186, 1, 1, true);
dropto(1, 2)
dropto(4, 7)
dropto(9, 13)
dropto(15, 28)
NextPlayer1(false);
end;
until (false);
end.hope you nubs accept me;)
——————————————————
<!– END TEMPLATE: formanswers –>
ALSO remember my old application when i used someone else script, that was because i was t3h leech0r back then and i r sory 4 it:) *bends over waiting for a massive spank* lel.
