SCAR Code:
Procedure TempHighestAngle;
begin
if not(loggedIn) then exit;
MarkTime(s);
repeat
keydown(VK_UP);
until TimeFromMark(s) >= (1000+Random(500))
end
Use
SCAR Code:
if (not(loggedin)) then loginplayer;
LogInPlayer already has "If Not LoggedIn".
So, temove the "If not loggedin" part just to make it look better.
SCAR Code:
Function RandomChickColor: integer;
Begin
Status('Picking Random Chicken Color from Consts.');
Case Random(5) of
0: Result := ChickenColor;
1: Result := ChickenColor2;
2: Result := ChickenColor3;
3: Result := ChickenColor4;
4: Result := ChickenColor5;
end;
end;
That made me go "WdF?".
Instead of that, use:
SCAR Code:
Procedure AttackChicken;
var
p, g, a, i: Integer;
ChickenColor: Array [0..4] of integer;
begin
ChickenColor[0] = 1055613;
ChickenColor[1] = 8299963;
ChickenColor[2] = 1055621;
ChickenColor[3] = 2841210;
ChickenColor[4] = 3706527;
For I := 0 to 4 do
If (FindColorTolerance(x, y, ChickenColor[i], MSX1, MSY1, MSX2, MSY2, 5)) then
begin
MMouse(x, y, 1, 1)
If IsUptextMulti('cken','hicken','chic') then
begin
Mouse(x,y,1,1, false)
chooseoption('tack')
MarkTime(g);
If (Debug) then Writeln('Killing Chicken');
FindNormalRandoms;
AntiLog;
Chick := Chick + 1
Chickens := Chickens + 1
FindNormalRandoms;
// Rest of procedures here.
Exit;
I don't know if I explained it too well, read a tut on arroys.