*PLEASE NOTE I TRIED TO EDIT THE TOHER THREAD OF MINE*
Well... This is to find colors in counterstrike, but I keep getting a type missmatch I can't figure out.
SCAR Code:
program CSSAimbot;
{.Include SRL/SRL.scar}
Var Targ, ShootY, HoldM, ShootT: String;
Var Targ1, ShootY1, HoldM1: Boolean;
Var ShootT1: Integer;
Procedure Shoot(HoldMouse: Boolean; Time:Integer);
begin;
If HoldMouse Then
begin;
HoldMouse(x, y, True);
Wait(Time);
ReleaseMouse(x, y, True);
end;
If not HoldMouse;
Mouse(x, y, True);
end;
Function FindTarget(CT, Shoot, HoldMouse: Boolean; ShootTime:Integer): Boolean;
begin;
Case CT of
True: FindColorTolerance(x, y, 248, 3, 29, 1026, 770, 5);
False: FindColorTolerance(x, y, 16252928, 3, 29, 1026, 770, 5);
end;
MoveMouse(x+10, y+10);
Wait(1);
If Shoot Then
begin;
If HoldMouse Then
Shoot(True, 3);
If not HoldMouse Then
Shoot(False, 3);
end;
end;
begin
Targ:= ReadLn('Is Target CT? T/F');
Targ1:= StrToBool(Targ);
ShootY:= ReadLn('Shoot once found target? T/F');
ShootY1:= StrToBool(ShootY);
HoldM:= ReadLn('Hold mouse down if shooting? T/F');
HoldM1:= StrToBool(HoldM);
ShootT:= ReadLn('How long to hold down mouse in seconds? INT');
ShootT1:= StrToInt(ShootT);
repeat;
While (IsNumpadKeyDown(5)) Do
begin;
FindTarget(Targ1, ShootY1, HoldM1, ShootT1);
end;
until(IsNumPadKeyDown(0));
end.