R0b0t1
2008-04-18 23:51:17
program New;
var
x, y: Integer;
ArrowColors: TIntegerArray;
procedure PressArrows;
var
ArrowColors: TIntegerArray;
ArrowNumber: TIntegerArray;
I: Integer;
begin
ArrowColors := [153, 6697830, 6697728, 26112]; // UP left right down
ArrowNumber := [38, 37, 39, 40];
For I:= 0 to 3 do
If FindColor(x, y, ArrowColors[i], 32, 34, 45, 227) then
begin
KeyDown(ArrowNumber[i]);
Wait(85);
KeyUp(ArrowNumber[i]);
end;
end;
procedure PressKeys;
var
LetterBoxes: Array of TBox;
LetterNumbs: TIntegerArray;
LetterTrack: Array of Boolean;
I: Integer;
begin
LetterBoxes := [IntToBox(32, 34, 65, 60), IntToBox(32, 34, 65, 105), IntToBox(32, 34, 65, 165), IntToBox(32, 34, 65, 210)];
LetterNumbs := [49, 50, 51, 52];
For I:= 0 to 3 do
if FindColorTolerance(x, y, 10066329, LetterBoxes[I].x1, LetterBoxes[I].y1, LetterBoxes[I].x2, LetterBoxes[I].y2, 10) then
begin
KeyDown(LetterNumbs[I]);
if not FindColorTolerance(x, y, 10066329, LetterBoxes[I].x1, LetterBoxes[I].y1, LetterBoxes[I].x2, LetterBoxes[I].y2, 10) then
KeyUp(LetterNumbs[I]);
end;
end;
begin
repeat
Wait(1);
PressArrows;
PressKeys;
until(False)
end.
Everything is fine until I added the ASDF key presses. They always screw up.
EDIT: Fixed it so it gets at least one of them…
Try it and see! http://www.kongregate.com/games/Shinki/super-crazy-guitar-maniac-deluxe-3