SRL Archive - RS3 Script Requests

I hate to be asking but can anyone make a Rune Mysteries runer? I really need one and I'm not able to do it (tried already but my knowledge isn't enough for this).

I would be really thankful for this.

Thanks.

ill make 1 as soon as reflection's fixed i fail at walking with color

Same as the above :)

You could use my World Walker

From: Zyt3x
You could use my World Walker

Yes world walker works good

@OP the quest is quite easy, you pick it up go to the wizard talk to him accept after that you go to varrock talk to aubury have him teleport you down to the wizard talk to the wizard and you're done… then you can run back up to varrock.

http://www.tip.it/runescape/index.php?rs2quest_id=1
http://runehq.com/guide.php?type=quest&id=0117
http://www.zybez.net/quests/43/rune_mysteries/

;)

From: Zyt3x
You could use my World Walker

hmm ill see how the walking works with ur world walker if its succesfull ill use it

function WW_IsMapUp : Boolean; //By mixster. Thanks mixster :)
var tmp : String;
begin
  Result := GetMMLevels('hp', tmp) = -1;
end;

procedure WW_CloseMap;
var T : Integer;
begin
  if not WW_IsMapUp then Exit;
  Mouse(740, 10, 16, 16, True);
  T := GetSystemTime + 15000;
  while WW_IsMapUp and (GetSystemTime < T) do
    Wait(500);
  Wait(500);
end;

function WW_OpenWorldmap : Boolean;
var T : Integer;
begin
  if WW_IsMapUp then
  begin
    Result := True;
    Exit;
  end;
  MouseBox(527, 139, 559, 156, 1);
  Wait(1500);
  T := GetSystemTime + 15000;
  while (GetColor(230, 196) = 1118604) and (GetSystemTime < T) do
    Wait(200);
  Result := GetSystemTime < T;
end;

function WW_GetPos(var X, Y : Integer) : Boolean;
begin
  Result := False;
  if WW_OpenWorldmap then
  begin
    if GetColor(712, 475) = 16777215 then
      MouseBox(742, 464, 757, 479, 1);
    if GetColor(606, 308) <> 5860213 then
      MouseBox(666, 469, 698, 491, 1);
    Result := FindColor(X, Y, 255, 609, 311, 757, 460);
    if not Result then
      WW_CloseMap;
  end;
end;

//WW_Walk(Point(705, 373)); will walk to GE
function WW_Walk(Loc : TPoint) : Boolean;
var
  MapDist, I, X, Y : Integer;
  Angle, FAngle : Extended;
  WalkPoint, Cur : TPoint;
begin
  repeat
    if WW_IsMapUp then
    begin
      if FindColor(X, Y, 9100798, 6, 6, 757, 460) then
      begin
        Mouse(X, Y, 90, 14, True);
        Wait(1500);
      end else
        WW_CloseMap;
    end;
    WW_OpenWorldmap;
    WW_GetPos(Cur.X, Cur.Y);
    WW_CloseMap;

    MapDist := Distance(Cur.X, Cur.Y, Loc.X, Loc.Y);
    Angle := Degrees(ArcTan2(Cur.Y - Loc.Y, Cur.X - Loc.X));
    Angle := Angle + 180;
    if Angle > 360 then Angle := Angle - 360;

    for I := 1 to MapDist do
    begin
      FAngle := Angle - rs_GetCompassAngleDegrees;
      WalkPoint := RotatePoint(Point(MMCX + 60, MMCY), Radians(FAngle), MMCX, MMCY);
      Mouse(WalkPoint.X-2, WalkPoint.Y-2, 4, 4, True);
      RunEnergy(30);
      while IsMoving do
        if (FlagDistance < 20) and (FlagDistance > 0) then Break;
      Wait(150);
    end;
    while IsMoving do
      Wait(100);
  until(MapDist < 1)
  SetAngle(True);
  Result := True;
end;

//WW_WalkToLocation('Varrock');
function WW_WalkToLocation(SearchString : String) : Boolean;
var
  TargetPos : TPoint;
begin
  Result := False;
  if WW_OpenWorldmap then
  begin
    MouseBox(98, 472, 320, 487, 1);
    TypeSend(SearchString);
    Wait(1000+Random(500));
    if not WW_GetPos(TargetPos.X, TargetPos.Y) then Exit;
    Result := WW_Walk(TargetPos);
  end;
end;

This is the most up to date version
EDIT: Remember to credit if you use!

k ty ill see if it works
Edit : yer it works but its not as accurate as reflection its always clicking on the bank instead of the magic shop.