SRL Archive - SRL Archives

Well…Really easy procedure, double clicks :) Good for opening files, and also a good anti ban. It's a good anti ban, because some times I, and most likely most of yous, click multiple times on something in RuneScape :)

Well…Here it is :)

{*******************************************************************************
Procedure DoubleMouse(ax,ay,ashx,ashy: Integer; ashe: Boolean);
By: Ashur2Good
Description: Double clicks mouse( You can choose left or right click ).
*******************************************************************************}

Procedure DoubleMouse(ax,ay,ashx,ashy: Integer; ashe: Boolean);
begin
Mouse(ax,ay,ashx,ashy,ashe);
FTWait(2)//To wait for possible lag
Mouse(ax,ay,ashx,ashy,ashe);
end;

And something i call CoolMouse ( Don't laugh :( )

{*******************************************************************************
Procedure CoolMouse(ux,uy,auhx,auhy: Integer; auhe: Boolean);
By: Ashur2Good
Description: Clicks the mouse, but with anti ban :)
*******************************************************************************}

Procedure CoolMouse(ux,uy,auhx,auhy: Integer; auhe: Boolean);
begin
  case random(3) of
    1: DoubleMouse(ux,uy,auhx,auhy,auhe);
    2: Mouse(ux,uy,auhx,auhy,auhe);
  end;
end;

Well, run this , but the cross hair on you're desktop, it should click on the top left corner icon :)

program new;
{.include SRL/SRL.scar}
{*******************************************************************************
Procedure DoubleMouse(ax,ay,ashx,ashy: Integer; ashe: Boolean);
By: Ashur2Good
Description: Double clicks mouse.
*******************************************************************************}

Procedure DoubleMouse(ax,ay,ashx,ashy: Integer; ashe: Boolean);
begin
  Mouse(ax,ay,ashx,ashy,ashe);
  FTWait(2)//To wait for possible lag
  Mouse(ax,ay,ashx,ashy,ashe);
end;

{*******************************************************************************
Procedure CoolMouse(ux,uy,auhx,auhy: Integer; auhe: Boolean);
By: Ashur2Good
Description: Clicks the mouse, but with anti ban :)
*******************************************************************************}

Procedure CoolMouse(ux,uy,auhx,auhy: Integer; auhe: Boolean);
begin
  case random(3) of
    1: DoubleMouse(ux,uy,auhx,auhy,auhe);
    2: Mouse(ux,uy,auhx,auhy,auhe);
  end;
end;




begin
Mousespeed:=30;
DoubleMouse(34,34,0,0,true);
Wait(1000);
end.

Lol, i know these are really simple, if these are already made please tell me.


-Ashur:stirthepot:

Hehe…nice Ashur…I don't think every include maker started with something fab eh?

From: SantaClause
Hehe…nice Ashur…I don't think every include maker started with something fab eh?

Lol, Yeah i guess so :/ This stinks doesn't it, just tell me lol.


-Ashur

Nah dude…at least you made something…

I'm hopeless…;)

heh dw I was about to get FindBitmap and add uptext to it then Release it and wait for everyone to call me a genius :D

From: rkroxpunk
heh dw I was about to get FindBitmap and add uptext to it then Release it and wait for everyone to call me a genius :D

lol, Well At least now i feel good :) Thanks!


-Ashur

Haha…that's better..

I'm having trouble getting to King Black Dragon…