trigoon
03-24-2007, 05:12 PM
I was hoping if someone could tell me how i can fix up my script. Its REALLY simple as I just started to learn SCAR (probably yesterday night lol) So far all it does is teleport you to cammy by searching by using a bitmap.
I dont have much in there including the anti randoms and was wondering if someone can show me how I can move around the mouse randomly around the screen while teleporting. Also how do I include antiban?
program AutoCammyTele;
var
cammy, x, y: Integer;
const
teletimes = 10;
var
telesdone: Integer;
procedure DeclareBMPS;
begin
cammy := BitmapFromString(10, 20, 'z78DABD94D10AC0200845' +
'7F29675BED3128FFFF9316F8D2B09A22ACE03EDD839A5A08A 6034' +
'20D546EB912B25AFD0A764241043868542B954A2A74B34A56 52A3' +
'7FC1BE22AE62E189F16AAC568A9DD4FAAD9A3C57D49E95B9F DC36' +
'A7276BCD5A4BFEA1EF967C33F939E5D08FB2AD4FBEBD9FD8F 3FE7' +
'010EBFFC49');
end;
procedure ClickBMPS;
begin
wait(1000+random(500))
movemousesmooth(x,y)
wait(500+random(50))
clickmouse(x,y,true)
telesdone := telesdone +1;
end;
Procedure FindBMPS;
begin
if(FindBitmap(cammy,x,y))then
ClickBMPS;
end;
begin
repeat
wait(1300)
DeclareBMPS;
FindBMPS;
until(telesdone = teletimes)
end.
I dont have much in there including the anti randoms and was wondering if someone can show me how I can move around the mouse randomly around the screen while teleporting. Also how do I include antiban?
program AutoCammyTele;
var
cammy, x, y: Integer;
const
teletimes = 10;
var
telesdone: Integer;
procedure DeclareBMPS;
begin
cammy := BitmapFromString(10, 20, 'z78DABD94D10AC0200845' +
'7F29675BED3128FFFF9316F8D2B09A22ACE03EDD839A5A08A 6034' +
'20D546EB912B25AFD0A764241043868542B954A2A74B34A56 52A3' +
'7FC1BE22AE62E189F16AAC568A9DD4FAAD9A3C57D49E95B9F DC36' +
'A7276BCD5A4BFEA1EF967C33F939E5D08FB2AD4FBEBD9FD8F 3FE7' +
'010EBFFC49');
end;
procedure ClickBMPS;
begin
wait(1000+random(500))
movemousesmooth(x,y)
wait(500+random(50))
clickmouse(x,y,true)
telesdone := telesdone +1;
end;
Procedure FindBMPS;
begin
if(FindBitmap(cammy,x,y))then
ClickBMPS;
end;
begin
repeat
wait(1300)
DeclareBMPS;
FindBMPS;
until(telesdone = teletimes)
end.