First Thieving.Scar function (Stunned)

Just made it today but it has been working perfectly.

SCAR Code:

{*******************************************************************************
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..?

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

Quote:

---

Originally Posted by 99_ aka ian.

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?

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

Alright, well I will look into it ;)

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

I like it. :) What's not to like? :p

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

Quote:

---

Originally Posted by Waddo

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

---

Either one would work the same.

Quote:

---

Originally Posted by Coh3n

I like it. :) What's not to like? :p

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

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

Quote:

---

Originally Posted by 99_ aka 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.)

---

Simple solution, just don't filter the game. :p

Quote:

---

Originally Posted by NCDS

Thank you :)

---

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

Nice one :)

Shorten..

SCAR Code:

{*******************************************************************************
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;

Quote:

---

Originally Posted by Coh3n

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

---

Quote:

---

Originally Posted by N1ke!

Nice one :)

---

Thanks guys ;)

N1ke, search is spelt wrong :)

Why not cut out the middle man?

SCAR Code:

{*******************************************************************************
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;

Don't complain on my spelling <;]

O_o How did I miss that..

Quote:

---

Originally Posted by NaumanAkhlaQ

N1ke, search is spelt wrong :)

Why not cut out the middle man?

SCAR Code:

{*******************************************************************************
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 :p 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" :p

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

Quote:

---

Originally Posted by NaumanAkhlaQ

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

---

SCAR Code:

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.

Quote:

---

Originally Posted by Scar Debug

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

---

lulz?

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

SCAR Code:

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.

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:

SCAR Code:

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?