Cartmann
10-02-2009, 04:39 AM
Hello fellow scar scripters! i'm haveing a problem with a GuitarHero bot i've made.
The point was that it searched all the fields every 100ms for the color, and when then pressed down the word for that specifik color.
The problem is however, that it, ever 100 ms. Send all the keys at once, so it just becomes a huge spambot sending 50 words a sec :S
Any help is appriciated.
program AutoGuitarhero;
Procedure PressGreen;
var
x,y : integer;
begin
if findcolor(x,y,39168,250,855,260,865) then;
begin
Sendkeys('a');
end;
end;
procedure PressRed;
var
x,y : integer;
begin
if findcolor(x,y,255,410,850,420,860) then;
begin
Sendkeys('s');
end;
end;
procedure PressYellow;
var
x,y : integer;
begin
if findcolor(x,y,193780,590,850,600,860) then;
begin
Sendkeys('j');
end;
end;
procedure PressBlue;
var
x,y : integer;
begin
if findcolor(x,y,16750848,750,850,760,860) then;
begin
Sendkeys('k');
end;
end;
procedure PressOrange;
var
x,y : integer;
begin
if findcolor(x,y,26367,940,860,950,870) then;
begin
Sendkeys('l');
end;
end;
var
i : integer;
Begin
i:=0
repeat
i:=i+1;
PressGreen;
PressRed;
PressYellow;
PressBlue;
PressOrange;
wait(100);
until(i=1000000)
end.
The point was that it searched all the fields every 100ms for the color, and when then pressed down the word for that specifik color.
The problem is however, that it, ever 100 ms. Send all the keys at once, so it just becomes a huge spambot sending 50 words a sec :S
Any help is appriciated.
program AutoGuitarhero;
Procedure PressGreen;
var
x,y : integer;
begin
if findcolor(x,y,39168,250,855,260,865) then;
begin
Sendkeys('a');
end;
end;
procedure PressRed;
var
x,y : integer;
begin
if findcolor(x,y,255,410,850,420,860) then;
begin
Sendkeys('s');
end;
end;
procedure PressYellow;
var
x,y : integer;
begin
if findcolor(x,y,193780,590,850,600,860) then;
begin
Sendkeys('j');
end;
end;
procedure PressBlue;
var
x,y : integer;
begin
if findcolor(x,y,16750848,750,850,760,860) then;
begin
Sendkeys('k');
end;
end;
procedure PressOrange;
var
x,y : integer;
begin
if findcolor(x,y,26367,940,860,950,870) then;
begin
Sendkeys('l');
end;
end;
var
i : integer;
Begin
i:=0
repeat
i:=i+1;
PressGreen;
PressRed;
PressYellow;
PressBlue;
PressOrange;
wait(100);
until(i=1000000)
end.