Erke
01-28-2012, 08:51 PM
Hello guys, this is a fun little thing I did while waiting for some friends to come online to play some LoL, oh well!
http://www.hamsterpaj.net/onlinespel/madness-reaction-time
^Link to the onlinegame, just load the page, drag the crosshair and click start!
I had a avarge reaction time on 0.005-0.010 seconds and cleared 74 rounds
//Welcome to my Script!
//Just start the game, drag the crosshair to the game client and hit start!
program DodgeTheBullet;
{$i srl/srl.simba}
procedure StartGame;
begin
Mouse(323, 384, 0, 0, true);
Wait(1500);
Mouse(324, 371, 0, 0, true);
end;
procedure Dodge;
var
X, Y: integer;
begin
MMouse(128, 219, 0, 0);
repeat
wait(1);
until Findcolorspiraltolerance(X, Y, 16777215, 38, 168, 180, 306, 5);
ClickMouse2(true);
WriteLn('we clicked!');
Wait(4000);
end;
procedure RestartGame;
begin
Mouse(313, 249, 0, 0, true);
Wait(1500);
Mouse(316, 372, 0, 0, true);
Wait(1000);
end;
begin
SetupSRL;
StartGame;
repeat
Dodge;
RestartGame;
until(false);
end.
http://www.hamsterpaj.net/onlinespel/madness-reaction-time
^Link to the onlinegame, just load the page, drag the crosshair and click start!
I had a avarge reaction time on 0.005-0.010 seconds and cleared 74 rounds
//Welcome to my Script!
//Just start the game, drag the crosshair to the game client and hit start!
program DodgeTheBullet;
{$i srl/srl.simba}
procedure StartGame;
begin
Mouse(323, 384, 0, 0, true);
Wait(1500);
Mouse(324, 371, 0, 0, true);
end;
procedure Dodge;
var
X, Y: integer;
begin
MMouse(128, 219, 0, 0);
repeat
wait(1);
until Findcolorspiraltolerance(X, Y, 16777215, 38, 168, 180, 306, 5);
ClickMouse2(true);
WriteLn('we clicked!');
Wait(4000);
end;
procedure RestartGame;
begin
Mouse(313, 249, 0, 0, true);
Wait(1500);
Mouse(316, 372, 0, 0, true);
Wait(1000);
end;
begin
SetupSRL;
StartGame;
repeat
Dodge;
RestartGame;
until(false);
end.