harybott
2012-07-11 19:51:22
How Long have You Played Runescape?
3 Year(s)
Are you affilated in anyway with Jagex LTD?
yes
Were you Referred to SRL?
harybott
What is your general programming knowledge?
pascal
Are you a member of any other communities?
no
Tell us about yourself…
Please show us one (or multiple) of your scripts.
3 Year(s)
Are you affilated in anyway with Jagex LTD?
yes
Were you Referred to SRL?
harybott
What is your general programming knowledge?
pascal
Are you a member of any other communities?
no
Tell us about yourself…
From: harybott
I am a LiYaEr users have been used
Please show us one (or multiple) of your scripts.
Function FightIts(Colors : TIntegerArray): Boolean;
var
i, ii,fx,fy, L, P: integer;
T: TPoint;
NPCs, TPA: TPointArray;
ATPA: T2DPointArray;
BoxArr: TBoxArray;
begin
if not (LoggedIn) then exit;
P := GetSystemTime;
NPCs := GetMMDotsOnMS('npc');
L := Length(NPCs);
if L < 1 then
Exit;
SetLength(BoxArr, L);
for i := 0 to L-1 do
begin
T := MMtoMS(NPCs[i]);
BoxArr[i] := IntToBox(Max(T.x-40, MSX1), Max(T.y-40, MSY1), Min(T.x+40, MSX2), Min(T.y+40, MSY2));
end;
With Players[0] do
for i := 0 to L-1 do
with BoxArr[i] do
begin
SetLength(ATPA, Length(Colors));
For ii := 0 to High(Colors) do
FindColorsTolerance(ATPA[ii], Colors[ii], X1, Y1, X2, Y2, 10);
TPA := MergeATPA(ATPA);
if Length(TPA) > 0 then
begin
ATPA := SplitTPA(TPA, 6);
SortATPASize(ATPA, True);
T := MiddleTPA(ATPA[0]);
fx:=T.x;
fy :=T.y-20;
if IsFightAt(fx, fy) then
Continue;
MMouse(T.x, T.y, 3, 3);
if WaitUpTextMulti(['tack'], random(100)) then
begin
ClickMouse2(False);
Result := ChooseOption('Attack');
if Result then
begin
FFlag(0);
Exit;
end Else Continue;
end;
end;
end;
end;