Edit: Ive tryed Radial Walking and DTMs but cant seem to get them to work could some give me pointers where to go because ive read tuts on them but never get them to work![]()
Edit: Ive tryed Radial Walking and DTMs but cant seem to get them to work could some give me pointers where to go because ive read tuts on them but never get them to work![]()
Last edited by rya; 03-02-2010 at 07:44 PM.
I see Now, says the blind man
SCAR Code:Function TpaFind(No,look: integer; text: string):Integer;
Var i,a: Integer;
TPA: TPointArray;
MyPoint: TPoint;
Begin
If Not LoggedIn Then Exit;
x := MSCx;
y := MSCy;
A := 0;
SetColours(No);
FindColorsSpiralTolerance(x, y, TPA, Colour, MSx1, MSy1, MSx2, MSy2, 10);
If Length(TPA) = 0 Then
Begin
Result := 0;
Exit;
End;
SetColorSpeed2Modifiers(0.2, 0.2);
ColorToleranceSpeed(1);
If (Text = 'None') Then
Begin
Result := True; // not really sure what you want to do with this but you can't set an Integer to True obviously so you will need to change it.
Exit;
End;
For i := 0 To High(TPA) Do
Begin
MyPoint := TPA[i]
Inc(a);
MMouse (MyPoint.x, MyPoint.y, 3, 3);
If IsUpText(Text) Then
Begin
Result := GetColor(MyPoint.x, MyPoint.y);
Exit;
End Else
Result := 0;
If (A >= look) Then
Begin
Result := 0;
Exit;
End;
End;
End;
I believe that's what you want. It should return the color at the spot where it finds the UpText.
That's called autocoloring, there are plenty of tutorials on that. You can also use RadialWalkTolerance to avoid autocoloring.
There are currently 1 users browsing this thread. (0 members and 1 guests)