First Thieving.Scar function (Stunned)

[NCDS]

Just made it today but it has been working perfectly.

{*******************************************************************************
function Stunned: Boolean;
By: NCDS
Description: Return's True if stunned by NPC.
*******************************************************************************}
function Stunned: Boolean;
var P: TPoint; Search: TBox;
begin
  P.x := MSCx;
  P.y := MSCy;
  Search.x1 := P.x - 30;
  Search.y1 := P.y - 30;
  Search.x2 := P.x + 30;
  Search.y2 := P.y + 30;
  Result := FindColorTolerance(P.x, P.y, 2155764, Search.x1, Search.y1,
              Search.x2, Search.y2, 5) and
            IsChatBoxTextBetween('stunned', 0, 7, 8);
end;

Your thoughts..?

[ian.]

What if Game is filtered? =X (I'm not sure if it still says you're stunned, but just trying to help )

[NCDS]

What if Game is filtered? =X (I'm not sure if it still says you're stunned, but just trying to help )

The past few day's I have been writing a new thieving script and everytime I get stunned it say's it so AFIAK this will work just fine. I've actually never gotten "stunned" and had it not say it.

Anyone else know anything of this?

[ian.]

Don't trust me, haha it's just that they blocked most of the things

[NCDS]

Alright, well I will look into it

[Waddo]

erm fitering the chat is a user feature you turn it on and off
and cant you just use getblackchatmessage('tunned');

[Coh3n]

I like it. What's not to like?

I think it could also be useful in the sense that you can eat a piece of food while you are stunned. When I used to do thieving in RS, I would always eat a slice of cake or 2 when I was stunned. This could increase script efficiency.

Nice work, IMO.

[NCDS]

and cant you just use getblackchatmessage('tunned');

Either one would work the same.

I like it. What's not to like?

I think it could also be useful in the sense that you can eat a piece of food while you are stunned. When I used to do thieving in RS, I would always eat a slice of cake or 2 when I was stunned. This could increase script efficiency.

Nice work, IMO.

Thank you

[ian.]

What Waddo and I were trying to say is that if you right click 'Game' on the chat part (bottom left of game applet), then choose filter, it won't say if you're stunned. It supposedly blocks almost all NPC/object related chat (like it doesn't say you got a log/pick flaxed/etc.)

[Coh3n]

What Waddo and I were trying to say is that if you right click 'Game' on the chat part (bottom left of game applet), then choose filter, it won't say if you're stunned. It supposedly blocks almost all NPC/object related chat (like it doesn't say you got a log/pick flaxed/etc.)

Simple solution, just don't filter the game.

Thank you

No problem, it will be a nice addition, finally something in Thieving.scar.

[Naike]

Nice one

Shorten..

{*******************************************************************************
function Stunned: Boolean;
By: NCDS
Description: Return's True if stunned by NPC.
*******************************************************************************}
function Stunned: Boolean;
var
  P: TPoint;
  Search: TBox;
begin
  P := Point(MSCX, MSCY);
  Searth := IntToBox(P.x - 30, P.y - 30, P.x + 30, P.y + 30);
  Result := FindColorTolerance(P.x, P.y, 2155764, Search.x1, Search.y1,
              Search.x2, Search.y2, 5) and
            IsChatBoxTextBetween('stunned', 0, 7, 8);
end;

[NCDS]

No problem, it will be a nice addition, finally something in Thieving.scar.

Nice one

Thanks guys

[Naum]

N1ke, search is spelt wrong

Why not cut out the middle man?

{*******************************************************************************
function Stunned: Boolean;
By: NCDS
Description: Return's True if stunned by NPC.
*******************************************************************************}
function Stunned: Boolean;
begin
  Result := FindColorTolerance(mmcx, mmcy, 2155764, mmcx - 30, mmcy - 30,
              mmcx + 30, mmcx + 30, 5) and
            IsChatBoxTextBetween('stunned', 0, 7, 8);
end;

[Naike]

Don't complain on my spelling <;]

O_o How did I miss that..

[NCDS]

N1ke, search is spelt wrong

Why not cut out the middle man?

{*******************************************************************************
function Stunned: Boolean;
By: NCDS
Description: Return's True if stunned by NPC.
*******************************************************************************}
function Stunned: Boolean;
begin
  Result := FindColorTolerance(mmcx, mmcy, 2155764, mmcx - 30, mmcy - 30,
              mmcx + 30, mmcx + 30, 5) and
            IsChatBoxTextBetween('stunned', 0, 7, 8);
end;

That actually doesn't work, throws up a bunch of errors, we're searching on Main Screen not mini map and "mmcx - 30, mmcy - 30, mmcx + 30, mmcx + 30," gives a type mismatch, and it's not only because you put "mmcx + 30, mmcx + 30"

So, the way N1ke! had it seems to be the shortest error free way.

[NCDS]

Change that to mscx then, it's not that hard?

program New;
{.include srl/srl.scar}
function Stunned: Boolean;
begin
  Result := FindColorTolerance(mscx, mscy, 2155764, mscx - 30, mscy - 30,
              mscx + 30, mscx + 30, 5) and
            IsChatBoxTextBetween('stunned', 0, 7, 8);
end;

begin
if stunned then writeln('yes!');
end.

Failed when compiling
Line 5: [Error] (19022:34): Variable Expected in script C:\Documents and Settings\Owner\Desktop\admin\scripts\stunned.scar

[Naum]

lulz?

My mistake forgot a variable, but that easy to fix right?

program New;
{.include srl/srl.scar}
function StunnedAt(x, y : Integer): Boolean;
begin
  Result := FindColorTolerance(x, y, 2155764, mscx - 30, mscy - 30,
              mscx + 30, mscx + 30, 5) and IsChatBoxTextBetween('stunned', 0, 7, 8);
end;

begin
if stunned then writeln('yes!');
end.

[NCDS]

if I am coming off as an ass, my apologies. That isn't what I'm aiming for at all.

Doesn't it seem more convenient though to just do:

program New;
{.include srl/srl.scar}
function Stunned: Boolean;
var P: TPoint;
begin
  P := Point(mscx, mscy);
  Result := FindColorTolerance(P.x, P.y, 2155764, mscx - 30, mscy - 30,
                 mscx + 30, mscx + 30, 5) and 
               IsChatBoxTextBetween('stunned', 0, 7, 8);
end;

begin
if stunned then writeln('yes!');
end.

Just to avoid needing user input for parameter's?