Need help with chosing option script (with old fonts))

[CAPMAT]

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:

http://img201.imageshack.us/img201/6313/rightclicked.jpg



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('m1gAAAHic42JgYOACYiEgFgNiESDmB2IWIG ZigAAWqBo2IOYEYnYgZobKsSLp54OyZ+YuBJKMBLEkA3GAsEkQ jAAAbJgCmQ==');
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.

[Abu]

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.

[CAPMAT]

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.

[Abu]

I don't think there is.

Try this:

WaitOption('aw all', 4000);

[Imanoobbot]

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.

[Abu]

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

[CAPMAT]

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

[Abu]

Read my earlier post with SlideMouse ;)

[Imanoobbot]

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.

[Abu]

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. :)

[Imanoobbot]

My SlideMouse function should work fine. :)

Yes I saw it, its looking great. =)

[CAPMAT]

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

[CAPMAT]

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

Here what i get:http://img856.imageshack.us/img856/5880/slidemouse.gif

How can i make a click on the option?

[Total]

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

[TomTuff]

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

[CAPMAT]

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.

[CAPMAT]

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.

[Abu]

Before you start moving your mouse around do

MouseSpeed := 30;

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

[CAPMAT]

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