laakerules
02-16-2012, 02:30 PM
I heard you could do this and i honestly had no idea. I knew you could resize it and move it. I just didnt know you could take pieces out of it.
Function FindGhoul(Var X,Y: Integer): Boolean;
var
CTS,I,T: Integer;
TPA: TPointArray;
begin
repeat
Result := False;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.20, 1.60);
FindColorsSpiralTolerance(MSCX, MSCY, TPA,(11652298), MSX1, MSY1, MSX2, MSY2, 8);
ColorToleranceSpeed(CTS);
if (Length(TPA) < 1) then
Exit;
MMouse(TPA[0].X, TPA[0].Y, 5, 5);
if WaitUpText('ck Gho', 50) then
begin
GetMousePos(X, Y);
ClickMouse2(True);
Result := True;
If DidRedClick then
MarkTime(T);
Repeat
wait(2 + Random(10));
If (TimeFromMark(T) > 5000) Then Exit;
Until Infight;
Begin
Inc(Kills);
End;
Proggy;
repeat
wait(50);
until Not(InFight)or (not OthersInFight) or (not LoggedIn);
Exit;
end;
Until(Result)
end;
Theres my code.
Function FindGhoul(Var X,Y: Integer): Boolean;
var
CTS,I,T: Integer;
TPA: TPointArray;
begin
repeat
Result := False;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.20, 1.60);
FindColorsSpiralTolerance(MSCX, MSCY, TPA,(11652298), MSX1, MSY1, MSX2, MSY2, 8);
ColorToleranceSpeed(CTS);
if (Length(TPA) < 1) then
Exit;
MMouse(TPA[0].X, TPA[0].Y, 5, 5);
if WaitUpText('ck Gho', 50) then
begin
GetMousePos(X, Y);
ClickMouse2(True);
Result := True;
If DidRedClick then
MarkTime(T);
Repeat
wait(2 + Random(10));
If (TimeFromMark(T) > 5000) Then Exit;
Until Infight;
Begin
Inc(Kills);
End;
Proggy;
repeat
wait(50);
until Not(InFight)or (not OthersInFight) or (not LoggedIn);
Exit;
end;
Until(Result)
end;
Theres my code.