SRL Archive - Help

My situation: i'm playing on private runeserver and there installed old runescape font, so i need help in script which withdrawing some object (Sworfish) by choosing the "withdraw all" option.

Screenshot from server with old font:




I use this script but there is problem it just RightClick on Swordfish but not choice ""withdraw all" option. Need any suggestions to make alteration in this script that choice ""withdraw all" option
Here script what i use:

program WithdrawJUNK;
//{$DEFINE SMART}
{$i srl/srl.simba}

procedure WithdrowBank;
var  SwordF, x, y: integer;
begin

 SwordF:= DTMFromString('m1gAAAHic42JgYOACYiEgFgNiESDmB2IWIGZigAAWqBo2IOYEYnYgZobKsSLp54OyZ+YuBJKMBLEkA3GAsEkQjAAAbJgCmQ==');
    repeat
      if FindDTM(SwordF, x, y, MSX1, MSY1, MSX2, MSY2) then
      Mouse(x, y, 0, 0, false);
      ChooseOption('withdraw all');
      {repeat
        wait(1200+random(250));
        Until not IsUpText('not en') or (InvFull);}
    until(InvFull);
end;

begin
  SetUpSRL;
  WithdrowBank;
end.     

Thank you for help.

Use co-ordinates? Think about it, once you right click something, the 'withraw all' option will always be the same distance down.

Just make sure you keep your item in the same slot every time you run the script and it should work flawlessly.

thank you for advise.
i's also a good way, but if there another way to make withdrowing with out coordinates,because there one disadvantage that i need to keep my object at same slot.

I don't think there is.

Try this:

WaitOption('aw all', 4000);

From: abu_jwka
I don't think there is.

Try this:

WaitOption('aw all', 4000);

Good suggestion :) Exacly what I want to tell him, btw. it is good to play abit around with some functions on a private server. Will give you some routine.

I made a function:

(*
SlideMouse
~~~~~

.. code-block:: pascal

    procedure SlideMouse(cx, cy, rx, ry: Integer);

Moves the mouse 'cx' across the x axis and 'cy' along the y axis
with a randomness of rx and ry

.. note::

    by abu_jwka

Example:

.. code-block:: pascal

*)

procedure SlideMouse(cx, cy, rx, ry: Integer);
var
  x, y: Integer;
begin
  GetMousePos(x, y);
  MMouse(x + cx, y + cy, rx, ry);
end;

So all you have to do is enter the co-ordinates you want to move along the axis and down the y axis regardless of where your fish is it will move by that amount.

For example:

SlideMouse(0, 10, 0, 0) // this will move 10 pixels down

Nothing happening.
Maybe you are right i should use coordinates, so i do.
Thank you for advises.

Read my earlier post with SlideMouse ;)

From: CAPMAT
Nothing happening.
Maybe you are right i should use coordinates, so i do.
Thank you for advises.

The problem with coordinates (im now thinking for the mainscreen, maybe im not really in the discussion anymore) is that they are changing. For example Mining. I would use an autocolor function and then let it look for the colors.

From: Imanoobbot
The problem with coordinates (im now thinking for the mainscreen, maybe im not really in the discussion anymore) is that they are changing. For example Mining. I would use an autocolor function and then let it look for the colors.

My SlideMouse function should work fine. :)

From: abu_jwka
My SlideMouse function should work fine. :)

Yes I saw it, its looking great. =)

From: abu_jwka
I made a function:

(*
SlideMouse
~~~~~

.. code-block:: pascal

    procedure SlideMouse(cx, cy, rx, ry: Integer);

Moves the mouse 'cx' across the x axis and 'cy' along the y axis
with a randomness of rx and ry

.. note::

    by abu_jwka

Example:

.. code-block:: pascal

*)

procedure SlideMouse(cx, cy, rx, ry: Integer);
var
  x, y: Integer;
begin
  GetMousePos(x, y);
  MMouse(x + cx, y + cy, rx, ry);
end;

So all you have to do is enter the co-ordinates you want to move along the axis and down the y axis regardless of where your fish is it will move by that amount.

For example:

SlideMouse(0, 10, 0, 0) // this will move 10 pixels down

Wow slidemouse procedure is awesome,very very nice. i need some time to look into , ty. i think that will help

From: abu_jwka

SlideMouse(0, 10, 0, 0) // this will move 10 pixels down

Here what i get:
How can i make a click on the option?

SlideMouse(0, 10, 0, 0); // this will move 10 pixels down 
ClickMouse2(mouse_left);

I advise you use quicker mouse procedures since theres no bot detection on private servers :)

From: TotalKillz

SlideMouse(0, 10, 0, 0); // this will move 10 pixels down 
ClickMouse2(mouse_left);

Thank you and thank abu_jwka so much. My trouble solved.

From: TomTuff
I advise you use quicker mouse procedures since theres no bot detection on private servers :)

Could you please tell some quicker mouse procedures, because i'm a noob.

Before you start moving your mouse around do

MouseSpeed := 30;

It is normally 15 by default(I think) so this should double it :D

From: abu_jwka
Before you start moving your mouse around do

MouseSpeed := 30;

It is normally 15 by default(I think) so this should double it :D

thank you