DDTM, Count the TPA, right click and choose option?
Originally Posted by irc
find the gate with color then look at the up text
Reflection?
Otherwise do something like:
Might not be your best option, but it should work.SCAR Code:if (FindObjCustom(x, y, ['gat','te'], GateColorHere, 10)) then
begin
MMouse(x, y, 2, 2);
Wait(200 + random(100));
If IsUpText('pen') then
DoorIsClosed else
if IsUpText('lose') then
DoorIsOpened;
end;
RimmReaper! | Account maker! | HP Above Heads! | Full Karamja Fisher! | Reflection AutoUpdater!
Feel free to contact me on MSN @
franher007@hotmail.com
reflection version used in my refl tut runner...
SCAR Code:function ChurchDoor : boolean;
var Open, Closed, P: TPoint; I: Integer;
begin
I := 0;
Result := FindObjectExX(Open, 37003)
repeat
if FindObjectExX(Closed, 37002) then
begin
P := TileToMS(Closed, 20);
Mouse(P.x, P.y, 1, 1, False);
Wait(500+random(500));
ChooseOption('Open');
FFlag(0);
Wait(1000+Random(300));
end;
Inc(I);
until Result or (I >= 15);
Writeln('Church Door Open!');
end;
This was used in one of my scripts, just change the Uptext and colors to what you need. Good luckSCAR Code:function OpenDoor : Boolean;
//Camo
var
X, Y : Integer;
begin
if not LoggedIn then
Exit;
begin
if (FindObjCustom(x, y, ['oor', 'ose Do', 'pen Do'], [5664127, 9751500, 7514024, 2764596, 3496307, 3496307, 5011335, 3824487, 4154224], 5)) then
begin
if (IsUpTextMultiCustom(['Open', 'pen', 'Ope'])) then
begin
Mouse(x, y, 1, 1, True);
Result := True;
end else
if (IsUpTextMultiCustom(['Close', 'Clo', 'ose'])) then
Result := True;
end;
end;
end;
~Camo
Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
{ MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }
When posting a bug, please post debug! Help us, help you!
I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.
SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.
Don't use reflection :>
SCAR Code:function OpenGate:Boolean;
var
TPA : TPointArray;
MyPoint : TPoint;
x, y: Integer;
begin
FindColorsSpiralTolerance(x, y, TPA, {color}, MSx1, MSy1, MSx2, MSy2, 10);
if Length(TPA) = 0 then FindColorsSpiralTolerance(x, y, illowTPA, {color}, MSX1, MSY1, MSX2, MSY2, 10);
if not Length(TPA) = 0 then
for i := 0 to High(TPA) do
begin
MyPoint := TPA[i];
MMouse (MyPoint.x, MyPoint.y, 3, 3);
if (IsUpTextMultiCustom(['Open', 'pen'])) then
begin
GetMousePos(x,y);
Mouse(x, y, 1, 1, True);
Result:=True;
end else
if (IsUpTextMultiCustom(['Close', 'Clo', 'ose'])) then
begin
Result:=True;
Exit;
end;
end;
end;
Dunno if it works. Its taken from the wc script i am making. It works with willows =).
There are currently 1 users browsing this thread. (0 members and 1 guests)