Good job I guess
SCAR Code:
function FindTheEnt(Range : Integer; UseDots, UseText : Boolean): Boolean;//Credit to Deathsytex
var
EntX, EntY, EX1, EY1, EX2, EY2 : Integer;
begin
if (not (IsUpText('hop'))) then
Exit;
EX1 := MMCX - 1000;
EY1 := MMCY - 1000;
EX2 := MMCX + 1000;
EY2 := MMCX + 1000;
if (UseText) then
Result := FindColorTolerance(EntX, EntY, 388075, 80, 6, 127, 20, 30);
Exit;
end;
Ugh, now that's just bad :/ Make it just scan for the ent colour text in the corner of the screen. If someone talks it may think they are an ent.
Your standards are a bit funky.
You can replace
with
SCAR Code:
function GetWillowXp:Extended;
begin
result:= Chopped * 62.5;
end;
function GetOakXp:Extended;
begin
result:= Chopped * 37.5;
end;
function GetNormalXp:Extended;
begin
result:= Chopped * 25;
end;
procedure GetWhatXp;
begin
Case (WhatTree) of
'Normal': GetNormalXp;
'Oak': GetOakXp;
'Willow': GetWillowXp;
end;
end;
Useless procedure? Just call what one you want in the script.
Well, it looks okay, keep up the good work