SCAR Code:
program New;
{.include srl/srl.scar}
{.include srl/srl/skill/fighting.scar}
//Hello, this is a script by petrock6. If you need any small script PM me!
//I am not responsible for anything of your lose to this script or me.
var
I, Color: Integer;
Const //Set colors, food colors, stat colors, weapon color etc
Color1 = 00000000;//Color 1, 2, 3 etc will detirmine monster colors
Color2 = 00000000;//You can choose the same, but not recommended.
Color3 = 00000000;
Color4 = 00000000;
Color5 = 00000000;
Color6 = 00000000;
foodcolor = 00000000;//Color of the food you want to eat.
eathp = 00;//Hp you want to start eating at i reccomend half
foodlogout = False; //If true, this script will disable chars with no food
tol = 0; //Tolerance of finding monster color
TimeOut = 1; //Amount of time to wait till clicking the next monster
begin
Repeat
FightNPC(Color1, Color2, Color3, Color4, Color5, Color6, tol, TimeOut, Integer): Boolean;
var
I, Color: Integer;
begin
for I := 1 to 6 do
begin
case I of
1: Color := Color1;
2: Color := Color2;
3: Color := Color3;
4: Color := Color4;
5: Color := Color5;
6: Color := Color6;
end;
if (LoggedIn) then
begin
if (FindObj(x, y, 'ttack', Color, tol)) then
begin
Result := True;
GetMousePos(x, y);
if (not (LoggedIn) or (WeAreDead)) then break;
Mouse(x, y, 0, 0, True);
if (not (LoggedIn) or (WeAreDead)) then break;
Wait(2000);
FFlag(10);
MarkTime(Mark);
repeat
if (not (LoggedIn) or (WeAreDead)) then break;
Wait(1000 + Random(500));
FindNormalRandoms;
if (TimeFromMark(Mark) > TimeOut) then break;
until ((not (FindColorSpiral(x, y, GreenStatusColor, 240, 140, 290, 175))
or (WeAreDead)));
NPCS := NPCS + 1;
Players[CurrentPlayer].Killed := Players[CurrentPlayer].Killed + 1;
end
else
Result := False;
end
end
end;
procedure RealEatIfNeeded(foodcolor, eathp: Integer; foodlogout: Boolean);
begin
if (GetHp <= EatHp) and (FoodColor >= 0) then
begin
GameTab(4);
Wait(10 + Random(20));
if (FindColorSpiralTolerance(x, y, foodcolor, 560, 210, 730, 460, 2)) then
begin
MMouse(x + 2, y - 2, 6, 5)
if (IsUpText('Eat')) then
begin
GetMousePos(x, y);
Mouse(x, y, 3, 2, True);
end;
end
else
begin
if (FoodLogout) then
begin
Logout;
Players[CurrentPlayer].Active := False;
end;
end;
end;
end;
Until(false)
end.
It isnt to big because i havent added anti randoms anti ban, etc.