RISK
2011-12-22 08:29:29
Stand at Al-Kharid bank and please tell me if this walks you to the tanning shop and back properly.
Thank you in advance.
program new;
{$DEFINE SMART}
{$i SRL/SRL.scar}
{$i SPS/SPS.simba}
const
WORLD = 35;
MEMBERS = False;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Active := True;
end;
end;
(* Start of core functions *)
procedure Write(T: string);
begin
WriteLn(TheTime + ': ' + PadR(T, 12));
end;
procedure SetCTS(Hue, Saturation: Extended);
begin
SetColorToleranceSpeed(2);
SetColorSpeed2Modifiers(Hue, Saturation);
end;
procedure RevertCTS;
begin
SetColorSpeed2Modifiers(0.2, 0.2);
SetColorToleranceSpeed(1);
end;
(* End of core functions *)
(* Start of walking and position detection *)
function AtPosition(Position: string): Boolean;
var
P: TPoint;
begin
if (not(LoggedIn)) then
Exit;
FindNormalRandoms;
case Lowercase(Position) of
'bank' : P := Point(4888, 4032);
'shop' : P := Point(4919, 3859);
end;
Result := (SPS_PosOnMM(P));
end;
function WalkTo(Destination: string): Boolean;
var
Path: TPointArray;
begin
Result := False;
if (not(LoggedIn)) then
Exit;
FindNormalRandoms;
case Lowercase(Destination) of
'bank' : Path := [Point(4944, 3944), Point(4917, 3997)];
'shop' : Path := [Point(4943, 3962), Point(4940, 3900)];
end;
if (SPS_WalkPath(Path)) then
begin
while (IsMoving) do
begin
//AntiBan;
Wait(RandomRange(770, 1250));
end;
if (not(IsMoving)) then
Result := (AtPosition(Destination));
end;
if (Result) then
Write('We have walked to the ' + Destination + '.');
end;
(* End of walking and position detection *)
procedure MainLoop;
begin
end;
procedure Setup;
begin
SMART_Server := WORLD;
SMART_Members:= MEMBERS;
SetupSRL;
SPS_Setup(RUNESCAPE_SURFACE, ['12_9']);
DeclarePlayers;
LoginPlayer;
SetAngle(True);
if (WalkTo('shop')) then
if (WalkTo('bank')) then
Write('Success.');
end;
begin
Setup;
end.Thank you in advance.