John
2012-03-01 03:10:46
How Long have You Played Runescape?
5 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
No
What is your general programming knowledge?
Simba And extremely limited Java
Are you a member of any other communities?
Sythe Profile Link : http://www.sythe.org/member.php?u=300079
Tell us about yourself…
Please show us one (or multiple) of your scripts.
5 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
No
What is your general programming knowledge?
Simba And extremely limited Java
Are you a member of any other communities?
Sythe Profile Link : http://www.sythe.org/member.php?u=300079
Tell us about yourself…
From: Evlin
Name: John
Interests: computers, coding, runescape and Fast paced sports.
I am 15 years old.
Australian
Love Pizza :D
I have Been In the botting seen since the start of 2011, January.
Trying to Get Cert 3 I.T. at school.
Please show us one (or multiple) of your scripts.
program Gilded_Altar; //By Evlin
{$i srl/srl/misc/smart.simba}
{$DEFINE CRASHSMART}
{$i SRL\SRL.simba}
{$i SPS\SPS.simba}
var
Clock: TIntegerArray;
ActionText: TStringArray;
Runs,Used:Integer;
procedure DeclarePlayers; //By MAT NOT ME
begin
HowManyPlayers := 1; // Number of Players to use
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; // Player to start with, first one is 0
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True; // just leave it as is.
Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
Players[0].Integers[1] := 10000; // Number of loads
end;
///////////////////////////////////////////////////////////////////////////////
///////////////No Further Than Here(Unless Permission Was granted)/////////////
///////////////////////////////////////////////////////////////////////////////
procedure SmallReport(Action: Integer); //MAT Not Me
begin
ClearDebug;
ActionText := ['BankandTele','Useing','UseBankNPC'];
Clock := [0,0,0];
ConvertTime(GetTimeRunning,Clock[0],Clock[1],Clock[2]);
writeln('(---Evlins Gilded Altar`---)');
Writeln('Time Running ' +tostr(Clock[0])+':'+tostr(Clock[1])+':'+tostr(Clock[2]));
writeln('Current Process: '+ActionText[Action]);
Writeln('Runs Done:' +IntToStr(runs));
end;
function UseBankNPC: Boolean; //By Aegis
var
bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair, t: Integer;
begin
If FindNormalRandoms then
Begin
Logout;
TerminateScript;
End else
Result := (LoggedIn) and (BankScreen or PinScreen);
if (Result) then exit;
Speed := GetColorToleranceSpeed;
ColorToleranceSpeed(1);
ColFace := 7513036;
ColGrey := 4995649;
ColBlue := 4336690;
ColHair := 2506053;
if (FindObjThroughMM(bx, by, 'npc', [ColFace, ColBlue, ColGrey, ColHair], [5, 5, 5, 5],
['ounter', 'se Co', 'anke', 'to B', 'Banker', 'nker'], 2, 2)) then
begin
Mouse(bx, by, 0, 0, False);
if (WaitOptionMulti(['kly Co', 'se-qu', 'ank B', 'Bank Banker', 'ank', 'nker'], 750)) then
begin
t := (GetSystemTime + 5000);
repeat
if (BankScreen) or (PinScreen) then
begin
Result := true;
Break;
end;
Wait(50);
until(GetSystemTime > t);
if (Length(Players) > 0) then
if ((PinScreen) and (Players[CurrentPlayer].Pin <> '')) then
InPin(Players[CurrentPlayer].Pin);
Result := (BankScreen) or (PinScreen);
end;
end;
ColorToleranceSpeed(Speed);
end;
Procedure FillBoB; //By Me Option choosing did not work..
var
x, y: integer;
begin
begin
MoveMouse(706, 141);
Wait(200 + random(50));
ClickMouse2(False);
Wait(500 + random (50));
(ChooseOption('Call Follower'));
Wait(4000 + random (50))
end;
begin
MMouse(x, y, 20, 20);
Wait(250);
ClickMouse2(False);
ChooseOption('Store')
Wait(400 + random(300));
InvMouse(9, 3);
ClickMouse2(False);
ChooseOption('All')
Wait(850 + random(50));
MouseBox(419, 36, 428, 43, 1);
end;
end;
Procedure TakeBob; //Me
begin
Mouse(705, 140, 20, 20, 1);
end;
procedure TeleToBank; //Aegis
var
x, y, N: Integer;
begin
If FindNormalRandoms then
Begin
Logout;
TerminateScript;
End else
if (N > 3) then
begin
Exit;
end;
ClickNorth(SRL_Angle_High);
begin
repeat
Inc(N);
if FindObjCustom(X, Y, ['mulet','et Gl','lory'], [7114144,6982558], 3) then
GetMousePos(X, Y);
Mouse(x, y, 0, 0, false);
until ChooseOption('Rub') or (N > 5);
end;
if (N > 5) then
begin
Exit;
end;
FFlag(0);
N:=0;
repeat
Inc(N);
Wait(500);
until FindNpcChatText('dgev', ClickLeft);
Wait(8000 + Random(957));
begin
SPS_Setup(RUNESCAPE_SURFACE, ['10_6']);
SPS_Continue := true;
SPS_WalkPath([Point(4214, 2686)]);
FFlag(0);
Wait(2500 + Random(200));
N:=0;
end;
end;
Procedure OpenDoor; //By me
var
x, y : integer;
begin
If FindNormalRandoms then
Begin
Logout;
TerminateScript;
End else
KeyUp(VK_F1);
Wait(5500 + Random(200));
begin
repeat
if FindObjCustom(X, Y, ['oor','Doo'], [4807789,5268855,5137269,5466749], 2) then
GetMousePos(X, Y);
Mouse(x, y, 10, 10, false);
until ChooseOption('Open');
end;
end;
procedure RBurner; //By Me
var
Rburn,x,y:integer;
aFound:extended;
begin
If FindNormalRandoms then
Begin
Logout;
TerminateScript;
End else
RBurn := DTMFromString('mggAAAHicY2NgYFBjZGDQAmIVINYDYg0gVgTiHqBcAxBXA3EzEE8F4glA/PTJQ4YnWxUYnI1VGTzMNBi+f//G8O7NMwZ+oBw2zIgDQwAAkjMPzw==');
if FindDTMRotated(RBurn, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
Begin
writeln('Found Right Burner, Lighting it.')
MMouse(x, y, 7, 7);
Mouse(x, y, 0, 0, True);
end else
if not FindDTMRotated(Rburn, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
writeln('Found no burner');
FreeDTM(RBurn);
end;
procedure LBurner; //By Me
var
Lburn,x,y:integer;
aFound:extended;
begin
If FindNormalRandoms then
Begin
Logout;
TerminateScript;
End else
LBurn := DTMFromString('mrAAAAHic42BgYOCEYn4gZgdiISBmZYAALiAWBmIZIJYEYnEgFgBiNqg8ExA/f/6MIdzRgOHbl08MX169ZJg0oY3h3gZ5BnsDZTCWhOrFhRkJYBgAAIBxDzE=');
if FindDTMRotated(LBurn, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
Begin
writeln('Found Left Burner, Lighting it.')
MMouse(x, y, 7, 7);
Mouse(x, y, 0, 0, True);
end else
if not FindDTMRotated(Lburn, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
writeln('Found no burner');
FreeDTM(LBurn);
end;
procedure GAltar; //By Me
var
Altar,x,y:integer;
aFound:extended;
begin
If FindNormalRandoms then
Begin
Logout;
TerminateScript;
End else
Altar := DTMFromString('mggAAAHicY2NgYHjIyMDwD4hPAPF9IH4MxNeAeAtQbh0QbwLiA0C8AohXAnGkixHDtePyDHdvnWUIsNVlWD9dkiEjRI9BBCiHDTPiwBAAAB4tEgE=');
if FindDTMRotated(Altar, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
Begin
writeln('Found The GAltar Using bones.')
MMouse(x, y, 7, 7);
Wait(250);
ClickMouse2(True);
end else
if not FindDTMRotated(Altar, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
writeln('Found No GAltar');
FreeDTM(Altar);
end;
procedure Useing; //By me
begin
If FindNormalRandoms then
Begin
Logout;
TerminateScript;
End else
InvMouse(9, 3);
if isuptext('Bury') then
ClickMouse2(False);
wait(200);
ChooseOption('Use');
FFlag(0);
Wait(600 + Random(250));
GAltar;
Wait(4000 + random(75));
MouseBox(227, 405, 284, 435, 1);
SmallReport(1);
end;
procedure BankandTele; //By Aegis BUT Alterd by me for summoning.
begin
begin
repeat
UseBankNPC;
until BankScreen;
end;
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))
KeyDown(VK_F1);
Wait(300 + Random(100))
KeyUp(VK_F1);
FillBoB;
end;
begin
repeat
UseBankNPC;
until BankScreen;
end;
begin
if Withdraw(9, 0, 25) then
if BankScreen then
CloseBank;
Wait(1000 + Random(350))
KeyDown(VK_F1);
Wait(300 + Random(100))
KeyUp(VK_F1);
InvMouse(1, 1);
SmallReport(1);
end;
end;
begin //By Me
NumberOfPlayers(1);
CurrentPlayer := 0;
Players[0].Active:= True;
Smart_Server := 15;
Smart_Signed := True;
Smart_Members := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
Writeln('Gilded Altar By Evlin');
Writeln('Version 1.10');
repeat
BankandTele;
OpenDoor;
Wait(3000 + random(75));
MouseBox(250, 40, 268, 73, 1);
Wait(5500 + random(75));
RBurner;
Wait(5500 + random(75));
LBurner;
Wait(5500 + random(88));
Useing;
Wait(35000 + random (200));
TakeBoB;
Wait(43000 + random(125));
TeleToBank;
Inc(Runs);
IncEx(Used,25);
Until(Not Loggedin)
end.
Script 2-StewAllDay
---------------------------
program Stew;
{$DEFINE CRASHSMART}
{$i srl/srl/misc/smart.simba}
{$i SRL\SRL.simba}
{$i SPS\SPS.simba}
Var
Clock: TIntegerArray;
ActionText: TStringArray;
Bought:Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1; // Number of Players to use
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; // Player to start with, first one is 0
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True; // just leave it as is.
Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
Players[0].Integers[1] := 10000; // Number of loads
end;
procedure SmallReport(Action: Integer); //M
begin
ClearDebug;
ActionText := ['Stewin'];
Clock := [0,0,0];
ConvertTime(GetTimeRunning,Clock[0],Clock[1],Clock[2]);
writeln('(---StewAllDay By Evlin---)');
Writeln('Time Running ' +tostr(Clock[0])+':'+tostr(Clock[1])+':'+tostr(Clock[2]));
writeln('Current Process: '+ActionText[Action]);
Writeln('Stews Bought:' +IntToStr(Bought));
end;
function UseBankNPC: Boolean; //A
var
bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair, t: Integer;
begin
If FindNormalRandoms then
Begin
Logout;
TerminateScript;
End else
Result := (LoggedIn) and (BankScreen or PinScreen);
if (Result) then exit;
Speed := GetColorToleranceSpeed;
ColorToleranceSpeed(1);
ColFace := 7513036;
ColGrey := 4995649;
ColBlue := 4336690;
ColHair := 2506053;
if (FindObjThroughMM(bx, by, 'npc', [ColFace, ColBlue, ColGrey, ColHair], [5, 5, 5, 5],
['ounter', 'se Co', 'anke', 'to B', 'Banker', 'nker'], 2, 2)) then
begin
Mouse(bx, by, 0, 0, False);
if (WaitOptionMulti(['kly Co', 'se-qu', 'ank B', 'Bank Banker', 'ank', 'nker'], 750)) then
begin
t := (GetSystemTime + 5000);
repeat
if (BankScreen) or (PinScreen) then
begin
Result := true;
Break;
end;
Wait(50);
until(GetSystemTime > t);
if (Length(Players) > 0) then
if ((PinScreen) and (Players[CurrentPlayer].Pin <> '')) then
InPin(Players[CurrentPlayer].Pin);
Result := (BankScreen) or (PinScreen);
end;
end;
ColorToleranceSpeed(Speed);
end;
procedure Bank;
begin
if bankscreen then
DepositAll();
CloseBank;
end;
Procedure WalkToBank;
begin
SPS_Setup(RUNESCAPE_SURFACE, ['6_6']);
SPS_Continue := true;
SPS_WalkPath([Point(2597, 2671), Point(2596, 2663), Point(2597, 2656), Point(2605, 2658), Point(2605, 2664), Point(2604, 2670), Point(2605, 2675), Point(2607, 2680), Point(2611, 2685), Point(2615, 2693), Point(2615, 2698), Point(2619, 2700), Point(2624, 2704), Point(2632, 2706), Point(2637, 2708), Point(2642, 2709), Point(2648, 2709), Point(2655, 2711), Point(2663, 2711), Point(2670, 2708), Point(2675, 2704), Point(2680, 2702), Point(2686, 2701), Point(2690, 2700), Point(2699, 2697), Point(2705, 2698), Point(2712, 2701), Point(2720, 2706), Point(2726, 2706), Point(2734, 2705), Point(2738, 2698), Point(2736, 2693), Point(2732, 2687), Point(2726, 2680), Point(2727, 2675)]);
FFlag(2);
Wait(1000 + Random(200));
SPS_WalkPath([Point(2597, 2671), Point(2596, 2663), Point(2597, 2656), Point(2605, 2658), Point(2605, 2664), Point(2604, 2670), Point(2605, 2675), Point(2607, 2680), Point(2611, 2685), Point(2615, 2693), Point(2615, 2698), Point(2619, 2700), Point(2624, 2704), Point(2632, 2706), Point(2637, 2708), Point(2642, 2709), Point(2648, 2709), Point(2655, 2711), Point(2663, 2711), Point(2670, 2708), Point(2675, 2704), Point(2680, 2702), Point(2686, 2701), Point(2690, 2700), Point(2699, 2697), Point(2705, 2698), Point(2712, 2701), Point(2720, 2706), Point(2726, 2706), Point(2734, 2705), Point(2738, 2698), Point(2736, 2693), Point(2732, 2687), Point(2726, 2680), Point(2727, 2675)]);
begin
Writeln('Did Not walk Path.')
end;
end;
procedure GetStews;
var
x, y: integer;
begin
MakeCompass('w');
repeat
if FindObjCustom(X, Y, ['Bartender'], [1846548, 15524331, 6326956, 1450279], 3) then
ClickMouse2(true);
Wait(2500+random(50));
until(true);
if FindNpcChatText('ood, orning, hat, ould, ike', Nothing) then
wait(500);
MouseBox(233, 463, 288, 470, 1);
wait(1100);
FindNpcChatText('hat', ClickLeft);
wait(1100);
MouseBox(233, 463, 288, 470, 1);
wait(1100);
MouseBox(233, 463, 288, 470, 1);
wait(1100);
FindNpcChatText('ould', ClickLeft);
wait(1100);
MouseBox(233, 463, 288, 470, 1);
wait(1100);
MouseBox(233, 463, 288, 470, 1);
if InvFull then
walkToBank;
if not InvFull then
GetStews;
end;
Procedure WalkToStew;
begin
SPS_Setup(RUNESCAPE_SURFACE, ['6_6']);
SPS_Continue := true;
SPS_WalkPath([Point(2736, 2698), Point(2735, 2703), Point(2731, 2703), Point(2727, 2703), Point(2722, 2702), Point(2716, 2701), Point(2711, 2699), Point(2707, 2696), Point(2700, 2695), Point(2691, 2701), Point(2684, 2708), Point(2677, 2706), Point(2669, 2706), Point(2663, 2706), Point(2650, 2711), Point(2645, 2711), Point(2636, 2711), Point(2624, 2707), Point(2614, 2699), Point(2612, 2691), Point(2614, 2683), Point(2611, 2677)]);
FFlag(2);
Wait(1000 + Random(200));
if not SPS_WalkPath([Point(2736, 2698), Point(2735, 2703), Point(2731, 2703), Point(2727, 2703), Point(2722, 2702), Point(2716, 2701), Point(2711, 2699), Point(2707, 2696), Point(2700, 2695), Point(2691, 2701), Point(2684, 2708), Point(2677, 2706), Point(2669, 2706), Point(2663, 2706), Point(2650, 2711), Point(2645, 2711), Point(2636, 2711), Point(2624, 2707), Point(2614, 2699), Point(2612, 2691), Point(2614, 2683), Point(2611, 2677), Point(2611, 2670), Point(2612, 2663), Point(2610, 2658)]) then
begin
Writeln('Did Not walk Path.')
end;
end;
begin
Smart_Server := 15;
Smart_Signed := True;
Smart_Members := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
Writeln('StewAllDay By Evlin');
Writeln('Version 1.00');
repeat
WalkToStew;
GetStews;
UseBankNPC;
Bank;
IncEx(Bought,28);
until(False)
end.
Script 3 A 15 minute Astral Script(Everything by except FindBankNPC and Declare Players
--------------------------------
program Astral;
{$DEFINE CRASHSMART}
{$i srl/srl/misc/smart.simba}
{$i SRL\SRL.simba}
{$i SPS\SPS.simba}
var
ToAltar: TPointArray;
procedure DeclarePlayers;
begin
HowManyPlayers := 1; // Number of Players to use
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; // Player to start with, first one is 0
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True; // just leave it as is.
Players[0].Pin := '1010'; // Bank Pin. Leave it if you don't have one.
Players[0].Integers[1] := 10000; // Number of loads
end;
function UseBankNPC: Boolean; //A
var
bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair, t: Integer;
begin
If FindNormalRandoms then
Begin
Logout;
TerminateScript;
End else
Result := (LoggedIn) and (BankScreen or PinScreen);
if (Result) then exit;
Speed := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
ColFace := 4495017;
ColGrey := 6057592;
ColBlue := 3559520;
ColHair := 9081497;
if (FindObjThroughMM(bx, by, 'npc', [ColFace, ColBlue, ColGrey, ColHair], [5, 5, 5, 5],
['Bank booth'], 2, 4)) then
begin
Mouse(bx, by, 0, 0, False);
if (WaitOptionMulti(['Bank'], 750)) then
begin
t := (GetSystemTime + 5000);
repeat
if (BankScreen) or (PinScreen) then
begin
Result := true;
Break;
end;
Wait(50);
until(GetSystemTime > t);
if (Length(Players) > 0) then
if ((PinScreen) and (Players[CurrentPlayer].Pin <> '')) then
InPin(Players[CurrentPlayer].Pin);
Result := (BankScreen) or (PinScreen);
end;
end;
ColorToleranceSpeed(Speed);
end;
procedure Bank;
begin
begin
repeat
UseBankNPC;
until BankScreen;
end;
begin
if Withdraw(1, 0, 27) then
if BankScreen then
CloseBank;
Wait(1000 + Random(350))
end;
end;
Procedure WalkingToAltar;
Begin
if (LoggedIn) then
begin
SPS_Setup(RUNESCAPE_SURFACE,['0_2','1_2']);
ToAltar := [Point(291, 975), Point(291, 1006), Point(291, 1038),
Point(294, 1063), Point(301, 1079), Point(317, 1095), Point(327, 1100),
Point(341, 1112), Point(351, 1125), Point(370, 1132),
Point(383, 1149), Point(379, 1167), Point(381, 1190), Point(406, 1176),
Point(428, 1172), Point(440, 1174), Point(460, 1176)];
SPS_WalkPath(ToAltar);
Wait(RandomRange(300, 400));
end;
End;
Procedure Craft;
var
x, y: integer;
begin
if FindObjCustom(X, Y, ['Altar'], [8354429], 10) then
begin
ClickMouse2(true);
end;
if not FindObjCustom(X, Y, ['Altar'], [8354429], 10) then
begin
craft;
end;
end;
procedure TellyHome;
var
x, y, LunarHome: integer;
begin
LunarHome := DTMFromString('mbQAAAHicY2VgYOBggABeIBYAYmYgZgdibiDmA2IWqPy+I58Y2ubcQMFuDJiAEQsGAwBv+wr5');
begin
repeat
if GameTab(tab_Magic) then
if FindDTM(LunarHome, X, Y, MIX1, MIY1, MIX2, MIY2) then
Mouse(x, y, 5, 5, false);
until ChooseOption('Cast');
end;
end;
begin
Smart_Server := 15;
Smart_Signed := True;
Smart_Members := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
repeat
Bank;
WalkingToAltar;
Wait(3000);
Craft;
Wait(1000+random(250));
TellyHome;
Wait(4000);
WalkingToBank;
until (false)
end.
Started Script 4 FleshCrawlerPro(got stuck on opening floor 2 doors)
----------------------------
program FleshCrawler;
//{$DEFINE CRASHSMART}
//{$i srl/srl/misc/smart.simba}
{$i SRL\SRL.simba}
{$i SPS\SPS.simba}
function UseBankNPC: Boolean; //A
var
bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair, t: Integer;
begin
If FindNormalRandoms then
Begin
Logout;
TerminateScript;
End else
Result := (LoggedIn) and (BankScreen or PinScreen);
if (Result) then exit;
Speed := GetColorToleranceSpeed;
ColorToleranceSpeed(1);
ColFace := 7513036;
ColGrey := 4995649;
ColBlue := 4336690;
ColHair := 2506053;
if (FindObjThroughMM(bx, by, 'npc', [ColFace, ColBlue, ColGrey, ColHair], [5, 5, 5, 5],
['ounter', 'se Co', 'anke', 'to B', 'Banker', 'nker'], 2, 2)) then
begin
Mouse(bx, by, 0, 0, False);
if (WaitOptionMulti(['kly Co', 'se-qu', 'ank B', 'Bank Banker', 'ank', 'nker'], 750)) then
begin
t := (GetSystemTime + 5000);
repeat
if (BankScreen) or (PinScreen) then
begin
Result := true;
Break;
end;
Wait(50);
until(GetSystemTime > t);
if (Length(Players) > 0) then
if ((PinScreen) and (Players[CurrentPlayer].Pin <> '')) then
InPin(Players[CurrentPlayer].Pin);
Result := (BankScreen) or (PinScreen);
end;
end;
ColorToleranceSpeed(Speed);
end;
Procedure WalkToTunnel;
begin
SPS_Setup(RUNESCAPE_SURFACE, ['10_6','10_7']);
SPS_Continue := true;
SPS_WalkPath([Point(4208, 2685), Point(4204, 2683), Point(4198, 2684), Point(4193, 2690), Point(4193, 2699), Point(4199, 2700), Point(4208, 2702), Point(4217, 2705), Point(4224, 2704), Point(4232, 2706), Point(4236, 2717), Point(4236, 2727), Point(4236, 2733), Point(4236, 2741), Point(4236, 2748), Point(4236, 2756), Point(4236, 2764), Point(4236, 2772), Point(4234, 2781), Point(4229, 2785), Point(4221, 2783), Point(4214, 2785), Point(4207, 2786), Point(4202, 2786), Point(4198, 2786), Point(4190, 2787), Point(4186, 2792), Point(4186, 2797), Point(4186, 2804), Point(4186, 2814), Point(4186, 2825), Point(4186, 2834), Point(4186, 2842), Point(4182, 2851), Point(4180, 2856), Point(4181, 2863), Point(4183, 2870), Point(4184, 2876), Point(4184, 2882), Point(4185, 2891), Point(4179, 2892), Point(4175, 2902), Point(4177, 2909), Point(4177, 2917), Point(4180, 2922), Point(4181, 2932), Point(4180, 2939), Point(4173, 2944), Point(4166, 2949), Point(4160, 2954), Point(4156, 2958)]);
FFlag(2);
Wait(1000 + Random(200));
if not SPS_WalkPath([Point(4208, 2685), Point(4204, 2683), Point(4198, 2684), Point(4193, 2690), Point(4193, 2699), Point(4199, 2700), Point(4208, 2702), Point(4217, 2705), Point(4224, 2704), Point(4232, 2706), Point(4236, 2717), Point(4236, 2727), Point(4236, 2733), Point(4236, 2741), Point(4236, 2748), Point(4236, 2756), Point(4236, 2764), Point(4236, 2772), Point(4234, 2781), Point(4229, 2785), Point(4221, 2783), Point(4214, 2785), Point(4207, 2786), Point(4202, 2786), Point(4198, 2786), Point(4190, 2787), Point(4186, 2792), Point(4186, 2797), Point(4186, 2804), Point(4186, 2814), Point(4186, 2825), Point(4186, 2834), Point(4186, 2842), Point(4182, 2851), Point(4180, 2856), Point(4181, 2863), Point(4183, 2870), Point(4184, 2876), Point(4184, 2882), Point(4185, 2891), Point(4179, 2892), Point(4175, 2902), Point(4177, 2909), Point(4177, 2917), Point(4180, 2922), Point(4181, 2932), Point(4180, 2939), Point(4173, 2944), Point(4166, 2949), Point(4160, 2954), Point(4156, 2958)]) then
begin
Writeln('Did Not walk Path.')
end;
end;
function Down: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.19, 0.12);
FindColorsSpiralTolerance(MSCX, MSCY, arP, 6782341, MSX1, MSY1, MSX2, MSY2, 3);
if (Length(arP) = 0) then
begin
Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 17.22) and (X <= 22.02) and (Y >= 18.24) and (Y <= 23.29) and (Z >= 13.90) and (Z <= 17.82) then
begin
Result := arC[i];
Writeln('AutoColor = ' + IntToStr(arC[i]));
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
Writeln('AutoColor failed in finding the color.');
end;
begin
SetupSRL;
AutoColor;
end.
procedure DownUnder;
var
x, y: integer;
begin
FindObjCustom(X, Y, ['Climb'], [Down], 10)
end;
begin
SetupSRL;
Writeln('FleshAllDay By Evlin');
Writeln('Version 1.00');
WalkToTunnel;
end.
NOTES:
I also attempted to make sps maps for the strong hold but failed to do any further than floor 2