From: Dynamite
All I see is 1 person trying to prove he has a bigger e-penis.
You sound like you would belong in a community more like… RsBot? Sythe?
Atleast I'm trying to come up with new ideas to build off from. Why should you discourage me from trying? Infact, who are you to discourage me from trying?
From: Dynamite
So your idea is to open map > set marker > close map > click marker?
If so, how are you handling obstacles?
If you arent taking/using a path you cant use djikstra/A*.
You will walk into a wall and keep clicking the marker until you get round.
You've never used webwalking, have you?
@Bobzilla69:
Test this out, start with any player (preferably in front of Lumbridge Castle, as that's where I tested) and run the script. Your camera angle doesn't matter. This will run you to the Lumbridge East Cow gate.
Note: This is just the idea of the script, giving it a quick test-run. It worked fine for me.
Program MMWW;
{$Define SMART}
{$i SRL/SRL.scar}
Const
WMX1 = 7;
WMY1 = 7;
WMX2 = 760;
WMY2 = 460;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Nick := '';
Pin := '';
Active := True;
end;
end;
Procedure InitialSetup;
begin
Smart_Server := 8;
Smart_Members:= False;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
end;
Function MarkerDistance: Integer;
Var
X,Y,DestMarker: Integer;
Begin
DestMarker := BitmapFromString(4, 3, 'meJw7L8B+Hoz+r+AHIgiDAQzgDADt' +
'2Apx');
Result := -1;
if (FindBitmapIn(DestMarker,X,Y,MMX1,MMY1,MMX2,MMY2)) then
Result := Distance(MMCX,MMCY,X+1,Y+2);
FreeBitMap(DestMarker);
End;
Function MapExists(MarkType: String): Boolean;
Var
X,Y,X2,Y2,CurMarker,
NewMarker: Integer;
Begin
CurMarker := BitmapFromString(30, 10, 'meJzTMU/SQUIMYIDGJRtgNYRyY7' +
'EajtUirB4hxrPIsnjsRWNjdRVW2zFNxqOSGC5JgqMmY41BTBH86Qd' +
'/kiOYIOFsAFpbUAk=');
NewMarker := BitmapFromString(30, 8, 'meJzTMU/SASMGMMBkw7logmhSyCJ' +
'oDPwIl734LcXjTqzOxiWFyy4iuQQDhGyTyXADMVzyfEeqyUSagzWd' +
'4DEcTTFWjQC+hlxZ');
Result := False;
if (MarkType = 'Map') then
Result := FindBitmapIn(CurMarker,X,Y,WMX1,WMY1,WMX2,WMY2);
if (MarkType = 'Marker') then
Result := FindBitmapIn(NewMarker,X2,Y2,WMX1,WMY1,WMX2,WMY2);
FreeBitMap(CurMarker);
FreeBitMap(NewMarker);
End;
{*******************************************************************************
Function MMWW(Dest: String; Distance: Integer): Boolean;
By: Flight
Description: WebWalk using map markers
-'Dest' is the destination string of predefined bitmaps
-'Distance' is the acceptable distance from the destination
*******************************************************************************}
Function MMWW(Dest: String; Distance: Integer): Boolean;
Var
X,Y,X2,Y2,TBMP,
DirMarker: Integer;
Begin
Result := False;
DirMarker := BitmapFromString(4, 4, 'meJw7L8B+nhQEAGzvDmE=');
Case LowerCase(Dest) of
'cows': TBMP := BitmapFromString(17, 19, 'meJxjYCAVnCFZx8jWcubMqBaStX' +
'BbS/AHy0OQSKI+SVqA6iVj7YnRAlQs4KcHRED1xGthMbMEIuK1AEk' +
'hMQmg8yAaidQC0UVQMVwLAEIpMLM=');
end;
if (Not MapExists('Map')) then
begin
MouseBox(530,130,550,155,1);
Repeat
//Find random events here
Wait(50);
until(MapExists('Map'))
end;
Wait(RandomRange(500,750));
if (Not MapExists('Marker')) then
begin
if FindBitmapIn(TBMP,X,Y,WMX1,WMY1,WMX2,WMY2) then
begin
MMouse(X,Y,3,3);
Wait(Random(100));
GetMousePos(X,Y);
Mouse(X,Y,0,0,True);
Wait(RandomRange(150,350));
Mouse(X,Y,0,0,True);
end else
begin
WriteLn('Destination too far, exiting');
Result := False;
//FreeBitMap(TBMP); //Needed?
Exit;
end;
end;
Wait(RandomRange(500,750));
if (Not MapExists('Marker')) then
begin
Repeat
//Random events while in the world map? Doubt it
Wait(50);
until(MapExists('Marker'))
MouseBox(743,13,753,23,1);
Repeat
//Random events while in the world map? Doubt it
Wait(50);
until(Not MapExists('Map'))
end;
Wait(RandomRange(500,750));
if (Not FindBitmapIn(DirMarker,X2,Y2,MMX1,MMY1,MMX2,MMY2)) then
begin
Repeat
//Random events
Wait(50);
until(FindBitmapIn(DirMarker,X2,Y2,MMX1,MMY1,MMX2,MMY2))
end;
Repeat
if FindBitmapIn(DirMarker,X2,Y2,MMX1,MMY1,MMX2,MMY2) then
begin
MMouse(X2,Y2,3,3);
Wait(Random(100));
GetMousePos(X2,Y2);
Mouse(X2,Y2,0,0,True);
Wait(RandomRange(900,1100));
end;
until((MarkerDistance <= Distance) And (MarkerDistance > 0))
MouseBox(530,130,550,155,2);
ChooseOption('Clear');
Result := True;
FreeBitMap(TBMP);
FreeBitMap(DirMarker);
end;
begin
InitialSetup;
Wait(1000);
if MMWW('cows',5) then
Writeln('We have arrived!');
end.
Let me know how it runs for you, Bob.